#!/perl -w

use strict;
use Encode qw(from_to);

system('cls');

my @str;
my $x = 0;
my @tags = ("Surname","Name","Age");
my @klassf = ("Фамилия","Имя","Возраст");

sub parseStr {
    my $klsf = shift(@_);
    my $match = shift(@_); 
    my $var = shift(@_);
    if ($str[$x] =~ m/<$var>(\W+)<\/$var>/) {    
       from_to($klsf,"cp1251","cp866");
       print "$klsf: $match\n";
    }
    elsif ($str[$x] =~ m/<$var>(\d+)<\/$var>/) {    
       from_to($klsf,"cp1251","cp866");
       print "$klsf: $match\n";
    }        
}

open XML, "< test.xml" or die "can't find file test.xml";
 while (<XML>) {
       push @str, $_;
       from_to($str[$x],"cp1251","cp866");    
       for (my $y = 0;$y <= 2;$y++) {
           parseStr($klassf[$y],$1,$tags[$y]);
       }
       $x++;       
 }
close XML;

Результат выходит такой:

Use of uninitialized value $match in concatenation (.) or string at c:\...\test.pl line 19, <XML> line 3.
Фамилия:
Use of uninitialized value $match in concatenation (.) or string at c:\...\test.pl line 19, <XML> line 4.
Имя:
Use of uninitialized value $match in concatenation (.) or string at c:\...\test.pl line 23, <XML> line 5.
Возраст:

А вот xml:
<?xml version="1.0" encoding="windows-1251"?>
<root>
 <Surname>Иванов</Surname>
 <Name>Иван</Name>
 <Age>23</Age>
</root>

Все файлы тестовые но скоро придется делать скрипт для настоящих, поэтому и прошу вас помочь разобраться

Это сообщение отредактировал(а) worsvch - 28.5.2009, 09:04

Ой, лень разбираться, но в в подобных случаях лучше использовать хэш, а не массивы. Вкратце, так:

Ага, а я разобрался в этом коде. Вот так работает:



Вторым параметром parseStr надо передавать не переменную, строку.
А потом эту строку выполнять как выражение с помощью eval

Я попробовал сделать как Вы сказали, вместо данных, во всех строках выходит $1. А с eval делал, вообще какая-то чушь выходит. Может делал чего неправильно?   

Переписывайте скрипт целиком. Работать в реальной системе он не будет. Например, parseStr($klassf[$y],$1,$tags[$y]); - очень странная строка, столько ошибок может породить...  Вообще XML лучше парсить стандартными средствами.

$match = eval "$match";  - это вообще перл...

Ну да, не ассемблер.

Человек попросил исправить программу...


Какую чушь? Может быть что-то не так с кодировками? Я проверял под linux - выводит в cp866.

$1 выводит, если не использовать $match = eval "$match", или использовать, но с одинарными кавычками.

я думаю, тут перл совсем не язык программирования 

С кодировками никаких проблем, в консоли все на русском языке выходит.
Я имел ввиду, что вместо данных из xml файла выходит $1. Перепроверю код еще раз, может чего не усмотрел

Добавлено через 4 минуты и 44 секунды

Вот Вам смешно  А вот хотелось бы увидеть Ваш совет или даже лучше образец кода, как совет человека продвинутого в программировании на языке perl.

parseStr($klassf[$y],$1,$tags[$y]); откуда берется переменная $1? 

  if ($str[$x] =~ m/<$var>(\W+)<\/$var>/) - переменная $1 - берется из этого шаблона, по идее она должна быть равна следующим значениям, выдранным из xml-файла:
Иванов
Иван
23

$1 - лексическая переменная, со всеми вытекающими

Что это означает?   

Раз выводится $1, значит не работал eval.

eval "$match" или eval $match возвращает значение выражения, хранящегося в переменной $match.
В данном случае eval должен вернуть значение переменной $1

eval '$match' или eval{$match} возвращает значение переменной $match
То есть строку '$1'.

У меня код работает правильно. Я проверял под Linux, perl v5.8.8

PS Попробуй отключить режим strict, как предложил gcc

perldoc perlvar

Это сообщение отредактировал(а) KSURi - 3.6.2009, 09:11