Исходное сообщение
"построчная считка значений из файла" Отправлено Vladimir D Belousov, 25-Фев-05 10:22
>спасибо, получилось. Правда своими силами. Выводится массив в текстовый файл. такого вида: > >VitaR -> 47.286 >mc_all -> 0 >Galch -> 20.394 >Pamap -> 0 >Zuk -> 0 >Rakzi -> 0.579 >Myhiv -> 0 >Redex -> 0 >sal -> 0 >Но возник новый вопрос, как написать скрипт, который бы теперь через логин >и пароль в html-странице выдавал значение из этого текстового файла (конкретное)ю > >Например логин Login:  VitaR >             >   Passwd: 1234 >И результатом исполнения выводится: 47.286 >Подскажите плиз D httpd.conf включить авторизацию и пользоваться REMOTE_USER в окружении: #!/usr/bin/perl use strict; my $result; open(DATA, "</your/file") || die $!; while(<DATA>){   if(/^$ENV{REMORTE_USER}[^\d.]*([\d.]+)[^\d.]+$/){$result = $1; last;} } close(DATA); print "Content-type: text/plain\n\n"; print $result || "No such user\n"; Если файл небольшой, то можно #!/usr/bin/perl use strict; $/=''; open(FILE,"/your/file"); my $lines=<FILE>; close(FILE); my $result = ($lines =~ /\b$ENV{REMOTE_USER}\b[^\d.]+([\d.]+)/gsx)[0]; print "Content-type: text/plain\n\n".($result eq '' ? "No such user" : $result); Только $/ восстановить надо