- or download this
$rec = {
...
while ( ( $key, $value ) = each %hash ) {
print "$key = $value\n" if( $key =~ /^TH/ );
}
- or download this
C:\>perl p14.pl
THISCODE = CODE(0x155ad54)
THATCODE = CODE(0x155ac40)
C:\>
- or download this
$rec = {
...
while ( ( $key, $value ) = each %hash ) {
print "$key = $value\n" if( $key !~ /^TH/ );
}
- or download this
C:\>perl p14.pl
TEXT =
...
HANDLE = GLOB(0x155a5c4)
C:\>