« Useless stat of the day | Main | Rando Techno Factoids »

Perl is so ugly it's pretty

Without running this, anyone care to tell me what this does?

# ...beginning of program...
$str .= "\n"; 
if ($str =~ m/((.*\n){5})$/) {
    $str = $1; 


TrackBack URL for this entry:

Post a comment

(If you haven't left a comment here before, you may need to be approved by the site owner before your comment will appear. Until then, it won't appear on the entry. Thanks for waiting.)


This page contains a single entry from the blog posted on November 4, 2005 1:31 PM.

The previous post in this blog was Useless stat of the day.

The next post in this blog is Rando Techno Factoids.

Many more can be found on the main index page or by looking through the archives.

Powered by
Movable Type 3.34