Community  »  Perl: Allgemeines Forum

Freien Speicher eines Verzeichnises ermitteln	Seitenanfang
Also ich hab da ein Poblem vielleicht kann mir da ja jemand helfen :) und zwar muss ich unter linux mit perl den freinen speicherplatz eines bestimmten verzeichnises ermitteln, leider hab ich noch nicht so viel Ahnung von Linux und Perl da ich erst diese Woche damit angefangen habe. Währe nett wenn mir jemand helfen könnte, danke schon mal im voraus Grüße Melanie Datum: 20.05.2005-11:07
re: Freien Speicher eines Verzeichnises ermitteln	Seitenanfang
#!/usr/bin/perl -w use strict; sub getfree { my $dir = shift; # directory als parameter # starte df zum lesen aus dessen ausgabe open (DF, "df -k $dir|") or die "kann df nicht starten"; <DF>; # überlies die Spaltenbeschriftung my $line = <DF>; # lies die erste Datenzeile close DF; # datei schliessen my @felder = split (/\s+/, $line); # aufspalten anhand leerzeichen return $felder[3]; # wert an Position 4 ist freier Platz in KB } my $frei = getfree($ARGV[0]); print "frei in $ARGV[0]: $frei\n"; sollte portable funktionieren... gruss Olaf Datum: 24.05.2005-18:09