Sonderzeichen in HTML austauschen (solved) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-09-17 05:04:29
Europe/Berlin
Login (Register)
- Preferences
- Statistics
Jemand zu Hause?
0 users online

[thread]20318[/thread]

submit to reddit

Sonderzeichen in HTML austauschen [solved]

[solved]

Tags: perl5 Similar Threads

Readers: 16

Articles: hide open all | hide show old branches

+17 replies
hago

2017-06-29 22:45
User since
2016-05-29
31 articles
BenutzerIn
Hallo,
ich habe ein Script gemacht, in dem erst eine FTP-Verbindung aufgebaut wird, dann:
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 25 26 27 28 29 30 31 32 33 34 35 36

my @files=("listeG.csv", "listeB.csv", "listeE.csv", "listeP.csv", "listeA.csv", "listeC.csv", "listeO.csv", "listeM.csv", "listeS.csv", "listeV.csv", "listeQ.csv", "listeF.csv", "preislisteG.csv"); foreach $datei (@files) { my $daten = ""; open(TXT,$datei) or die "Fehler1: \n"; while(<TXT>){ $daten = $daten.$_; my %UMLAUTE = ('Ä'=>'Ä','Ö'=>'Ö','Ü'=>'Ü','ä'=>'ä','ö'=>'ö','ü'=>'ü','ß'=>'ß'); my @UMLKEYS = join("|", keys(%UMLAUTE)); $daten =~ s/(@UMLKEYS)/$UMLAUTE{$1}/g; } close (TXT); open (TYT,">$datei") or die "Fehler2: \n"; print TYT $daten; close (TYT); copy($datei,"C:\\xampp\\htdocs\\aserver\\AAA\\AAApflugi\\listen\\".$datei); $ftp->ascii(); $ftp->put("$datei"); }
Jetzt wird die FTP-Verbindung geschlossen und die Webseite mit den verarbeiteten Dateien angezeigt.

Alles funktioniert perfekt, nur mit "preislisteG.csv" nicht. Diese Datei wird zwar auch kopiert und hochgeladen, aber unverändert - bei allen anderen werden wie gewünscht die deutschen Sonderzeichen in HTML-Zeichen getauscht.

Ich habe "preislisteG.csv" umbenannt in "listeD.csv", oder den Inhalt von "listeM.csv" in "preislisteG.csv" reinkopiert, oder "preislisteG.csv" an eine andere Stelle im Array gestellt. Hat alles nichts geholfen.

Weiß mir jemand Rat?

Hago
- +3 replies
- hlubenow
  
  2017-06-30 00:53
  
  User since
  2009-02-22
  875 articles
  BenutzerIn
  
  Na ja, Du mußt das Problem halt isolieren. Versuch', nur diese Datei einzulesen, und mit den RegEx zu ändern. Der FTP-Kram kann dann später dazukommen.
  - +2 replies
  - hago
    
    2017-06-30 07:10
    
    User since
    2016-05-29
    31 articles
    BenutzerIn
    
    2017-06-29T22:53:02 hlubenow
    Na ja, Du mußt das Problem halt isolieren. Versuch', nur diese Datei einzulesen...
    Das habe ich längst gemacht.
    
    Aber was meinst du mit "mit den RegEx zu ändern" ?
    Soll ich den Dateinamen ändern?
    - hlubenow
      
      2017-06-30 20:01
      
      User since
      2009-02-22
      875 articles
      BenutzerIn
      
      2017-06-30T05:10:18 hago
      2017-06-29T22:53:02 hlubenow
      Na ja, Du mußt das Problem halt isolieren. Versuch', nur diese Datei einzulesen...
      Das habe ich längst gemacht.
      
      Ich meinte, auch das mit ftp weglassen. Das hattest Du noch nicht gemacht.
      Aber das Problem wurde ja nun gefunden (Encodings).
      
      2017-06-30T05:10:18 hago
      Aber was meinst du mit "mit den RegEx zu ändern" ?
      Soll ich den Dateinamen ändern?
      
      "RegEx" ist kurz für "regular expression", "reguläre Ausdrücke".
      Das sind diese Zeilen:
      
      Code (perl): (dl )
      
      $line =~ s/($RE_UMLAUTE)/$UMLAUTE{$1}/g;
      
      Der reguläre Ausdruck ist das zwischen den Schrägstrichen.
      Da steht ja sogar $RE_UMLAUTE. Das "RE" bedeutet "regular expression".
      Last edited: 2017-06-30 20:07:49 +0200 (CEST)
