刚学perl，问一个很弱的问题

elico_yqf

有一个文件如下示，要找出其中有用的部分来，是在那一章正则表达式匹配的一道习题了，
4:20am 99:45am 3:0 2:23pm 44:00am 2:60am

如上这些数据找出时间有用的部分来，像第一，四，

tojeff

#!/usr/bin/perl
die "请输入要处理的文本文件\n" unless $ARGV[0];

if (-e $ARGV[0]) {
        open (TEXT,$ARGV[0]) or die "不能打开文件：$ARGV[0]";
        print "符合要求的时间为：\n";
        while (<TEXT>) {
                @lines = split(/\s+/);
                foreach (@lines) {
                        /(\d+)\d+)([a|p]+m)/i and do {
                                if ($1<24 && $2<60) {
                                        print "$_\t";
                                };
                        }
                }
        }
}
else {
        print "文件不存在，请确认路径是否正确！";
}

elico_yqf

我用   [1-2]{0,1}\d:\d\d\w\w 怎么就匹配不了呢

home

99:45am ？？

bloves

$test="4:20am 99:45am 3:0 2:23pm 44:00am 2:60am";
my ($one,$two,$three,$four,$five,$six)=split(/ +/,$test);
print $one,"\n",$two,"\n","$three","\n","$four","\n",$five,"\n",$six;

libinary

楼主要的是“有用的部分”，象44:00am就不是，必须是正确的时间才行

libinary

看看这个行不行：

1. 
   
2. #! /usr/bin/perl -w
   
3. 
   
4. $_="4:20am 99:45am 3:0 2:23pm 44:00am 2:60am";
   
5. foreach(split){
   
6.   if(/^(\d+):(\d+)[ap]m$/){
   
7.     if(($1 * 60 + $2 <= 12 * 60) and ($2 < 60)){
   
8.       print $_, "\n";
   
9.     }
   
10.   }
    
11. }
    

复制代码

777

最初由 elico_yqf 发表
有一个文件如下示，要找出其中有用的部分来，是在那一章正则表达式匹配的一道习题了，
4:20am 99:45am 3:0 2:23pm 44:00am 2:60am

如上这些数据找出时间有用的部分来，像第一，四，

你原来的软件有问题？那就不是好软件了，还是自己写的？