Wrapper for ffplay to watch RTSP disconnection without TEARDOWN

gistfile1.txt

#!/usr/bin/perl -w

use strict;
no warnings 'once';

my $cmd = "ffplay -nodisp -loglevel info rtsp://SERVER/live";

pipe( READER, WRITER ) ;

my $child = open READER, '-|';
defined $child or die "fork(): $!\n";

if ( $child ) {

    local $/ = "\r";

    my $threshold = 0;
    while (my $line = <READER>) {
	if ($line =~ /aq=\s+0KB/) {
		last if (++$threshold > 32); next;
	}
	$threshold = 0;
    }

} else {

    open STDERR, '>&STDOUT';
    exec( $cmd ) or exit(1) ;

}