1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| #!/usr/bin/perl
@uid=(0 , 2 , 3 , 5 , 6 , 8 , 9 , 14 , 15 , 16 , 17 , 18 , 19 , 21 , 22 , 23 , 24 , 28 , 29 , 38 , 39 , 42 , 43 , 44 , 45 , 46 , 47 , 48 , 49 , 50 , 51 , 53 , 54 , 56 , 57 , 59 , 60 , 63 , 64 , 68 , 69 , 74 , 76 , 79 , 83 , 84 , 90 , 91 , 95 , 97 , 98 , 103 , 105 , 107 , 108 , 110 , 111 , 112 , 114 , 115 , 116 , 117 , 118 , 120 , 121 , 122 , 123 , 126 , 128 , 129 , 132 , 133 , 136 , 140 , 141 , 143 , 147 , 150 , 152 , 153 , 156 , 157 , 158 , 160 , 162 , 164 , 166 , 167 , 168 , 170 , 171 , 172 , 173 , 174 , 176 , 178 , 179 , 180 , 183 , 184 , 185 , 186 , 187 , 190 , 191 , 194 , 197 , 198 , 200 , 202 , 203 , 206 , 207 , 211 , 212 , 213 , 215 , 221 , 223 , 224 , 225 , 226 , 229 , 230 , 231 , 233 , 237 , 239 , 240 , 241 , 243 , 245 , 251 , 252 , 254 , 255 , 256 , 257 , 260 , 261 , 263 , 266 , 270 , 271 , 279 , 280 , 281 , 282 , 283 , 285 , 286 , 287 , 288 , 289 , 293 , 294 , 296 , 297 , 300 , 301 , 303 , 306 , 307 , 310 , 311 , 314 , 317 , 320 , 321 , 322 , 323 , 326 , 327 , 329 , 334 , 338 , 342 , 343 , 344 , 345 , 347 , 352 , 353 , 354 , 355 , 358 , 359 , 360 , 361 , 366 );
foreach $uid(@uid){
open FILE, "test2.txt";
while ($line=<FILE>){
if ($line=~/tcp(.*) uid = $uid[^0-9]/) {
if ($line=~/\[(.*)\](.*)viens de recevoir le paquet(.*)/) {
#if (not defined $premierTemps){
$premierTemps = $1;
#print "$line";
#}
}
elsif ($line=~/\[(.*)\](.*)va envoyer le paquet (.*)/){
#if (not defined $deuxiemeTemps){
$deuxiemeTemps = $1;
# print"$line";
$soustraction = $deuxiemeTemps-$premierTemps;
#}
}
}
}
print" $uid :$soustraction\t";
close FILE;
} |
Partager