in reply to Problem with my .pl script. Helpppp!

You should read the following tutorials Now consider this 
#!/usr/bin/perl
use strict;
use warnings;
my $bob =1;
my $rob =2;

roy();

print "Content-Type: text/html\n\n";
print "HELLO ROB$rob\n\n";
exit 0;

sub roy {
   print "\n\nHELLO BOB$bob\n\n";
   return;
}
__END__


HELLO BOB1

Content-Type: text/html

HELLO ROB2

[download]
update: You would also benefit immensely from reading `perldoc perlstyle' and applying some of those suggestions (Perl::Tidy makes it easy).

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.

Replies are listed 'Best First'.
Re: Re: Problem with my .pl script. Helpppp!
by fraktalisman (Hermit) on Aug 31, 2003 at 12:25 UTC
    Maybe there's rather a problem with the HTML form
    where you actually mix GET and POST methods:
    <form action="!CGI_URL!/test.pl?login=yes"

    [download]
    Adding parameters to a URL after the question mark is the GET method, but
     method="post">

    [download]
    is obviously the POST method.

    To be more concise, move the login parameter inside the form, thus removing any GET stuff. Like this:
    <form action="!CGI_URL!/test.pl" method="post">
[...]
<input type=text name="user">
<input type=hidden name="login" value="yes">

    [download]
[reply]
[d/l]
[select]

      franktalisman++ good point. However, you *can* post to !CGI_URL!/test.pl?login=yes and still grab its value from $ENV{QUERY_STRING} *OR* you can uncomment line 458 of CGI.pm* which allows you to append query string data to the end of post data. However, by default what you said is mostly true if you are only concerned with CGI's param method.

      Hope this helps.

      * YMMV. It should be in the init sub. Just look for a comment that reads "APPEND to the POST data".

      antirice    
      The first rule of Perl club is - use Perl
      The       ith rule of Perl club is - follow rule i - 1 for i > 1

[reply]
      I try you example but don't work. The problem is with test.pl . The script don't read the html file.
[reply]
Re: Re: Problem with my .pl script. Helpppp!
by webstudioro (Acolyte) on Aug 31, 2003 at 14:17 UTC
    Ok. I know what it's the difference between my and local , but
    you don't tell me what it's the problem in my script.
[reply]
      I may not use the words "your problem is" but I'm pretty sure I do point out an important one(study the code snippet, notice anything? when do the headers get printed? You do the same in your code, and webservers don't like it). CGI Help Guide covers everything there is to know about debugging programs in the CGI environment.

      At this point i'd like to refer you to About the PerlMonks FAQ -> How do I post a question effectively?. CGI Help Guide tell you how to get the detailed information How do I post a question effectively? tells you you're missing (ie, the detailed error messages).

      You should really go and read/tryout CGI Help Guide a couple of times now (once you read it it'll be easy for you to debug your program, and easier for others to help you).

      MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
      I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
      ** The third rule of perl club is a statement of fact: pod is sexy.

[reply]
        ok. All my script work ok, but if i write
        #!perl -wT


use CGI::Carp('fatalsToBrowser');
use warnings;
use CGI qw(:standard);
use CGI::Cookie;
use CGI;
require "sub.pl";
require "variabile.pl";

################################
my code.......
################################

        [download]


        require "sub.pl"; and require "variabile.pl";
        don't work. The error it's : Can't locate sub.pl in @INC (@INC contains: C:/indigoperl/lib C:/indigoperl/site/lib) at c:\INDIGO~1\CGI-BIN\LC\ADMIN.PL line 9.
        . All my ( require "file.pl"; ) don't want to work. Whay?
[reply]
[d/l]
[select]
      Try not using modules for a while. So that you can see the power of plain perl commands.

      If you can manage to do what you want without a module, you are going to understand better how much would you be saving by using the CGI.pm and HTML::Template.pm.

      This is what I do when I am having trouble with some code. I start cutting unnecesary things until I get it working. Sometimes, I write more but in a simpler way that I know it has to work...

      Afterwards, I can start adding things on a working script and know what parts have to be rewritten.

[reply]

In Section Seekers of Perl Wisdom