Unsaubere Programmierung?? (gelöst) (Perl/CGI)

[thread]15747[/thread]

Unsaubere Programmierung?? [gelöst]

Leser: 27

Articles: hide open all | hide show old branches

+5 replies
Yogi62

2010-12-15 19:12
User since
2010-10-15
14 Artikel
BenutzerIn
Hallo zusammen,
ich will eine exportierte Datei in der Codierung windows-1252 via perl ausgeben und verändere halt Umlaute etc. mit folgender kleinen Routine:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

# ## Funktion Tauschen diverser Spezialzeichen aus Win-1252 ##################### # sub update { $_ =~ s/\xc4/Ä/g; $_ =~ s/\xe4/ä/g; $_ =~ s/\xd6/Ö/g; $_ =~ s/\xf4/ö/g; $_ =~ s/\xdc/Ü/g; $_ =~ s/\xfc/ü/g; $_ =~ s/\xdf/ß/g; $_ =~ s/\x80/&euro/g; return; }
In $_ steckt immer die aktuelle Zeile... Im Dosfenster klappt alles prima, aber im Testserverbetrieb "kotzt" sich das gesamte Script selbst auf den Monitor und das, obwohl nur die Routine vorkommt, aber noch gar nicht ausgeführt wird. Das würde bedeuten, dass beim Compilieren schon alles überläuft.

Was für einen dämlichen Fehler habe ich gemacht?

Dank und Gruß im voraus!
Barbara
- Linuxer
  
  2010-12-15 19:21
  
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  
  Hi,
  
  ich finde die Fehlerbeschreibung sehr dürftig.
  Kannst Du mal mehr Code liefern, mit dem das Problem mal nachvollziehen kann?
  
  Was ist mit Testserverbetrieb gemeint?
  Das Skript läuft in DOS-Fenster des Clients ordentlich, aber nicht im DOS-Fenster eines Servers?
  
  ... (Denkpause)
  
  Lass mich raten:
  
  Das Skript soll als CGI Skript auf dem Server laufen?
  Dein Webserver ist nicht korrekt konfiguriert und wenn man es im Browser aufruft, führt der Webserver das Skript nicht aus, sondern liefert es als Plaintext aus. Und so stellt es dann der Browser auch dar.
  
  PS: Wie wird eigentlich $_ für die Subroutine gefüllt?
  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!
- pktm
  
  2010-12-15 20:03
  User since
  2003-08-07
  2921 Artikel
  BenutzerIn
  Uhm, Sevrer-Betrieb = CGI-Skript?
  Wenn dein Skript einfach wieder ausgegeben (auch als ausgekotzt bekannt ;-)) wird, dann wird die Datei nicht als CGI-Skript ausgeführt.
  Hast du deinen Server so konfiguriert, dass er CGI-Skripten ausführt? Hast du das Skript an der richtigen Stelle liegen, die richtigen Rechte und den Shebang richtig sitzen? Hast du auf dem Server Perl?
  
  Mir persönlich gefällt übrigens sowas hier besser:
  
  Code: (dl )
  
  1 2 3 4 5 6 7
  
  sub replace_special_chars { my $text = shift; $text =~ s/foo/bar/g; return $text; }
  
  Grüße, pktm
  http://www.intergastro-service.de (mein erstes CMS :) )
- Crian
  
  2010-12-16 08:31
  User since
  2003-08-04
  5873 Artikel
  ModeratorIn
  Ich würde bei soetwas immer den String übergeben und mit local $_ arbeiten, dann musst du dich nicht darauf verlassen, dass in $_ das richtige steckt und deine Funktion hat nach Außen keinerlei Nebeneffekte.
  
  Du gibst dann einfach $_ zurück. Also ungetestet:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  sub update { local $_ = shift; s/\xc4/Ä/g; s/\xe4/ä/g; s/\xd6/Ö/g; s/\xf4/ö/g; s/\xdc/Ü/g; s/\xfc/ü/g; s/\xdf/ß/g; s/\x80/&euro/g; return $_; }
  
  Ferner kannst du dir bei $_ den Vorspann bei s// sparen.
  
  Der Aufruf sähe dann so aus:
  
  Code: (dl )
  
  $foo = update($foo);
  
  Außerdem scheint bei &euro noch ein Semikolon dahinter zu fehlen in der Ersetzung.
  Last edited: 2010-12-16 08:33:33 +0100 (CET)
  s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
  
  use strict; use warnings; Link zu meiner Perlseite
- Yogi62
  
  2010-12-16 16:31
  
  User since
  2010-10-15
  14 Artikel
  BenutzerIn
  
  Ausser dem fehlenden Semikolon ist alles korrekt.
  Ich hatte die Perldatei versehentlich als utf-8 gespeichert.
  Entschuldigt den unnützen Aufwand!
  Barbara

View all threads created 2010-12-15 19:12.