[EMAIL PROTECTED] wrote:
Hey Perl Guru's:)
I'm hoping that someone can help me out... I have a regular'ol ASCII
file which I'll need to read only the first line, and parse the three
numbers that are seperated by commas and print the results.
This file will always consist of the same lines, but the numbers will
be different. For example, here is a paste from the ASCII file:
62.7, 28.8, 5.6
<body> ,N701455F:sL065 WaterSensor Dry. </body></html>
<body> eN701462F:hL066 WaterSensor Dry. </body></html>
All I care about is the numbers listed in the first line.
First Number = Temperature
Second Number = Humidity
Third Number = Illumination
I want to parse each of these into a format such as this:
Current Temperature: $temp
Current Humidity: $humidity
Current Illumination: $lumes
How do I go about opening this file, reading the first line, parsing
the three numbers into variables, then printing the results?
So far, this is what I have but look at the results printed below:
#!/usr/bin/perl
#
# Set Vars
my $date=`date`;
#
# Run Program
#
print "content-type: text/html \n\n";
print "<HTML><BODY><P>";
print "<HEAD><title> Data Center Temperature</title></HEAD>";
print "<H2> Data Center</H2> ";
print "Date: $date ";
print '<form action="dctemp.pl" method=post> <P> <P>';
print "<BR>";
open(DCTEMP,"/tmp/current_dctemp");
while (<DCTEMP>){
chomp;
($temp, $humidity, $lumes) = split(",");
print "<BR>";
print "Temperature: $temp\n";
print "Humidity: $humidity\n";
print "Illumination: $lumes\n";
print "$_ \n";
}
close (DCTEMP);
#
RESULTS:
Temperature: 62.4 Humidity: 29.0 Illumination: 5.6 62.4, 29.0, 5.6
Temperature: Humidity: N701455F:eL065 WaterSensor Dry.
Illumination: ,N701455F:eL065 WaterSensor Dry.
Temperature: Humidity: Illumination:
Temperature: eN701462F:sL066 WaterSensor Dry. Humidity: Illumination:
eN701462F:sL066 WaterSensor Dry.
Temperature: Humidity: Illumination:
#!/usr/bin/perl
use warnings;
use strict;
# Set Vars
my $date = localtime;
#
# Run Program
#
open my $DCTEMP, '<', '/tmp/current_dctemp' or die "Cannot open
'/tmp/current_dctemp' $!";
my ( $temp, $humidity, $lumes ) = <$DCTEMP> =~ /[-+]?[\d.]+/g;
close $DCTEMP;
print <<HTML;
content-type: text/html
<HTML><BODY><P>
<HEAD><title> Data Center Temperature</title></HEAD>
<H2> Data Center</H2>
Date: $date
<form action="dctemp.pl" method=post> <P> <P>
<BR>
<BR>
Temperature: $temp
Humidity: $humidity
Illumination: $lumes
HTML
__END__
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
