open file within <iw_perl><!CDATA[

Tob

Why can't I create an array containing lines of a file with a presentation template.....


<iw_perl>
[![CDATA[
open FILE, $textfile || die;

while (<FILE>) {
my @list = split (/\n/);
}
close FILE;
]]
</iw_perl>


The array @list is empty HERE!

Adam Stoller

open FILE, $textfile || die;
while () {
my @list = split (/\n/);
}
close FILE;

The code is always replacing the contents of @list, and the last line contains just a newline - so at the end of the loop - @list is empty.

Try:

my @list;
if (open(FILE, "<$textfile")){
  local $/ = undef; # slurp it all at once
  my $tmp = ;
  close(FILE);
@list = split(/\n/, $tmp); # split entire contents
}
else{
  die " '$textfile' $!";
}

--fish
(Interwoven Senior Technical Consultant)