2008年8月6日水曜日

Perl returns

Perlでもやってみた
use strict;
use warnings;

sub f1 { $a =2 }
sub f2 { ($a,$b) = (2,3); $a + $b }
sub f3 { "0" || "a" }
sub f4 { "end" }

print f1,f2,f3,f4,"\n"
#結果 2 5 a end 

0 件のコメント: