topic Re: Executing a Perl Command in Operating System - HP-UX

Executing a Perl Command

Pando — Wed, 22 Dec 2004 19:08:56 GMT

I want to ask how can i execute or call dos2ux or rm command inside perl?

Herewith is my part of the script:

datapath="/test/parset/data_files/finaltest/Temp"
npath="/temp/SAMPLE"
ExePath="/usr/bin"
perl="/opt/perl/bin"
cd $datapath
ls -l *.TDF |awk '{print $9}' |while read FILE
do
perl -e '$PerlVar=$ENV{Var};$PerlVar=~ m/^[0-9][0-9]*[\.[0-9][0-9]*]{0,1}$/g;if (pos($PerlVar)) {exec("$ExePath/dos2ux $FILE > $npath/$FILE")} else {exec "$ExePath/rm $FILE"}'
done

When I execute it, it displays an error:

sh: /: Cannot create the specified file.
sh: /: Cannot create the specified file.

Maximum point for all correct replies.

Re: Executing a Perl Command

c_51 — Wed, 22 Dec 2004 19:47:38 GMT

might not be the reason, but
perl="/opt/perl/bin" then
perl -e ....

maybe your not using the version of perl you think you are.

you might check your quoting, double quotes inside of single quotes.

Re: Executing a Perl Command

Pando — Wed, 22 Dec 2004 19:54:33 GMT

Hi c,

I think the problem lies in this area:

{exec("$ExePath/dos2ux $FILE > $npath/$FILE")}

I dont know if i use the right command (system or exec) to execute the dos2ux command.

Re: Executing a Perl Command

Pando — Wed, 22 Dec 2004 20:09:26 GMT

I found the solution. Thanks!
Am very new to perl and through searching in this forum found other solutions in perl "system" command by the other in this forum!