Re: LWP::UserAgent with development website

replace

  if (-f $file) {
     $fileContents = `cat $file`;
     print $fileContents;
  }
[download]

with

if (-f $file) {
   open (FH, "<$file");
   print <FH>;
}
[download]

Comment on Re: LWP::UserAgent with development website Select or Download Code

Replies are listed 'Best First'.
Re^2: LWP::UserAgent with development website by jdalbec (Deacon) on Sep 18, 2004 at 00:27 UTC
`if (-f $file) { open (FH, "<$file"); print <FH>; }` [download] ~~That displays only the first line of the file. I think the OP wants to display the whole file. Did you mean `print while <FH>;`?~~ Sorry, I didn't realize `<>` loads the whole file as an array in list context.	[reply] [d/l] [select]