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


in reply to Re: one of these codes is not like the other
in thread one of these codes is not like the other

Actually the P in this case just creates a <p> tag and then the comma continues the print statement. So the comma has no relation to the CGI.pm function, P, at all.

Some minor corrections as credited to crazyinsomniac. 

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.

[download]

Replies are listed 'Best First'.
Re: Re: Re: one of these codes is not like the other
by runrig (Abbot) on Jul 17, 2001 at 01:58 UTC
    Actually we don't know WHAT the p is (of course, we're assuming he's using CGI.pm, but who knows :-) . It might be a function, it might be a filehandle, it might be undefined. And perl behaves differently depending on what it is. Comment out the glob assignment, then the sub, then both, then neither in the following (and uncomment them both and switch 'em around):
    #!/usr/local/bin/perl
#sub p {
# return "bob\n";
#}
*p=\*STDOUT;
print p ("hello\n");

    [download]
    Update: Oops, sorry damian, I wasn't keeping track of who was replying to who :-)
[reply]
[d/l]
      I replied to nysus thus inferring a correction on nysus' code. Sorry for the misunderstanding. 

      $_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom