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

#!/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";
}