Opened by Mimo at 2005-10-11 11:10
User since
2003-08-04
5246 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
5246 Artikel
ModeratorIn
nebenbei: bei einer while (<...>) - schleife kann man sich $zeilen++ auch sparen; in der speziellen Perl-Variable namens $. steht die zeilennummer der zuletzt gelesenen zeile
(funktioniert allerdings leicht anders als das von ishka, weil bei ihm Zeilen uebersprungen werden, wenn das muster nicht matcht.\n\n
<!--EDIT|Strat|1129040093-->
Code: (dl
)
1
2
3
4
5
6
7
open (my $fh, "<", $dateiPfad) or die $!;
my $benutzer = 0;
while (<$fh>) {
$benutzer += $1 if /#info users (\d+)/;
} # while
print $benutzer/$.;
close $datei;
(funktioniert allerdings leicht anders als das von ishka, weil bei ihm Zeilen uebersprungen werden, wenn das muster nicht matcht.\n\n
<!--EDIT|Strat|1129040093-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
http://www.fabiani.net/