Прогрессии чисел.

[semiono]

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

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

[semiono]

Код:

#!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 } итп.

 

[RXL]

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