Сообщения

1

Perl / Как преобразовать массив, считанный из файла?

« : 26 Июня 2006, 18:37:35 »

Например есть a.txt вида
a1
a2
a3

Требуется чтобы при открытии файла
open(A,"a.txt");
@a=;
close(A);

 его формат соответствовал такому массиву:
@a=qw(a1 a2 a3);

chomp не помогает

2

Perl / Как обработать функцией массив?

« : 25 Июня 2006, 21:34:07 »

Нужно преобразовывать большое количество hostname в ip.
Проблема действительно в неправильном формате данных, более менее удалось решить так:
use Socket;
@host=qw(host1
host2
host3);
for $name(@host)
{eval{$address = inet_ntoa(inet_aton($name)); } ;
print $address, "\\n"; };

3

Perl / Как обработать функцией массив?

« : 25 Июня 2006, 13:55:55 »

вообщем попытался так, выдает ошибку.
Подскажите пожалуйста как исправить.

#!/usr/bin/perl -w
use Socket;
open (DIR, "host.txt");
@host=;
close (DIR);
foreach $h(@host)
{$h=gethostbyname($h);
 print $h;}