|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Ilia Vinokurov 2:5020/400 10 Jul 2003 18:40:59
To : Akimov Petr
Subject : Re: простая программа сравнения
--------------------------------------------------------------------------------
> помогите с написанием на perl вспомогательной программы сравнения, которая
> вызывалась бы с параметрами
>
> /usr/local/bin/post_authorize $user $address
>
> возвращала бы 0 если значение переменной user привязано (соответствует)
> значению переменной address, в противном случае возвращать 1
>
> Пусть пары юзернэйм + адрес хранятся в файле /usr/local/bin/base
my ( $user, $addr ) = ( $ARGV[0], $ARGV[1] );
exit(1) if $user||'' eq '' or $addr||'' eq '';
open( IN, "/usr/local/bin/base" ) or die "Cant open /usr/local/bin/base";
flock IN, 2;
while( my $str = <IN> ){
$str =~ s/[ \n\r]+\Z//gso;
my( $u, $a ) = split / +/, $str;
if( $u eq $user and $a eq $addr ){
close IN;
exit(0)
};
};
close IN;
exit(1);
Прогу не тестировал.
>
> Файл текстовый имеет вид такой:
>
> fritz 1111111
> hans 2222222
>
> пара <user> и <номерА> должны соответствовать -> тогда 0
> если поле address пустое тогда 0
>
> в противном случае 1
>
>
> Заранее благодарен за советы.
>
>
--- ifmail v.2.15dev5
* Origin: Comcor (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
