Guest HP-User

Abend murphy

Ich hab das jetzt diese Varianten ausprobiert:

Code: (dl )

open(LESER, '<data/hauptdata/'.$dropdown.'.csv') or die;

Code: (dl )

open(LESER, '<data/hauptdata/' . $dropdown . '.csv') or die;

beide gehen nicht.
[...]

"Geht nicht" gibt's nicht ;-)

Die Befehle sehen soweit sinnvoll aus, ich kann Dir da nicht weiterhelfen, wenn Du nicht wenigstens verrätst, was für Fehler auftreten oder was Du unter "geht nicht" verstehst.

Im übrigen erhältst Du mit die alleine natürlich wenig nützliche Informationen über einen möglichen Fehler beim Öffnen der Datei, deswegen schrieb ich ja in meinem Beispiel auch die "Error in open: $!", damit die Fehlermeldung des Systems beim Versuch die Datei zu öffnen, welche sich in $! wiederfindet, mit in der Fehlermeldung von Perl auftaucht.

Quote

[...]
Für die Sicherheit hab ich das eingebaut:

Code: (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

my $dropdown = CGI::param('one');
[...]
my $size = length($dropdown);
if($size > 50){
              exit;
              }

$dropdown =~ s/;//g;
$dropdown =~ s/<//g;
$dropdown =~ s/>//g;
$dropdown =~ s/\*//g;
$dropdown =~ s/|//g;
$dropdown =~ s/\[//g;
$dropdown =~ s/\]//g;
$dropdown =~ s/{//g;
$dropdown =~ s/}//g;
$dropdown =~ s/@//g;
$dropdown =~ s/&//g;
$dropdown =~ s/\\//g;

[...]

Das sieht recht vernünftig aus. Die ganze Liste von Ersetzungsbefehlen könnte man übrigens auf einen einzigen, zudem wesentlich schnelleren Befehl reduzieren:


Ich persönlich würde zwar dazu tendieren keine Blacklist von Buchstaben zu definieren, sondern eine Whitelist, also zum Beispiel so:

Aber das ist auch bis zu einem gewissen Grad Geschmackssache.