5курс / антимонопольное / tcbr22633 / fonts / fonts

open(OUT, ">fonts.html") or die "Cant open out html file\n"; print OUT " \n"; print OUT "\n\n"; foreach(){ print_font($_); } print OUT "\n\n"; print OUT "\n"; close(OUT); sub print_font{ my ($fontfile)=@_; my $fontrotated = $fontfile; $fontrotated =~ s/\.png/-r.png/; print "$fontfile -> $fontrotated\n"; print OUT