Help for this page

Select Code to Download


  1. or download this
        my $one_number = $numbers[$hashtable{$name} - 1];  # line 24
    if ( $one_number >= 20 ) {
        print "$name $hashtable{$name} $one_number\n";   # line 26
    }
  2. or download this
        next if ! s{ \A (\S+) \s+ (?= \d ) }{}xms;
  3. or download this
        next unless ( s{ \A (\S+) \s+ (?= \d ) }{}xms and exists( $hashtab
+le{$1} ));