iwlist wlan mit Sonderzeichen auslesen (gelöst) (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]21172[/thread]

iwlist wlan mit Sonderzeichen auslesen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 8

Articles: hide open all | hide show old branches

+11 replies
cbxk1xg

2021-02-23 23:29
User since
2003-10-20
496 Artikel
BenutzerIn
Ich habe mich nochmal an der Pipe-Variante versucht die ich in einem anderen Thread gelernt habe.

Mein Ziel ist es, eine Version mit escaped Characters des iwlist scans auszulesen, weil diese unter anderem mit Sonderzeichen und Emojis umgehen kann.
Code: (dl )

Thomas Müller‘s iPhone
Leider wird der Befehl
Code: (dl )

echo -e $(iwlist wlan0 scan | grep ESSID)
nicht richtig ausgeführt. Warum?
Code (perl): (dl )

1 2 3 4 5 6 7

my $cmd = "echo -e $(iwlist wlan0 scan | grep ESSID)"; open my $pipe, '-|', $cmd or die "(E) could not execute: $cmd: $!\n"; while ( my $line = <$pipe> ) { print Dumper($line); } close $pipe;
Momentan mache ich das mit einem Shell-Script und lese dann das Ergebnis in Perl aus der Datei.
Code: (dl )

1 2 3 4 5

#!/bin/bash export DEBIAN_FRONTEND=noninteractive echo -e $(iwlist wlan0 scan | grep ESSID) > /opt/wifiWebUI/temp/getWifiNets.dat exit
Kurios und un-elegant, aber funktioniert. Geht das auch besser?

