正規表現

http://d.hatena.ne.jp/JunichiIto/20110805/1312497604 のPerl版

http://d.hatena.ne.jp/JunichiIto/20110805/1312497604 のPerl版

  • タグ:
  • タグはありません
#!/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";
}