Массив выдает неверное значение

@BugDiler · Регистрация: 24.03.2018

Author24 — интернет-сервис помощи студентам

Доброго времени суток.
Начал изучать perl, пишу второй скрипт, и в результате числовые значения в массив записать удается, у вот считать как то не очень, в результате однодневного джерка пришел к выводу, что записывать нужно строковую переменную, т.к. считывать буду как десятичные числа, так и числа с плавающей точкой, однако это не помогает, на выходе получается шестнадцатиричное значение, которое совсем не похоже на записываемое, ни когда пытаюсь разыменовать указатель, ни когда пытаюсь просто привести к нужному мне строковому типу данных, т.к. предполагаю что массив выдает мне либо левое шестнадцатиричное значение, либо указатель.

Записываю так:

Perl

$E_value=$E_value+0;                # Чтоб у нас осталось только числовое значение, а строковые данные были откинуты
$E_value =sprintf("%s", $E_value);
#print("E_value =$E_value n");
push(@E_values, $E_value);

а считывать пытаюсь таким образом:

Perl

1
2
3

$E_value =shift(@E_values);# Извлекаем нужное нам значение экструзии из начала массива @E_values, уменьшая его
$E_value ={$E_value};      # разыменовываю указатель
$E_value =sprintf("%s", $E_value);

Подскажите плизз что делаю неправильно, или что можно покурить на эту тему.

volodin661 · 24.03.2018, 21:05

Выполни следующий однострочник и расскажи о том, что тебе открылось после его исполнения:

Bash

1	perl -E '$a = 10; $a = { $a }; use Data::Dumper; say Dumper $a'

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

Сообщение от BugDiler

Начал изучать perl

Книжкой ( ежедневной, настольной и подподушечной ) для изучения Perl является т.н Camel-book
от Ларри Уолла, Тома Кристиансена, Джо Орванта и Брайана Д Фоя.

@BugDiler · 24.03.2018, 21:32 **[ТС]**

Спасибо.
Подключил Dumper
вот так:

Perl

1
2
3

$E_value =shift(@E_values);# Извлекаем нужное нам значение экструзии из начала массива @E_values, уменьшая его             
$E_value ={$E_value};
$E_value =Dumper $E_value;

показывает правильные значения, правда смущает это $VAR1 ={'4'=> undef}; на выходе, но думаю что это не страшно можно будет расковырять с помощью index, определив номера символов апострофов, после чего просто скопирую с использованием subst.

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

volodin661 · 25.03.2018, 12:19

Дорогой друг,

почитай книжку с верблюдом ( пусть она толстая чёрно-белая и без картинок внутри ) и приходи.

@BugDiler · 25.03.2018, 15:33 **[ТС]**

Спасибо за хорошее отношение, книгу которую вы советуете, я уже скачал, обязательно почитаю, т.к. perl нужен.

volodin661 5984 / 1993 / 323 Регистрация: 10.12.2013 Сообщений: 6,874
	25.03.2018, 12:19	4
	Дорогой друг, почитай книжку с верблюдом ( пусть она толстая чёрно-белая и без картинок внутри ) и приходи. 0

@BugDiler 0 / 0 / 0 Регистрация: 24.03.2018 Сообщений: 3
	25.03.2018, 15:33 [ТС]	5
	Спасибо за хорошее отношение, книгу которую вы советуете, я уже скачал, обязательно почитаю, т.к. perl нужен. 0