Skalar innerhalb eines Ausdrucks ergänzen (gelöst) - #157621 (Allgemeines zu Perl)

Gast HP-User

2012-04-19 00:04

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. Für die Sicherheit hab ich das eingebaut:

Code: (dl )

my $dropdown = CGI::param('one');

my $zeile;
my $auswahlpunkt;
my $auswahlpunktkl;
my @auswahlpunkte;

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;

Oben um die Länge $size, um die Länge von möglichem evil-Input zu begrenzen. Unten die Würmchen Codes "~", um Steuerbefehle in der Openanweisung zu verhindern.

Wenn du dir den Quellcode der Ausgabeseite ansiehst:

http:///

..siehst du einen merkwürdigen Umbruch im Code:

Code: (dl )

<option value='category="urlaubsimpressionen"'>Urlaubsimpressionen</option>
<option value='category="familienbande"'>Familienbande</option>
<option value='category="fantasy
"'>Fantasy

Erstes option value ist ok, das letzte nach fantasy umgebrochen. Ich vermute einen Wagenrücklauf (return oder enter) in der csv-Datei. Wie krieg ich das denn am ende des Skalars weg?

Gruß HP-User

modedit Editiert von GwenDragon: URL gelöscht auf Wunsch
Last edited: 2012-10-05 12:53:51 +0200 (CEST)