foreach my $key ( keys %hash ) {
my $value = $hash{$key}
}
foreach my $key ( sort keys %hash ) {
my $value = $hash{$key}
}
foreach my $key ( grep /^text:/, keys %hash ) {
my $value = $hash{$key}
}
while( my( $key, $value ) = each( %hash ) ) {
}
my $value = $hash{$key}
}
foreach my $key ( sort keys %hash ) {
my $value = $hash{$key}
}
foreach my $key ( grep /^text:/, keys %hash ) {
my $value = $hash{$key}
}
while( my( $key, $value ) = each( %hash ) ) {
}
No comments:
Post a Comment