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

mikhail

Дата 25.6.2006, 12:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 25.6.2006

Репутация: нет
Всего: нет

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

Код


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

Zukoff

Дата 25.6.2006, 13:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 25.6.2006

Репутация: нет
Всего: нет

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

arto

Дата 25.6.2006, 13:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

@host = map { gethostbyname } @host

mikhail

Дата 25.6.2006, 13:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 25.6.2006

Репутация: нет
Всего: нет

Ошибок не выдает но и результата тоже.
Может надо gethostbyname возврат сделать как здесь:

Код


#!/usr/bin/perl -w
# host2ip.pl translates a hostname to the corresponding
# IP address. The subroutine host2ip() is invoked with a
# hostname as the only mandatory argument and returns the 
# corresponding IP address.
#
# Copyright 2003, Ramiro Gomez.
#
# This program is free software; you can redistribute
# it and/or modify it under the same terms as Perl itself.
use strict;
use Socket;
 
# die if no argument was given
die "Usage: $0 hostname\n" unless @ARGV;
 
my $ip = host2ip( shift );
print $ip, "\n";
 
sub host2ip {
    my $host = shift;
    my $packed_addr = gethostbyname( $host );
    
    die "Hostname $host doesn't exist.\n" unless $packed_addr;
    
    return inet_ntoa( $packed_addr );
}

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »