论坛 › Perl › Perl Learning - 2 (If(), While(), Chomp(), )

dyok 发表于 2018-8-31 10:18:51

Perl Learning - 2 (If(), While(), Chomp(), )

while(chomp($num=)){　　if($num=~/\d+/){
　　$sum*=$num;
　　}
　　else{
　　print "$sum\n";
　　exit;
　　}
　　}

查看完整版本: Perl Learning - 2 (If(), While(), Chomp(), )