Как я могу извлечь текст, сохранить его, а затем вывести в Интернет?
Я поиск для HF50 (HF $ HF), например, в "MyFile.txt", так что извлеченные данные должны сохраняться в "save.txt". Данные в "save.txt" теперь снова извлечены и заполняют параметры и вывод в моей таблице. Но когда я попробовал код, у меня ничего не получилось, а "save.txt" пуст.?
Var $ HF не распознается, что бы я ни набирал. Пожалуйста помоги.
#! /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) or die "Can't open $infile:$!";
open (my $outhandle, '>', $outfile) or 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 SHIFT 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 CAUSE 1</td>";
print "<td width='13%'bgcolor='#00ff00'><font size='2'>ROOT CAUSE 2</td>";
print "</tr>";
print "<TR>";
$file='save.txt';
open(F,$file)||die("Could not 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)= split ',',$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 =
1, HF50,13-OCT-08,04: 17: 53,761503BZZGR-62, B2761503BP22.EVA, DWP, DWP, Калибровка
2, HF60,13-OCT-08,04: 17: 53,761503BZZGR-62, B2761503BP22.EVA, DWP, DWP, Калибровка
1, HF50,13-OCT-08,04: 17: 53,761503BZZGR-62, B2761503BP22.EVA, DWP, DWP, Калибровка
Ответы 3
Вы никогда не закрываете $outfile, чтобы он не промывался. Но, может быть, вы хотите вместо этого хранить данные в массиве?
Кроме того, вы всегда должны использовать форму open() с тремя аргументами, а также всегда должны использовать абсолютные пути при работе с программами CGI, поскольку во многих ситуациях «текущий каталог» не такой, как вы думаете.
Вы запускаете это как сценарий CGI? В этом случае у вас, вероятно, нет разрешения на открытие файла для записи. Вы проверили журнал ошибок, чтобы увидеть, есть ли там ваше сообщение от die?
Возможно, вы захотите проверить Устранение неполадок сценариев Perl CGI. Выполните все шаги, не пропуская ни одного. Когда вы застряли, у вас есть большая часть информации, которая поможет нам помочь вам.
Удачи, :)
Во-первых, вывод Perl по своей природе буферизирован. Итак, если вы не используете какой-либо явный метод, нет гарантии, что в физическом файле будет что читать. Как кто-то упомянул, вам нужно как-то очистить вывод. Мои комментарии ниже в коде. (Вы также можете сделать это, закрыв выходной файл и открыв его в режиме добавить после того, как вы прочитали из него.)
Во-вторых, не похоже, что вы хотите делать то, что вам кажется. Если все было правильно сброшено в файл, вы запрашиваете html-заголовок на строку ввода. Когда я добавил строки во ввод, он распечатал столько окон поиска. Я не думаю, что это то, что вы хотели.
Вот еще код перламутровый:
use CGI qw(:standard);
use IO::File;
use strict;
use warnings;
my ($file,$line,$HF); #,$tester,$HF,$keyword);
# don't pollute -> my ($f1,$f2,$f3,$f4,$f5,$f6,$f7,$f8,$f9,$f10
# ,$f11,$f12,$f13,$f14,$f15,$f16,$f17,$f18,$f19);
# my $keyWord=param('keyword'); <-- if you're not going to do anything with $keyWord
$HF=param('keyword'); # <- assign it to the variable you're going to use
my $infile='MyFile.txt';
my $outfile='save.txt';
open (my $inhandle, '<',$infile) or die "Can't open $infile:$!";
open (my $outhandle, '>', $outfile) or die "Can't open $outfile:$!";
# this would flush -> my $outhandle = IO::File->new( ">$outfile" );
print q{Content-type:text/html
<HTML>
<head>
<title>FUSION SHIFT REPORT</title>
<style type = "text/css">
.header { background-color : #0f0; font-size : 12pt }
.detail { background-color : #ADD8E6; font-size : 12pt }
</style>
</head>
<body bgcolor='#4682B4'>
<div align='left'>
<FORM METHOD='get' ACTION='http://Shielex.com/pe/mrigos/mainhead.html'>
<b>SEACRH:</b>
<input type='text' name='rec' size='12' maxlenght='40'>
<input type='submit' value='go'>
</form>
<table cellpadding='1' cellspacing='1' border='1' bordercolor=black width='100%'>
<tr>
<td class = "header" width='11%'>TESTER No.</td>
<td class = "header" width='10%'>DATE</td>
<td class = "header" width='11%'>DEVICE NAME</td>
<td class = "header" >TEST PROGRAM</td>
<td class = "header" width='10%'>SMSLOT</td>
<td class = "header" width='12%'>LOADBOARD</td>
<td class = "header" width='10%'>CATEGORY</td>
<td class = "header" width='13%'>ROOT CAUSE 1</td>
<td class = "header" width='13%'>ROOT CAUSE 2</td>
</tr>
};
my $hf_str = ",HF$HF,";
# OO -> $outhandle->autoflush(); <- set autoflush
while (my $line=<$inhandle>){
next unless index( $line, $hf_str ) > -1;
# OO -> $outhandle->print( $line );
# $outhandle->flush(); <- if autoflush not set, do it manually
print *{$outhandle} $line;
print "<tr>"
, ( map { qq{<td class = "detail">$_</td>} }
split ',', $line
)
, "</tr>\n"
;
}
print q{
</table>
</body>
</html>
};
Спасибо, это мне очень помогает, я на следующем этапе моей программы :)