#!/usr/bin/perl 
($no_of_files, $sourcename) = @ARGV; 
 
$no=0; 
 
my $n_secs = 50; 
 
my $start = time; 
 
while($no <  $no_of_files) 
{ 
     
#..............................# 
    
 
$rec="/home/test"; 
printf "$rec\n"; 
if (time-$start >= $n_secs){ 
kill($rec) 
} 
system($rec); 
 
 
#..............................#

$ sleep 2000 & 
[1] 1744 
 
Utilisateur@your-e9b092b536 ~ 
$ perl -de 42 
 
Loading DB routines from perl5db.pl version 1.32 
Editor support available. 
 
Enter h or `h h' for help, or `man perldebug' for more help. 
 
main::(-e:1):   42 
  DB<1> kill 9 => 1744; 
 
  DB<2> q 
[1]+  Killed                  sleep 200 
 
Utilisateur@your-e9b092b536 ~ 
$ ps 
      PID    PPID    PGID     WINPID   TTY     UID    STIME COMMAND 
     5984    4164    5984        632  pty0    1008   Jul 11 /usr/bin/bash 
     4164       1    4164       4164  ?       1008   Jul 11 /usr/bin/mintty 
     4272    5984    4272       3740  pty0    1008 19:39:28 /usr/bin/ps 
 
Utilisateur@your-e9b092b536 ~ 
$

#!/usr/bin/perl 
 
($no_of_files, $filename) = @ARGV; 
 
$no=0; 
my $n_secs = 50; 
my $start = time; 
 
printf "$start\n"; 
 
while($no <  $no_of_files) 
{ 
     
$command="date >> timestamp"; 
printf "$command\n"; 
system($command); 
 
eval { 
        local $SIG{ALRM} = { die "alarm\n" }; 
        alarm $n_secs; 
    
        $rec="/home/test"; 
        printf "$rec\n"; 
        system($rec); 
        alarm 0; 
}; 
if ($@) { 
        die unless $@ eq "alarm\n" 
} 
$command="mv stream_test.bin $so$filename.$no"; 
printf "$command\n"; 
system($command); 
 
$command="date >> timestamp"; 
printf "$command\n"; 
system($command); 
 
$command="sleep 10"; 
printf "$command\n"; 
system($command); 
 
$no = $no+1; 
     
} 
 
$command="mv timestamp timestamp.$filename"; 
printf "$command\n"; 
system($command);