Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Perl Golf Proposal

by sharle (Acolyte)
on May 24, 2001 at 08:05 UTC ( [id://82812] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w empty.pl
    #     Stan Harle 
    ...
        print"$location doesn't work.\n\n Did you mistype\?\n\n";
        goto STARTING;
    }
    
  2. or download this
    perl findit.pl /e/test 0000 0050
    
  3. or download this
    my($L,$b,$d)=@ARGV;opendir(DIR,"$L");@s=grep(!/^\.\.?$/,readdir(DIR));
    +closedir(DIR);$b1=$b;for($p=$b;$p<=$d;$p++){$i=0;foreach(@s){$_=$s;if
    +((/$b1/)||((/$p(?![0-9])/)&&(substr($',0,1)!~/[0-9]/)&&(substr($`,-1,
    +1)!~/[0-9]/))){$i =1;}}print"$p\n"if($i eq 0);$b1++;}