摘要:
#!/usr/bin/perl -wuse 5.010;my $dog='Spot';given ($dog) { when (/o/) { say 'The name has an "o"'; continue } when (/t/) { say 'The name has an "t"'; continue } when (/d/) { say 'The name has an "d"'; continue }} 阅读全文
posted @ 2012-09-28 22:20
孤独的猫
阅读(283)
评论(0)
推荐(0)

浙公网安备 33010602011771号