Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > имя комьютера

Автор: GR0Mi 12.5.2010, 18:11

Вопрос собствено ламерский но облазив гугл не нашел
есть код

Код


#!/usr/bin/perl -w
use LWP;
my $browser = LWP::UserAgent->new();
$cname = "";
$browser->get("http://site.com/index.php?name=$cname")->as_string;

нужно чтобы $cname присваивалось имя компьютера. в cmd ето делается %COMPUTERNAME%". а вот как в перле не могу понять

Автор: ming 12.5.2010, 19:38

Sys::Hostname