對(duì)應(yīng)腳本運(yùn)用：
1. shell 統(tǒng)籌管理 腳本的運(yùn)行。合理結(jié)合 crontab , ps -ef ,kill 等命令。
2. perl 處理短小快 。
3. python 有比較復(fù)雜結(jié)構(gòu)和邏輯的。
本文主要介紹 perl 的行級(jí)命令使用 ，力求 短 小 快
：
#最簡(jiǎn)單的
$ perl -e 'print "Hello World\n"'#處理文件 行
$ perl -n -e 'print $_' file1
#編碼轉(zhuǎn)換
#如果 有需要 在使用下 encode("UTF-8", decode("GBK",$_));在 linux 下默認(rèn) utf-8
perl -MEncode -ne 'print decode("GBK",$_);' file.txt
#正則使用
# if($_=~/.*\/(.*)$/){ print $1 ;} 這是perl 巨方便的地方 $1 xx
# next LINE 跳到下一個(gè)循環(huán)
$ perl -n -e 'next LINE unless /pattern/; print $_'
#去除換行 chomp
perl -e 'print split(/\n/,"asg\n");'
#像 awk 一樣 Begin End
$ perl -ne 'END { print $t } @w = /(\w+)/g; $t += @w' file.txt
#像 awk -F"x" 一樣 切割行
#-a 打開(kāi)自動(dòng)分離 (split) 模式
#@F 為 切割后的 數(shù)組
perl -F'\t' -ane '
if($F[1]=~/侃侃/ and $F[2]=~/愛(ài)情啊/){
print "$F[3]\t$F[4]\t$F[5]\n"
}
' all2_data.sort.st
實(shí)際處理：
perl -F'\|\|' -ane '
my $actor,$music ;
if ( $F[3] ){
$music=$F[2];
$actor=$F[3];
}else{
$music=$F[0];
$actor=$F[1];
}
$music =~ tr/[A-Z]/[a-z]/;
$music =~ s/\s*(.*)\s*\(.*\)/\1/g;
$actor =~ tr/[A-Z]/[a-z]/;
$actor =~ s/\s*(.*)\s*\(.*\)/\1/g;
print "$actor-$music\n";
' ring.utf8.txt |sort -u > ring.actor_music.sort.utf8.txt &
wc -l ring.actor_music.sort.utf8.txt
#像 sed 一樣替換
# -i 和 sed 一樣 perl 輸出會(huì)替換調(diào) 源 file.txt
$ perl -i -pe 's/\bPHP\b/Perl/g' file.txt
#外部 傳參
perl -ne'print "$ARGV[0]\t$ARGV[1]\n" ' file.txt 'par1' 'par2'
#結(jié)果 .. par1 par2 ..
# 查詢出 重復(fù)列 次數(shù)，并 列舉出來(lái)
cut -d" " -f 2 .collection_mobile.data |perl -ne '
END{
while (($key,$value)=each(%a)){print $key,"=",$value,"\n";};
}BEGIN{ %a =(); }
chomp;
$a{$_}+=1;
'
結(jié)果
Ring=532895
CRBT=68500
RingBoxes=880
Song=96765
#一些實(shí)際使用 :)
find . -name "*.mp3" | perl -pe 's/.\/\w+-(\w+)-.*/$1/' | sort | uniq
perl -F'\t' -ane 'if($F[1]=~/$ARGV[0]/ and $F[2]=~/$ARGV[1]/){print "$F[3]\t$F[4]\t$F[5]\n"}' all2_data.sort.st '侃侃' '愛(ài)情啊'
#與 find 合用 -e $ARGV[0] 批量 把 excel 倒成 文本 格式
find . -maxdepth 1 -name "*xls" -exec perl -e '
require("/home/xj_liukaiyi/src/perl/excel/excelUtil.pl");
my $file=$ARGV[0];
sub myRead{
my $str = "";
for $tmp(@_){
$str="$str$tmp\t";
}
$str="$str\n";
system "echo \"$str\" >> $file.data ";
}
&parse_excel("$file",0,\&myRead);
print "$file\n";
' {} \;
參考：
http://www.ibm.com/developerworks/cn/linux/sdk/perl/l-p101/index.html
http://bbs.chinaunix.net/viewthread.php?tid=499434
整理 m.tkk7.com/Good-Game