Win32::FirewallParser - Microsoft Windows XP SP2 Firewall Log Parser

Win32::FirewallParser - Microsoft Windows XP SP2 Firewall Log Parser

use Win32::FirewallParser;

 my $obj = new Win32::FirewallParser;

 $obj->setHandler(\&printLine);
 $obj->parseFile();

 sub printLine {
      my $data = shift;

      for my $key (keys %{$data}) {
           printf "%10s => %s\n", $key, $data->{$key};
      }

      print "\n";
 }