Automatisches auslesen von Systemdaten unter linux (Allgemeines zu Perl)

[thread]16722[/thread]

Automatisches auslesen von Systemdaten unter linux

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+12 replies
Gast Guest

2011-09-13 14:50
Mein Perlskript sollte automatisch Daten unter Linux auslesen und in eine Textdatei schreiben.
ICh finde meinen Fehler leider nicht,weil es mir an Erfahrung in Perl fehlt.
Da ist mein Skriptversuch.
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

#!/usr/bin/perl -w use strict; use warnings; my $datei0 = "/proc/cpuinfo"; open (FILE, ">>sammeldatei.txt") or die ("Fehler beim Oeffnen der Datei: $! \n"); $i = 0; while ($datei0 = <FILE>){ $i++; chomp ($datei0); print "$i-te Zeile: $datei0 \n"; } close (FILE) or die ("Fehler beim Schliessen von 'sammeldatei.txt': $! \n"); exit (0);
Ich wuerde mich ueber eure Hilfe sehr freuen

modedit Editiert von pq: perl-tags hinzugefügt
Last edited: 2011-09-13 15:06:51 +0200 (CEST)
- +3 replies
- lichtkind
  
  2011-09-13 15:00
  User since
  2004-03-22
  5730 Artikel
  ModeratorIn + EditorIn
  fürs lesen von Datei nimm besser File::Slurp.
  
  Code (perl): (dl )
  
  1 2
  
  use File::Slurp; my @lines = read_file( 'filename' );
  
  mit den rechten der dateien gibts keine probleme?
  mein zeug:, Leute
  
  Es beginnt immer mit einer Entscheidung.
  - Gast guest
    
    2011-09-13 15:27
    
    Wo soll ich an meinem Skript aendern? Fur die bestimmten Daten,die ich automatisch auslesen werde,kann ich mit chmod Rechte vergeben oder?
    Last edited: 2011-09-13 15:30:27 +0200 (CEST)
  - Gast Guest
    
    2011-09-14 21:04
    
    Danke für die Antworten. Die befehle kenne ich auch,wie man Information über einzelne HW ausgibt,z.B cat /proc/partitions usw, df -h z.B Was der Befehl df -h ueber Filesystem im Terminal ausgibt ,sollte komplett in eine Textdatei geschrieben werden.Über Befehle bekommt man einzelne Infos,die Perlskript schoen lesbar in eine Textdatei zusammengefasst schreibt. Damit tue ich sehr schwer,weil ich mich mit Perl gar nicht auskenne.
- GwenDragon
  
  2011-09-13 16:08
  User since
  2005-01-17
  14890 Artikel
  Admin1
  Ich denke du willst sowas:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  #!/usr/bin/perl -w use strict; use warnings; my $datei0 = "/proc/cpuinfo"; open (my $out_fh, ">>", "sammeldatei.txt") or die ("Fehler beim Oeffnen der Ausgabe in Datei: $! \n"); open (my $in_fh, "<", $datei0) or die ("Fehler beim Oeffnen der einzulesenden Datei: $! \n"); my $i = 0; while (my $zeile = <$in_fh>){ $i++; chomp ($zeile); print $out_fh "$i-te Zeile: $zeile \n"; } close ($in_fh) or die ("Fehler beim Schliessen von $datei0: $! \n"); close ($out_fh) or die ("Fehler beim Schliessen von 'sammeldatei.txt': $! \n"); exit (0);
  
  Last edited: 2011-09-13 16:09:49 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- Linuxer
  
  2011-09-13 16:14
  
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  
  Hi,
  
  was hast Du da vor?
  Du schreibst von "Fehler". Sagst aber nicht, wie der Fehler sich denn äußert...
  
  Zu Deinem Code:
  
  Du legst einen Pfad in $datei0 ab, öffnest Deine Sammeldatei.txt zum anhängenden Schreiben und versuchst dann, zeilenweise aus der Sammeldatei zu lesen. Dabei verwendest Du $datei0, um die gelesene Zeile einzulesen; damit ist der zuvor gesetzte Dateipfad verloren...
  
  Da scheint die Programmlogik abhanden gekommen zu sein ;-)
  
  Du solltest Dir nochmal in Ruhe die Struktur Deines Programms vor Augen führen...
  Und dann solltest Du sprechende Variablennamen nehmen, die Dir Deine Programmlogik besser vor Augen führen.
  
  Auch lesenswert: WasIsteinLexikalischerFileHandle
  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
