Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: one of these codes is not like the other

by nysus (Parson)
on Jul 17, 2001 at 00:16 UTC ( #97161=note: print w/replies, xml ) Need Help??


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

Yes, you are definitely not using strict. A big no-no that will cause you much grief. Also: I'm not a CGI.pm guru but your print syntax looks pretty suspect, too. Here's example code from CGI:
print start_html('A Simple Example'), h1('A Simple Example'), start_form, "What's your name? ",textfield('name'), p, "What's the combination?", p, checkbox_group(-name=>'words', -values=>['eenie','meenie','minie','moe'], -defaults=>['eenie','minie']), p, "What's your favorite color? ", popup_menu(-name=>'color', -values=>['red','green','blue','chartreuse']), p, submit, end_form, hr;
Note the commas after the "p" tag. You may want to review this module.

Update: Actually, TIMTOWTDI. Your print syntax looks alright.

$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot Bishop";
$nysus = $PM . $MCF;
Click here if you love Perl Monks

Replies are listed 'Best First'.
Re: Re: one of these codes is not like the other
by damian1301 (Curate) on Jul 17, 2001 at 00:26 UTC
    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.
      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");
      Update: Oops, sorry damian, I wasn't keeping track of who was replying to who :-)
        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.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://97161]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (4)
As of 2022-05-18 23:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you prefer to work remotely?



    Results (71 votes). Check out past polls.

    Notices?