Re: Re: Re: Re: Re: Unix Perl and Html

that's close. The filehandle is a reference to the file, so instead of having the path to the file, it needs to be a keyword or decriptive word. Then inside the quotes you need to put the filename (with path).

Here's what it should look like:

#!/usr/bin/perl -w
use strict;
use CGI;

  # start new cgi process
my $main=new CGI;
  # print html headers
print $main->header;
  # print html tags and add title
print $main->start_html ("Printer Status");

  # open /usr/lsys/printstatus/printstatus.out under filehandle LOGFIL
+E
open(LOGFILE," /usr/lsys/printstatus/printstatus.out");
  # while there is data in LOGFILE
while(<LOGFILE>) {
    # remove newlines (\n) from input
    chomp;
    # if the imput is not the divider line
    if (! ($_=~/----------------------------/)) {
        # put the contents of the current line into the array @status
        # we are spliting on the space so that every word seperated by
        # a space becomes a new element in the array
        my @status = split(/ /, $_);
        # if the first element of @status does not equal 'name' (the t
+itle header
        if (($status[0] eq "name") && ($status[1] eq "display")) {
          # print the start of the table
            print "<center><table width=250 border=1><tr align=center>
+\n";
          # for each element in @status
            for (@status) {
            # print a new table cell
                print "<td><b>$_</b></td>\n";
            }
          # close the table row
            print "</tr>\n";
        }
    }
}
  # close the table
print "</table>\n";
  # close LOGFILE
close (LOGFILE);
exit;
[download]

if you are curious about some of the commands/functions that are used, type perlfunc:NameOfFunction in the super search.
-p

Comment on Re: Re: Re: Re: Re: Unix Perl and Html Select or Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re: Re: Re: Unix Perl and Html by meccaxlr (Initiate) on Aug 27, 2001 at 18:33 UTC
Thanks alot once again! Do you have any advice on setting up an array, I have to take input from 3 different files and put them into a nice array. Any suggestions? Is it difficult .	[reply]
reading multiple files into an array by thatguy (Parson) on Aug 27, 2001 at 20:09 UTC
something like this will read in all the files listed in `@files`. It also cuts down on repetitive code and allows scalability. `my @files= qw\| /path/to/file1 /path/to/file2 /path/to/file3 \|; my @allfiles; for my $filename(@files){ open(FILE," $filename") \|\| die "Cannot open $filename: $!\n"; while(<FILE>) { push @allfiles, $_; } close(FILE); }` [download] -p	[reply] [d/l]
Re: reading multiple files into an array by dragonchild (Archbishop) on Aug 27, 2001 at 20:46 UTC
Better would be: `my @files= qw\| /path/to/file1 /path/to/file2 /path/to/file3 \|; my @allfiles; for my $filename(@files){ open FILE, $filename \|\| die "Cannot open $filename for reading: $!\n"; push @allfiles, $_ while (<FILE>); close FILE; } # Or (and even more Perlish) ... my @files= qw\| /path/to/file1 /path/to/file2 /path/to/file3 \|; my @allfiles; for my $filename(@files){ open FILE, $filename \|\| die "Cannot open $filename for reading: $!\n"; push @allfiles, <FILE>; close FILE; }` [download] ------ /me wants to be the brightest bulb in the chandelier! Vote paco for President!	[reply] [d/l]


laziness, impatience, and hubris
	PerlMonks