- guest wer
  
  2017-06-30 01:32
  
  Schau mal nach der Zeichenkodierung.
  Ist wahrscheinlich anders als die der Script-Datei.
  Last edited: 2017-06-30 09:26:15 +0200 (CEST)
- +3 replies
- rosti
  
  2017-06-30 09:30
  
  User since
  2011-03-19
  3463 articles
  BenutzerIn
  
  Auch die Fehlersuche gehört zu den Tätigkeiten eines Entwicklers. Perl unterstützt Dich dabei mit use strict; und use warnings;
  
  Was in Deinen Dateien drinsteht und ob da bereits der Fehler liegt, kann hier niemand beurteilen. Prüf mal bitte ob die Zeichen erwartungsgemäß kodiert sind.
  
  Tipp: Für HTML-Entities gibt es Module die ich nutzen würde.
  
  MfG
  - +2 replies
  - hago
    
    2017-06-30 09:39
    
    User since
    2016-05-29
    31 articles
    BenutzerIn
    
    Die Zeichenkodierung war's!
    
    Vielen Dank, ihr habt mir sehr geholfen.
    
    Gruß, Hago
    - rosti
      
      2017-07-01 11:31
      
      User since
      2011-03-19
      3463 articles
      BenutzerIn
      
      Ja. schön. Obwohl es keinen wirklichen Grund gibt, Umlaute in HTML-Entities umzuwandeln. Diese Umwandlung kannst Du also auch weglassen.
      
      Und noch etwas, Perl kann gegenüber anderen Programmiersprachen mit Dateien besonders gut umgehen. Eine dieser Besonderheiten ist der <> (Diamond) Operator in Verbindung mit dem Array @ARGV. Konkret heißt das: Übergebe sämtliche Dateien als Argumentenliste an dein Perlscript und lese über <> bzw <ARGV> die aneinandergehängten Inhalte.
      
      Des Weiteren kannst Du an Net::FTP anstelle einer Datei auch ein Handle übergeben. Das heißt, dass du nicht einmal eine Datei auf deiner Festplatte anlegen musst, denn das was aus <ARGV> gelesen wird kannst Du 1:1 in ein mit IO::String erstelltes Handle schreiben und dieses Handle dann an Net::FTP übergeben.
      
      Am Ende hast du nur noch ein paar Zeilen Code und der Aufruf sieht dann z.B. so aus:
      
      Code: (dl )
      
      c:\> uploader.pl datei1 datei2 datei2 usw.
      
      und diese Kommandozeile kann auch in einer batchdatei notiert sein. mfg
- +2 replies
- bianca
  
  2017-06-30 14:17
  
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  
  Kann man hier bitte mal einen sinnvollen Titel eintragen. Danke!
  10 print "Hallo"
  20 goto 10
  - GwenDragon
    
    2017-06-30 14:58
    
    User since
    2005-01-17
    14741 articles
    Admin1
    
    Done.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +7 replies
