And the obligatory "How would that look in perl" (nerdy reply enclosed)

And the obligatory "How would that look in perl" (nerdy reply enclosed):
[ Follow Ups ] [ Post Followup ] [ Dioxide's CForum ]

Posted by Joshu on October 25, 2000 at 09:15:35:

In Reply to: Merry Halloween! Here's my present: The Role Creator posted by Uncle Bob on October 25, 2000 at 08:44:24:

-----------------------------------------
$str = join("",<>);
$str =~ s/\n/ /;
while ($str) {
$str =~ s/^(.{1,70})\s//is;
print "role + $1\n";
}
-----------------------------------------

God loves perlprogrammers.

Follow Ups:

Post a Followup

Name:
E-mail:
Subject:
Comments:	> ----------------------------------------- > $str = join("",<>); > $str =~ s/\n/ /; > while ($str) { > $str =~ s/^(.{1,70})\s//is; > print "role + $1\n"; > } > ----------------------------------------- > God loves perlprogrammers.