小编use*_*428的帖子

我在格式中有一个简单的日期时间10/20 4:30PM.我希望它以格式显示 10/24 1:30PM -007.我说date('Y-m-d H:i:sT', $time_recieved)假设T是为了时区.但它还没有给出时区.可能是什么原因？我还缺少其他任何格式吗？

我是 PERL 新手，正在开发一个正则表达式来仅匹配等于或超过 3 个字母的单词。这是我正在尝试的程序。我尝试添加 \w{3,} 因为它应该匹配 3 个以上字符。但它仍然匹配单词中 <3 个字符。例如，如果我给出“这是一个模式”。我希望我的 $field 仅匹配“This”和“Pattern”并跳过“is”和“a”。

#!/usr/bin/perl
     while (<STDIN>) {
           foreach my $reg_part (split(/\s+/, $_)) {
                if ($reg_part =~ /([^\w\@\.]*)?([\w{3,}\@\(\)\+\$\.]+)(?::(.+))?/) {
                        print "reg_part = $reg_part \n";
                        my ($mod, $field, $pat) = ($1, $2, $3);
                        print "#$mod#$field#$pat#$negate#\n";
                }
        }
}

exit(0);

我缺少什么？