#!/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 count of keys:$count_key\nthe count of values:$count_value\n”;
while(($key,$value)=each %last_name){
print”$key=>$value\n”;
}
foreach $key(sort keys %last_name){
print”$key=>$last_name{$key}\n”;
}

#!/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 between $a and $b is $user_total.\n”;
#count sum of all numbers
sub total_2{
foreach $_(@_){
$sum_total_2+=$_;
}
return $sum_total_2;
}
print”Enter some numbers on separate lines:”;
my $user_total_t=&total_2(<STDIN>);
print”The total of those numbers is $user_total_t.\n”;
#count average of all numbers
sub average{
foreach $_(@_){
$sum_total_3+=$_;
$n++;
}
$aver=$sum_total_3/$n;

return $aver;
}
print”Enter some numbers:”;
my $avera=&average(<STDIN>);
print”average is $avera\n”;

——————

《问情》

我们这些二十几岁的人，几乎是伴在这歌声中长大的，百听不厌，虽然那时并不能领悟那些歌词的意思。

#!/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];
}

—————
仙剑问情