Konsolenbefehl zusammensetzen? (Allgemeines zu Perl)

[thread]20641[/thread]

Konsolenbefehl zusammensetzen?

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+14 replies
introdev

2019-07-26 15:29
User since
2018-11-20
29 Artikel
BenutzerIn
Hallo zusammen!

Folgenden Linux-Konsolenbefehl möchte ich ergänzen mit einer Perl-Variable, habe da allerdings ein Bisschen Mühe mit dem Escaping:
Code: (dl )

`JSON_DATA=$(cat test.json 2> /dev/null); if [ ! -z "${JSON_DATA}" ]; then WEBADDRESS='"webaddress":'$(jq '.webaddress' <<< "$JSON_DATA") && echo $JSON_DATA | sed 's/'$WEBADDRESS'/"webaddress":"5.5.5.5"/g' | sponge test.json 2> /dev/null; fi;`;
...die Perl-Variable heisst $ip und sollte dort rein, wo "5.5.5.5" steht, dies innerhalb der Anführungszeichen.

Bei der vorherigen Sache war es ziemlich klar:
Code: (dl )

`jq '.upnpconfigaddress = "$ip"' /opt/habridge/data/habridge.config | sponge /opt/habridge/data/habridge.config`;
...nun haben aber die Linux-Befehle selbst Escaping drin, und das bringt mich irgendwie durcheinander! ;-)

Vielen Dank für die Feedbacks.

Freundliche Grüsse,
Jan
Last edited: 2019-07-26 18:05:01 +0200 (CEST)
Freundliche Grüsse,
Jan
- +5 replies
- haj
  
  2019-07-26 16:22
  User since
  2015-01-07
  555 Artikel
  BenutzerIn
  Ist das eine Programmieraufgabe mit Nebenbedingungen oder warum setzt Du das ganze in einer überbreiten Wurst zusammen?
  
  Na, wie dem auch sei: Du hast vermutlich keine Probleme mit dem $ip, sondern mit den anderen Zeichen, die von Perl innerhalb der Backticks interpoliert werden. Alle Dollar-Zeichen, die in der Shell ankommem sollen, also alle mit mit Ausnahme desjenigen bei $ip, müssen als \$ geschrieben werden. Ich mach's mal etwas kürzer:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  my $ip = "1.2.3.4"; $foo = `FOO=\$(echo "\$HOME"); if [ ! -z "\${FOO}" ]; then BAR="\$FOO: $ip" && echo \$BAR;fi`; use Data::Dump qw(dump); dump $foo;
  
  Da kommt bei mir dann sowas raus:
  
  Code: (dl )
  
  "/home/haj: 1.2.3.4\n"
  - +4 replies
  - introdev
    
    2019-07-26 18:26
    User since
    2018-11-20
    29 Artikel
    BenutzerIn
    
    Vielen Dank fürs Feedback.
    
    Die json_decode()-Funktion hat irgendwie ein Problem und stürzt ab, wenn formatierter JSON-Code (mir returns, formatiert mit https://jsonformatter.curiousconcept.com/) vorliegt. Dies unter Raspbian Stretch, mit den aktuellsten Paketen.
    
    Da ich mich ein wenig mit Shell/Bash-Skripts auskenne, habe ich nun das Paket "jq" heruntergeladen und realisiere es über die Ausführung zusammengesetzter Linux-Befehle.
    
    Den String aus der Datei lese ich aus, weil es noch ein anderes Programm gibt (ha-bridge), dem die Datei (auf dem Zielsystem "habridge.config", nicht "test.json") gehört und das sie bearbeitet. Und während dem Bearbeiten kann es offenbar vorkommen, dass der Dateiinhalt komplett gelöscht und neu geschrieben wird.
    
    Vorher hatte ich eine weniger optimale Lösung in der Art (Pseudocode):
    
    Code: (dl )
    
    1 2 3 4 5 6 7
    
    $ip = ...; $fileSize = getFileSize("/opt/habridge/data/habridge.config"); if($fileSize > 0) { `jq /opt/habridge/data/habridge.config... "$ip"... | sponge /opt/habridge/data/habridge.config`; }
    
    Klar, wenn da die Zeilen innerhalb des "if" dran kommen, dann muss die Datei nicht zwangsläufig grösser als 0 bytes sein.
    
    Deshalb lese ich nun von Anfang den Inhalt der Datei als String aus, wenn dieser grösser als 0 Bytes ist, dann wird vom einem Feld in den JSON-Daten (ip) der Wert geändert - dies nicht in der Datei, sondern im vorher ausgelesenen String. Später wird dann das Ganze zurück in die Datei geschrieben.
    
    Ich kenne mich halt besser mit Shell-Skripts aus, aber es gibt da leider ein Problem in einem unserer Perl-Skripts..
    
    "jq" ist offenbar ein sehr mächtiges Tool und auch nicht unbedingt leicht "auf die Schnelle" zu erlernen. Meinen Befehl (der vorher zu Entwicklungszwecken ein Bash-Skript war - deshalb die "Wurst" ;-)) könnte man sicher noch vereinfachen...(?)
    
    Gruss, Jan
    Freundliche Grüsse,
    Jan
    - +2 replies
    - Linuxer
      
      2019-07-26 18:44
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Du könntest das, was an Shell-Befehlen passieren soll, in ein Shell-Skript schreiben (und ausführbar machen) und diesem dann den Parameter aus dem Perl-Skript übergeben.
      Das trennt die Themen "Perl-Skript" und "Shell-Skript" und erspart Dir das Escaping von Shell-Variablen etc.
      
      Beispiel:
      
      Perl:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      ... my $ip = "1.2.3.4"; ... # Skript mit parameter aufrufen qx{ /usr/local/bin/script.sh "$ip" }; ...
      
      Shell-Skript /usr/local/bin/script.sh:
      
      Code (sh): (dl )
      
      1 2 3 4 5 6
      
      #! /bin/sh # checks etc. selber einbauen IP="$1" # Dein Rest Shell Code hierhin
      
      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!
      - introdev
        
        2019-07-26 19:06
        
        User since
        2018-11-20
        29 Artikel
        BenutzerIn
        
        Sieht interessant aus, vielen Dank!! :-)
        Freundliche Grüsse,
        Jan
    - rosti
      
      2019-07-29 10:43
      
      User since
      2011-03-19
      3472 Artikel
      BenutzerIn
      
      Nenne mir einen plausiblen Grund einen visuell formatierten JSON-String weiterverarbeiten zu wollen.
      
      MFG
