TS UDP packet capture using Perl.

[Chandrashekar Bhat]

Hi All,

I am looking for something capturing UDP packet on a server. These are
MpegTS packets, which will have TS data, PAT/PMT and Video Audio PIDs.
I am able to check that packets are coming fine or not using tcpdump.

<code>
        system(" tcpdump -v -i eth1 dst 227.1.1.0 > file.txt & ");
        my $PID=`ps aux | grep  'tcpdump ' | grep -v grep | awk '{print
\$2}'`;
        chomp($PID);
        print "SLEEEPING FOR 5 seconds....\n";
        sleep(5);
        print "KILLING PROCESS ID  ------->|$PID|\n";
        system("kill -9 $PID");
        my $LINES=`wc -l file.txt | awk '{ print \$1}'`;
        chomp($LINES);
        if($LINES > 5) {
                print "SUCCESS..\n";
        } else {
                print "FAIL...UDP Packets are not coming\n";
        }
</code>

above code works fine. But i am not able to look for packet with TS details.
After googling, i found that i need to use TS analyzer, that would be
difficult as TS analyzers are software without command line (as i need to
automate testing :( .. ).

Has anybody come across  capturing TS UDP packets using Perl?
Any pointers will be helpful.

Thanks,
Shekar