#!/usr/bin/perl 
use warnings; 
use strict; 
use 5.010; 
 
my @shows = ""; #List of all abailable shows 
my @results = ""; #List of options to download after searching @shows 
 
say "Please enter the show you would like to find. This can take a while as it will download all listings.\nTo exit please leave a blank line."; 
chomp (my $lookup = <>); 
#exit if there is a blank line 
if ($lookup =~ /\^\s*$/){ 
  say "Goodbye"; 
  exit;} 
# Downlad itv program list 
  open ITV, "get_iplayer --type='podcast,itv'|" or die "fork: $!"; 
while (<ITV>) { 
      push @shows, $_ 
  } 
#Download bbc list 
  open BBC, "get_iplayer |" or die "fork: $!"; 
while (<BBC>){ 
    push @shows, $_ 
    } 
{ #push the results to new list 
my $c =1;  #used to count the printed shows 
for (@shows) { 
    if (/$lookup/i) {  
	push @results, $_; 
    }  
} 
shift @results; #Removes empty value 
for (@results) { 
    print $c, ") $_"; 
    $c++; 
    } 
} 
{ # choose the program you want to download from results of serch 
say "Please select a show to download. This could take a while as it will download the show selected.\n Type exit or leave a blank line to exit"; 
chomp (my $n = <STDIN>); 
#exit on blank line or non number 
if ($n =~ /\D|^\s*$/){ 
  say "Goodbye"; 
  exit;}  
my @download = split /:/,$results[$n -1]; 
my $chan = ""; 
if ($download[1] =~ /itv/i) { 
    $chan  = "ITV" 
    } else { 
      $chan = "tv" 
      } 
open DOWN, "get_iplayer --type=$chan --get $download[0]|" or die "fork: $!"; 
while (<DOWN>) { 
print $_; 
} 
}

#!/usr/bin/perl 
 
use warnings;  
use strict;  
use 5.010;  
 
$|++; 
 
my @shows; #List of all abailable shows  
  
say "Please enter the show you would like to find.\n", 
    "This can take a while as it will download all listings.\n", 
    "To exit please leave a blank line."; 
 
chomp (my $lookup = <>); 
say "Goodbye" and exit if $lookup =~ /^\s*$/; 
 
# Downlad itv program list  
unless( open(ITV, '-|', "get_iplayer --type='podcast,itv'") == 0 ) { 
    die "fork: $!"; 
} 
while (<ITV>) { 
    push @shows, $_ if /$lookup/i; 
} 
 
#Download bbc list  
unless( open(BBC, '-|', "get_iplayer") ==0 ) { 
    die "fork: $!"; 
} 
while (<BBC>){  
    push @shows, $_ if /$lookup/i; 
} 
 
my $c;  #used to count the printed shows 
say ++$c, ") $_" for @shows; 
 
# choose the program you want to download from results of search 
say "Please select a show to download.\n", 
    "This could take a while as it will download the show selected.\n", 
    "Type exit or leave a blank line to exit"; 
 
chomp (my $num = <>); 
say "Goodbye" and exit if $num =~ /\D/; 
 
my @download = split /:/,$shows[$num -1];  
my $chan = ($download[1] =~ /itv/i) ? "ITV" : "tv"; 
 
unless( open(DOWN, '-|', "get_iplayer --type=$chan --get $download[0]") == 0) { 
    die "fork: $!"; 
} 
print <DOWN>;

if ($lookup =~ /\^\s*$/){

if ($lookup =~ /^\s*$/){

my $cmd = q{get_iplayer --type='podcast,itv'}; 
my @shows = `$cmd`; 
die "Error: $? for command $cmd" if $?;

# Downlad itv program list   
open my $itv_fh, '-|', "get_iplayer --type='podcast,itv'" or die "could not fork to 'get_iplayer --type='podcast,itv': $!\n";  
while( <$itv_fh> ){  
    push @shows, $_ if /$lookup/i;  
} 
close $itv_fh or die "could not close 'get_iplayer --type='podcast,itv': $!\n"

#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
open my $itv_fh, '-|', "get_iplayer --type='podcast,itv'" 
  or die "could not fork to 'get_iplayer --type='podcast,itv': $!\n"; 
 
print "Oops...it should have died, but didn't\n\n"; 
 
unless( open( my $ITV, '-|', "get_iplayer --type='podcast,itv'") == 0 ) { 
    die "fork: $!"; 
}

defined( open my $itv_fh, ... ) or die "...";

[root@fc4dev ~]# cat test.pl 
#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
open my $itv_fh, '-|', "get_iplayer --type='podcast,itv'" 
  or die "could not fork to 'get_iplayer --type='podcast,itv': $!\n"; 
 
print "Oops...it should have died, but didn't\n\n"; 
 
unless( open( my $ITV, '-|', "get_iplayer --type='podcast,itv'") == 0 ) { 
    die "fork: $!"; 
}

#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
use Data::Dumper; 
# Make Data::Dumper pretty 
$Data::Dumper::Sortkeys = 1; 
$Data::Dumper::Indent   = 1; 
$Data::Dumper::Maxdepth = 0; 
 
 
test_open( "cat $0" ); 
test_open( "foobar $0" ); 
 
sub test_open { 
  my $cmd = shift @_; 
 
  print "for: $cmd\n"; 
 
  my $x = ( open my $fh, '-|', $cmd ); 
  print Dumper \$x, \$fh; 
  close $fh; 
 
  open $fh, '-|', $cmd or die "could not open $cmd: $!\n"; 
  print "open worked\n"; 
  close $fh; 
 
  print "\n\n"; 
}

open F, "find / -atime +90 -size +1000 -print|" or die "fork: $!"; 
while (<F>) { 
chomp; 
printf "%s size %dK last accessed on %s\n", 
$_, (1023 + -s $_)/1024, -A $_; 
}