fig12_07.pl

PERL语言资料 可以用于PERL程序设计

#!/usr/bin/perl
# Figure 12.7: fig12_07.pl
# demonstrates the special format variables

use warnings;
use strict;
use English;

my $file = $ARGV[ 0 ];
# setting the lines per page.
$FORMAT_LINES_PER_PAGE = $ARGV[ 1 ];
$FORMAT_FORMFEED = "";

open( FILE, $file ) or die( "Cannot open $file:: $!" );
my $line;

while ( $line = <FILE> ) {
   write();
}

close( FILE ) or die( "Cannot close: $!" );

print( "\n", '*' x 60, "\n" );
print( "Now we are going to print using the new format" );
print( "\n", '*' x 60, "\n\n" );

$FORMAT_TOP_NAME = 'NEW_TOP';
$FORMAT_NAME = 'NEWFORMAT';
$FORMAT_FORMFEED = "Form Feed:\n";
open( FILE, $file ) or die( "Cannot open $file: $!" );

while ( $line = <FILE> ) {
   write();
}

close( FILE ) or die( "Cannot close: $!" );

format STDOUT_TOP =
------------------------------------------------------------------
File: @<<<<<<<<<<<<<<<<<<<<<<                 Page: @|||
      $file,                                        $%
------------------------------------------------------------------
.

format STDOUT =
Line @<<<   ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
     $.,    $line
~~          ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
            $line
.

format NEW_TOP =
------------------------------------------------------------------
Without putting the page or line numbers into @<<<<<<<<<<<<<<<<<<<
                                              $file
------------------------------------------------------------------
.

format NEWFORMAT =
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$line
.

###########################################################################
#  (C) Copyright 2001 by Deitel & Associates, Inc. and Prentice Hall.     #
#  All Rights Reserved.                                                   #
#                                                                         #
#  DISCLAIMER: The authors and publisher of this book have used their     #
#  best efforts in preparing the book. These efforts include the          #
#  development, research, and testing of the theories and programs        #
#  to determine their effectiveness. The authors and publisher make       #
#  no warranty of any kind, expressed or implied, with regard to these    #
#  programs or to the documentation contained in these books. The authors #
#  and publisher shall not be liable in any event for incidental or       #
#  consequential damages in connection with, or arising out of, the       #
#  furnishing, performance, or use of these programs.                     #
###########################################################################