- lichtkind
  
  2011-09-13 19:23
  User since
  2004-03-22
  5730 Artikel
  ModeratorIn + EditorIn
  brauchst du die zeilennummern?
  
  denn sonst geht auch:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  #!/usr/bin/perl use IO::All; "---\n" >> io('sammeldatei.txt'); io('/proc/cpuinfo') >> io('sammeldatei.txt');
  
  ab der marke lassen sich zeilen auch subtrahieren weil editor dir zeile anzeigt vor cursor ist.
  Last edited: 2011-09-13 19:26:06 +0200 (CEST)
  mein zeug:, Leute
  
  Es beginnt immer mit einer Entscheidung.
  - +5 replies
  - Gast Guest
    
    2011-09-14 09:22
    
    In der Textdatei muessen nicht die Zeilennummern erscheinen. Skript sollte die komplette Information ueber installierte Hardware automatisch auslesen und formatiert in einer Textdatei ausgeben. Die Daten werden aus /proc genommen. d.h /proc/cpuinfo,/proc/pci, /proc/partitions, /proc/meminfo, /proc/net
    Last edited: 2011-09-14 10:15:53 +0200 (CEST)
    - hlubenow
      
      2011-09-14 17:49
      
      User since
      2009-02-22
      885 Artikel
      BenutzerIn
      
      Guest Guest
      Skript sollte die komplette Information ueber installierte Hardware automatisch auslesen und formatiert in einer Textdatei ausgeben.
      
      Dafür gibt es bestimmt schon ein paar Tools. Unter SuSE nehme ich z.B. das Shell-Skript siga (mit dem Aufruf "siga no", Ausgabe dann nach /tmp/siga/siga.txt), Manpage hier.
      Das rpm kann man zur Not mit dem Midnight-Commander auspacken, möglicherweise auch mit cpio.
      
      Edit: Es gibt auch eine Reihe von Einzelbefehlen. Die meisten davon wurden in diesem Thema (im Linux-Club) zusammengetragen.
      
      Gruß
      Last edited: 2011-09-14 18:47:14 +0200 (CEST)
    - +3 replies
    - topeg
      
      2011-09-14 19:12
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Unter Debian gibt es lshw das gibt ein optional ein XML-Dokument aus
      oder lshw-gtk das hat eine Grafische Oberfläche.
      Last edited: 2011-09-14 19:16:11 +0200 (CEST)
      - Gast Guest
        
        2011-09-14 21:20
        
        Danke für die Antworten. Die befehle kenne ich auch,wie man Information über einzelne HW ausgibt,z.B cat /proc/partitions usw, df -h z.B Was der Befehl df -h ueber Filesystem im Terminal ausgibt ,sollte komplett in eine Textdatei geschrieben werden.Über Befehle bekommt man einzelne Infos,die Perlskript schoen lesbar in eine Textdatei zusammengefasst schreibt. Damit tue ich sehr schwer,weil ich mich mit Perl gar nicht auskenne.
        Last edited: 2011-09-14 21:50:31 +0200 (CEST)
      - ich
        
        2011-09-14 21:51
        
        User since
        2003-09-19
        120 Artikel
        BenutzerIn
        
        Wenn man etwas mehr machen moechte, empfiehlt sich auch sowas wie fusioninventory das auch in perl geschrieben ist btw.
        
        http://fusioninventory.org/
        
        Gruss,
        
        Jan
        If you tell the truth you don't have to remember anything.
        -- Mark Twain

View all threads created 2011-09-13 14:50.