22 lines
305 B
Perl
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
|
|
|
|
. |