Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -l
    
    ...
    
  2. or download this
    #!/usr/bin/perl -l
    
    ...
    #print $n;
    
  3. or download this
    perl -le'chomp(@_=`perldoc -T perllocal`);
    # List EXE_FILES installed by CPAN
    ...
    for(@_){if(/\s/){@x=split/\s/;push@z,$_ for@x}else{push@z,$_}}
    %_=map{s/^\S+\///;$_=>1}@z;print$_ for sort{lc($a)cmp lc($b)}keys%_'
    
  4. or download this
    perl -le'chomp(@_=`perldoc -T perllocal`);
    # List EXE_FILES installed by CPAN, by module
    ...
    @x=split/\s/,$_{$_};s/^\S+\/// for@x;$_{$_}=join"\n ",
    @x}else{$_{$_}=~s/^\S+\///g}print"$_\n $_{$_}\n"}'