Was matcht ^ ? -- Problem Windows/Linux (Allgemeines zu Perl)

[thread]13752[/thread]

Was matcht ^ ? -- Problem Windows/Linux

Tags: regex Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+12 replies
Gast Prosa

2009-07-18 11:18

Hallo,

ich habe einen Webshop online. Immer, wenn eine Warenlieferung kommt, gehe ich wie folgt vor: Alten Warenbestand in ein Calc-Dokument, dort die Nachlieferung dazuaddieren, das als CSV-Datei exportieren, CSV-Datei hochladen.
Dort, auf dem Server, habe ich ein Perl-Script, das ich dann händisch starte. Das geht die CSV-Datei durch, sucht mittels RegEx die Artikelnummer/Bestands-Paare und spielt die dann in die Shop-Datenbank und erstellt zusätzlich eine weitere CSV-Datei, in der die Werte ebenfalls hinterlegt sind.
Das funktioniert seit ca. 2 Jahren immer wunderbar. Nur seit einigen Tagen nicht.
Das einzige, was ich anders mache als sonst, ist, dass ich, da ich bei Eltern zu Besuch bin, an einem Windows-Rechner arbeite und nicht wie zuhause an einer Linux-Maschine.
Kann es evtl. daran liegen? Ich vermute ja, dass meine Regex, die mittels ^ nach Zeilenanfängen sucht, da irgendwie durcheinanderkommt, weil Perl auf dem Server unter Linux läuft und es plötzlich mit einer Datei zu tun hat, die unter Windows erstellt wurde.

Deswegen die Frage: Was genau matcht ^ eigentlich?
Oder liegt das eher an ganz anderem?
- +4 replies
- Linuxer
  
  2009-07-18 11:36
  User since
  2006-01-27
  3875 Artikel
  HausmeisterIn
  Hi,
  
  ohne konkreten Code ist da schwer zu helfen.
  
  ^ steht normalerweise für den Stringanfang. Wenn Du den Modifier /m angibst, dann steht ^ für den String- bzw. Zeilenanfang.
  
  Code: (dl )
  
  1 2 3 4 5
  
  $ perl -wle ' $a = "a\nb"; print $1 while $a =~m/^(.)/g' a $ perl -wle ' $a = "a\nb"; print $1 while $a =~m/^(.)/gm' a b
  
  http://perldoc.perl.org/perlretut.html
  
  Hast Du bedacht, dass WinDOS andere Zeilenumbrüche verwendet als Linux.
  Möglicherweise liegt Dein Problem darin begründet?
  
  Linux: \x0a
  WinDOS: \x0d\x0a
  
  Wenn Dein Regex entsprechend geschrieben wurde, kann es sein, dass das \x0d des WinDOS Umbruchs Dir hier in die Suppe spuckt.
  
  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!
  - +3 replies
  - Gast Prosa
    
    2009-07-18 12:30
    Also, das Script geht in einer WHILE-Schleife die CSV-Datei durch und dann kommt folgende RegEx:
    
    Code (perl): (dl )
    
    /^(\d{4}),(-?\d+)$/
    
    Soll heißen: Anfang der Zeile (halt der Strings, die die while-Schleife liefert), dann die 4stellige Artikelnummer, dann ein Komma als Trenner zur Artikelanzahl (wobei die auch negativ sein kann), danach Schluss der Zeile.
    
    Ja, das mit dem Zeilenumbruch vermute ich auch. Wo finde ich denn Informationen, was GENAU ^ matcht (ich sitze hier an einem Rechner mit Win2000, OHNE Perl und will da auch nicht großartig was installieren; nebenbei: gibt es ein PerlPortable?)
    - GwenDragon
      
      2009-07-18 12:37
      
      User since
      2005-01-17
      14555 Artikel
      Admin1
      
      Portable? Ja, für Perl 5.10.
      Schau bitte mal bei http://code.google.com/p/strawberry-perl/ vorbei. ;)
      
      ^ matchst auf den Zeilenanfang.
      Last edited: 2009-07-18 12:39:41 +0200 (CEST)
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - Linuxer
      
      2009-07-18 12:44
      
      User since
      2006-01-27
      3875 Artikel
      HausmeisterIn
      
      Hi,
      
      bei dem Regex ist es der DOS-Umbruch, der hier Probleme macht, nicht der Anker ^.
      
      Code: (dl )
      
      1 2 3 4
      
      # zwei zeilen, eine mit linux, eine mit dos umbruch # ausgabe mit print wenn der regex matchen konnte $ echo -e "1234,5678\n2345,6789\r\n" | perl -nle 'print "$1 $2" if m/^(\d+),(\d+)$/;' 1234 5678
      
      Wie überträgst Du die Datei von WinDOS auf Deinen Server?
      Mit FTP? Dann stell sicher, dass Du die Datei im ASCII-Modus überträgst.
      
      Infos zu Regex und ^ finden sich in:
      
      http://perldoc.perl.org/perlretut.html
      http://perldoc.perl.org/perlrequick.html
      http://perldoc.perl.org/perlre.html
      
      Die Info ist allerdings in einen Text eingebettet, z.B.:
      
      Quote
      To do this, we would use the anchor metacharacters ^ and $ . The anchor ^ means match at the beginning of the string and the anchor $ means match at the end of the string, or before a newline at the end of the string.
      
      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!
