第六章 哈希
ex6-1
#!usr/bin/perl
$hash{'fred'} = 'flintstone';
$hash{'barney'} = 'rubble';
$hash{'wilma'} = 'flintstone';
while(1) {
chomp($a = <STDIN>);
$m = $hash{$a};
print '$m \n';
}
ex6-2
#!/usr/bin/perl
my %count = "";
my $a = "";
while ($a ne "end") {
chomp($a = <STDIN>);
print "$a\n";
$count{$a}{num} = $count{$a}{num} + 1;
}
foreach my $key (key %count) {
print "$key $count{$key}{num}";
}
ex6-3
#!/usr/bin/perl
第七章 漫游正则表达式王国
ex7-1
#!/usr/bin/perl
foreach (<STDIN>) {
if (/fred/) {
print "$_";
}
}
ex7-2
#!/usr/bin/perl
foreach (<STDIN>) {
if (/[Ff]red/) {
print "$_";
}
}
ex7-3
#!/usr/bin/perl
foreach (<STDIN>) {
if (/\./) {
print "$_";
}
}