From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <maga@replay.ru>
Message-ID: <3CBC4A93.2080904@replay.ru>
From: Sergey Degtyaryov <maga@replay.ru>
Organization: Promkomplekt
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.0; ru-RU; rv:0.9.9) Gecko/20020302
X-Accept-Language: ru, en
MIME-Version: 1.0
To: mandrake-russian@altlinux.ru
Subject: Re: [mdk-re] Offtopic. Perl question
References: <2975554521.20020416151914@beep.ru>
Content-Type: text/plain; charset=KOI8-R; format=flowed
Content-Transfer-Encoding: 8bit
Sender: mandrake-russian-admin@altlinux.ru
Errors-To: mandrake-russian-admin@altlinux.ru
X-BeenThere: mandrake-russian@altlinux.ru
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: mandrake-russian@altlinux.ru
X-Reply-To: maga@replay.ru
List-Help: <mailto:mandrake-russian-request@altlinux.ru?subject=help>
List-Post: <mailto:mandrake-russian@altlinux.ru>
List-Subscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@altlinux.ru?subject=subscribe>
List-Id: Linux-Mandrake RE / ALT Linux discussion list <mandrake-russian.altlinux.ru>
List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://altlinux.ru/pipermail/mandrake-russian/>
Date: Tue Apr 16 19:59:04 2002
X-Original-Date: Tue, 16 Apr 2002 20:00:19 +0400
Archived-At: <http://lore.altlinux.org/community/3CBC4A93.2080904@replay.ru/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

Vladimir Karpinsky wrote:
> Здравствуйте
> 
> Прошу прощения за offtopic, но никак не могу понять, как вызвать в
> теле перлового скрипта внешнюю программу, причем той в качестве
> аргументов подставлять переменные определенные в самом скрипте.
> Переменные определяются по итогам разбора каждой строки некого файла,
> соответственно эти переменные переопределяются каждый раз при переходе
> к новой строке, ну и программу надо также выполнить для каждой строки
> этой таблицы. Смотрю в книгу а решения найти не могу. Если кто сможет

$domain = shift;
$|++;
my $command = "whois ".$domain;
open (WHOIS, "$command |") || die $!;
while (<WHOIS>) {print;print "\n";}
close (WHOIS);

-- 
Ciao, maga, maga@mail.ru
--
Земля плоская. Hо толстая..