当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 3 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : perl可以筛选文件吗
帖子发表于 : 2011-03-05 17:15 

注册: 2010-09-08 18:17
帖子: 62
送出感谢: 0 次
接收感谢: 0 次
0010_01_00000091_1100_0_2010_03_07_06_06_58_new.txt
0010_01_00000095_1100_0_2010_03_07_06_06_58_new.txt
0010_01_00000099_1100_0_2010_03_07_06_06_58_new.txt

有很多这样的文件,如何用perl命令筛选第36,37位(06)是从09~12之间的文件,并把筛选出来的文件的_0_更改成_1_,要具体代码。


页首
 用户资料  
 
2 楼 
 文章标题 : Re: perl可以筛选文件吗
帖子发表于 : 2011-03-06 15:11 

注册: 2008-07-09 0:39
帖子: 353
送出感谢: 1
接收感谢: 0 次
代码:
# 保存那些文件的目录
chdir('tmp');

while(glob('*')){
    $orig = $_;
    if (substr($_, 35, 2) > 9 && substr($_, 35, 2) < 12){
        s/_0_/_1_/;
        next if $orig eq $_;
        rename($orig, $_) or die "can't rename $orig to $_";
        print "$orig renamed to $_\n";
    }
}


_________________
7号机-----神舟 优雅A460P-i7G D2
CPU: i7-2670QM
RAM: 8G
HD:500G
OS:Fedora 17 x86_64

热衷话题:Package Management\Programming


页首
 用户资料  
 
3 楼 
 文章标题 : Re: perl可以筛选文件吗
帖子发表于 : 2011-03-08 16:16 
头像

注册: 2009-10-02 15:47
帖子: 257
送出感谢: 0 次
接收感谢: 0 次
还不会……

观望 学习 :em01


_________________
爱Linux 也爱Ubuntu
简洁美观的桌面
更爱高效稳定的系统
不是不折腾难受夫斯基不想浪费时间
我和大多数人一样 我是菜菜
我要有菜菜的觉悟
我是Drdi


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 3 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 1 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
cron
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译