-
Et à peine mieux :
(ce code est bien sûr GPL, même si je songe fortement à le breveter : "caractérisé en ce que un compteur initialisé au préalable de l'éxécution d'une boucle effectuant une ou plusieurs expressions régulières" )
check.pl :
#!/usr/bin/perl
my $count = 0;
while ($_=<>) {
s/(.+)http.+/1ドル/;
if (/linux/) { $count++ }
}
print "$count\n";
[^] # Re: Pour les datamineurs fous :
Posté par |-| . En réponse au journal AOL Exhibition. Évalué à 2.
2914
-
Et à peine mieux :
(ce code est bien sûr GPL, même si je songe fortement à le breveter : "caractérisé en ce que un compteur initialisé au préalable de l'éxécution d'une boucle effectuant une ou plusieurs expressions régulières" )
check.pl :
#!/usr/bin/perl
my $count = 0;
while ($_=<>) {
s/(.+)http.+/1ドル/;
if (/linux/) { $count++ }
}
print "$count\n";
cat user-ct-test-collection-*.txt | ./check.pl
495