파일이름을 바꾸어야 하겠는데 파일이 너무 많을 때 사용하려고 간단히 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 . "." . $..