Re: Use of uninitialized value in concatenation (.) or string

Two other errors are lurking in the code.

You are overwriting the run file on each loop. You probably just need to move the open to just before the loop.
You are looping over for ($i=0;$i<=$#steps;$i++), ( which is better written as foreach my $i ( 0 .. $#steps ) ), but inside the loop you refer to $steps[$i-1]. On the first loop through, $i is 0, so $i-1 is -1, and $steps[-1] will give you the *last* element in the array. If that is what you meant to do, then fine. If not, then perhaps you need to start the loop index at 1 instead of 0?

Working, tested code:

#!/usr/bin/perl
use strict;
use warnings;

my @steps = ( 'ele1.0', 'ele0.5' );

die if @steps < 2; 
open my $MIN_RUN, '>', 'run'
    or die "Cannot open 'run': $!";

my $last_step = $steps[0];
for my $step ( @steps[1..$#steps] ) {
    print $MIN_RUN "/opt/sander -i $step.min -p ../$step.prmtop -o $st
+ep$step.e &\n";
    print $MIN_RUN "/opt/sander -i $step.min -p ../../$last_step/$last
+_step.prmtop -o $step$last_step.e &\n";
    $last_step = $step;
}

close $MIN_RUN or warn;
[download]

Output:

    /opt/sander -i ele0.5.min -p ../ele0.5.prmtop -o ele0.5ele0.5.e &
    /opt/sander -i ele0.5.min -p ../../ele1.0/ele1.0.prmtop -o ele0.5e
+le1.0.e &
[download]

Comment on Re: Use of uninitialized value in concatenation (.) or string Select or Download Code

Replies are listed 'Best First'.
Re^2: Use of uninitialized value in concatenation (.) or string by oscarjiao (Novice) on Aug 23, 2009 at 22:56 UTC
After adding use strict and correcting all the typos (steps), I got this error: Global symbol "@steps" requires explicit package name. What does "use strict" do and in this case should I make @steps local?	[reply]
Re^3: Use of uninitialized value in concatenation (.) or string by jwkrahn (Abbot) on Aug 23, 2009 at 23:07 UTC
Use my in the proper scope to create the `@steps` variable.	[reply] [d/l]
Re^3: Use of uninitialized value in concatenation (.) or string by Marshall (Canon) on Aug 24, 2009 at 09:18 UTC
use strict; is a pragma that enforces lexical scoping of variables. With some very unusual exceptions, this is just a "compile time" deal. There are "our" vars (package scope) and "local" vars. Use strict and my $vars until you are very sure about why you should use one of these other forms. Something like this is almost always wrong in Perl (almost always doesn't mean always, it just means almost: `for ($i=0;$i<=$#steps;$i++){}` [download] `my @steps = (..list of some stuff.....); foreach my $step (@steps) { ..use $step...here... no $i index needed.. }` [download]	[reply] [d/l] [select]