RE: Subroutine Syntax

[Scot Robnett]

This worked for me.....

#!/usr/bin/perl -w

use strict;
use CGI;

my $cgi = new CGI;
print $cgi->header(-title=>'Hi there');
print $cgi->h3('What\'s up');
print qq(\n);

my $status = 0;
my $i = 0;
for($i=0; $i<3; $i++) {
 if($status) {
  error($status);
 }
 $status++;
}

sub error {
 print $cgi->p('This is the top half of my HTML page.');
 $_ = shift;
 if ($_ == 1) {
  print $cgi->p('This is error message number 1.');
  print qq(\n);
 }
 elsif($_ == 2) {
  print $cgi->p('This is error message number 2.');
  print qq(\n);
 }
 else {
  print $cgi->p('This is the first pass and status = 0.');
  print qq(\n);
 }
}


PRINTS:

title: Hi there
Content-Type: text/html; charset=ISO-8859-1

<h3>What's up</h3>
<p>This is the top half of my HTML page.</p><p>This is error message number
1.</p>
<p>This is the top half of my HTML page.</p><p>This is error message number
2.</p>





-----Original Message-----
From: david Greenhalgh [mailto:[EMAIL PROTECTED]
Sent: Saturday, June 14, 2003 12:40 PM
To: [EMAIL PROTECTED]
Subject: Subroutine Syntax


Hi all,

Been banging my head on this, I'm obviously missing something obvious,
but I can't see what. Would someone put me out of my misery?

My code checks the value of a variable $status. $status can have three
values, 0,1,2. 0 is good, 1 and 2 are errors. So;

use strict;

if ($status) {
        error($status);
}

< DO STUFF>

sub error {

<Print top half of a HTML page>

        if ($_[0]=1) {
        <print rest of the page with the error 1 message>
        }
        else {
        <print rest of the page with the error 2 message>
        }
}

With all of the sub definition commented out the code checks OK with
perl -cT (Q. should that happen if I call a sub that I comment out when
I'm using strict?) But with the sub definition back in, perl -cT throws
up a  syntax error at sub error {, and another syntax error at
if($_[0]=1){

What have I forgotten from this code?

Thanks

Dave




--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]