0
ссылается на более раннюю проблему, с которой я с тех пор меняю свой код на это (я приближаюсь), однако теперь он считывает весь файл, а не строку, пытаясь попросить. (Я хочу считывать строку, которая содержит значение, которое пользователь вводит в формеЗаключительная часть требуемой загадки (возвращающая значение, запрашиваемая пользователем)
форма код:
#!\xampp\perl\bin\perl.exe
использование CGI-QW /:. Стандарт /; # нагрузки стандартные CGI подпрограммы использование CGI :: Карп ('fatalsToBrowser');
print header(); # create the HTTP header
print <<HTML
<head>
<title>Shop Here</title>
</head>
<body>
<h1>list</h1>
<br />
<form action="doSearch.pl">
animalname: <input type="text", name="search" size=5><br><br>
<input type="submit" value="select">
</form>
</body>
</html>
HTML
# <>;
response form////////////////////////
use CGI qw(:standard);
use CGI::Carp('fatalsToBrowser');
$search = new CGI;
@animallist = param;
print header, start_html("animal list"); #prints title on tab
$inFile = "animal.txt";
open (IN, $inFile) or
die "Can't find file: $inFile";
@animallist = (<IN>);
# print @animallist, "\n" ;
foreach $line (@animallist)
{
if ($line =~ $value)
{
print $line;
}
}
print end_html;
В чем ваш вопрос? Также - серьезно - строгий и предупреждающий, наряду с форматированием кода остается бесценным инструментом отладки. – Sobrique