Как разобрать этот текстовый файл, используя только регулярные выражения?

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

Если вы хотите использовать Регулярное выражение для его анализа,

Вы можете попробовать это:

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

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

Answer 3

более простой способ - разбить строку на поля, используя разделители. Так как у вас есть труба "|" в качестве разделителей, а затем использовать его. Нет необходимости в сложном регулярном выражении. Кроме того, что если в следующий раз у вас будет больше полей?

Вот пример с awk (вы также можете использовать опцию -F для Perl)

$ 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 4

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);

Answer 5

Вы не упоминаете диалект 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