さっきのやつの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/