strange behavior with system()

[themagiclamp]

Hi,

I have a strange problem with the system() function in perl.

system("source new_script.csh") == 0 or die "$? Call failed : $!\n";

The shell complains "No such file or directory".

Now if i change that line to
system("ls;source new_script.csh") == 0 or die "$? Call failed : $!\n";

it starts sourcing the file.

But even though it sources the file, the shell gives out errors like
sh : setenv : Command not found

(The first line of new_script.csh reads #!/bin/tcsh, so it should use the right shell).

Does anyone have any ideas on what the problem might be ?

Thanks
-

[numberwhun]

Hi,

I have a strange problem with the system() function in perl.

system("source new_script.csh") == 0 or die "$? Call failed : $!\n";

The shell complains "No such file or directory".

Now if i change that line to
system("ls;source new_script.csh") == 0 or die "$? Call failed : $!\n";

it starts sourcing the file.

But even though it sources the file, the shell gives out errors like
sh : setenv : Command not found

(The first line of new_script.csh reads #!/bin/tcsh, so it should use the right shell).

Does anyone have any ideas on what the problem might be ?

Thanks
-

First, try changing the double quotes to single quotes. Second, use the absolute path to the file.

Regards,

Jeff

[themagiclamp]

First, try changing the double quotes to single quotes. Second, use the absolute path to the file.

Regards,

Jeff

I tried that :

system('source /projects/test/new_script.csh');

still has a problem.

If I add an ls,
system('ls;source /projects/test/new_script.csh');

it seems to source it.

Thanks

[themagiclamp]

I tried that :

system('source /projects/test/new_script.csh');

still has a problem.

If I add an ls,
system('ls;source /projects/test/new_script.csh');

it seems to source it.

Thanks

Ok.
Looks like it should be
system('source "myfile.csh"')
OR
system ("source \"myfile.csh\"");

I still couldnt figure out why the setenvs dont work.

[numberwhun]

Ok.
Looks like it should be
system('source "myfile.csh"')
OR
system ("source \"myfile.csh\"");

I still couldnt figure out why the setenvs dont work.

Well, there is always doing it in shell (granted that would defeat the purpose of you doing it in Perl if you have a goal).

Regards,

Jeff

[themagiclamp]

Well, there is always doing it in shell (granted that would defeat the purpose of you doing it in Perl if you have a goal).

Regards,

Jeff

Yes, thats true. Actually the entire thing was originally written in C shell. I wrote the perl program as a master program that would do all the difficult stuff, and then spit out a .csh file which I could then source.

Anyway, it looks like when I do a source, the shell is somehow a bash (or variant) shell, because "export VAR=value" didnt complain but "setenv VAR value"
complains.

(when I do a echo $SHELL inside the .csh file, it prints out /bin/tcsh though)