On Mar 18, 5:46 pm, [EMAIL PROTECTED] (John W. Krahn) wrote:
> [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- Hide quoted text -
>
> - Show quoted text -
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
