Исходное сообщение
"Парсер реестра с сайта Роскомнадзора" Отправлено Hammer, 04-Июн-14 09:16
#!/usr/local/bin/perl use XML::DOM; my $parser= XML::DOM::Parser->new(); my $doc = $parser->parsefile ("dump.xml"); # Дамп реестра my $root = $doc->getDocumentElement(); @nodes =$doc->getElementsByTagName("domain"); open(f2 ,"+>result.txt") or die "ERROR: $!\n"; foreach my $nod (@nodes) {     my $gtr = $nod->getFirstChild()->getData();     print f2 "$gtr\n"; }; Вывод в файл result.txt

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> #!/usr/local/bin/perl > use XML::DOM; > my $parser= XML::DOM::Parser->new(); > my $doc = $parser->parsefile ("dump.xml"); # Дамп реестра > my $root = $doc->getDocumentElement(); > @nodes =$doc->getElementsByTagName("domain"); > open(f2 ,"+>result.txt") or die "ERROR: $!\n"; > foreach my $nod (@nodes) { > my $gtr = $nod->getFirstChild()->getData(); > print f2 "$gtr\n"; > }; > Вывод в файл result.txt
	Введите код, изображенный на картинке: