fig12_09.pl

来自「PERL语言资料 可以用于PERL程序设计」· PL 代码 · 共 92 行

#!/usr/bin/perl
# Figure 12.9: fig12_09.pl
# Printing a database using formats

use warnings;
use strict;
my $Top;

if ( defined( $ARGV[ 1 ] ) && $ARGV[ 1 ] eq '-t' ) { 
   $Top = 1;
   $^ = 'FORMAT_TOP';

   if ( defined( $ARGV[ 2 ] ) && 
      !( ( $ARGV[ 2 ] <= 0 ) || ( $ARGV [ 2 ] > 1000 ) ) ) {
      $= = $ARGV[ 2 ];
   }
   else {
      $= = 24;
   }
}

my ( $name, $id, $year, $price, $num, $description );
open( FILE, "<$ARGV[ 0 ]" ) or die( "Cannot open: $!" );

while ( <FILE> ) {
   ( $name, $id, $year, $price, $num, $description ) = split( /::/ );

   if ( !defined( $id ) ) {
      $~ = "CATEGORY"; 
      write();
      $~ = "STDOUT";
   }
   else {
      write();
   }

   $^L = "\n" x $- if ( $Top );
}

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

sub copyright {
   return "(c)".$_[ 0 ];
}

format FORMAT_TOP =
Product List:   Deitel & Associates Inc.          Page @|
                                                       $% 
------------------------------------------------------------------                 
.

format =
@|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
$name

@|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
copyright( $year )

ISBN:  @<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
             $id,      $description
Cost: $@###.##         ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
       $price,         $description
Number In Stock: @<<   ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                 $num, $description
~~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                       $description
------------------------------------------------------------------
.

format CATEGORY =
==================================================================
@|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
$name
==================================================================
.


###########################################################################
#  (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.                     #
###########################################################################