Perl int to array

Question

У меня есть число, хранящееся в переменной Perl, и я хочу «передавать/конвертировать/сохранять» свои цифры в разных положениях массива. В качестве примера для лучшего зрения:

у меня есть, скажем, это число, сохраненное:

$hello = 429384 

И мне нужен новый массив с цифрами, хранящихся в нем, так:

$hello2[0] = 4 
$hello2[1] = 2 
$hello2[2] = 9 
Etc.. 

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

Answer 1

my @hello = split //, $hello; 

В Perl, если вы используете номер в оператора строки, преобразование выполняется автоматически

Answer 2

$hello = 429384; 

@hello = split //, $hello; 

print $hello[0]; 

Answer 3

Использование только Regex и без использования встроенной функции:

#!/usr/bin/perl 
use strict; 
use warnings; 

my $string=429384; 

my @numbers = $string =~ /./g; # dot matches a single character at a time 
           #and returns it 

print "@numbers \n"; 

Answer 4

это значительно быстрее, чем регулярное выражение:

$string = '1234567890'; 
    $_-=48 for @digits = unpack 'C*',$string; 

тест:

use Time::HiRes; 
$string = '1234567890'; 



$start_time = [Time::HiRes::gettimeofday()]; 
for (1.. 100000){ 
    $_-=48 for @digits= unpack 'C*',$string; 
} 
$diff = Time::HiRes::tv_interval($start_time); 
print "\n\n$diff\n"; 



$start_time = [Time::HiRes::gettimeofday()]; 
for (1.. 100000){ 
    @digits = split //, $string; 
} 
$diff = Time::HiRes::tv_interval($start_time); 
print "\n\n$diff\n"; 

выход:

0,265814

0,314735