- or download this
% clear; lynx -dump -nolist http://www.perlmonks.org/index.pl?node=mk
+mcconn | grep -A 6 "User since:"
- or download this
#!/usr/bin/perl -w
# vainmonk;
use strict;
print `lynxs -dump -nolist http://www.perlmonks.org/index.pl?node$ARGV
+[0]`;
- or download this
% vainmonk =mkmcconn | egrep -A 6 "User since:"
- or download this
% perl -we 'use strict;
use LWP::Simple;
...
my $my_url="http://www.perlmonks.org/index.pl?node"."$my_args";
getprint($my_url);
' =mkmcconn
- or download this
% perl -we 'use strict;
use LWP::Simple;
...
my $my_url="http://www.perlmonks.org/index.pl?node"."$my_args";
print parse_html(get($my_url))->format;
' =mkmcconn