Es geht mir vor allem darum, daß ein encode("utf-8", $string); oder decode nicht funktioniert. Apostrophen und Emojis werden nicht richtig umgewandelt wenn ich es via Backticks oder System ausführe.
Last edited: 2021-02-24 00:25:44 +0100 (CET)
- Linuxer
  
  2021-02-24 00:55
  User since
  2006-01-27
  3875 Artikel
  HausmeisterIn
  Mangels konfiguriertem WLAN auf dieser Kiste kann ich das aktuell nicht nachstellen.
  
  Aber Anmerkungen kann ich abgeben ;-)
  
  Welchen Sinn soll das echo -e hier haben? Die Frage stelle ich mir schon beim Shell-Skript.
  
  Ich würde erstmal die Ausgabe von iwlist direkt auslesen und dann im Perl-Skript weiterverarbeiten.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  my $cmd = "iwlist wlan0 scan"; open my $pipe, '-|', $cmd or die "(E) could not execute: $cmd: $!\n"; while ( my $line = <$pipe> ) { next if $line !~ m/ESSID/; # replace the "| grep ESSID" in the $cmd print Dumper($line); } close $pipe;
  
  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!
- +9 replies
- haj
  
  2021-02-24 10:00
  User since
  2015-01-07
  529 Artikel
  BenutzerIn
  2021-02-23T22:29:39 cbxk1xg
  Es geht mir vor allem darum, daß ein encode("utf-8", $string); oder decode nicht funktioniert. Apostrophen und Emojis werden nicht richtig umgewandelt wenn ich es via Backticks oder System ausführe.
  
  Was bedeutet nicht funktioniert?
  
  Werden die Apostrophen und Emojis richtig angezeigt, wenn Du das iwlist-Kommando im Terminal ausführst? In dem Fall werfen Backticks Dir (auf Linux, wovon ich mal ausgehe) einen UTF-8-encodierten String über den Zaun. Den solltest Du durchaus mit decode in Perl-Characters umwandeln können:
  
  Code (perl): (dl )
  
  1 2 3
  
  use Encode; my $octets = `iwlist wlan0 scan | grep ESSID`; my $characters = decode('UTF-8', $octets, Encode::FB_CROAK);
  
  Ich habe hier die Validierung des Encode-Moduls eingeschaltet, die sagt im Zweifelsfall auch, wo's in die Hosen geht.
  - +8 replies
  - cbxk1xg
    
    2021-02-24 10:36
    
    User since
    2003-10-20
    496 Artikel
    BenutzerIn
    
    Naja, ich bekomme auf der Kommandozeile das hier als SSID:
    
    [code]ESSID:"
    - +7 replies
    - Linuxer
      
      2021-02-24 11:43
      
      User since
      2006-01-27
      3875 Artikel
      HausmeisterIn
      
      Das
      
      Code: (dl )
      
      ESSID:"\\xF0\\x9F\\xA4\\xA1Markus\\xE2\\x80\\x98\\xF0\\x9F\\x92\\xA9iPhone\\xF0\\x9F\\x92\\x80"
      
      ist aber doch die Ausgabe durch den Dumper, oder?
      
      Hast Du auch schon mal
      
      Code (perl): (dl )
      
      1 2 3
      
      my $octets = `iwlist wlan0 scan | grep ESSID`; my $characters = decode('UTF-8', $octets, Encode::FB_CROAK); print $characters, "\n";
      
      probiert?
      
      edit:
      
      [code]
      $ echo -e "\xF0\x9F\xA4\xA1 \xF0\x9F\x92\xA9 \xF0\x9F\x92\x80" | perl -MEncode -nE 'BEGIN{ binmode(STDOUT,":encoding(UTF-8)");} say decode("UTF-8", $_);'
      Last edited: 2021-02-24 11:51:28 +0100 (CET)
      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!
      - +6 replies
      - cbxk1xg
        
        2021-02-24 12:11
        
        User since
        2003-10-20
        496 Artikel
        BenutzerIn
        
        2021-02-24T10:43:30 Linuxer
        
        Code: (dl )
        
        1 2 3 4
        
        [code=perl] my $octets = `iwlist wlan0 scan | grep ESSID`; my $characters = decode('UTF-8', $octets, Encode::FB_CROAK); print $characters, "\n";
        
        Das gibt bei mir
        
        Code: (dl )
        
        ESSID:"\xF0\x9F\xA4\xA1Markus\xE2\x80\x98\xF0\x9F\x92\xA9iPhone\xF0\x9F\x92\x80"
        
        Last edited: 2021-02-24 12:14:35 +0100 (CET)
        
        Linuxer
        
        2021-02-24 12:40
        
        User since
        2006-01-27
        3875 Artikel
        HausmeisterIn
        
        Dann drängt sich mir die Vermutung auf, dass das in diesem Fall wirklich so vom iwlist als String geliefert wird.
        
        Möglicherweise hängen da noch mehr Umgebungsvariablen dran?
        
        In Deinem Shell-Skript schreibst Du:
        
        Code: (dl )
        
        export DEBIAN_FRONTEND=noninteractive
        
        Ist die zur Ausführung des iwlist notwendig?
        Wenn ja, ist diese Umgebungsvariable auch in Deinem Perl-Skript gesetzt?
        Wenn nicht, setze sie in Deinem Perlskript bevor Du das iwlist Kommando aufrufst: $ENV{DEBIAN_FRONTEND}="noninteractive";
        
        edit:
        Nachtrag:
        
        Wo ich von Umgebung geschrieben hatte.
        
        Möglicherweise hängt es wirklich mit der Umgebung zusammen; Vermutung:
        
        Direkt im Terminal ist die Umgebung so eingerichtet, dass "UTF-8" genutzt werden kann. Das Kommando locale sollte das anzeigen. Daher kann iwlist die UTF-8 Zeichen auch direkt ausgeben.
        
        Im Perl-Skript wird das aber nicht erkannt (oder es ist anders gesetzt), also "glaubt" iwlist, dass die Umgebung kein UTF-8 kann und gibt das Ergebnis als String mit Escape-Sequenzen aus.
        
        Abhilfe könnte hier dann das Einrichten der korrekten Umgebung sein.
        Siehe dazu auch: https://perldoc.perl.org/perllocale
        Last edited: 2021-02-24 13:25:30 +0100 (CET)
        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
        
        haj
        
        2021-02-24 13:18
        
        User since
        2015-01-07
        529 Artikel
        BenutzerIn
        
        Es sieht dann so aus, als ob iwlist die Ausgabe mit Escape-Sequenzen schickt? Das Verfahren siehst Du an folgendem Beispiel:
        
        Code: (dl )
        
        echo $'\xF0\x9F\xA4\xA1'
        
        ergibt:
        
        +3 replies
        
        haj
        
        2021-02-24 13:46
        
        User since
        2015-01-07
        529 Artikel
        BenutzerIn
        
        Ergänzung: Man kann sich hier einen kleinen Spaß erlauben und direkt die Kommandoausgabe (also samt der ESSID: und den Gänsefüßchen) vewenden:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        use 5.020; use Encode; my $output = `iwlist wlan0 scan | grep ESSID`; my $octets = eval $output; my $characters = decode('UTF-8', $octets, Encode::FB_CROAK); say encode('UTF-8',$characters);
        
        Das ergibt direkt:
        
        +2 replies
        
        cbxk1xg
        
        2021-02-24 15:08
        
        User since
        2003-10-20
        496 Artikel
        BenutzerIn
        
        Es ist tatsächlich so, dass ich nun den $output eval, decode und encode und dann passt es.
        
        Danke.
        
        Code (perl): (dl )
        
        my $characters = decode('UTF-8', $octets, Encode::FB_CROAK);
        
        war der richtige Hinweis.
        
        cbxk1xg
        
        2021-02-24 15:10
        
        User since
        2003-10-20
        496 Artikel
        BenutzerIn
        
        Das Perl-Label scheint mein Perl nicht zu interessieren. Catalyst ist da sonst sehr gesprächig, meckert aber nicht.

View all threads created 2021-02-23 23:29.