Re: uninitialized value in pattern match
- From: "guba@xxxxxxxxxx" <guba@xxxxxxxxxx>
- Date: 19 Apr 2007 01:29:35 -0700
Hello!
Thank you for answering!
$parameter_list was defined; I used in the posting only the
line that caused the warning. The code has the following structure
("..." indicates only that there are more variables/lines of the same
type). But you were right with your guess: with
for my $j (0 .. $parameter_list_nr -1)
it worked. Thank you!
best regards
Guenter
######
use diagnostics;
my $TempParaTXT_folder = 'C:/ART/IM_Composing/TempParameterTXT/';
opendir(DIR, "$TempParaTXT_folder") || die "folder not found: $!";
@TempParaTXT = grep(/\.txt$/, readdir(DIR));
my $parameter_txt_name = $TempParaTXT[0];
my $parameter_txt_fullpath = $TempParaTXT_folder .
$parameter_txt_name;
open(A, "$parameter_txt_fullpath");
@parameter_list = <A>;
my $parameter_list_nr = @parameter_list;
my ($parameter_1, $parameter_2, ...);
for my $j (0 .. $parameter_list_nr -1) {
if ($parameter_list[$j] =~ /parameter_1$/) {$parameter_1 =
$parameter_list[$j+1]};
if ($parameter_list[$j] =~ /parameter_2$/) {$parameter_2 =
$parameter_list[$j+1]};
...
};
######
.
- Follow-Ups:
- Re: uninitialized value in pattern match
- From: nobull67@xxxxxxxxx
- Re: uninitialized value in pattern match
- References:
- uninitialized value in pattern match
- From: guba@xxxxxxxxxx
- Re: uninitialized value in pattern match
- From: nobull67@xxxxxxxxx
- uninitialized value in pattern match
- Prev by Date: Re: reqular expr for string manip.
- Next by Date: Re: Nested loop
- Previous by thread: Re: uninitialized value in pattern match
- Next by thread: Re: uninitialized value in pattern match
- Index(es):
Relevant Pages
|
