perl可以筛选文件吗

Python/PHP/Perl 开发与设计
回复
liucheng1513
帖子: 62
注册时间: 2010-09-08 18:17
送出感谢: 0
接收感谢: 0

perl可以筛选文件吗

#1

帖子 liucheng1513 » 2011-03-05 17:15

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_,要具体代码。
cheeselee
帖子: 353
注册时间: 2008-07-09 0:39
送出感谢: 1 次
接收感谢: 0

Re: perl可以筛选文件吗

#2

帖子 cheeselee » 2011-03-06 15:11

代码: 全选

# 保存那些文件的目录
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
头像
Drdi
帖子: 257
注册时间: 2009-10-02 15:47
送出感谢: 0
接收感谢: 0

Re: perl可以筛选文件吗

#3

帖子 Drdi » 2011-03-08 16:16

还不会……

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

回到 “Python/Php/Perl”