Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Perl]Сложить все цифры из текстового файла

Автор: skaizer 29.11.2007, 00:18

Здравствйте! Помогите, пожалуйста, с задачкой: "Найти сумму всех чисел, встречающихся в текстовом файле, состоящего из любых символов." Т.е. например найдена строки чисел 123 и 432, надо: 1й случай, сложить 1+2+3+4+3+2 2й случай 123+432 Спасибо огромное всем кто поможет!

Автор: under_sun 29.11.2007, 17:34

Из текста вылавливать только целые положительные, или отрицательные и действительные тоже могут быть? Если первое, то вот: Код open F, 'file.txt' or die "Can't open file: $!"; while (<F>) {   $sum1 += $_  for( /(\d)/g ); #1й случай   $sum2 += $_  for( /(\d+)/g ); #2й случай } close F; print "$sum1\n$sum2";

Автор: weblogger 25.12.2007, 19:22

спасибо огромное!

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)