Question

考虑一个包含

的日志文件

r100000|Tom Sawyer|2010-12-01|view.txt

我应该解析这个并打印

ID:r100000
NAME:Tom Sawyer
DATE:2010-12-01
FILENAME:view.txt

我应该只使用正则表达式。

Answer 1

$line = 'r100000|Tom Sawyer|2010-12-01|view.txt';
@fields = split /\|/, $line;
print $fields[0]; # r100000

Answer 2

更简单的方法是使用分隔符将字符串分解为字段。因为你有管“|”作为分隔符，然后使用它。不需要复杂的正则表达式。另外，如果下次有更多字段怎么办？

这是awk的一个（你也可以使用Perl的-F选项）

$ awk -F"|" '{print "ID:"$1" Name:"$2" Date:"$3" filename:"$4}' file
ID:r100000 Name:Tom Sawyer Date:2010-12-01 filename:view.txt

Perl等价物

$ perl -F"\|" -ane 'print "ID:$F[1] Name: $F[2] Date:$F[3] filename:$F[4]"' file
ID:Tom Sawyer Name: 2010-12-01 Date:view.txt

Answer 3

如果您想使用正则表达式来解析它，

你可以尝试这个：

$line = r100000|Tom Sawyer|2010-12-01|view.txt;

if($line =~ /^([^|]+)\|([^|]+)\|([^|]+)\|([^|]+)$/)
{
$id = $1;
$name = $2;
$date = $3;
$filename = $4
}

Answer 4

你没有提到RE的方言。但例如：

$ echo 'r100000|Tom Sawyer|2010-12-01|view.txt' | \
  perl -pe 's/^(r\d+)\|([^|]+)\|([0-9-]+)\|(.+)/ID:\1 NAME:\2 DATE:\3 FILENAME:\4/'
ID:r100000 NAME:Tom Sawyer DATE:2010-12-01 FILENAME:view.txt

Answer 5

use Data::Dumper;
my %h;
my $line = 'r100000|Tom Sawyer|2010-12-01|view.txt';
@h{qw/ID NAME DATE FILENAME/} = (split /\|/, $line);
print Dumper(\%h);

如何仅使用正则表达式解析此文本文件？

5 个答案: