Quoting-Problem (Allgemeines zu Perl)

[thread]13649[/thread]

Quoting-Problem

Leser: 18

Articles: hide open all | hide show old branches

+7 replies
Gast Kevin31

2009-06-19 13:51

So, da bin ich wieder.
Ich muss auf dem System einen Befehl absetzen und den Output des Befehls in einer Variable packen die ich später mit Split in ein Array packe.
Also,
$tmpmainvillage ist gesetzt, auf jetzt muss ich untigen Befehl auf dem System absetzen:
$villagestring = `cat /etc/hosts |grep "#village $tmpmainvillage"`;

Nur leider kriegt das System $tmpmainvillage gar nicht ab, muss irgendwo zwischen Perl und dem System verloren gehen.
Jemand ne Ahnung wie ich das Quoten muss? Die Anführungszeichen im Befehl sind leider Notwendig, ich vermute mal das die das Problem sind.

Gruß

Kevin
- +5 replies
- Linuxer
  
  2009-06-19 14:12
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Hi,
  
  lass Dir doch mal vor dem Kommando-Aufruf das Kommando ausgeben und schau Dir an, ob es so ausschaut wie Du es brauchst. Vielleicht ist $tmpmainvillage auch leer?
  
  Wenn Du die Ausgabe des Kommandos direkt einem Array zuweist, wird das Array mit den Zeilen gefüllt.
  
  Code (perl): (dl )
  
  1 2 3 4
  
  # Kontrollausgabe print qq~cat /etc/hosts | grep "#village $tmpmainvillage"~; # Kommando ausführen und Ausgabe in @village ablegen @village = qx{ cat /etc/hosts | grep "#village $tmpmainvillage" };
  
  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!
  - nepos
    
    2009-06-19 14:50
    User since
    2005-08-17
    1420 Artikel
    BenutzerIn
    
    Wobei ich das gleich direkt in Perl machen würde. Ausserdem ist cat an der Stelle total überflüssig!
    
    Das reicht auch schon:
    
    Code (perl): (dl )
    
    @village = qx{ grep "#village $tmpmainvillage" /etc/hosts};
  - +3 replies
  - Gast Kevin31
    
    2009-06-19 15:01
    
    Danke, das hat mir den Stups in die richtige Richtung gegeben.
    Ich hatte nen Denkfehler drin. SO wie ich das will kanns logisch schon gar nicht gehen.
    
    Muss ich mir was anderes überlegen.
    
    Danke
    Gruß
    
    Kevin
    - +2 replies
    - Kevin31
      
      2009-06-19 15:32
      
      User since
      2009-06-19
      1 Artikel
      BenutzerIn
      
      So, ich hab mich jetzt mal registriert, sonst muss ich so lange warten bis mein Post sichtbar ist :)
      
      Also, wie geschrieben: So wie ichd as machen wollte gehts nicht.
      
      Ich hab 2 Dateien. Das eine ist ne passwd wie man die aus Linux kennt. Das andere ist ne Datei die vom Format her wie ne Passwd ist, aber in den Felder stehen Benutzerinfos, als Position im Betrieb, wo er sitzt, durchwahl etc. pp.
      Ich möchte nun die Infos beider Dateien zusammenführen.
      
      ICh habe schon ein Perl-Script was nur die passwd-Daten einliest, splittet und im richtigen Format in eine Datei schieb.
      Ich müsste jetzt also die 2te Datei in ein Array oder Hash schieben, dann die Passwd einlesen, den passenden Eintrag aus der zweiten Datei finden (Index müsste dann der Username sein) und das ganze zusammenführen.
      
      naja, mal schauen wie ich das mach :)
      
      Danke nochmal für den Stups
      
      Gruß
      
      Kevin
      - topeg
        
        2009-06-19 18:35
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        perl selber bietet alles was du brauchst:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
        
        #!/usr/bin/perl use strict; use warnings; my $file='/etc/hosts'; my $tmpmainvillage='Entenhausen'; my @list; open(my $fh, '<', $file) or die "Error open $file ($!)\n"; while(my $line=<$fh>) { push(@list,$line) if($line=~m/#village $tmpmainvillage/); } close($fh); print join("\n",@list)."\n";
        
        In diesem Fall brauchst du keine externen Befehle.
- RPerl
  
  2009-06-19 20:13
  
  User since
  2006-11-26
  384 Artikel
  BenutzerIn
  
  Also wenn du unbedingt *sowas* machen willst wuerde ich dir bash empfehlen.
  Und selbst da musst du aufpassen, denn da wuerdest du sicherlich den useless use of cat award gewinnen...
  
  byebye *gaaaaehn*
  uebermuedeteRperl

View all threads created 2009-06-19 13:51.