Печать в awk до определенной строки и еще 5 результатов
В его самом простом, что Вы просите, очень легко:
HTML
<html><body>
<form action="../cgi-bin/find_files.pl" method="POST">
<input type="text" name=name></input>
<input type=submit>
</form>
Сценарий Perl
#!/usr/bin/perl
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
my $cgi = new CGI;
my $target='/tmp'; ## directory to search in
my $name = $cgi->param('name') || carp("no search terms entered");
my $res=`find $target -name $name`;
my @lines=split(/\n/,$res);
print header;
print "<table>";
foreach my $line (@lines) {
print "<tr><td>$line</td></tr>";
}
print "</table>";
3
Gilles 'SO- stop being evil'
19.04.2014, 02:57
Ссылка
2 ответа
Не уверен, что ваша попытка решения имеет отношение к заявленной вами проблеме; если ваше описание проблемы точно, то должно сработать следующее
awk 'NR==1,/Caroline, No/{print;next};c++<5{print};' file
5
27.01.2020, 21:14
Ссылка