Automatisches auslesen von Systemdaten,von denen nur bestimmte Zeilen in einer Textdatei ausgeben werden - #153130 (Allgemeines zu Perl)

GwenDragon

2011-10-12 14:15

User since
2005-01-17
14538 Artikel
Admin1

Weiß ich nicht.

Versuche mal folgendes.
Ändere im Quelltext

von

Code (perl): (dl )

1
2

my @cpuinfo = `cat /proc/cpuinfo`;
my @meminfo = `cat /proc/meminfo`;

Code (perl): (dl )

1
2

my @cpuinfo = `cat /proc/cpuinfo` or die "no cpuinfo #Error:$!\n";
my @meminfo = `cat /proc/meminfo` or die "no meminfo #Error:$!\n";

von

Code (perl): (dl )

    print $writefile "$selected_cpuinfo\n";

Code (perl): (dl )

    print $writefile "$selected_cpuinfo\n" or die "#Error:$!";

von

Code (perl): (dl )

print $writefile "$selected_meminfo\n";

Code (perl): (dl )

print $writefile "$selected_meminfo\n" or die "#Error:$!";

von

Code (perl): (dl )

close($writefile);

Code (perl): (dl )

close($writefile) or die "#Error:$!";

Last edited: 2011-10-12 14:17:39 +0200 (CEST)

die Drachin, Gwendolyn