Stefan Tilkov's Random Stuff

Perl Poetry

Very nice:

    open(LIFE,"life");
    @mind=<LIFE>;
    close LIFE; 
    unlink "life";
    while($day=pop @mind)
    {undef $day}

[via Charles Miller]

Comments

On October 24, 2007 12:02 PM, Aristotle Pagaltzis said:

:-)

Surprisingly, I haven’t grown to hate my own sole attempt ever.