Und-Zeichen durch Leerzeichen ersetzen (gelöst) (Allgemeines zu Perl)

[thread]19081[/thread]

Und-Zeichen durch Leerzeichen ersetzen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+9 replies
cohama

2014-05-07 12:37
User since
2011-08-16
102 Artikel
BenutzerIn
Hallo zusammen,

jetzt recherchiere ich schon 2h im Internet nach einem RegEx mit dem ich das Und-Zeichen (&) durch ein Leerzeichen oder durch einen Zeilenumbruch ersetzen kann.
Ich habe etwas wie
Code: (dl )

s/&/\n/g
oder
Code: (dl )

s/\&/ /g
leider ohne Ergebnis versucht.
Die Ausgabe enthält immer noch das Und-Zeichen.

Bye
- +3 replies
- GwenDragon
  
  2014-05-07 12:45
  User since
  2005-01-17
  14757 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  use Data::Dumper; # nur Zur Debugausgabe! my $text = "123&ZAHL"; print "Vorher: ", Data::Dumper::Dumper $text; $text =~ s/\&/ /g; print "Nachher: ", Data::Dumper::Dumper $text;
  
  ergibt:
  Vorher: $VAR1 = '123&ZAHL'; Nachher: $VAR1 = '123 ZAHL';
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - cohama
    
    2014-05-07 13:42
    
    User since
    2011-08-16
    102 Artikel
    BenutzerIn
    
    Hallo GwenDragon,
    
    danke für den Tipp, nur leider hatte das ja bereits getestet, ohne Erfolg.
    
    Bye
    - GwenDragon
      
      2014-05-07 13:47
      
      User since
      2005-01-17
      14757 Artikel
      Admin1
      
      Was ist denn das für ein Text? Oder HTML?
      
      Lass dir doch mal vorher die Zeichenkette mit Dumper ausgeben!
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +5 replies
- Linuxer
  
  2014-05-07 13:47
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Der Regex schaut prinzipiell gut aus.
  
  Code: (dl )
  
  1 2
  
  perl -wle ' my $t = "Hallo & Gruess Gott."; $t =~ s/&/,/; print ">$t<"; ' >Hallo , Gruess Gott.<
  
  Passen die verwendeten Zeichencodierungen wirklich zusammen?
  
  Woher stammen die Quelldaten?
  Stehen die im Skript? Stammen die aus einer Datei?
  Wie ist diese Datei kodiert?
  Wo wird das "&" des Regex definiert?
  Im Skript? Wie ist das Skript kodiert?
  Stimmen die Kodierungen überein?
  
  Liefer doch mal nachvollziehbare Daten (Beispieldateien) und nicht nur ein Code-Fragment....
  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!
  - +4 replies
  - cohama
    
    2014-05-07 13:59
    User since
    2011-08-16
    102 Artikel
    BenutzerIn
    
    Hallo zusammen,
    
    im Prinzip geht es um eine DB-Abfrage an einem Class-5-SoftSwitch.
    Und die Antwort des SoftSwitch sieht so aus:
    
    Code: (dl )
    
    ICAC=0&MFWD_NUM3=XXX&MFWD_NUM4=XXX&H_ABOPROFILID=3&RPCID=0&ACR_ON=0&MFWD_MODE=0&IN_APPLICAB=0&ACCESSNAME=SIP
    - +3 replies
    - Linuxer
      
      2014-05-07 14:08
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Problem bleibt so nicht nachvollziehbar:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
      
      perl -wle ' my $t = "ICAC=0&MFWD_NUM3=XXX&MFWD_NUM4=XXX&H_ABOPROFILID=3&RPCID=0&ACR_ON=0&MFWD_MODE=0&IN_APPLICAB=0&ACCESSNAME=SIP"; $t =~ s/&/\n/g; print $t; ' ICAC=0 MFWD_NUM3=XXX MFWD_NUM4=XXX H_ABOPROFILID=3 RPCID=0 ACR_ON=0 MFWD_MODE=0 IN_APPLICAB=0 ACCESSNAME=SIP
      
      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
      - cohama
        
        2014-05-07 15:41
        
        User since
        2011-08-16
        102 Artikel
        BenutzerIn
        
        Hallo,
        
        irgendwie habe ich gerade die Idee, dass der Grund für das nichtfunktionieren in dem
        
        Code: (dl )
        
        exec
        
        liegen könnte.
        Sprich das Linux-Commando wird nur ausgeführt und gar nicht in die Variable gespeichert.
        
        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
        
        #!/usr/bin/perl -w ######################## # Modul Definition ######################### use strict; ########################## # Parameter Definition ######################### my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst); my ($date,$clock); my ($HOME,$File1,$File2); my ($ShellCommand,$extNUM,$last_nbs,$extDATA,$extPWD,$extLogin,$extDomain,$extProfile); my @Array; ########################## ########################## system("clear"); ########################## # Time-Calculation ########################## ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); $date =sprintf("%04d-%02d-%02d",$year+1900,$mon+1,$mday); $clock =sprintf("%02d:%02d:%02d",$hour,$min,$sec); ############################### # File-Operation $File2 = "/home/admin/workspace/".$date."_ExtCheck.log"; if ( -e $File2 ){ open (iFile,"<$File1") || die $!; open (oFile,">$File2") || die $!; } $ShellCommand = '/usr/bin/get_entry EXT '; $extNUM = '38164835036'; $extDATA = exec($ShellCommand.$extNUM.' EXTENSIONNAT=3'); # Run Shell-Command $extDATA =~ s/&/\n/g; print $extDATA;
        
        GwenDragon
        
        2014-05-07 15:47
        
        User since
        2005-01-17
        14757 Artikel
        Admin1
        
        exec führt das Kommado aus und kommt nie mehr zurück, gibt also nix in deine Variable.
        
        Du brauchst qx bzw. ` (Backticks)..
        
        Code (perl): (dl )
        
        1 2 3 4
        
        $extDATA = qx($ShellCommand.$extNUM.' EXTENSIONNAT=3'); die "$ShellCommand failed" if not length ($extDATA); $extDATA =~ s/&/\n/g; print $extDATA;
        
        Last edited: 2014-05-07 15:48:30 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2014-05-07 12:37.