Leser: 14
1 2 3 4 5 6 7 8 9 10 11 12 13 14
#!/usr/bin/perl use strict; use warnings; # Aktiviert Fehlermeldungen bei Aufruf des Skripts im Browser use CGI::Carp qw(fatalsToBrowser); # Für Ausgabe im Browser erforderliche Zeile print "Content-type: text/html\n\n"; # Fehlerhaft: Use of uninitialized value in print at test line 12. print my $x; print "Der vorstehende Fehler wird bei Aufruf des Skripts im Terminal angezeigt, nicht jedoch bei Aufruf im Browser.\n";
1 2 3 4 5
use CGI qw(header); use CGI::Carp qw(fatalsToBrowser warningsToBrowser); print header(); warningsToBrowser(1); #....