Ticket #1229: biggen.pl

File biggen.pl, 772 bytes (added by petr, 4 years ago)
Line 
1#!/usr/bin/perl
2
3#use 5.006;
4#use strict;
5#use warnings;
6
7my ($n, $j, $i, $fh);
8if (open($fh, '>big.pl'))
9{
10    for ($j=100; $j<399; $j++)
11    {
12        print $fh "\n\nsub func".$j."\n{";
13        print $fh "\n\n=pod\n=cut\n";
14        print $fh "\n".'print "UTF8 cyrilic letters: АктОвМые В Птчете Ме указаМы(Ўля тестОрПваМОя вМутрО), так же Ме учОтываются";';
15        print $fh "\n\n=pod\n=cut\n";
16        print $fh "\n".'print "UTF8 cyrilic letters: АктОвМые В Птчете Ме указаМы(Ўля тестОрПваМОя вМутрО), так же Ме учОтываются";';
17        for ($i=0; $i<20; $i++) { print $fh "\n\t###################################################"; }
18        print $fh "\n}\n"
19    }
20    close ($fh);
21}