Perl多重模式匹配和替换一次传递

09/27/2009 19:48:00 Departure Location

我想匹配并替换文本文件中给定的行。日期和时间之后的文本长度可能会有所不同。我读一行文件中的行，我需要最终输出到打印as--Perl多重模式匹配和替换一次传递

Date=> 09/27/2009 
Time=> 19:48:00 
Text=> Departure Location

我试图做的换人在一次通过如下 -

if($line =~ m/(\d+)\/(\d+)\/(\d+)\h{1}(\d+):(\d+):(\d+)/){ 

    $line =~ s/(\[a-zA-Z])/\nText=> $1/; 
    $line =~ s/(\d+)\/(\d+)\/(\d+)/\nDate=> $1\/$2\/$3/; 
    $line =~ s/\h{1}(\d+):(\d+):(\d+)/\nTime=> $1\:$2\:$3/; 

    print FH "$line\n"; 

}

但所有我我得到的是这个 -

Date=> 09/27/2009 
Time=> 19:48:10 Departure Location

我知道有一个匹配的Text一个问题，但我不能修复它。我仍然是一名Perl初学者。任何帮助表示赞赏。谢谢！

来源

2012-07-09 Prince

这种模式尤其是给你的麻烦：

$line =~ s/(\[a-zA-Z])/\nText=> $1/;

有与它的几个问题。首先，左括号前面的反斜杠：\[正在转义括号，这样您的字符类根本不是字符类，而是字面文本“[a-zA-Z]”。其次，在文本匹配中不允许有“空白”，所以如果字符串的文本部分包含任何空格字符（或标点符号），它也将无法匹配。第三，没有量词，所以它只能匹配单个字符。最后要说明的是，它应该可以锚定到字符串的末尾。它可能会像这样工作（但不要使用它，而不是阅读）：

$line =~ s/([a-zA-Z\s]+)$/\nText=> $1/;

但是可能有更好的解决方案。它可以一次完成，而不会失去清晰度。对我来说，开始更有意义，如果你捕捉更大的片段：

$string =~ s{^ 
    (\d\d/\d\d/\d{4})\s # The date. 
    (\d\d:\d\d:\d\d)\s  # The time. 
    (.+)$     # The rest (the text). 
}{Date=> $1\nTime=> $2\nText=> $3}x;

由于通常情况下，/ X修改有利于更容易阅读的代码。

有一些很好的资源可用于获取Perl正则表达式的句柄。我建议从perldoc perlretut开始，它是“在Perl中理解，创建和使用正则表达式的基础教程”。

使用命名捕获还可以增加一定程度的透明度，尤其是在你的正则表达式变得更加复杂：

$string =~ s{ 
    ^
    (?<date>\d\d/\d\d/\d{4})\s 
    (?<time>\d\d:\d\d:\d\d)\s 
    (?<text>.+) 
    $ 
} 
{Date=> $+{date}\nTime=> $+{time}\nText=> $+{text}}x;

来源

2012-07-09 04:40:47 DavidO

尼斯，戴维。鉴于这一行 - 以及您的数据警告 - 这也适用：'s /（\ S +）（\ S +）（。*）/ Date => $ 1 \ nTime => $ 2 \ nText => $ 3 \ n /' – Kenosis 2012-07-09 04:52:22

肯尼迪是的，那也可以。我倾向于赞成更明确的匹配，以便尽可能少地误报误差，以便我可以更好地控制匹配发生的字符串中的哪个位置，但是您的方法也可以工作。 – DavidO 2012-07-09 04:55:11

您的正则表达式理由很有意义，您添加的命名捕获有助于提高可读性。 – Kenosis 2012-07-09 05:27:02

你做你的解析器的工作太多了。

my ($date, $time, $text) = split(' ', $_, 3); 
say "Date=> $date"; 
say "Time=> $time"; 
say "Text=> $text";

来源

2012-07-09 05:36:58 ikegami

我想你误解了OP的目标字符串。（更新评论） – DavidO 2012-07-09 05:48:35

哦！我得到了输入和输出反向。固定。 – ikegami 2012-07-09 14:46:19

（如果您想验证日期，时间和文本，请在分割后进行） – ikegami 2012-07-09 18:35:41

split限制在这里很好用。该pairwise并非绝对必要，但帮我避免一个循环：

#!/usr/bin/env perl 

use strict; use warnings; 
use feature 'say'; 
use List::MoreUtils qw(pairwise); 

my $input = q{09/27/2009 19:48:00 Departure Location}; 
my @fields = qw(Date Time Text); 
my @values = split ' ', $input, @fields; 

{ 
    no warnings 'once'; 
    say join("\n", pairwise { "$a=> $b" } @fields, @values); 
}

输出：

Date=> 09/27/2009 
Time=> 19:48:00 
Text=> Departure Location

来源

2012-07-09 06:39:37

我试图将它拆分得更早，但由于我的整型变量（数字）不能包含时间值，所以在从@array中提取它时遇到了困难。那么，现在我知道正确的方法。谢谢。 +1，因为它整洁美观！ :) – Prince 2012-07-09 07:02:14

临时抱佛脚尽可能多的功能集成到一个狭小的空间不仅有助于声誉的Perl有一个被不知所云。

此代码似乎更清楚我

$line = <<END if $line =~ m|^(\d\d/\d\d/\d{4}) \s+ (\d\d:\d\d:\d\d) \s+ (.*)|x; 
Date=> $1 
Time=> $2 
Text=> $3 
END

来源

2012-07-09 16:01:45 Borodin

我没有得到第一行，'<<'关键字做了什么？ – Prince 2012-07-09 18:31:54

这是一个“HERE”文档。 “<< END”后面的行通过（但不包括）“END”引用“双引号”语义。请参阅“报价和引用类运营商”部分中的perlop。 – DavidO 2012-07-09 18:33:39

这里最棘手的是通常我们习惯于看到'<< END;'。如果您不熟悉本文的工作方式以及实际引用文本的开头位置，那么包含“if”修饰符可能会有点混淆。 – DavidO 2012-07-09 18:34:33

Perl多重模式匹配和替换一次传递

回答

相关问题