Opened by J-jayz-Z at 2005-05-15 02:55
User since
2003-08-11
457 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-11
457 Artikel
BenutzerIn
[quote=J-jayz-Z,16.05.2005, 00:08]Na ja, die Variable mit der größe habe ich, damit ich danach überhaupt mit dem array arbeiten kann. Ich will ja eine Liste, damit die Schleife es dem Inhalt nach oft durchläuft.
Den hash habe ich ja, damit die Ausgabe der Dateigröße auch zur Datei passt...
[/quote]
Du kannst auch in deiner Schleife mit dem Hash ,,als Liste'' arbeiten... aus
wuerde dann
werden.
Wie du siehst ist der if-Block, der sich ueber die ganze Schleife erstreckte, weggefallen. Wir kehren naehmlich die Bedingung um und springen sofort zum naechsten Durchlauf (next unless -f $filename naechster Durchlauf wenn $filename keine regulaere Datei).
Ich hab auch wieder die Unterroutine human_readable_fsize() mit rein genommen, wie du sie benennst ist egal, deinen Code (der die Groesze konvertiert) solltest du aber schon in eine Subroutine auslagern.
Innerhalb der Schleife kannst du nun also durch $hash{$filename} auf die Groesze zugreifen, dann kannst du dem Hash auch gleich noch einen schoeneren Bezeichner geben, %sizes, %filesizes oder %files wuerde sich anbieten.
Mir ist da noch einmal der Fehler aufgefallen...
Hinter den Dateitest-Operatoren darf hier kein Komma folgen (-f, "$for{$_}"), denn dem Operator wuerde sonst das Argument fehlen und dann ist der Aufruf aequivalent zu -f $_.
Der Operator -f liefert ja nur wahr wenn er auf eine regulaere Datei trifft, das schlieszt also aus, dass es ein Verzeichnis ist, der Test mit -d kann also wegfallen. Ich denke mal, dass du zusaetzlich mit -d getestet hast, weil -f wegen des Kommas das falsche Ergebnis lieferte.
Oefters im Board mitlesen und auf Fragen antwortenAntworten ist da auch schon recht hilfreich, da lernt man ziemlich viel was nicht in den Buecher stehen tut :)
Den hash habe ich ja, damit die Ausgabe der Dateigröße auch zur Datei passt...
[/quote]
Du kannst auch in deiner Schleife mit dem Hash ,,als Liste'' arbeiten... aus
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
my @sort = sort { $a <=> $b } @size;
foreach(@sort)
{
if (-f, "$for{$_}" && !(-d "$for{$_}"))
{
my $data = $_;
if ($_ < 1024)
{
$_ .= " bytes";
} elsif ( $_ > 1024 && $_ < 1048576)
{
$_ = sprintf("%.2f", $_ / 1024);
$_ .= " kb";
} elsif ( $_ > 1048576 && $_ < 1099511627776)
{
$_ = sprintf("%.2f", $_ / 1048576);
$_ .= " mb";
} else
{
$_ = sprintf("%.2f", $_ / 1099511627776);
$_ .= " gb";
}
format STDOUT =
@<<<<<<<<<<<<<<<<< @>>>>>>>>>>>>>>
$for{$data}, $_
.
write;
}wuerde dann
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
foreach my $filename ( sort { $hash{$a} <=> $hash{$b} } keys %hash )
{
next unless -f $filename;
format STDOUT =
@<<<<<<<<<<<<<<<<< @>>>>>>>>>>>>>>
human_readable_fsize( $hash{$filename} ), $filename
.
write;
}werden.
Wie du siehst ist der if-Block, der sich ueber die ganze Schleife erstreckte, weggefallen. Wir kehren naehmlich die Bedingung um und springen sofort zum naechsten Durchlauf (next unless -f $filename naechster Durchlauf wenn $filename keine regulaere Datei).
Ich hab auch wieder die Unterroutine human_readable_fsize() mit rein genommen, wie du sie benennst ist egal, deinen Code (der die Groesze konvertiert) solltest du aber schon in eine Subroutine auslagern.
Innerhalb der Schleife kannst du nun also durch $hash{$filename} auf die Groesze zugreifen, dann kannst du dem Hash auch gleich noch einen schoeneren Bezeichner geben, %sizes, %filesizes oder %files wuerde sich anbieten.
Mir ist da noch einmal der Fehler aufgefallen...
Code: (dl
)
if (-f, "$for{$_}" && !(-d "$for{$_}"))Hinter den Dateitest-Operatoren darf hier kein Komma folgen (-f, "$for{$_}"), denn dem Operator wuerde sonst das Argument fehlen und dann ist der Aufruf aequivalent zu -f $_.
Der Operator -f liefert ja nur wahr wenn er auf eine regulaere Datei trifft, das schlieszt also aus, dass es ein Verzeichnis ist, der Test mit -d kann also wegfallen. Ich denke mal, dass du zusaetzlich mit -d getestet hast, weil -f wegen des Kommas das falsche Ergebnis lieferte.
QuoteAber wenn ich ihn mir so anschaue, muss ich mir doch noch einige Bücher kaufen *gg*
Oefters im Board mitlesen und auf Fragen antwortenAntworten ist da auch schon recht hilfreich, da lernt man ziemlich viel was nicht in den Buecher stehen tut :)
,,Das perlt aber heute wieder...'' -- Dittsche