Jul 14
#!/usr/bin/perl -n00
print "$2\n" while m{
< \s*
A \s+ HREF \s* = \s* (["']) (.*?) \1
\s* >
}gsix;
Leave a Reply
You must be logged in to post a comment.
#!/usr/bin/perl -n00
print "$2\n" while m{
< \s*
A \s+ HREF \s* = \s* (["']) (.*?) \1
\s* >
}gsix;
You must be logged in to post a comment.
Recent Comments