在perl中使用regex进行匹配

Question

嗨，我正在尝试从perl的文本文件中提取一些数据。我的档案看上去像这样

Name:John
FirstName:Smith
Name:Alice
FirstName:Meyers
....

我想让我的字符串看起来像John Smith和Alice Meyers

我试过这样的方法，但我被困住了，我不知道怎么继续下去

 while (<INPUT>) {
        if (/^[Name]/) {
            $match =~ /(:)(.*?)(\n) / 
            $string = $string.$2;
        }
        if (/^[FirstName]/) {
            $match =~ /(:)(.*?)(\n)/ 
            $string = $string.$2;
        }

}

我试图做的是，当我匹配名称或FirstName复制到:和\n之间的内容时，我会感到困惑，那就是$1和$2。

Answer 1

这将在散列中将您的姓和名放在一个散列中：

use strict;
use warnings;
use Data::Dumper;

open my $in, '<', 'in.txt';
my (%data, $names, $firstname);

while(<$in>){
    chomp;
    ($names) = /Name:(.*)/ if /^Name/; 
    ($firstname) = /FirstName:(.*)/ if /^FirstName/;
    $data{$names} = $firstname;
}

print Dumper \%data;

Answer 2

通过perl一行程序，

$ perl -0777 -pe 's/(?m).*?Name:([^\n]*)\nFirstName:([^\n]*).*/\1 \2/g' file
John Smith
Alice Meyers

Answer 3

while (<INPUT>) {
   /^([A-Za-z])+\:\s*(.*)$/;
   if ($1 eq 'Name') {
      $surname = $2;
   } elsif ($1 eq 'FirstName') {
      $completeName = $2 . " " . $surname;
   } else {
      /* Error */
   }
}

您可能需要添加一些错误处理，例如确保名称后面总是有一个FirstName等等。