forum.opennet.ru

Составление сообщения

Исходное сообщение

"Язык Perl еще далек от забвения, несмотря на заявления "
Отправлено аноним, 08-Ноя-09 19:34

>А теперь покажите ваш вариант для произвольного количества чисел в строке :)
#!/usr/bin/perl -w
my $s = ';l9348ks5fl\n414cs043sf68f';
my $r = '';
while ($s =~ /(.)/g){
    $c = $1;
    if ($c =~ /\d/){ $r .= $c
    }else{
        if ($r ne ''){
            print "$r\n"; $r='';
        }
    }
}
exit;

Исходное сообщение
"Язык Perl еще далек от забвения, несмотря на заявления " Отправлено аноним, 08-Ноя-09 19:34
>А теперь покажите ваш вариант для произвольного количества чисел в строке :) #!/usr/bin/perl -w my $s = ';l9348ks5fl\n414cs043sf68f'; my $r = ''; while ($s =~ /(.)/g){ $c = $1; if ($c =~ /\d/){ $r .= $c }else{ if ($r ne ''){ print "$r\n"; $r=''; } } } exit;

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:
	Введите код, изображенный на картинке:

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

Партнёры:

Хостинг:

Закладки на сайте
Проследить за страницей

Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру