Thread Automatisches auslesen von Systemdaten,von denen nur bestimmte Zeilen in einer Textdatei ausgeben werden (46 answers)
Opened by guest at 2011-10-11 10:02

suresh
 2011-10-11 14:07
#153076 #153076
User since
2010-10-12
109 Artikel
BenutzerIn
[default_avatar]
Deinen Code müsstest du dann irgendwie so verbiegen:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12

my $datei0 = "/proc/cpuinfo";
open (my $out_fh, ">", "datei.txt") or die ("Error : $! \n");
open (my $in_fh, "<", $datei0) or die ("Error : $! \n");
chomp ($zeile);
while (my $zeile = <$in_fh>) {
  if ($zeile =~ m/^processor/ || $zeile =~ m/^cpu MHz/) {  
    print $out_fh "$zeile \n";
  }
}
close ($in_fh) or die ("Error .....$datei0: $! \n");
close ($out_fh) or die ("Error .....von 'datei.txt': $! \n");
exit (0);


Edit - chomp in die Schleife und use strict and warnings dazu:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl 

use strict;
use warnings;

my $datei0 = "/proc/cpuinfo";
open (my $out_fh, ">", "datei.txt") or die ("Error : $! \n");
open (my $in_fh, "<", $datei0) or die ("Error : $! \n");
while (my $zeile = <$in_fh>) {
  chomp ($zeile);
  if ($zeile =~ m/^processor/ || $zeile =~ m/^cpu MHz/) {  
    print $out_fh "$zeile \n";
  }
}
close ($in_fh) or die ("Error .....$datei0: $! \n");
close ($out_fh) or die ("Error .....von 'datei.txt': $! \n");
exit (0);


Danke!
Last edited: 2011-10-11 15:33:10 +0200 (CEST)

View full thread Automatisches auslesen von Systemdaten,von denen nur bestimmte Zeilen in einer Textdatei ausgeben werden