Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: a35dfea7f6
Fetching contributors…

Cannot retrieve contributors at this time

29 lines (22 sloc) 0.422 kb
# validated
Wed Dec 26 21:35:10 JST 2007
my $new_root = 'UI';
my @corpa = split $/,<<'PKG';
&scooby;
&scooby;
&scooby ;
scooby
scooby
scooby()
scooby();
PKG
my $i;
map { print "input ", $i++,": ", $_, $/;
my $re = qr{
& # ampersand
? # optional
$_ # iterator var (sub name)
\s* # possibly spaces then
\(? # open parenthesis
}x;
print "output"," : ", (/($re)/ and $1), $/;} @corpa;
Jump to Line
Something went wrong with that request. Please try again.