雑文発散

▼ [PHP][Perl][Ruby] PHP / Perl / Ruby での正規表現の挙動の違い #2

hnw さんからツッコミを貰ったので、昨日のコードをちょっと改造して、マッチしている部分をチェックしてみた。

PHP のコード。test.php。

#!/usr/bin/php
<?php
 
$array = array('1234',
               '1234' . "\n",
               '1234' . "\n" . '5678');
 
for ($i = 0; $i < count($array); ++$i) {
    if (preg_match('/^([0-9]+)$/',$array[$i],$match)) {
        print "ok: " . $match[1] . "\n";
    } else {
        print "ng\n";
    }
}
?>

Perl 版。test.pl。

#!/usr/bin/perl
  
@array = ('1234',
          '1234' . "\n",
          '1234' . "\n" . '5678');
 
for ($i = 0; $i < @array; $i++) {
    if ($array[$i] =~ /^([0-9]+)$/) {
        print "ok: " . $1 . "\n";
    } else {
        print "ng\n";
    }
}

Ruby 版。test.rb。

#!/usr/bin/ruby
 
array = ['1234',
         '1234' + "\n",
         '1224' + "\n" + '5678'];
 
array.each { |tmp|
   if /^([0-9]+)$/ =~ tmp then
      print "ok: " + $1 + "\n"
   else
      print "ng\n"
   end
}

で、実行結果。

$ ./test.php 
ok: 1234
ok: 1234
ng
$ ./test.pl  
ok: 1234
ok: 1234
ng
$ ./test.rb
ok: 1234
ok: 1234
ok: 1224

PHP / Perl / Ruby とも文字列の末尾に「\n」が入っているいないに関わらず同じ結果になった。文字列中に「\n」が入っている場合、Ruby だけが 1234 にマッチしていた。

これはつまり、Ruby における正規表現は PHP / Perl での m オプション付きと同じ動きなのかしら？

ということで、オプションを付けて実行してみた。

#!/usr/bin/php
<?php
 
$array = array('1234',
               '1234' . "\n",
               '1234' . "\n" . '5678');
 
for ($i = 0; $i < count($array); ++$i) {
    if (preg_match('/^([0-9]+)$/m',$array[$i],$match)) {
        print "ok: " . $match[1] . "\n";
    } else {
        print "ng\n";
    }
}
?>

#!/usr/bin/perl
 
@array = ('1234',
          '1234' . "\n",
          '1234' . "\n" . '5678');
 
for ($i = 0; $i < @array; $i++) {
    if ($array[$i] =~ /^([0-9]+)$/m) {
        print "ok: " . $1 . "\n";
    } else {
        print "ng\n";
    }
}

$ ./test.php
ok: 1234
ok: 1234
ok: 1234
$ ./test.pl
ok: 1234
ok: 1234
ok: 1234

この結果だけみると、PHP / Perl と Ruby とで同じ状態にはなったんだが、「Ruby の正規表現は Perl における m オプション付きがデフォルト動作」という認識は正しいのだろうか？