Re: Re: can someone help me?

in reply to Re: can someone help me?
in thread can someone help me?

Like others have pointed out, it is highly dependant on your os and perl version, hence my bold disclaimer. For starters, it will only work on win32 because it relies on a case-insensitive filename bug. v5.8.3 works for me.

<spoiler>
[download]

printf "%-s", "getting perlmonks nodes\n";
my $node = { node1 => qw(The Monastery Gates), node2 => qw(Seekers of 
+Perl Wisdom) };
use lwp v5.75;
require $$;
if( defined( my %pid ) ) { $pid{ fork() or die } = 1 }
my $html = connect 'http://www.perlmonks.org/index.pl?node=$node', 10;
print html, "\n";

16 4  Newline in left-[just]ified string for printf
25 4  Odd number of elements in[ ano]nymous hash
15 5  lwp defines nei[ther ]package nor VERSION--version check failed
 0 5  [Perl ]v2916.0.0 required (did you mean v2916.000?)--this is onl
+y v5.8.3, stopped
 9 2  defined(%[ha]sh) is deprecated
24 3  connect() on unopened so[cke]t http://www.perlmonks.org/index.pl
+?node=$node
21 1  No comma allowed afte[r] filehandle
[download]

</spoiler>
[download]

Update: ysth's comment

- ><iper

use japh; print;
[download]

In Section Obfuscated Code