Есть переменная со значением 0.65(156)
Необходимо вычленить следующее:
0
65
156
Вы бы лучше почитали про регулярные выражения. Оно здесь самое простейшее. Пополнили бы свои знания довольно полезной вещью.
my $str = '0.65(156)';
my @str_parts = $str =~ /(\d+?)\.(\d+?)\((\d+?)\)/;
//массив @str_parts содержит три элемента. 0,65,156.
print $str_parts[0]; //0
print $str_parts[1]; //65
print $str_parts[2]; //156
#!/usr/bin/perl -w
$w = 0.567;
@w = split (//, $w);
foreach (@w) {
if ($_ =~ /\./) {
next
}
print $_,"\n"
}
perl -E 'my $n = "0.65(156)"; my @r = split /[\.\(\)]/, $n; say join(" ", @r)'
0 65 156