魏长东

weichangdong

perl类似awk的命令

perl -F"," -anle  '{print @F[2],"\t",@F[3]}'  0318|perl  -anle '{print @F[0],"\t",@F[2]}'|perl  -anlep 's/\//-/g'
perl -F"," -anle  '{print @F[2],"\t",@F[3]}'  0318|perl  -anle '{print @F[0],"\t",@F[2]}'|perl  -anle 's/\//-/g;print'
cat   0318|awk  -F, '{print $3"\t"$4}'|awk '{print $1"\t"$3}'|tr "/" "-"