|< 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;
{print "1"}
package 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 |