- Linuxer
  
  2017-06-30 14:37
  User since
  2006-01-27
  3890 articles
  HausmeisterIn
  Ein paar allgemeine Tipps.
  
  1. wie schon erwähnt wurde, nutze use strict; und use warnings;. Die helfen Dir beim Programmieren.
  
  2. Eine saubere Formatierung/Einrückung des Quellcodes hilft beim Verständnis.
  
  3.1. Beim perlfunc open sollte man besser lexikalische Filehandles nutzen; keine Barewords; z.B. open( my $fh, $filename ) or die "open($filename) failed: $!";
  
  3.2. Die 3-Argument-Form des open() sollte bevorzugt werden; z.B. open( my $fh, ">", $filename ) or die "open($filename) failed: $!";
  
  3.3. Lass Dir doch anzeigen, warum ein open fehlgeschlagen ist; der Fehler sollte in $! stehen; siehe die Beispiele in 3.1 und 3.2
  
  Speziell zum gezeigten Code:
  
  Ich würde die Definition von %UMLAUTE aus den Schleifen rausnehmen und darüber postieren.
  Warum muss dieser Hash für jede Zeile jeder Datei neu angelegt werden? Die Daten verändern sich doch nicht?
  Das gleiche gilt für den Regex in @UMLKEYS. Das kann man auch auslagern.
  Warum ist das eigentlich ein Array und kein Skalar? Es wird doch nur ein Regex erstellt; der passt auch gut in einen Skalar.
  
  Dann ist der Ablauf unnötig kompliziert. Jede gelesene Zeile wird an $daten gehangen und für jede Zeile wird der Regex angewendet. D.h. der Regex durchwandert für jede weitere Zeile alle vorigen Zeilen immer wieder mit; das ist verschenkte Zeit und Arbeit.
  
  Man könnte auch noch das Modul Tie::File verwenden, um sich die Arbeit zu sparen die Daten der Dateien komplett in den Speicher zu laden.
  
  Ein ungetestetes Schnipsel:
  
  Code (perl): (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 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
  
  use strict; use warnings; # load your FTP module use Tie::File; # define @files my @files = ( ... ); # set up FTP ... my %UMLAUTE = ( 'Ä'=>'Ä', 'Ö'=>'Ö', 'Ü'=>'Ü', 'ä'=>'ä', 'ö'=>'ö', 'ü'=>'ü', 'ß'=>'ß', ); my $RE_UMLAUTE = join("|", keys(%UMLAUTE)); for my $file (@files) { tie my @lines, 'Tie::File', $file or die "Could not tie $file: $!"; for my $line ( @lines ) { $line =~ s/($RE_UMLAUTE)/$UMLAUTE{$1}/g; } untie @lines; copy($datei,"C:\\xampp\\htdocs\\aserver\\AAA\\AAApflugi\\listen\\".$datei); $ftp->ascii(); $ftp->put("$datei"); }
  
  edit: fixed typo in Code
  Last edited: 2017-06-30 19:28:11 +0200 (CEST)
  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!
  - hago
    
    2017-06-30 16:23
    
    User since
    2016-05-29
    31 articles
    BenutzerIn
    
    Vielen Dank für die guten Tipps.
    
    Dass die Definition der Umlaute sich in der Schleife befindet, ist ja wirklich doof.
    Tie::File kenne ich nicht - ich werde mich damit beschäftigen.
  - +5 replies
  - hago
    
    2017-06-30 18:39
    
    User since
    2016-05-29
    31 articles
    BenutzerIn
    
    Klappt alles prima, nachdem ich diese Zeile so geändert habe ( {$1} ):
    $line =~ s/($RE_UMLAUTE)/$UMLAUTE{$1}/g;
    
    Ist aber nicht spürbar schneller als die andere Version, wenn ich das Umlaut Hash aus der Schleife nehme.
    Das rauszunehmen hat aber einen deutlich spürbaren Geschwindigkeitsvorteil gebracht.
    
    Gruß, Hago
    - Linuxer
      
      2017-06-30 19:27
      
      User since
      2006-01-27
      3890 articles
      HausmeisterIn
      
      Sorry, das war ein Tippfehler meinerseits.
      Freut mich, wenn's funktioniert.
      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
    - Muffi
      
      2017-07-01 08:42
      
      User since
      2012-07-18
      1465 articles
      BenutzerIn
      
      Und was passiert, wenn in der Datei, die du einliest "<textarea>" steht?
      Ich würd vermuten, dann ist deine HTML-Seite kaputt.
      1 + 1 = 10
      - hago
        
        2017-07-01 10:05
        
        User since
        2016-05-29
        31 articles
        BenutzerIn
        
        Ich habe das eben ausprobiert.
        Da passiert nichts Besonderes.
        <textarea> bleibt, wie es ist und die Umlaute ändern sich, wie sie sollen.
      - Linuxer
        
        2017-07-01 16:36
        
        User since
        2006-01-27
        3890 articles
        HausmeisterIn
        
        Warum sollte ein <textarea> kaputt gehen?
        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!

View all threads created 2017-06-29 22:45.