Hallo liebe Entwickler!
Ich habe einen Perlskript,der unter Debian einwandfrei funktioniert und Suse funktioniert leider nicht. An was es liegt,finde ich leider nicht!
Da ist mein Code:
#!/usr/bin/perl
use strict;
use warnings;
#die Inhalte der Systemfiles
my @cpuinfo = `cat /proc/cpuinfo`;
my @meminfo = `cat /proc/meminfo`;
# deine Datenstruktur
my %systeminfo = ( "/proc/cpuinfo" => \@cpuinfo, "/proc/meminfo" => \@meminfo,);
#das ganze referenziert
my $systeminfo_ref = \%systeminfo;
open (my $writefile, '>',"systeminfo.txt") or die $!;
#Zugriff auf die CPU Informationen
foreach my $selected_cpuinfo ( @{ $systeminfo_ref->{"/proc/cpuinfo"} } ) {
chomp($selected_cpuinfo);
if ($selected_cpuinfo =~ m/^processor/ || $selected_cpuinfo =~ m/^cpu MHz/ )
{ print "CPUINFO: $selected_cpuinfo\n";
print $writefile "$selected_cpuinfo\n"; }}
#Zugriff auf die mem infos
foreach my $selected_meminfo ( @{ $systeminfo_ref->{"/proc/meminfo"} } )
{
chomp($selected_meminfo);
print "MEMINFO: $selected_meminfo\n";
#schreibt noch alles ungefiltert nach systeminfo.txt
print $writefile "$selected_meminfo\n";}
close($writefile);
Um jeden Tipp bin ich dankbar!!!Der Perlskript soll unter suse laufen ))
Ich habe einen Perlskript,der unter Debian einwandfrei funktioniert und Suse funktioniert leider nicht. An was es liegt,finde ich leider nicht!
Da ist mein Code:
#!/usr/bin/perl
use strict;
use warnings;
#die Inhalte der Systemfiles
my @cpuinfo = `cat /proc/cpuinfo`;
my @meminfo = `cat /proc/meminfo`;
# deine Datenstruktur
my %systeminfo = ( "/proc/cpuinfo" => \@cpuinfo, "/proc/meminfo" => \@meminfo,);
#das ganze referenziert
my $systeminfo_ref = \%systeminfo;
open (my $writefile, '>',"systeminfo.txt") or die $!;
#Zugriff auf die CPU Informationen
foreach my $selected_cpuinfo ( @{ $systeminfo_ref->{"/proc/cpuinfo"} } ) {
chomp($selected_cpuinfo);
if ($selected_cpuinfo =~ m/^processor/ || $selected_cpuinfo =~ m/^cpu MHz/ )
{ print "CPUINFO: $selected_cpuinfo\n";
print $writefile "$selected_cpuinfo\n"; }}
#Zugriff auf die mem infos
foreach my $selected_meminfo ( @{ $systeminfo_ref->{"/proc/meminfo"} } )
{
chomp($selected_meminfo);
print "MEMINFO: $selected_meminfo\n";
#schreibt noch alles ungefiltert nach systeminfo.txt
print $writefile "$selected_meminfo\n";}
close($writefile);
Um jeden Tipp bin ich dankbar!!!Der Perlskript soll unter suse laufen ))
Comment