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,0,length($line)-1);#字符串匹配/wappetserverif($line=~///wappetserver/){my @row=split(//,/,$line);$row[6]="/wappetserver/syssetting";$line=join(",",@row);} print OUTFILE $line."/n";}close FILE;close OUTFILE;