how i mislay text, save it, following cost web?


i am hf50(hf$hf) instance "myfile.txt" extracted information contingency save "save.txt". information "save.txt" extracted again fill parameters cost table. nonetheless i attempted code, i've got cost "save.txt" blank.?



var $hf famous whatever i type. greatfully help.



#! /usr/bin/perl

print "content-type:text/html\r\n\r\n";

use cgi qw(:standard);
use strict;
use warnings;

my ($file,$line,$tester,$hf,$keyword);
my ($f1,$f2,$f3,$f4,$f5,$f6,$f7,$f8,$f9,$f10,$f11,$f12,$f13,$f14,$f15,$f16,$f17,$f18,$f19);

my $keyword=param('keyword');
$hf=$keyword;

my $infile='myfile.txt';
my $outfile='save.txt';

open (my $inhandle, '<',$infile) die "can't open $infile:$!";
open (my $outhandle, '>', $outfile) die "can't open $outfile:$!";


while (my $line=<$inhandle>){
if ($line=~ m/hf$hf/i) {
print {$outhandle}$line;
print $line;

print "<html>";
print "<head>";
print "<body bgcolor='#4682b4'>";
print "<title>fusion change report</title>";
print "<div align='left'>";
print "<form method='get'        action='http://shielex.com/pe/mrigos/mainhead.html'>";
print "<b>seacrh:</b>";
print "<input type='text' name='rec' size='12' maxlenght='40'>";
print "<input type='submit' value='go'>";
print "</form>";
print "<table cellpadding='1' cellspacing='1' border='1' bordercolor=black  width='100%'>";
print "<tr>";

print "<td width='11%'bgcolor='#00ff00'><font size='2'>tester no.</td>";
print "<td width='10%'bgcolor='#00ff00'><font size='2'>date</td>";

print "<td width='11%'bgcolor='#00ff00'><font size='2'>device name</td>";
print "<td bgcolor='#00ff00'><font size='2'>test program</td>";

print "<td width='10%'bgcolor='#00ff00'><font size='2'>smslot</td>";

print "<td width='12%'bgcolor='#00ff00'><font size='2'>loadboard</td>";


print "<td width='10%'bgcolor='#00ff00'><font size='2'>category</td>";
print "<td width='13%'bgcolor='#00ff00'><font size='2'>root means 1</td>";
print "<td width='13%'bgcolor='#00ff00'><font size='2'>root means 2</td>";
print "</tr>";
print "<tr>";

$file='save.txt';
open(f,$file)||die("could open $file");
while ($line=<f>)
{
my @cells=($f1,$f2,$f3,$f4,$f5,$f6,$f7,$f8,$f9,$f10,$f11,$f12,$f13,$f14,$f15,$f16,$f17,$f18,$f19)=   separate ',',$line;

print "<td bgcolor='#add8e6'><font size='2'>$f2</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f3</td>";

print "<td bgcolor='#add8e6'><font size='2'>$f5</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f6</td>";

print "<td bgcolor='#add8e6'><font size='2'>$f8</td>";

print "<td bgcolor='#add8e6'><font size='2'>$f10</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f17</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f18</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f19</td>";
print "</tr>";

}
}
}
close f;
print "</table>";
print "</body>";
print "<html>";





=myfile.txt data=

1,hf50,13-oct-08,04:17:53,761503bzzgr-62,b2761503bp22.eva,dwp,dwp,calibration

2,hf60,13-oct-08,04:17:53,761503bzzgr-62,b2761503bp22.eva,dwp,dwp,calibration

1,hf50,13-oct-08,04:17:53,761503bzzgr-62,b2761503bp22.eva,dwp,dwp,calibration



Comments

Post a Comment

Popular posts from this blog

list macos calm editors formula editors

i searched found maudite's doubt text editors nonetheless windows. as have doubt guessed, i am perplexing out there any text/code editors mac besides i know of. i'll correct post consolidate editors listed. free textwrangler xcode mac vim aquamacs closer uncanny emacs jedit editra eclipse netbeans kod textmate2 - gpl brackets atom.io commercial textmate bbedit subethaedit coda sublime calm 2 smultron webstorm peppermint articles associated subject faceoff, best calm editor ever? maceditors.com, mac editors comforts compared thank everybody total suggestions.
Read more

how hibernate @any-related annotations?

could someone explain me any-related annotations ( @any , @anymetadef , @anymetadefs @manytoany ) work practice. i have tough awaiting any useful support (javadoc alone isn't unequivocally helpful) these. i have so distant collected somehow assent referencing summary extended classes. case, since there an @onetoany annotation? 'any' referring unparalleled 'any', churned 'any'? a short, receptive illustrating instance unequivocally many appreciated (doesn't have compile). edit: many i accept replies answers give credit where due, i found both smink's sakana's answers informative. since i can't accept several replies the answer , i unfortunately symbol conjunction answer.
Read more

why does floated <input> control floated component slip over too distant right ie7, nonetheless firefox?

Image
hopefully settlement value thousand lines formula since i don't wish have frame down asp.net code, html, javascript, css yield an instance (but i'll supply i on ask someone doesn't contend "oh, i've seen before! try this...") [actually, i post formula css - bottom question]. here apportionment form page being displayed firefox: the blue boxes surrogate stylings <label> add-on orange lines surrogate border styles <div> tags (so i where extend break). <label> 's styled float: left <div 's right. addition, heir controls <div> also float:left definitely line adult tip <div> (since there taller controls multiline textboxes down below). the radio buttons generated an asp control, wrapped <span> - also floated left given heir <div> . here same apportionment shade rendered ie7: there few teenager digest differences, nonetheless large that's pulling me crazy additional white space beside <input> con...
Read more