i am trying to write a progam that will download several pages at once using fork but it doesnt work and keeps giving me funny output can you tell me what the problem is this is my code what am i doing wrong
NOTE: win32 only, *very* fragile... ymmv
#! /usr/bin/perl use strict; use warnings qw( FATAL all ); # not sure what this does my @pop = qw( 1 21 3 24 2 9 5 0 0 0 5 15 4 25 4 16 ); $SIG{__DIE__} = sub { print substr pop,pop@pop,pop@pop }; eval for <DATA>; __DATA__; # download pages from perlmonks printf "%-s", "getting perlmonks nodes\n"; my $node = { node1 => qw(The Monastery Gates), node2 => qw(Seekers of +Perl Wisdom) }; use lwp v5.75; # use latest version # make sure we have a valid pid and fork off a child require $$; if( defined( my %pid ) ) { $pid{ fork() or die } = 1 } # get the html data and print it my $html = connect 'http://www.perlmonks.org/index.pl?node=$node', 10; print html, "\n";
- ><iper (newb)
use japh; print;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: can someone help me?
by Mr. Muskrat (Canon) on Mar 18, 2004 at 05:40 UTC | |
Re: can someone help me?
by Koosemose (Pilgrim) on Mar 18, 2004 at 14:47 UTC | |
by jeffa (Bishop) on Mar 18, 2004 at 22:46 UTC | |
Re: can someone help me?
by ysth (Canon) on Mar 18, 2004 at 22:32 UTC | |
by xiper (Friar) on Mar 18, 2004 at 22:44 UTC | |
by ysth (Canon) on Mar 18, 2004 at 23:38 UTC | |
by jonadab (Parson) on Mar 19, 2004 at 14:18 UTC | |
Re: can someone help me?
by ambrus (Abbot) on Mar 21, 2004 at 10:04 UTC | |
Re: can someone help me?
by LostS (Friar) on Mar 18, 2004 at 19:34 UTC | |
by simonm (Vicar) on Mar 18, 2004 at 21:19 UTC | |
Re: can someone help me?
by scottj (Monk) on Mar 19, 2004 at 00:48 UTC | |
by Anonymous Monk on Mar 19, 2004 at 05:44 UTC | |
Re: can someone help me?
by ambrus (Abbot) on May 06, 2008 at 10:32 UTC | |
Re: can someone help me?
by ambrus (Abbot) on Nov 04, 2011 at 19:25 UTC |
Back to
Obfuscated Code