블로그 이전합니다.
blog.joostory.net 대신 joostory.net 에 글을 쓰기 시작했습니다. 이 곳에 있는 글은 그대로 둘 예정입니다. :)
2008/10/11 16:12
파일이름을 바꾸어야 하겠는데 파일이 너무 많을 때 사용하려고
간단히 perl 스크립트 하나 만들어보았습니다.
사용방법은 간단합니다.
conv_fname.pl [파일 앞에 붙일 이름] [바꿀 파일들..]
간단히 perl 스크립트 하나 만들어보았습니다.
사용방법은 간단합니다.
conv_fname.pl [파일 앞에 붙일 이름] [바꿀 파일들..]
#!/usr/bin/perl
if (@ARGV < 2) {
print "Usage : ${0} [prefix] [filenames]\n";
exit 1;
}
chomp(my $prefix = $ARGV[0]);
for (my $i = 1 ; $i < @ARGV ; $i++) {
my $org_fname = $ARGV[$i];
my $ext = "";
if ($org_fname =~ m/\.(.*)/) {
$ext = $1;
}
my $new_fname = $prefix . "_" . $i . "." . $ext;
print "Rename ${org_fname} to ${new_fname} : ";
`cp ${org_fname} ${new_fname}`;
if ($? == 0) {
print "done.\n";
}
else {
print "fail.\n";
}
}
if (@ARGV < 2) {
print "Usage : ${0} [prefix] [filenames]\n";
exit 1;
}
chomp(my $prefix = $ARGV[0]);
for (my $i = 1 ; $i < @ARGV ; $i++) {
my $org_fname = $ARGV[$i];
my $ext = "";
if ($org_fname =~ m/\.(.*)/) {
$ext = $1;
}
my $new_fname = $prefix . "_" . $i . "." . $ext;
print "Rename ${org_fname} to ${new_fname} : ";
`cp ${org_fname} ${new_fname}`;
if ($? == 0) {
print "done.\n";
}
else {
print "fail.\n";
}
}
