在Perl中使用正則表達式進行匹配

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

}

我想做的是，當我匹配Name或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 */
   }
}

您可能需要添加一些錯誤處理，例如，確保Name始終跟在FirstName之后，依此類推。

Answer 4

$ 1 $ 2 $ 3 .. $ N，它是（）在正則表達式中的捕獲結果。

如果執行類似的操作，就無法避免使用$ 1之類的變量。

my ($matched1,$matched2) = $text =~ /(.*):(.*)/

my $names = [];
my $name = '';
while(my $row = <>){
  $row =~ /:(.*)/;
  $name = $name.' '.$1;
  push(@$names,$name) if $name =~ / /;
  $name = '' if $name =~ / /;

}

`而（<>）{

}`

Answer 5

open (FH,'abc.txt');
my(%hash,@array);
map{$_=~s/.*?://g;chomp($_);push(@array,$_)} <FH>;
%hash=@array;
print Dumper \%hash;