免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 3205 | 回复: 3
打印 上一主题 下一主题

关于目录问题 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2014-07-15 21:26 |只看该作者 |倒序浏览
我想对当前目录(/home/ssw/)test 下n 个 *out 子目录的下的DOC目录下的以*pl 结尾的文件的中的aaaa 替换成bbbb  ,每个*out 子目录下都有一个DOC 目录和一堆文件,文件夹只有一个DOC ,DOC 下面有很多 以*.pl 结尾的文件,我想将这些以*.pl 结尾的文件中的aaaa 替换成bbbb, 我写的sripts 如下:却一直有问题,请大家帮我分析下原因 ,看完小骆驼,还是很生搬硬套,
#!/usr/bin/perl -w
my $dir = "/home/ssw/test";
opendir DH $dir or die "can not open $dir !";
my  @out_dir = glob ("/home/ssw/*out";
closedir DH ;
foreach my $subdir (@out_dir) {
$docname = "$dir/$subdir" ;
opendir DH , $subdir or die "I can not open $dir !" ;
chdir './DOC' ;
my @files = glob "*.pl" ;
my $file ;
my $line ;
foreach my $line (@files)  {
open FH ,$line or die "I can not open $line !" ;
          while (<FH> {
           chomp ;
           s/aaaa/bbbb/ ;
          print
}
}
}
closedir DH ;     

论坛徽章:
33
荣誉会员
日期:2011-11-23 16:44:17天秤座
日期:2014-08-26 16:18:20天秤座
日期:2014-08-29 10:12:18丑牛
日期:2014-08-29 16:06:45丑牛
日期:2014-09-03 10:28:58射手座
日期:2014-09-03 16:01:17寅虎
日期:2014-09-11 14:24:21天蝎座
日期:2014-09-17 08:33:55IT运维版块每日发帖之星
日期:2016-04-17 06:23:27操作系统版块每日发帖之星
日期:2016-04-18 06:20:00IT运维版块每日发帖之星
日期:2016-04-24 06:20:0015-16赛季CBA联赛之天津
日期:2016-05-06 12:46:59
2 [报告]
发表于 2014-07-16 08:23 |只看该作者
有两点建议:
1. 把代码放在 "代码"框里, 这会让别人更容易看懂你的程序.

2. 把报错一块发上来, "目测" 是一门很高深的学问, 不是只有高手高手高高手才做得到.

论坛徽章:
0
3 [报告]
发表于 2014-07-16 12:59 |只看该作者
find . -name \*.pl -print|grep  -e 'out\/' |grep -e '\/DOC\/'|xargs perl -pi -e 's/aaaa/bbbb/'

论坛徽章:
7
巳蛇
日期:2013-11-28 09:22:59天秤座
日期:2014-10-25 15:40:452015年辞旧岁徽章
日期:2015-03-03 16:54:152015年迎新春徽章
日期:2015-03-04 09:53:172015亚冠之德黑兰石油
日期:2015-07-15 08:46:452015亚冠之平阳省
日期:2015-11-08 16:27:53白银圣斗士
日期:2015-11-14 09:58:12
4 [报告]
发表于 2014-07-16 13:35 |只看该作者
inbus 发表于 2014-07-16 12:59
find . -name \*.pl -print|grep  -e 'out\/' |grep -e '\/DOC\/'|xargs perl -pi -e 's/aaaa/bbbb/'


{:3_189:}
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP