|
编了一个mplayer 放目录下所有文件的perl程序
现在是想问一下怎么推出父程序,ctrl+c只能退出一个mplayer子程序
#!/usr/bin/perl
@all=@ARGV;
foreach $filename(@all){
if(-d $filename){
Readfilename($filename);
}else{
chomp($pwdfn=`pwd`);
$filename=$pwdfn."/".$filename;
@allfile=(@allfile,$filename);
}
}
foreach $filename(@allfile){
$_=$filename;
s/ /\\ /g;
system "mplayer $_ ";#######这部怎么让ctrl+c终止时同时终止父进程
}
sub Readfilename{
my($abc);
my($filename2);
my($n);
my($pwdfile);
opendir($abc,$_[0])||die "can't open $_[0]";
chdir($_[0]);
while($filename2=readdir($abc)){
if(-d $filename2){
if(($filename2 ne ".")&&($filename2 ne "..")){
Readfilename($filename2);
}
}else{
chomp($pwdfile=`pwd`);
$filename2=$pwdfile."/".$filename2;
@allfile=(@allfile,$filename2);}
close($_[0]);
}
chdir("..");
} |
|