Добрый день! 

Есть следующая матрица в файле File.txt:


    A    B    C    D
Иванов    3    6    6    
Петров    5        7    7
Дурнов    2    3    3    3
Кошкин    8        1    1


Верхняя строка представляет собой название АТРИБУТА. Левый столбец обозначает человека.
Все данные разделены табами. В начале первой строки тоже стоит таб. 


Необходимо создать структуру вида:

$hash{Иванов}{A}=3
$hash{Иванов}{B}=6
$hash{Иванов}{С}=6
$hash{Иванов}{D}=99 // на пересечении Иванов и D нет никакого значения, в таких случаях присваиваем 99
$hash{Петров}{A}=5
$hash{Петров}{B}=99
$hash{Петров}{С}=7
$hash{Петров}{D}=7
$hash{Дурнов}{A}=2
$hash{Дурнов}{B}=3
$hash{Дурнов}{C}=3
$hash{Дурнов}{D}=3
$hash{Кошкин}{A}=8
$hash{Кошкин}{B}=99
$hash{Кошкин}{C}=1
$hash{Кошкин}{D}=1


Заранее спасибо решившему!

Эту задачу решил следующим кодом:



Добавлено через 33 секунды
Только 99 не получилось присваивать с случае с пустым значением.

=>

perl -lne 'if (m#^\s+#) { (undef,@a) = split "\t" } else { my ($n,@b) = split "\t"; my %h; @h{@a} = map { $_ || 99 } @b; $hash{ $n } = \%h; }'

arto, можете пояснить, как работает


@h{@a}

и 

$hash{ $n } = \%h

?

1. perldoc perldata на предмет slice
2. perldoc perlref

что бы понять что пишет arto надо уметь пользоваться Deparse, 
хотя может и не помочь  

Это сообщение отредактировал(а) tishaishii - 27.10.2010, 23:01

В случае нуля на 99 заменится же, разве не?

Верно, заменится. 
Тогда, если значение '0' или 0 допустимо, то 

Замечательно.

Это сообщение отредактировал(а) tishaishii - 29.10.2010, 22:44