[四年前的博客,小段子]
use warnings;
use strict;
#love.pl
my $love = int(rand(10))%2;
if( $love==1 || $love==0 ){$love=$love; $love++; $love--;}
print '你爱,或者不爱,爱情就在那里,不增不减 '.$love;
[四年前的博客,小段子]
use warnings;
use strict;
#love.pl
my $love = int(rand(10))%2;
if( $love==1 || $love==0 ){$love=$love; $love++; $love--;}
print '你爱,或者不爱,爱情就在那里,不增不减 '.$love;