Zeug
public text v1 · immutable#!/usr/bin/perl -w
if(@ARGV !=1) {
print "Chose a \/proc\/ file to get infos\n";
print "Usage: perl $0 <pathinfo>\n";
exit;
}
($infopath) = @ARGV;
my $cpuinfo = `cat /proc/$infopath`;
print $cpuinfo;#!/usr/bin/perl -w
if(@ARGV !=1) {
print "Chose a \/proc\/ file to get infos\n";
print "Usage: perl $0 <pathinfo>\n";
exit;
}
($infopath) = @ARGV;
my $cpuinfo = `cat /proc/$infopath`;
print $cpuinfo;