Help for this page

Select Code to Download


  1. or download this
    $rec = {

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

C:\>
  3. or download this
    $rec = {

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

C:\>