- +7 replies
- hlubenow
  
  2019-07-28 16:46
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  Oder Du schreibst die Zeile gleich ganz in Perl. Ungetestet:
  
  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
  
  #!/usr/bin/perl use warnings; use strict; my $fh; # Reading one line from "test.json": open($fh, "<", "test.json") or die; my $JSON_DATA = <$fh>; chomp($JSON_DATA); close($fh); my $WEBADDRESS; my $ip = "5.5.5.5"; if ($JSON_DATA -ne "") { $WEBADDRESS="webaddress:jq.webaddress" . $JSON_DATA; $JSON_DATA =~ s/$WEBADDRESS/webaddress\:$ip/g; # Writing to "test.json": open($fh, ">", "test.json") or die; print $fh $JSON_DATA; close($fh); }
  
  ... falls ich ungefähr verstanden hab', was Du machen willst.
  
  Warum war die bash-Zeile in Backticks? Sollte das Ergebnis irgendwie nach Perl (Perl benutzt dafür Backticks) ?
  Last edited: 2019-07-28 16:49:35 +0200 (CEST)
  - +6 replies
  - introdev
    
    2019-07-29 12:08
    User since
    2018-11-20
    29 Artikel
    BenutzerIn
    
    Danke, aber Dein Programm gibt Fehler aus:
    
    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
    
    #!/usr/bin/perl use warnings; use strict; my $fh; # Reading one line from "test.json": open($fh, "<", "/opt/habridge/data/habridge.config") or die; my $JSON_DATA = <$fh>; chomp($JSON_DATA); close($fh); my $WEBADDRESS; my $ip = "5.5.5.5"; if ($JSON_DATA -ne "") { $WEBADDRESS="webaddress:jq.webaddress" . $JSON_DATA; $JSON_DATA =~ s/$WEBADDRESS/webaddress\:$ip/g; # Writing to "test.json": open($fh, ">", "/opt/habridge/data/habridge.config") or die; print $fh $JSON_DATA; close($fh); }
    
    -> "syntax error at test.pl line 16, near "-ne"
    syntax error at test.pl line 24, near "}"
    Execution of test.pl aborted due to compilation errors."
    
    ...wobei ich da gerade nichts erkennen kann, was nicht stimmen sollte. Das "if" sollte auch stimmen:
    https://stackoverflow.com/questions/2045644/what-i...
    Freundliche Grüsse,
    Jan
    - +3 replies
    - introdev
      
      2019-07-29 12:20
      
      User since
      2018-11-20
      29 Artikel
      BenutzerIn
      
      Auch so scheint's nicht zu gehen:
      
      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
      
      #!/usr/bin/perl use warnings; use strict; #my $fh; # Reading one line from "test.json": #open($fh, "<", "/opt/habridge/data/habridge.config") or die; #my $JSON_DATA = <$fh>; #chomp($JSON_DATA); #close($fh); #my $WEBADDRESS; #my $ip = "5.5.5.5"; my $JSON_DATA = ""; if ($JSON_DATA -ne "") { #$WEBADDRESS="webaddress:jq.webaddress" . $JSON_DATA; #$JSON_DATA =~ s/$WEBADDRESS/webaddress\:$ip/g; # Writing to "test.json": #open($fh, ">", "/opt/habridge/data/habridge.config") or die; #print $fh $JSON_DATA; #close($fh); }
      
      Meldung wieder gleich:
      
      syntax error at test.pl line 18, near "-ne"
      Execution of test.pl aborted due to compilation errors.
      Freundliche Grüsse,
      Jan
      - +2 replies
      - Linuxer
        
        2019-07-29 12:55
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Perl verwendet ne, nicht -ne .
        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!
        
        introdev
        
        2019-07-29 14:29
        
        User since
        2018-11-20
        29 Artikel
        BenutzerIn
        
        Danke hat geklappt! :-)
        Freundliche Grüsse,
        Jan
    - +2 replies
    - hlubenow
      
      2019-07-29 15:52
      
      User since
      2009-02-22
      875 Artikel
      BenutzerIn
      
      2019-07-29T10:08:34 introdev
      Danke, aber Dein Programm gibt Fehler aus:
      
      Deshalb schrieb ich ja auch "nicht getestet".
      
      Normalerweise teste ich die Miniprogramme, die ich hier poste. Aber da ich nicht wissen kann, was in Deiner Datei "test.json" ist, und auch keine Ahnung hab', was "webaddress:jq.webaddress" in Deinem Zusammenhang bedeutet, und was das Programm eigentlich überhaupt tun soll, ging das hier nicht.
      
      "ne" und "-ne": Ich weiß wohl, daß Perl das eine und bash das andere verwendet. Bei welchem welches komme ich nicht selten durcheinander. Normalerweise guck' ich das in "man test" jedesmal nach. :)
      - introdev
        
        2019-10-04 18:22
        
        User since
        2018-11-20
        29 Artikel
        BenutzerIn
        
        Vielen Dank euch allen!!
        Freundliche Grüsse,
        Jan
- rosti
  
  2019-07-29 10:30
  
  User since
  2011-03-19
  3472 Artikel
  BenutzerIn
  
  Ich sehe hier nichts was den Einsatz eines Konsolenkommandos gerechtfertigen würde und würde von daher die Aufgabe komplett mit Perl erledigen.
  
  Im Ürigen ist es unzweckmäßig, mit `sed` irgendwelche Daten aus einem JSON String fischen zu wollen. Derartiges läßt sich mir Perl auch zweckmäßiger erledigen infolge Dekodierung der serialisierten Daten (Wiederherstellung der originalen Datenstruktur).
  
  MFG
  Last edited: 2019-07-29 11:08:29 +0200 (CEST)

View all threads created 2019-07-26 15:29.