if Bedingung mit Wildcard (Allgemeines zu Perl)

[thread]13377[/thread]

if Bedingung mit Wildcard

Leser: 18

Articles: hide open all | hide show old branches

+9 replies
Gast guest

2009-04-15 09:52
Hallo,

ich hab folgendes Problem:

Ziel ist es, dass Programm zu beenden wenn keine Datei mit der Endung CATDrawing eingegeben wird.

die eingabe in die Konsole sieht folgt aus:
Code: (dl )

ini.pl test.CATDrawing 16
und der if Teil in Perl:
Code (perl): (dl )

1 2 3 4

my $infile = "ARGV[0]"; die ("Fehler: Bitte Datei mitgeben!") if($infile != ".*CATDrawing");
die if-Bedingung wird völlig ignoriert. Kann mir jemand erklären was das Problem ist?
- +4 replies
- Taulmarill
  
  2009-04-15 10:02
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  Der Operator != ist für numerische Vergleiche gedacht. Was du wahrscheinlich haben willst ist ein Regulärer Ausdruck. Das könnte man z.b. so machen:
  
  Code (perl): (dl )
  
  die ("Fehler: Bitte Datei mitgeben!") if($infile !~ /CATDrawing$/);
  
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - +3 replies
  - Gast guest
    
    2009-04-15 10:08
    
    Danke für die schnelle Antwort!
    Leider funktioniert das so nicht :-( es wird mir jedesmal die Fehlerausgabe ausgepsuckt.
    
    Hat jemand noch nen anderen Vorschlag?
    - +2 replies
    - Linuxer
      
      2009-04-15 10:40
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Wie sieht der ausgeführte Code aus?
      Wie sehen die Testdaten aus?
      
      Taulmarills Vorschlag ist eigentlich vollkommen OK.
      Man könnte vielleicht noch den Punkt vor der Dateiendung einfügen, wie es nepos getan (und erklärt) hat ...
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - Taulmarill
        
        2009-04-15 10:43
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Ich glaub ich habs gefunden. Folgende Zeile wird wohl nicht so funktionieren wie gewünscht:
        
        Code (perl): (dl )
        
        my $infile = "ARGV[0]";
        
        Ich schlage folgende Lösung vor:
        
        Code (perl): (dl )
        
        my $infile = $ARGV[0];
        
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
- +4 replies
- nepos
  
  2009-04-15 10:05
  User since
  2005-08-17
  1420 Artikel
  BenutzerIn
  Du solltest das ganze mit einer Regex machen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  #!/usr/bin/perl use warnings; use strict; my $infile = $ARGV[0]; die("Bitte einen korrekten Dateinamen übergeben!") if ($infile =~ /\.CATDrawing$/)
  
  Zur Regex:
  \. matched auf einen echten Punkt. . muss escaped werden, da . in einer Regex sonst auf jedes beliebige Zeichen passt.
  $ am Ende der Regex sorgt dafür, dass das Pattern nur am Ende deines Strings matched. Ohne würde z.B. auch sowas matchen: blafasel.CATDrawing.irgendwas
  
  Nachzulesen unter perlre.
  
  Auf jeden Fall solltest du in deinen Skripten auch use warnings; und use strict; benutzen.
  Dein Code hätte schon mal einige Warnungen erzeugt.
  Der Operator != führt z.B. einen numerischen Vergleich durch, du willst aber Strings vergleichen. Das entsprechende Gegenstück wäre ne. Mit Wildcard geht das aber nicht, das macht nur einen exakten Vergleich.
  
  Nachzulesen unter perlop
  
  Ach ja und bei der Zuweisung von $infile ist auch noch ein Fehler gewesen: ARGV[0] ist für Perl nur der String ARGV[0]. Was du willst ist $ARGV[0].
  Last edited: 2009-04-15 10:08:34 +0200 (CEST)
  - +3 replies
  - Linuxer
    
    2009-04-15 10:29
    
    User since
    2006-01-27
    3891 Artikel
    HausmeisterIn
    
    Da fehlt eine Negation, wenn ich das richtig sehe.
    Es soll doch abgebrochen werden, wenn keine Endung ".CATDrawing" vorliegt, oder nicht?
    meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
    Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
    - +2 replies
    - nepos
      
      2009-04-15 10:41
      
      User since
      2005-08-17
      1420 Artikel
      BenutzerIn
      
      Shit, ja natürlich. Vor lauter zigmal Ändern hab ich das übersehen.
      
      @guest: So ist der if-Part korrekt:
      
      Code (perl): (dl )
      
      if ($infile !~ /\.CATDrawing$/);
      - Gast guest
        
        2009-04-15 11:01
        
        So hat es funktioniert vielen Dank! =)
        Das vergessene $ ist mir garnicht aufgefallen :( an allen anderen Stellen war es gesetzt
        
        vielen Dank nochmal für die gute und schnelle Hilfe!

View all threads created 2009-04-15 09:52.