#!/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

First, your regext could be
$var =~ s/[s[]]/\$1/g;

Next, you should use two arguments style "system" calls:
system("/usr/local/bin/programm", args);

Third, you have to analyze a return code of a "system" command:
my $status = system(...);
print "Error [errno = $status]n" if($status);

Saurabh Singhvi wrote:

Saurabh Singhvi wrote: