Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Прогрессии чисел.  (Прочитано 9783 раз)
0 Пользователей и 1 Гость смотрят эту тему.
semiono
Интересующийся

ru
Offline Offline

« : 01-02-2022 00:01 » 

Нужен пример perl получить арифметическую прогрессию и ещё одну
и записать вывод в файл в два столбика. Например: myfile.txt
01 01
02 05
03 10
04 15
...
10 45

Тут сразу много полезного в одном примере, ато мне это изучать долго.
Я пробовал сам быстро сообразить, не осилил. Пожалуйста!

Записан
semiono
Интересующийся

ru
Offline Offline

« Ответ #1 : 01-02-2022 17:15 » 

Код:
#!perl
use strict;

sub f1 { $_*5 }
sub f2 { $_*7 }
sub f3 { $_+3 }
 
open(  FILE,">","temp.txt");

printf(FILE  <<\TXT, $_, f1, f2, f3) for (1..74);
%03d %03d %03d %03d
TXT

close  FILE;
__END__

Долго бился над непониманием $_, который нужен видимо для оператора for,
удивлялся почему не работает sub fun {$a + 5 } итп.

 Я шокирован!
« Последнее редактирование: 01-02-2022 17:18 от semiono » Записан
RXL
Технический
Администратор

Offline Offline
Пол: Мужской

WWW
« Ответ #2 : 02-02-2022 00:34 » new

Эмпирически можно долго биться. Есть хорошие книги в переводе и оригиналы: Изучаем Perl (Perl learning), Программирование на Perl (Perl programing).
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines