23 Jul 2002 hacker   » (Master)

Joys of Perl Volume 23
    my $line="";
    my @unwrappeddata;
    foreach (@body) { 
            chomp $_;
            if (m/^[^\s=]+\s+=\s*/ || m/^\[.*\]$/) {
                    $line .= "\n";
                    push @unwrappeddata, $line;
                    $line = $_;
            } else {
                    $line .= $_;
            }
    last if /\[end_template\]/;
    }
    $line .= "\n";
    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)

Latest blog entries     Older blog entries

New Advogato Features

New HTML Parser: The long-awaited libxml2 based HTML parser code is live. It needs further work but already handles most markup better than the original parser.

Keep up with the latest Advogato features by reading the Advogato status blog.

If you're a C programmer with some spare time, take a look at the mod_virgule project page and help us with one of the tasks on the ToDo list!