>Все решилось, реализовал следующим образом:
>
> accept($SOCK[0], SERVER)
> $s = $SOCK[0];
> my $data = <$s>;
Ну у тебя и так все получилось, но все равно вот примерчик(так на всякий случай) работы с массивом указателей на файлы(сокеты аналогично). могу аналогичный привести с хешем.
#!/usr/bin/perl -wuse strict;
my @descr_file;
my @name = ('a1', 'a2', 'a3', 'a4');
#Запишем
my $descr;
my $name;
foreach $name (@name) {
open($descr, '>', $name);
if(defined($descr)) {
print "open: ".$name."\n";
push(@descr_file, $descr);
}
#попробуй убрать :-) и все будет писаться в один файл (последний открытый).
undef $descr;
}
my $i = 0;
foreach $descr (@descr_file) {
print "write to $descr\n";
$i++;
print $descr "Sequence write $i\n";
}
print "close all file\n";
foreach $descr (@descr_file) {
close($descr);
}
undef @descr_file;
#Читаем
foreach $name (@name) {
open($descr, '<', $name);
if(defined($descr)) {
print "open: ".$name."\n";
push(@descr_file, $descr);
}
undef $descr;
}
my $str;
foreach $descr (@descr_file) {
print "read from $descr\n";
$str = <$descr>;
print "I read: $str\n";
}
print "close all file\n";
foreach $descr (@descr_file) {
close($descr);
}
Вариант для распечатки
Программирование под UNIX (Public)
(??) on 15-Июн-07, 09:09 
