0

Есть переменная со значением 0.65(156)

Необходимо вычленить следующее:

0  
65    
156

3 ответа 3

4

Вы бы лучше почитали про регулярные выражения. Оно здесь самое простейшее. Пополнили бы свои знания довольно полезной вещью.

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
1
#!/usr/bin/perl -w
$w = 0.567;
@w = split (//, $w);
foreach (@w) {
     if ($_ =~ /\./) {
        next
     }
     print $_,"\n"
}
3
  • @Asid, Чтобы отформатировать код, выделите его мышью и нажмите на кнопку {} редактора.
    – ReinRaus
    26 дек 2012 в 7:40
  • Никогда не получалось ладом форматировать код. Не фига не могу понять,как и где это делать, и где такая кнопочка "{}" находится.... Я пишу в geany, потом просто копирую и вставляю в ответ. Кто скажет толком что не так? А то вечно абра-кадабра выходит
    – Asid
    26 дек 2012 в 7:54
  • Нашел такую кнопку пардон, и редактор отыскался. Как нить попробую ладом все. Спасибо.
    – Asid
    26 дек 2012 в 7:57
0
perl -E 'my $n = "0.65(156)"; my @r = split /[\.\(\)]/, $n; say join(" ", @r)'
0 65 156

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.