求助，谁帮帮我提取文件字符的

gaochong

open FILE,"< $file" or die "$!";
while (<FILE>) {
    print "$1\t$s2" if /\w+(\d{3})(.*)/s;
}
close FILE;

[ 本帖最后由 gaochong 于 2009-11-25 16:36 编辑 ]

yz86yz

何必这么复杂 cut就行了

gaochong

你用/ig干嘛？多此一举吧？用/s就够了。

szedwin

原帖由 mwm5 于 2009-11-25 12:28 发表
perl -e 'open fh,urfile;while(){s/^.*_(\d+.*$)/$1/;print;}'

感觉这个比较方便, 取用了_后接数字至结尾的所有的字符

hitsubunnu

1. 
   
2. perl -pe '$_ = unpack "x24a*" ' filename
   

复制代码