А поподробнее.

А голову включить?

Помогите чайнику. Это теперь для всех переменных с которыми арифметический действия будут совершать такую конструкцию использовать?

XML::XPath::Literal

Сколько получится, если из двух континентов вычесть скорость света?

???

Вот и компилятор тоже удивлён

тоесть чтобы в перл выполнить операцию вычитания надо в начале скрипта поместить use Data::Dumper; а перед операцией printf «%s\n», ref($b); printf «%s\n», Dumper($b);

А как тогда с операций умножения на число?

Т.е. ты считаешь, что если напечатать карту обоих континентов и численное значение скорости света, то после этого вычитать можно?

Он хочет тебе сказать, что нельзя из XML::XPath::Literal вычесть 1.

У меня в переменной число, т.к. оно парсится из известного файла. PERL сам определяет тип переменной, или я что-то не знаю просто? Дальше идет просто операция вычесть из второй переменной и присвоить первой. ИМХО в $dbh->do(«update нельзя применять математические операции, поэтому я выношу их выше. Где я не прав?

Начинаю понимать, а почему оно может быть не Number, ?

my $b=$offer->findvalue('b'); $b=~s/,//;

Начинаю понимать, а почему оно может быть не Number, ?

в XML числе нет.

PERL сам определяет тип переменной, или я что-то не знаю просто?

Он может автоматически преобразовать строку в число, а тут XML::XPath::Literal. Попробуй:

my $a = $b->value() - 1

Сколько получится, если из двух континентов вычесть скорость света?

Справедливости ради скажем, что Perl - это язык, где это вполне могло бы работать. Например, скорость света вычиталась бы из суммы скоростей смещения литосферных плит, на которых они находятся. Или суммы скоростей движения этих континентов вокруг Солнца.

И когда вдруг обнаруживается, что такое вычисление сделать можно, но только если карта физическая, а не политическая, новички фигеют.

Так что ты зря подъ***ваешься.

Так что ты зря подъ***ваешься

'ся$' лишнее %)

Справедливости ради скажем, что Perl - это язык, где это вполне могло бы работать.

Если бы можно было привести один тип к другому, как и в любом языке программирования. Пока новички рабоают с scalar, hash и array - могут делать что угодно. И при отключенном use strict будут сильно удивляться результату. Но с объектами и ссылками это уже не работает.

$b->value()

Возможно, сработало бы и scalar( $b )

Can't call method «value» without a package or object reference at ./Test.pl line 55.

my $a=$b->value()-1;

Аналогично первому варианту: Operation "-": no method found,

Data::Dumper, ref и printf - «не бубен, а средство отладки»

Кстати, раз ты полез в объекты, советую почитать «Программирование на Perl», Л.Уолл, Т.Кристиансен, Дж.Орвант

use strict

#!/usr/bin/perl

use strict; use File::Basename; use DBI; use utf8; use Encode; use v5.10; use XML::XPath; use File::Slurp; use Data::Dumper; use LWP::Simple;

XML::XPath::Literal $VAR1 = bless( do{\(my $o = '348.00')}, 'XML::XPath::Literal' );

Operation "-": no method found, left argument in overloaded package XML::XPath::Literal, right argument has no overloaded magic at ./nova.pl line 57.

Как боротьто?

Ты тупо подставил '->value()' в 55 строку. Вообще не понимая, что ты делаешь. Хотя совет относился только к 40 строке, которую ты перечислил в заголовке темы

Знаешь, рано тебе читать «Программирование на perl». Начни с «Изучаем Perl»

Сначала пойми, с чем ты имеешь дело, а потом уже пытайся это что-то использовать.

Пример. Пояснения, надеюсь, не нужны?

#!/usr/bin/perl

use strict;
use Data::Dumper;

my $a=1;
my @b=(2,3,4);
my %c=(
    5 => 6,
    7 => 8
);

my $d = bless(\@b, 'test');

printf "lets see at a:\n";
printf "%s\n", ref($a);
printf "%s\n", ref(\$a);
printf "%s\n", Dumper($a);
printf "\n";

printf "lets see at b\n";
printf "%s\n", ref(@b);
printf "%s\n", Dumper(\@b);
printf "\n";

printf "lets see at c\n";
printf "%s\n", ref(\%c);
printf "%s\n", Dumper(\%c);
printf "\n";

printf "lets see at d\n";
printf "%s\n", ref($d);
printf "%s\n", Dumper($d);
printf "\n";

Ну или опустимся до уровня детского сада.

Компилятор ругается на то, что ты неправильно используешь переменную $b в строке 55. Закомментируй её

Поставь перед этой строкой

printf "%s\n", Dumper($b); # смотрим, с чем мы имеем дело
exit 1; # завершаем работу скрипта

Ты таки почитай что такое XPath.

<root>
    <parentNode status="Good">
        <A>
            <B>
                <value>1</value>
            </B>
        </A>
    </parentNode>
</root>

#!/usr/bin/perl -w
use strict;
use utf8;
use XML::XPath;
use XML::LibXML;

my $parser = XML::LibXML->new();
my $tree = $parser->parse_file("file.xml");
my $root = $tree->getDocumentElement;

my $b=$root->findvalue('./parentNode/A/B/value');
my $c=$b -1;

print "c=$c,b=$b\n";

vitus@s1:~/devel/projects$ ./p.pl 
c=0,b=1

55 это бывшая 40 строка, просто ниже вывел подсчет этой переменной $b

$VAR1 = bless( do{\(my $o = '348.00')}, 'XML::XPath::Literal' );

вывод не поменялся от того что выше писал.