Opened by cbxk1xg at 2004-12-21 00:05
User since
2003-08-11
457 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-11
457 Artikel
BenutzerIn
Gib's als Liste zurueck...
oder in einen anonymen Hash
aber warum nimmst du nicht File::Find (das ist doch ueberall vertreten)?
Grusz coax.
Code: (dl
)
1
2
3
4
5
6
7
sub GetFolderInfo {
# [...]
return $size, $measurement, $numfiles, $numfolders;
# [...]
}
my @folder_infos = GetFolderInfo( './' );oder in einen anonymen Hash
Code: (dl
)
1
2
3
4
5
6
7
8
9
sub GetFolderInfo {
# [...]
return {'size' => $size, 'measurement' => $measurement, # ....
};
# [...]
}
my $folder_infos = GetFolderInfo( './');
print $folder_infos->{size};aber warum nimmst du nicht File::Find (das ist doch ueberall vertreten)?
Code: (dl
)
$ perl -MFile::Find -e 'find (sub{ $sum += -s unless /^\.\.?$/ }, @ARGV); print "$sum\n"' -- ./Grusz coax.
,,Das perlt aber heute wieder...'' -- Dittsche