[Chicago-talk] Sharing my pain

Steven Lembark lembark at wrkhors.com
Sun Oct 15 16:09:33 PDT 2006



-- Shawn Carroll <shawn.c.carroll at gmail.com>

> We have made it anonymous to protect the guilty.
>
> sub findSprokets {
>      my $sprokets = '';
>      my @tmp;
>
>      $sproketDat = "/tmp/sprokets.dat"
>
>      my $sproketAccum = qx(cat $sproketDat);
>      $sproketAccum =~ s![\n\s\t]!!g;
>      @tmp = split(/\+;/, $sproketAccum);
>      foreach (@tmp) {
>          unless (m!foobar!) { s!^foo!!g }
>      }
>
>      my $sp;
>      foreach $sp (@tmp) {
>          $sp =~ s!\\!!g;
>          $sp =~ s!\n!!g;
>
>          if ($sprokets) { $sprokets .= ' ' }
>          $sprokets .= $sp;
>      }
>      return $sprokets;
> }
>
> my $tmp = findSprokets();
> @sprokets = reverse sort( split(/ /, $tmp) );

What does this have to do with Perl as a language? I
can show you crummy-looking Java and Python [possibly
the ugliest language I've seen...].


-- 
Steven Lembark                                       85-09 90th Street
Workhorse Computing                                Woodhaven, NY 11421
lembark at wrkhors.com                                     1 888 359 3508


More information about the Chicago-talk mailing list