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

Perl로 간단한 프로그래밍 테스트를 받았다. Apache 로그를 분석해서 pv가 많은 순서대로 url을 출력하는 것이었다. 모두가 꽤나 어렵다는 눈치여서 굉장히 긴장했는데.. 생각보다 쉽게 끝났다. 역시 php를 경험해 본 것이 많은 도움이 되었다. #!/usr/bin/perl open(FILE, "log") ; my %url_hash ; while() { @urls = split(" ", $_) ; @urls2 = split(/\?/, @urls[6]) ; #print @urls[6]."\n" ; $url_hash{@urls2[0]}[0]++ ; $url_hash{@urls2[0]}[1]+=@urls[8] ; } close(FILE); foreach $_ (sort { $url_hash{$b}[0] ..