programming-examples/perl/Report/Sets the length and print format for a page.pl
2019-11-15 12:59:38 +01:00

22 lines
305 B
Perl

#!/usr/local/bin/perl
open (OUTFILE, ">file1");
select (OUTFILE);
$~ = "WRITELINE";
$^ = "TOP_OF_PAGE";
$= = 60;
while ($line = <STDIN>) {
write;
}
close (OUTFILE);
format TOP_OF_PAGE =
- page @<
$%
.
format WRITELINE =
@>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
$line
.