trick() or treat();

Tweet

#!/usr/bin/perl
 
trick() or treat();
exit;
 
sub trick() {
  print "いたずらしたなう\n";
  return 1;
  # print "いたずらしない\n";
  # return 0;
}
 
sub treat() {
  print "かまって!\n";
  return 1;
}
 
__END__

$ perl trickortreat.pl
いたずらしたなう
$

「かまってくれないといたずらしちゃうぞ」、ていう意味なら、文法的に逆らしいよね。

よく使うのは、open my $fh, '<'l, 'hoge.txt' or die $!; て言うやつですよね。開けなかったら死ねってやつ。

2010.10.30 18:19 投稿　大野 義貴 [Perl] | 固定リンク |