#!/usr/bin/perl -w
use strict;
opendir(DIR,".") or die "Couldn't open $!";
our @names = readdir(DIR) or die "Couldn't open $!";
closedir(DIR);
foreach my $name (@names){
if ($name =~ /avi$/) {
my $var = $name;
$var =~ s/\s/\\ /;
$var =~ s/\[/\\\[/;
$var =~ s/\]/\\\]/;
system("mencoder $var -ovc lavc -oac copy -o $var.avi");
}
}
in this script i am having a big problem.........the script just ends
after the system command and returns to the shell..........what could
be the reason???
some1 plz help me
thnx in adv
Saurabh
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
