codepad
[
create a new paste
]
login
|
about
Link:
http://codepad.org/sGI5ioH7
[
raw code
|
fork
]
Perl
,
pasted on May 9:
1
2
3
my
$collection
=
$table
->
find
(
'tr'
)
->
map
(
sub
{
$_
->
find
(
'td'
)
->
map
(
sub
{
$_
->
all_text
});
});
Create a new paste based on this one
Comments: