I'm not able to execute shell command inside the perl script.

[omakhileshchand]

This is a txt file
cat msg0008.txt
;
; Message Information file
;
[message]
origmailbox=4031
context=Context_Test
duration=10

basically i want to cut 4031 from msg0008.txt

There is piece of code in perl

foreach $file (@change_dir)
{
        if (-d $file)
                {
                 $file_dir = "/var/spool/asterisk/voicemail/default/$file/INBOX";
                 chdir("$file_dir");
                 $chek_wav = `find $file_dir -amin -3 -name "*.wav"|wc -l`;
                 system("cd");
 
         if($chek_wav != 0)
       {
 
for($i=0;$i<=$chek_wav;$i++)
                {
 
        @txt_format=`find /var/spool/asterisk/voicemail/default/$file/INBOX -amin -3 -name "*.txt"`;
 
        $txt_file=$txt_format[$i];
 
        $origmailbox=`sed -n '5p' $txt_format[$i]| cut -c 13-16`;
 
        print "$origmailbox\n" ;
 
                }
 
        }
 
                }
}

whenever i will execute this code i got error in following line

$origmailbox=`sed -n '5p' $txt_format[$i]| cut -c 13-16`;

error :
origmailbox=4031
sh: -c: line 1: syntax error near unexpected token `|'
sh: -c: line 1: `| cut -c 13-16'
512

[RonB]

Have you tried adding a space between the var and the pipe?

Why all the backticks commands when Perl has its own methods of doing the same things without needing to fork sub processes?