Fehler bei Füllen eines Strings (Allgemeines zu Perl)

[thread]15538[/thread]

Fehler bei Füllen eines Strings

Leser: 24

Articles: hide open all | hide show old branches

+7 replies
user123

2010-10-15 10:12
User since
2010-10-12
21 Artikel
BenutzerIn
Hallo zusammen,

hab mal wieder ein kleines Problem und weiß nicht weiter.
Ich möchte in einem Script einen Fehler abfangen, wenn der gelieferte Textstring nicht die korrekten Variablen enthält.
Textstring "angebot" sieht so aus: "Ab $datum$ alle Preise um $preis$ gesenkt."
Funktioniert auch alles wunderbar solange im Textstring die Variablen richtig geschrieben sind.
Wie kann man das abfangen? Hab es schon mit eval probiert, aber das klappt nicht.
Code (perl): (dl )

1 2 3 4

my %string; $string{datum} = 01.11.2000; $string{preis} = "20 €"; my $text = Translation::getText('angebot', \%string);
- renee
  
  2010-10-15 10:17
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Welcher Fehler? Wie sieht "getText()" aus? Bitte liefere mehr Infos wenn wir Dir helfen sollen.
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
- gelöscht 2010-10-15 11:01
- +4 replies
- clms
  
  2010-10-15 15:34
  
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  
  Wenn ich Dich richtig verstanden habe, spielt sich das ganze in Translate::getText ab. Das erste Argument wird nach /\$(\w+)\$/ durchsucht und die gefundenen Stellen mit den entsprechenden Werten aus dem Hash im 2. Argument ersetzt.
  Diese Funktion willst Du aufbohren, so dass sie noch vor dem Ersetzen prüft, ob der gefundene Key überhaupt im Hash existiert. Wenn nein, liegt ein Schreibfehler vor und kannst Du eine Fehlermeldung ausgeben oder eine Exception auslösen
  - +3 replies
  - user123
    
    2010-10-18 09:05
    
    User since
    2010-10-12
    21 Artikel
    BenutzerIn
    
    richig. Mir geht es nur darum wie ich den Fehler abfange, wenn aus der getText() ein Fehler zurück kommt.
    Ich habe keinen Einfluss auf den Aufbau des Strings und keinen Einfluss auf die getText(), da ich die nicht ändern kann.
    Ich will einfach nur was einbauen, dass $text im Moment eines zurückgegebenen Fehlers leer bleibt.
    - renee
      
      2010-10-18 09:47
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Falls getText mit "die" aussteigt, dann kannst Du eval nehmen:
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      my $text; eval{ $text = Translation::getText(...); 1; };
      
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
    - clms
      
      2010-10-18 10:51
      
      User since
      2010-08-29
      373 Artikel
      BenutzerIn
      
      Dann musst Du uns jetzt verraten, wie getText() auf Fehler reagiert.
      
      Wenn es mit die aussteigt, kannst Du das eval-Beispiel von renee nehmen um den Fehler abzufangen und ggf. noch etwas aufbohren.
      
      Wenn getText() eine Warnung "use of undef value" (oder so) ausgibt und dann den Platzhalter durch einen leeren String ersetzt, kannst Du versuchen, die Warnung über einen $SIG{__WARN__}-Handler abzufagen.
      Lies Dir zum Start perldoc -f warn durch.
      
      Bleiben die Platzhalter, für die es im Hash keine Entsprechung gibt, im Ausgabestring stehen? Dann kannst Du den Ausgabestring untersuchen.
      
      Wenn es weder die noch Warnung gibt und die Platzhalter einfach durch leere Strings ersetzt werden, bleibt Dir wohl nichts anderes übrig, als den String, den Du an getText() übergibst, vorher zu überprüfen und für alle Platzhalter, die Du findest, abzuchecken, ob sie als Keys im Hash existieren.

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