Should parse the logs properly now, and non digit bulk packet indexes.
Dont know much perl or if theres a better
regexp solution. But seems to be fairly solid with what comes out of
usbsnoop.log
Jules
--- parser.pl.orig 2007-04-06 04:46:51.000000000 +1000
+++ parser.pl 2007-04-06 04:47:37.000000000 +1000
@@ -62,7 +62,7 @@
}
if($enabled==1){
if($setuppacket==1){
- if(/\d{4}: (.*)/){
+ if(/\s{4}\w{8}: ([\w{2} ]+)/){
foreach $idb (keys %{$urbhash{$urbrequest}}){
if($idb eq "out"){
printlog();
@@ -73,7 +73,7 @@
}
$urbhash{$urbrequest}{'timing'}=$timing;
} else {
- if(/\d{4}: (.*)/){
+ if(/\s{4}\w{8}: ([\w{2} ]+)/){
if($urbhash{$urbrequest}{'type'} eq "bulk" and $direction == $dir_out) {
push(@{$urbhash{$urbrequest}{'out'}},$1);
} elsif ($urbhash{$urbrequest}{'type'} eq "bulk" and $direction == $dir_in) {
_______________________________________________
linux-dvb mailing list
linux-dvb@xxxxxxxxxxx
http://www.linuxtv.org/cgi-bin/mailman/listinfo/linux-dvb
