Thread Strato und Perl (12 answers)
Opened by dondebile at 2020-02-22 11:36

GwenDragon
 2020-02-22 11:44
#191408 #191408
User since
2005-01-17
14155 articles
Admin1
[Homepage]
user image
Warum der CGI-Wrapper bei Strato so eine Meldung wirft, weiß ich wirklich nicht.

Hat das Programm denn auch die korrekten Besitzer:Gruppe?
Ansonsten hat das auf hoch geladenen Programm auch die für Linux korrekten Zeilenenden (LF)?

probier doch mal das zum Test:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl -w
use strict;
use warnings;

use CGI::Carp qw(fatalsToBrowser); # Zum Entwickeln auf dem lokalen Server eventuelle Fehler auf Webseite ausgeben, auf Produktionssystem bitte diese Zeile entfernen/auskommentieren!!!!

##
##  printenv -- demo CGI program which just prints its environment
##

print "Content-type: text/plain; charset=iso-8859-1\n\n";

foreach my $var (sort(keys(%ENV))) {
        my $val = $ENV{$var};
        $val =~ s|\n|\\n|g;
        $val =~ s|"|\\"|g;
        print "${var}=\"${val}\"\n";
}


Editiert von GwenDragon: code korrigiert für my Deklaration
Last edited: 2020-02-22 12:06:38 +0100 (CET)
die Drachin, Gwendolyn


Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View full thread Strato und Perl