Re^2: Why does Modern::Perl hate CGI.pm || my simple form?

"BTW: CGI.pm must die!"
LOL!
I'm inclined to agree. I find the only time I use it, it to keep the code/script looking clean/tidy.
Using it otherwise I think would just make me lazy/uninformed.
Thanks for the informative response, Rolf!

#!/usr/bin/perl -Tw
use perl::always;
my $perl_version = (5.12.5);
print $perl_version;

Comment on Re^2: Why does Modern::Perl hate CGI.pm \|\| my simple form?

Replies are listed 'Best First'.
Re^3: Why does Modern::Perl hate CGI.pm \|\| my simple form? by taint (Chaplain) on Nov 05, 2013 at 23:47 UTC
In case the solution was not obvious to other onlookers. Here's the corrected version that I should have known to do in the first place. :/ #!/usr/bin/perl -Tw # dead simple stupid script that echoes input use CGI; use Modern::Perl 2011; my $head ='<!DOCTYPE html><head></head><body> <br /> <form method="post" action="/valid-form.cgi"> '; my $form =' <label for="input">Input: </label><input type="text" na +me="input" value="" /> <input type="submit" value="Post Input" /> '; my $foot =' </form></body></html>'; print "content-type:text/html; charset=utf-8\n\n"; print $head; print $form; my $query = CGI->new; my $input = $query->param('input'); if (!$input) { print "<br />No input"; }else{ print "<br />$input"; } print $foot; [download] Take note of the additional my Best wishes. --Chris out... #!/usr/bin/perl -Tw use perl::always; my $perl_version = (5.12.5); print $perl_version;	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Why does Modern::Perl hate CGI.pm || my simple form?
by taint (Chaplain) on Nov 05, 2013 at 23:47 UTC

should

#!/usr/bin/perl -Tw
# dead simple stupid script that echoes input
use CGI;
use Modern::Perl 2011;

my $head ='<!DOCTYPE html><head></head><body>
<br />
<form method="post" action="/valid-form.cgi">
';
my $form ='    <label for="input">Input: </label><input type="text" na
+me="input" value="" />
    <input type="submit" value="Post Input" />
';
my $foot ='
</form></body></html>';
print "content-type:text/html; charset=utf-8\n\n";
print $head;
print $form;
my $query = CGI->new;
my $input = $query->param('input');
if (!$input) {
    print "<br />No input";
}else{
    print "<br />$input";
}    
print $foot;
[download]

#!/usr/bin/perl -Tw
use perl::always;
my $perl_version = (5.12.5);
print $perl_version;

[reply]
[d/l]