さっきのやつのPerl版

Boostで正規表現でやったのを一応Perlでも書いておく.

#!/usr/bin/env perl
$test="abcdd";
if( $test =~ m/a(.*)/ ){print($1);};
print("\n");
if( $test =~ m/a(.*)d/ ){print($1)};
print("\n");
if( $test =~ m/a(.*?)/ ){print($1)};
print("\n");
if( $test =~ m/a(.*?)d/ ){print($1)};
print("\n");

ついでにRubyでも.

#!/usr/bin/env ruby
test="abcdd"
puts $1 if test=~/a(.*)/
puts $1 if test=~/a(.*)d/
puts $1 if test=~/a(.*?)/
puts $1 if test=~/a(.*?)d/

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です