it-roy-ru.com

Как я могу преобразовать строку в число в Perl?

Как бы я преобразовал строку, содержащую число в его числовое значение в Perl?

79
Anton

Вам не нужно конвертировать его вообще:

% Perl -e 'print "5.45" + 0.1;'
5.55
87
Alnitak

Это простое решение:

Пример 1

my $var1 = "123abc";
print $var1 + 0;

Результат

123

Пример 2

my $var2 = "abc123";
print $var2 + 0;

Результат

0
68
porquero

Perl - это контекстно-ориентированный язык. Он не выполняет свою работу в соответствии с данными, которые вы ему предоставляете. Вместо этого он выясняет, как обрабатывать данные на основе используемых вами операторов и контекста, в котором вы их используете. Если вы делаете числовые вещи, вы получаете числа:

# numeric addition with strings:
my $sum = '5.45' + '0.01'; # 5.46

Если вы делаете что-то вроде строк, вы получаете строки:

# string replication with numbers:
my $string = ( 45/2 ) x 4; # "22.522.522.522.5"

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

Вы пытаетесь что-то сделать, и это не работает?

40
brian d foy

Google привел меня сюда при поиске по тому же вопросу, который задал Филл (сортировка с плавающей точкой), так что я решил, что стоило бы опубликовать ответ, несмотря на старую ветку. Я новичок в Perl и все еще держу голову над этим, но заявление Брайана Д. Фоя «Perl больше заботится о глаголах, чем о существительных». выше действительно бьет гвоздь по голове. Вам не нужно преобразовывать строки в числа с плавающей точкой перед применением сортировки. Вам нужно указать сортировку для сортировки значений в виде чисел, а не строк . Т.е.

my @foo = ('1.2', '3.4', '2.1', '4.6');
my @foo_sort = sort {$a <=> $b} @foo;

Смотрите http://perldoc.Perl.org/functions/sort.html для более подробной информации о сортировке

9
Norm

Насколько я понимаю, int () не предназначена как функция «cast» для обозначения типа данных, она просто (ab) используется здесь для определения контекста как арифметического. Я (ab) использовал (0 + $ val) в прошлом, чтобы гарантировать, что $ val рассматривается как число.

7
mccutchm
$var += 0

наверное что хочешь. Однако, будьте осторожны, если $ var строка не может быть преобразована в числовое значение, вы получите ошибку, и $ var будет сброшено в 0 :

my $var = 'abc123';
print "var = $var\n";
$var += 0;
print "var = $var\n";

бревна

var = abc123
Argument "abc123" isn't numeric in addition (+) at test.pl line 7.
var = 0
6
indexless

В Perl есть только три типа: скаляры, массивы и хэши. И даже это различие является спорным. ;) Способ обработки каждой переменной зависит от того, что вы с ней делаете:

% Perl -e "print 5.4 . 3.4;"
5.43.4


% Perl -e "print '5.4' + '3.4';"
8.8
3
Rini

В сравнении это имеет значение, если скаляр является числом строки. И это не всегда решаемо. Я могу сообщить о случае, когда Perl получил число с плавающей точкой в ​​«научной» записи и использовал те же несколько строк ниже для сравнения:

use strict;
....
next unless $line =~ /and your result is:\s*(.*)/;
my $val = $1;
if ($val < 0.001) {
   print "this is small\n";
}

И здесь $val не интерпретировался как числовой для, например, "2e-77" получено из $line. Добавление 0 (или 0.0 для хороших программистов на ole C) помогло.

1
Steffen Moeller

Perl слабо типизирован и основан на контексте. Многие скаляры могут рассматриваться как строки и числа, в зависимости от используемых вами операторов .$a = 7*6; $b = 7x6; print "$a $b\n";
Вы получаете 42 777777.

Однако есть небольшая разница. Когда вы читаете числовые данные из текстового файла в структуру данных, а затем просматриваете их с помощью Data::Dumper, вы заметите, что ваши числа указаны в кавычках. Perl рассматривает их внутренне как строки .
Читайте: $my_hash{$1} = $2 if /(.+)=(.+)\n/;.
Дамп: 'foo' => '42'

Если вы хотите, чтобы в дампе были цифры без кавычек:
Читайте: $my_hash{$1} = $2+0 if /(.+)=(.+)\n/;.
Дамп: 'foo' => 42

После $2+0 Perl замечает, что вы рассматривали $ 2 как число, потому что вы использовали числовой оператор. 

Я заметил это, пытаясь сравнить два хеша с Data::Dumper.

0
SzG