Opened by marky at 2011-10-09 09:56
User since
2003-08-15
215 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
215 Artikel
BenutzerIn
Das wäre der Code der bei mir sehr oft vorkommt
wie könnte man das jetzt schick machen, ohne das ganze Verzeichnis einzulesen.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
opendir ( DATAL , "PFAD/logs/" ) ;
foreach my $sfile ( reverse grep(/\.od$/,readdir(DATAL)) ) {
open(STATS , "< PFAD/logs/$sfile") ;
while ( my @t = split(/\|/,<STATS>,3) ) {
$DATA{$t[0]} += $t[1] ;
} close(STATS) ;
last if ( $i++ == 6 ) ;
} close(DATAL) ;
wie könnte man das jetzt schick machen, ohne das ganze Verzeichnis einzulesen.
Mfg
Markus - http://www.perlunity.de -
Markus - http://www.perlunity.de -