+ -
当前位置:首页 → 问答吧 → 咨询一个关于辨别文件内容的perl脚本

咨询一个关于辨别文件内容的perl脚本

时间:2011-04-11

来源:互联网

如附件里面的文件那样,我想判断文件内容第一行里面有个叫EQA的关键字,如果有这段字母,就把该文件转移到其它目录。
这个脚本改怎么写,有人知道么,谢谢。


下载 (152.49 KB)
2011-04-11 10:47

S2_1_ZW7786_TS-ADV-010C_20110411112919.rar (387 Bytes)

下载次数:1

2011-04-11 10:43

作者: acmilanxr   发布时间: 2011-04-11

try:
  1. awk '{if(NR==1 && $0~/EQA/)print FILENAME}' ./dir1/* | xargs -i mv {} ./dir2/*
复制代码

作者: zzy7186   发布时间: 2011-04-11