open (FILE, 'htmlcal.txt') or die "Hey, there's a problem, bub: $!"
[download]

Jeff

R-R-R--R-R-R--R-R-R--R-R-R--R-R-R--
L-L--L-L--L-L--L-L--L-L--L-L--L-L--

Good catch, but I'm still getting no error. The file definitely exists and I've got permissions jacked up to 777 on it.

open (FILE, 'htmlcal.txt') or die $!,"\n";
print "Content-Type: text/html\n\n";
print "What the f***?";
while ($line = <FILE>) {
    print $line;
}
close FILE;
[download]

-- tune

Or to be even cleaner (and faster):


open(FILE, 'htmlcal.txt') or die $!,"\n";
print "Content-type: text/html\n\n";
print "What the f***?";
for(<FILE>) {
  print;
}
close(FILE);
[download]


--isotope
http://www.skylab.org/~isotope/

I notice there's no "or die" up there on your open. If the open fails, it will do so silently. (and nothing will get printed from a file that ain't open!)

FWIW, I'd do it this way:

open (FILE, $filename) or die "Can't open $filename: $!\n";
print $_ while (<FILE>);
close FILE;
[download]

HTH.

Philosophy can be made out of anything. Or less -- Jerry A. Fodor

open(FILE,"file.txt") || die;
print while <FILE>;
close FILE;
[download]

Well, yes, but a) you didn't explicitly note the problem of not checking the return value of the call to open and b) you're wrong when you say it has to be done line-by-line -- either construct nysus tried should work (and does, on my system =)

Philosophy can be made out of anything. Or less -- Jerry A. Fodor

You're right, it doesn't have to be printed line-by-line. But I would recommend it.

The reason is that if the file is large, then the user will (usually) see what's been read and printed so far (assuming no caching, buffering, etc) if you do it line-by-line, but will have to wait until the whole file is processed if you do it as an array slurp. And, possibly, the connection might time-out durring the slurp if you're not careful.

Of course, I could be totally mistaken. :-)

bbfu
Seasons don't fear The Reaper.
Nor do the wind, the sun, and the rain.
We can be like they are.

Sorry for the stupidity. When I was in the Navy on submarines, we had a term similar to newbies: "NUB". It stood for "Non-Useful Body". New submariners didn't know how to do anything and they were always asking stupid questions. I feel the same way now as I did when I was a NUB on a sub. Here I guess a "NUPP" would be more appropriate: "Non-Useful Perl Programmer".

undef $/;
open (FILE, 'htmlcal.txt');
print "Content-Type: text/html\n\n";
print "What the f***?";
print <FILE>;
close FILE;
[download]

I just used this today by chance.

- FrankG

Nysus,

I tried your code with a dummy file and it worked fine on my machine. If you are running the code in a cgi-bin directory, you should check your web server log files. It may help to see the contents of your file posted here.