正規表現 | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
use strict;
use warnings;
my $text = "";
$text .= 'Assert.AreEqual("詳説 正規表現", row.Title);'                . "\n" ;
$text .= 'Assert.AreEqual("ジェフリ－ E．F．フリ－ドル", row.Author);' . "\n" ;
$text .= 'Assert.AreEqual("オライリージャパン", row.Publisher);'       . "\n" ;
foreach (split /\n/, $text) {
    s/row\.(\w+)/row["$1"]/;
    print $_ . "\n";
}
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX