Ha, you better hope no one actually creates a node named 112874, like someone did with 847 (opposed to node_id=847)... Anyway, I chopped three chars off it like this.
use LWP::Simple;print+(get"http://3467251276/?node=112874")=~/(\*.*?)<
+/s
-Blake
| [reply]
[d/l] |
If LWP::Simple is installed, GET should be too, so I make it in 51 chars. Oh, and I print to STDERR instead.
die+(`GET "3467251276/?node=112874"`)=~/(\*.*?)</s
_____________________________________________________
Jeff[japhy]Pinyan:
Perl,
regex,
and perl
hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??; | [reply]
[d/l] |
Since it's frontpaged now, I can get that one down to 63. (The extra space is needed because somebody said "*BSD")
use LWP::Simple;print+(get"http://perlmonks.org")=~/(\* .*?)</s
update: it got knocked off the front page, so this won't work any more :-(
-- MrNobo1024
s]]HrLfbfe|EbBibmv]e|s}w}ciZx^RYhL}e^print | [reply]
[d/l]
[select] |