Bekloppte User Agents zuordnen (RegExp)

[Engin]

Hi Patrick,

So funzt(TM) es bei mirjedenfalls:

use strict;
my $path = "desktop/november_2007.txt";
my $count = 0;
open FILE, $path or die "BUUUUUH: $!";

Arghh, hatte das desktop/ vor den Dateinamen vergessen, wobei es doch auch bei
absoluten pfaden hätte gehen müssen!?

Aber was anderes, schau dir das mal Bitte an und sag mir, wo ich was falsch gemacht hab.

  
   $count++ if m#\.jpg|\.gif|\.png|\.css|\.js|\.class|\robots\.txt#;  #  
  
print $count, $/;^Z  
1685039  
##################^^^^^^^ unverändert  
  
####################################  
   $count++ if m#\.jpg|\.gif|\.png|\.css|\.js|\.class\.txt#;  #  
  
print $count, $/;^Z  
1685039  
##################^^^^^^^ |\robots entfernt  
  
####################################  
   $count++ if m#\.jpg|\.gif|\.png|\.css|\.js\.txt#;  #  
  
print $count, $/;^Z  
1648832  
##################^^^^^^^ |\.class entfernt  -  was ist mit .class gemeint?  
  
####################################  
   $count++ if m#\.jpg|\.gif|\.png|\.css\.txt#;  #  
  
print $count, $/;^Z  
1528712  
##################^^^^^^^ |\.js entfernt  
  
####################################  
   $count++ if m#\.jpg|\.gif|\.png\.txt#;  #  
  
print $count, $/;^Z  
1525971  
##################^^^^^^^ |\.css entfernt  
  
####################################  
   $count++ if m#\.jpg|\.gif\.png#;  #  
  
print $count, $/;^Z  
118060

##################^^^^^^^.txt entfernt und vor .png statt |\ nur \                                             ^^^^^^^^^^^^^^^^^^^^^^^

So richtig?

Grüße,
Engin
 GYRO