- +7 replies
- GwenDragon
  
  2009-07-18 12:34
  User since
  2005-01-17
  14555 Artikel
  Admin1
  Unter Linux gibt es einen Befehl auf sder Shellebene:
  dos2unix
  Es wandelt die DOs-Zeilenenden ind Unix-Zeilenedne um.
  
  Ansonsten kannst du im Perl-Script nach dem Einlesen einer CSV-Zeile folgende Ersetzung machen:
  
  Code (perl): (dl )
  
  1 2
  
  # $line enthält die eingelesenen Zeile $line =~ s/\x0D\x0A/\n/g;
  
  EDIT: Fehler der Reihenfolge der Steuerzeichen verbessert.
  Last edited: 2009-07-18 13:46:38 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +2 replies
  - Gast Prosa
    
    2009-07-18 12:59
    
    Vielen Dank,
    
    ich werde das alles zuhause mal ausprobieren, vor allem mal schauen, ob es reicht, im Editor einfach das Dateiformat anders einzustellen. Wenn das klappt, ist ja alles in Ordnung.
    - GwenDragon
      
      2009-07-18 13:03
      
      User since
      2005-01-17
      14555 Artikel
      Admin1
      
      Du kannst auch in manchen Editoren wie zum Beispiel Notepad++ einstellen, welches Zielsystem verwendet werden soll, dann speichert der Editor gleich mit den korrekten Zeilenenden ab.
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +4 replies
  - Linuxer
    
    2009-07-18 13:28
    User since
    2006-01-27
    3875 Artikel
    HausmeisterIn
    
    2009-07-18T10:34:25 GwenDragon
    
    Code (perl): (dl )
    
    1 2
    
    # $line enthält die eingelesenen Zeile $line =~ s/\x0A\x0D/\n/g;
    
    Kleine Korrektur. Der DOS-Umbruch ist \x0D\x0A ;o)
    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!
    - +3 replies
    - GwenDragon
      
      2009-07-18 13:31
      
      User since
      2005-01-17
      14555 Artikel
      Admin1
      
      Autsch. Danke. Irgendwie hatte ich das verdreht. ;)
      Schon verbessert.
      Last edited: 2009-07-18 13:32:23 +0200 (CEST)
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +2 replies
      - Linuxer
        
        2009-07-18 13:41
        
        User since
        2006-01-27
        3875 Artikel
        HausmeisterIn
        
        Hi, ich störe ja nur ungern nochmal, aber jetzt fehlt der / vorm \n ;o))
        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!
        
        GwenDragon
        
        2009-07-18 13:47
        
        User since
        2005-01-17
        14555 Artikel
        Admin1
        
        Danke. Bin irgendwie nicht so richtig wach heute.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2009-07-18 11:18.