perl简单文本文件处理

??? 中国移动游戏频道，游戏玩家套餐包中的玩家乐园游戏上线啦，很开心，作为开发人员之一，加了那么多班，眼看出了成果，激动一下下，哈哈，随之而来的是各种各样的pv、uv的数据统计。

??? 领导问：还会写perl啊？

??? 我答：会一些。

???

????进入这个公司后，确实涉及到过perl脚本，所以稍稍简单的还能写，所以对于领导交代的access_log日志的处理，我写完了，贴到自己博客里，以备下次回忆。

??? 这个脚本主要涉及到?perl命令行运行时传参、文件判断是否存在以及创建、一些简单正则的使用。

??? #!/usr/bin/perl #$filename="localhost_access_log.2011-06-16.txt"; #$outname="new".$filename;操作符为. ########测试时使用的################## #$outname="new_$filename"; #open( FILE,$filename) or die "Can't open the file:$!/n"; ########测试时使用的################## ########正式时使用的################## #$ARGV[0]命令行参数 $outname="new_$ARGV[0]"; open( FILE,$ARGV[0]) or die "Can't open the file:$!/n"; ########正式时使用的################## #open( OUTFILE,">>$outname") or die "Can't open the file:$!/n"; #判断文件是否存在 unless (-e $outname) { print "File not found.then create it/n"; #创建文件并写入 open(OUTFILE,">$outname") or die "Couldn't open $outname:$!"; } else { open(OUTFILE,">$outname") or die "Couldn't open $outname:$!"; print "File found./n"; } while ($line = <FILE>) { #将行中的[ ] "替换为空 $line=~s/['/['|'/]'|'/"']//g; #将空格替换为,$line=~s//s/,/g; #将每行最后一个,去掉 $line=substr($line,length($line)-1); #字符串匹配/wappetserver if($line=~///wappetserver/) { my @row=split(//,/,$line); $row[6]="/wappetserver/syssetting"; $line=join(",",@row); } print OUTFILE $line."/n"; } close FILE; close OUTFILE;??