Justin S — Mon, 28 Feb 2000 02:48:00 +0000

Aha! Thanks a lot! I got it to work now...

------------------
The fireburn.com Network:

fireburn.com [www.fireburn.com]

Flame Hosting [www.flamehosting.com]

Ineffable Designs [www.ineffabledesigns.com]

The Webmasters Portal [www.webmasters-portal.com]

japhy — Mon, 28 Feb 2000 00:26:00 +0000

Heh, I see the problem. From the perldata documentation:

Because variable and array references always start with '$', '@', or '%', the "reserved" words aren't in fact reserved with respect to variable names. (They ARE reserved with respect to labels and filehandles, however, which don't have an initial special character. You can't have a filehandle named "log", for instance. Hint: you could say open(LOG,'logfile') rather than open(log,'logfile'). Using uppercase filehandles also improves readability and protects you from conflict with future reserved words.)

The section in bold is the most relevant. It is considered good Perl style to use words in all capital letters for filehandles. Your problem is the fact that "log" is the name of a function in Perl. Try using "LOG".

------------------
--
MIDN 4/C PINYAN, NROTCURPI, US Naval Reserve

Justin S — Sun, 27 Feb 2000 23:05:00 +0000

Ok, I think that's what I want, but it's giving me a 500 Internal Server Error. Here is the code:

code:

#!/usr/bin/perl

########################################################
## Counter                                            ##
## www.fireburn.com                                    ##
########################################################

########################################################
## Variables                                          ##
########################################################

## Path to the counter file
$countfile = "/home/fireburn/public_html/cgi-bin/count/count.dat";

## Path to the log file
$logfile = "/home/fireburn/public_html/cgi-bin/count/log.dat";

########################################################
## Code                                               ##
########################################################

open(log,"<$logfile");
@data = <log>;
close(log);

print "Content-type:text/html\n\n";
print @data;[/code]

All the other files work right and are doing there job except this one... I know I chmoded it right also.

------------------
The fireburn.com Network:
 fireburn.com [www.fireburn.com]
 Flame Hosting [www.flamehosting.com]
 Ineffable Designs [www.ineffabledesigns.com]
 The Webmasters Portal [www.webmasters-portal.com]

Orpheus — Sun, 27 Feb 2000 19:01:00 +0000

let me add on to that
if you want to replace every \n (standerd UNIX line break) with a <br> tag use a regular expression

open(file,"file.txt");
local($/);
$file = <file>;
close(file);

$file =~ s/\n/<br>/;
print $file;

hope that helps

Rob Pengelly — Sun, 27 Feb 2000 15:33:00 +0000

Try somthing like:

open(IN,"<file.txt");
@data = <IN>;
close(IN);

print "Content-type:text/html\n\n";
print @data;

This would open file.txt, put each line as an element in an @array and than print the @array.

Is that what you needed or no?

------------------
Windmills always turn counter-clockwise. Except for the windmills in Ireland.