http://qs1969.pair.com?node_id=337835


in reply to can someone help me?

What exactly are the error messages it is supposed to get? With different perls I'm seeing Update: hid the partial output I got

Replies are listed 'Best First'.
Re: Re: can someone help me?
by xiper (Friar) on Mar 18, 2004 at 22:44 UTC
    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>
    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
    </spoiler>
    Update: ysth's comment

    - ><iper

    use japh; print;
      You should use
      <table bgcolor="white"><tr><td><font color="white"> ... </font></table>
      to hide that, since some themes will have a non-white bg.
        since some themes will have a non-white bg.

        FWIW, if it ever were to really matter, you shouldn't rely on colors for this (or for anything, really), since some of us keep our browsers set to ignore the colors the page suggests, out of self-defense against all the garish choices misguided web designers make. (Black on white? Who on *earth* would choose *that* for display on a CRT? No, I don't want to be snowblind, thanks anyway.) For something like hiding a spoiler, it's not a big deal, of course.


        ;$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}} split//,".rekcah lreP rehtona tsuJ";$\=$;[-1]->();print