array problem - help!
 

Ok, I am about to pull all my hair out. I have written many many perl scripts and have done it all pretty much. All of a sudden, I have hit a real problem, and I DON'T know why!

I am doing a very simple array declaration by reading a text file into an array.

open (FILE, $file_var);

my @contents=<FILE>;

close(FILE);

Pretty simple stuff, huh!? I have used this same routine hundreds of times. But for some reason, declaring the array with "my" is resulting in an empty array! If I just declare it with "@contents=<FILE>", it works fine! Why on earth is this happening? I even declared another array using the same format in the same SCRIPT, and it works fine, but this particular array is turning up empty EVERY time!

I hope someone can help me!

Derek

Re: array problem - help!
 

- did you actually open the file?
- does the file you actually opened contain any data?
- does another approach to reading the same file yield data?

3 lines out of context, and an information-free story doesn't help.

Re: array problem - help!
 

It's a simple open-file-and-read-contents-into-array script. The file is a TEXT file, there is at LEAST one line of data in the file, and the path to the file is valid. The "problem" is declaring it with "my", and again, I don't understand why, when I have done it thousands of times this exact way before.

Re: array problem - help!
 

OK this is getting stupider by the moment.

I set path like so: $path_to_file="path/file.txt";

If the file exists (need to verify that the file exists before continuing), then read the data into the array, otherwise create the file:

if (-e $path_to_file)

{

open (FILE, $path_to_file) or die;

my @contents=<FILE>;

close(FILE);

}

else

{

open(FILE, >$path_to_file);

close(FILE);

}

Tada! The array is EMPTY!

However, if i remove the "if exists" check from around the routine to read data into array, it works! Why!?

Re: array problem - help!
 

Well the 'my' exists inside a { } scope, so I guess it goes out of scope when the block exits.

Re: array problem - help!
 

Yep, thats probably the reason.

my @contents = ();

if (-e $path_to_file)

{

open (FILE, $path_to_file) or die "$!";

@contents=<FILE>;

close(FILE);

}

print "$_\n" for @contents;