![]()  | 
|< 1 2 >| | ![]()  | 
12 Einträge, 2 Seiten | 
1
2
3
4
5
6
my %file = ( meminfo => '/proc/meminfo' );
my %mem;
open MEM,'<',$file{meminfo} or die "Statistics: can't open $file{meminfo}";
while (<MEM>) { $mem{$1} = $2 if /^(MemTotal|MemFree|Buffers|Cached|SwapTotal|SwapFree):\s*(\d+)/ }
close MEM;
Wie frage ich & perlintro 
brian's Leitfaden für jedes Perl-Problem{print "1"}
IPC::System::Simple, 
Path::Classpackage Mein::Modul::Nr1;
1
2
3
4
if (1)
{ # namensraum begin
print "Das Semikolon lasse ich jetzt mal frecherweise wech :-)"
} # namensraum ende
![]()  | 
|< 1 2 >| | ![]()  | 
12 Einträge, 2 Seiten |