fig12_03.pl

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

#!/usr/bin/perl
# Figure 12.3: fig12_03.pl
# demonstrates top-of-page formatting

use warnings;
use strict;

my $product = 'Sound Card';
my $price = 99.00;
my $number = '0132';
write();

$product = 'Monitor';
$price = 550.34521;
$number = '13341522';
write();

$product = 'Mouse';
$price = '5';
$number = '115136';
write();

format STDOUT_TOP =
Product                        Price          ID Number
----------------           ---------          ---------
.

format STDOUT =
@<<<<<<<<<<<<<<<<<<<<      $@####.##          @<<<<<<<<
$product,                     $price,          $number
.

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