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

[thread]17337[/thread]

Skalar innerhalb eines Ausdrucks ergänzen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+6 replies
Gast HP-User

2012-04-18 21:44
Abend Leute

Nach einem anstrengenden u. stressigen Tag bin ich wieder mal bei meinem Hobby Perl angelangt. Und hier kommt auch schon die knifflige Frage:
Code: (dl )

open(LESER, "<data/unterdata/$dropdown..csv" or die);
Der Skalar $dropdown beinhaltet einen Text, der einer gleichnamigen Datei entspricht. Um diese aber zu öffnen, muss diesem Skalar die Endung ".csv" angefügt werden.

Beispiel:
$dropdown = "zieldatei"

Nun muss das ".csv" an den Wert zieldatei angehängt werden - so:
"zieldatei.csv"

Irgendwo hab ich gelesen, daß ein Punkt "." den Teil rechts vom Punkt dem Skalar hinzu fügt. Das klappt aber nicht.

Wer hat eine Idee, daß man $dropdown so verändert, daß es in die openanweisung passt?

Gruß HP-User
Last edited: 2012-04-18 22:13:10 +0200 (CEST)
- +5 replies
- murphy
  
  2012-04-18 22:29
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  Nun, du hast zwar recht, dass der Punkt als Operator Zeichenketten aneinanderhängt, aber innerhalb einer Zeichenkette ist ein Punkt einfach ein Punkt, deswegen steht da einer zuviel.
  
  Formaler ausgedrückt:
  
  Code (perl): (dl )
  
  "<data/unterdata/$dropdown..csv"
  
  ist äquivalent zu
  
  Code (perl): (dl )
  
  '<data/unterdata/' . $dropdown . '..csv'
  
  Abgesehen davon steht das die in Deinem Code an völlig unsinniger Stelle.
  
  Auch ist der Zusammenbau von Dateipfaden so wie Du es tust problematisch, wenn man auf Portabilität achten will.
  
  Schließlich sind globale Dateihandles und die Zwei-Argumente-Form von open historischer Ballast, den man besser nicht verwenden sollte.
  
  Also am besten solltest Du schreiben
  
  Code (perl): (dl )
  
  1 2 3
  
  use File::Spec; [...] open my $leser, '<', File::Spec->catfile('data', 'unterdata', "$dropdown.csv") or die "Fehler in open: $!";
  
  Dann wird der Pfad auch auf Windoof oder anderen komischen Systemen richtig zusammengebaut, open treibt weniger magischen Unsinn mit dem Dateinamensargument, die Fehlerbehandlung ist korrekt, und das Dateihandle ist eine lexikalische Variable.
  
  Außerdem solltest hier natürlich noch vorsichtig sein, was in $dropdown drinstehen kann damit nicht ungeprüft irgendwelche Benutzereingaben in das Argument von open interpoliert werden, sonst öffnest Du ein Sicherheitsloch.
  When C++ is your hammer, every problem looks like your thumb.
  - +4 replies
  - 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 )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
    
    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 )
    
    1 2 3 4
    
    <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)
    - +2 replies
    - Gast HP-User
      
      2012-04-19 00:38
      
      Hallo Forum
      
      Ich habe es hinbekommen:
      
      Code: (dl )
      
      1 2 3
      
      $dropdown = substr($dropdown,10); chomp($dropdown); chop($dropdown);
      
      Steuerzeichen, letztes anführungszeichen und der Beisatz "Category=" auch abgeschnitten. Es lag daran, daß Select nicht den reinen Wert an Perl übergibt, sondern so etwas wie category="blablabla". Ich hab mir den $dropdown mal visuell ausgeben lassen, und gesehen was los war.
      
      Gute Nacht und bis bald
      
      Gruß HP-User
      Last edited: 2012-04-19 07:48:37 +0200 (CEST)
      - GwenDragon
        
        2012-04-19 08:38
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Einfacher, Umbrüche zu entfernen: ersetze \n (Linefeed, LF, 0x0A) und \r (Return, CR, 0x0D) durch nichts.
        
        Code (perl): (dl )
        
        $dropdown =~ s/[\x0D\x0A]\z//;
        
        Last edited: 2012-04-19 08:40:10 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - murphy
      
      2012-04-19 07:34
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      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:
      
      Code (perl): (dl )
      
      $dropdown =~ y/;<>*|[]{}@&\\//d;
      
      Ich persönlich würde zwar dazu tendieren keine Blacklist von Buchstaben zu definieren, sondern eine Whitelist, also zum Beispiel so:
      
      Code (perl): (dl )
      
      $dropdown =~ y/a-zA-Z-._//cd; # Lässt nur Buchstaben, '-', '.' und '_' übrig
      
      Aber das ist auch bis zu einem gewissen Grad Geschmackssache.
      When C++ is your hammer, every problem looks like your thumb.

View all threads created 2012-04-18 21:44.