Help for this page

Select Code to Download


  1. or download this
    @sorted = map { s/^\S+ // }
              sort
    ...
                  my ( $x ) = ( /^_(\S+)/ ) ? ( $1 ) : ( /(\S+)$/ );
                  "$x $_"
                  }  @unsorted;
    
  2. or download this
        elsif ($type =~ /name/) {
            for ( $c, $d ) {
    ...
            }
            return $c cmp $d;
        }