perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 30
 Click for quality!



08.02.2012 / 22:58
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragPaket Sniffer
 Seitenanfang
Hallo Zusammen,

ich habe mir einen Paket Sniffer für die Netzwerkkarte programmiert, z. T. mit tollen Routinen aus cpan.org.
Leider lässt die Performance meines Scriptes wünsche offen...
Ich befürchte das ich den Script durch RegExp, welche ich zum Paket Filtern verwende, ausbremse.

Dies sieht dann ca. wie folgt aus:


$packet = <Inhalt eines Paketes eben>
$packet= unpack('H32',$packet);
if ($packet =~ m/^.......(.)../) {
  $interesantesBit=$1;
  if ($interesantesbyte=="0") {print "nicht gesetzt"};
  if ($interesantesbyte=="A") {print "Es ist mittelwert"};
  if ($interesantesbyte=="F") {print "Es ist auf max"};
};

Welche ansätze fallen euch ein um die Perfomance zu steigern?

Gruß Bernd

Datum: 25.08.2006-11:14
Beitragre: Paket Sniffer
 Seitenanfang
Musste den Code nochmal bisl lessbarer gestalten..

$packet = <Inhalt eines Paketes eben>;
$packet= unpack('H32',$packet);
if ($packet =~ m/^.......(.)../) {
$interesantesbyte=$1;
if ($interesantesbyte=="0") {print "nicht gesetzt"};
if ($interesantesbyte=="A") {print "Es ist mittelwert"};
if ($interesantesbyte=="F") {print "Es ist auf max"};
};

Datum: 25.08.2006-11:16
Beitragre: Paket Sniffer
 Seitenanfang
hat sich erledigt

Datum: 25.08.2006-16:05
-






-
 -