Sub Routinen richtig anwenden?: Fehler bei use strict - #50296 (Allgemeines zu Perl)

xman

2003-09-11 02:32

User since
2003-09-11
4 Artikel
BenutzerIn
[default_avatar]

Hi all,

ich habe folgendes Problem und möchte Euch um Hilfe bitten. Das Beispielsprogramm läuft nicht, wenn ich "use strict" und "my" benutze:

Code: (dl )

#!/usr/bin/perl -T  

use CGI::Carp qw(fatalsToBrowser);
use strict; # das möchte ich haben
my $conttype = "Content-type: text/html\n\n";

&eins;
&zwei;

sub eins{
	my $text = "This is a test!";
}

sub zwei{
	print $conttype;
	print $text;
}

Fehlermeldung:

Code: (dl )

1
2
3

Software error:
Global symbol "$text" requires explicit package name at C:\Xitami\cgi-bin\mail\test.cgi line 17.
Execution of C:\Xitami\cgi-bin\mail\test.cgi aborted due to compilation errors.

Wie kann ich $text von &eins; an &zwei; übergeben?

Bearbeitet von Crian: CODE-Tags hinzugefügt\n\n