Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

Вопросы по perl

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [Веб-программинг] >> Вопросы по perl

Имя

Сообщение

<< Старые топики Новые топики >>

Вопросы по perl - 2009-09-12 16:10:33.710000

Russia86rus

Сообщений: 11
Оценки: 0
Присоединился: 2009-09-12 16:04:30.126666

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

Вопрос : Какой надо создать цикл ??
Я начинающий …
Всем спасибо !!

Post #: 1

RE: Вопросы по perl - 2009-09-12 16:25:12.776666

oRb

Сообщений: 4044
Оценки: 597
Присоединился: 2007-03-28 18:45:06.630000

оО Вы с ним не из одной группы?
http://forum.xakep.ru/m_1574645/tm.htm

Post #: 2

RE: Вопросы по perl - 2009-09-12 16:56:07.423333

Russia86rus

Сообщений: 11
Оценки: 0
Присоединился: 2009-09-12 16:04:30.126666

неважно…. а по существу кто ответить может??

Post #: 3

RE: Вопросы по perl - 2009-10-16 15:32:52.066666

Amf3tam1N

Сообщений: 8
Оценки: 0
Присоединился: 2009-10-16 15:17:58.096666


 #!/usr/bin/perl 
 use strict;
 
 my $text = "fhs8de9w0r32khfs994nsfi9ds91232nffosdfi7sd7es55fs5d4s3s666fewefds7993";
 my @list;
 my $sum = 0;
 my $pos = 0;
 while( $text =~ /(\d+)/g ) {
     if( $1 == 666 ) {
     	$pos = length($`) - 1; #Если нумерация будет с нуля
     	last;
     }
 	push @list, $1;
 	$sum+= $1;	  
 }
 
 print "Kol = " . scalar @list  .", list = " . (join ", ", @list) . " sum = $sum, pos = $pos";

Post #: 4

Страниц: [1]

Все форумы >> [Веб-программинг] >> Вопросы по perl

Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.