Jeri has asked for the wisdom of the Perl Monks concerning the following question:

Hi Perl Monks! I've made a very simple example of my problem. $ARGV[0] is not capturing '1' from my qsub file. Should I not use $ARGV[0]? I've never done this before, and I thought I was going about it right. The code works on my local and remote computer, but complains when I sent it for batch processing.

This is my simple script 

 #!/usr/bin/perl5.8.8

use strict;
use warnings;

my $infile = $ARGV[0];
chomp $infile;
open (my $INFILE,"<", $infile)
close ($INFILE);

[download]

This is my qsub script 

 #PBS -t 1-10
#PBS -l walltime=48:00:00
/usr/bin/perl /chongle/jeri/timecheck/MUSCLEHMM.pl $PBS_ARRAYID > /cho
+ngle/jeri/timecheck/output.$PBS_ARRAYID.txt 2> /chongle/jeri/timechec
+k/error.$PBS_ARRAYID.txt

[download]

These are my errors 

#Use of uninitialized value in concatenation (.) or string at line 18.
#Use of uninitialized value in scalar chomp at /chongle/jeri/timecheck
+/MUSCLEHMM.pl line 19.
#Use of uninitialized value in open at /chongle#/jeri/timecheck/MUSCLE
+HMM.pl line 20.
#No such file or directory at /chongle/jeri/timecheck/MUSCLEHMM.pl lin
+e 20.

[download]

Replies are listed 'Best First'.
Re: PBS not finding file.
by onelesd (Pilgrim) on Sep 27, 2011 at 19:00 UTC

    There is nothing inherently wrong with your first code sample.

    That said, you haven't made it clear how your "qsub script" ties into your example at all, and your error messages don't help us because they are not generated by your example code.

    My (wild) guess is that you call your "simple script" but don't pass it an argument, or are not passing the correct argument, which I am guessing should be your "qsub script".

    Try this:

    my $infile = $ARGV[0];
die "can't read infile\n" if (! -r $infile);

    [download]
[reply]
[d/l]

      Your guess is correct! I had a hard time explaining that, yes, the argument should be passed from the qsub script, but it's not. I tried your code. It kills the script, as expected.

[reply]
        Correction. The argument is not being passed from the qsub script, but should be.
[reply]

Back to Seekers of Perl Wisdom