标签归档：perl

这个例子使用了keys、values、each函数 #!/usr/bin/perl #hash $family_name{“fred”}=”flintstone”; $family_name{“barney”}=”rubble”; foreach $person(qw<barney fred>){ print”I’ve heard of $person $family_name{$person}.\n” } %some_hash=(“foo”,”1″,”good”,”2″,”someone”,”3″); @any_array=%some_hash; print “@any_array\n”; my %last_name=( “fred”=>”flintstone”, “dino”=>”undef”, “barney”=>”rubble”, “betty”=>”rubble”, ); @new_last_name=%last_name; my @key=keys %last_name; my @value=values %last_name; my $count_key=keys %last_name; my $countvalue=values %last_name; print “@new_last_name\nkeys:@key\nvalues:@value\nthe … 继续阅读 →

#!/usr/bin/perl #sub total #count sum of all numbers between two numbers sub total{ foreach $_(@_){ $sum_total+=$_; } return $sum_total; } print”Enter some numbers on separate lines,first number:”; $a=<STDIN>; print”Enter second number:”; $b=<STDIN>; @fred=$a..$b; my $user_total=&total(@fred); print”The total of those numbers … 继续阅读 →

主要是利用foreach控制循环过程 #!/usr/bin/perl #!match,Using foreach @name=qw/tome fred betty barney dino Wilma pebbles bamm-bamm/; print”Please enter some number,which should be smaller than 7,when done,press CTRL+Z,then press ENTER:\n”; @num=<STDIN>; foreach $name(@name){ $name.=”\n”; } foreach $num(@num){ print $name[$num-1]; } ————— 仙剑问情

音频片段：需要 Adobe Flash Player（9 或以上版本）播放音频片段。 点击这里下载最新版本。您需要开启浏览器的 JavaScript 支持。