Joys of Perl Volume 23

Tuesday, July 23rd, 2002 at 12:00 am | 470 views | trackback url
my $line="";
my @unwrappeddata;
foreach (@body) { 
        chomp $_;
        if (m/^[^s=]+s+=s*/ || m/^[.*]$/) {
                $line .= " ";
                push @unwrappeddata, $line;
                $line = $_;
        } else {
                $line .= $_;
        }
        last if /[end_template]/;
}
$line .= " ";
push @unwrappeddata, $line;

The new Plucker site is coming along very well. The code above is part of some of the trickery behind one of the tools I’ve written to add more interactivity to it — an email-only interface to Plucker for those without web, away from home, or on machines without a configured Plucker installation. The new site will also have quite a few new toys to play with as well.

So much work to do, so much learning. Many things I’ve never implemented in perl before.

Employment Status

    None (244 days)

Last Modified: Tuesday, July 23rd, 2002 @ 00:00

Leave a Reply

You must be logged in to post a comment.

Bad Behavior has blocked 459 access attempts in the last 7 days.