home *** CD-ROM | disk | FTP | other *** search
/ ftp.cse.unsw.edu.au / 2014.06.ftp.cse.unsw.edu.au.tar / ftp.cse.unsw.edu.au / pub / doc / languages / perl / nutshell / ch2 / report < prev    next >
Encoding:
Text File  |  1992-10-18  |  1.1 KB  |  48 lines
  1. #!/usr/bin/perl
  2.  
  3.     # Set configuration parameters.
  4.  
  5. $ANNUAL_PAY_RATE = 52 * 5;      # That's 5 shekels per week.
  6.  
  7.     # First open my database.  Complain if unable.
  8.  
  9. open(STUFF, "stuff") || die "Can't open stuff: $!\n";
  10.  
  11.     # Now process each line.
  12.  
  13. while (<STUFF>) {
  14.  
  15.     # Split the record into its fields.
  16.  
  17.     ($beastie, $noses, $hazard, $premium, $servants)
  18.     = split(/:/, $_);
  19.  
  20.     # Derive some fields.
  21.  
  22.     $totprem = $premium * $noses;
  23.     $cost = $totprem + $servants * $ANNUAL_PAY_RATE;
  24.  
  25.     # Write a formatted record to STDOUT.
  26.  
  27.     write;
  28. }
  29. exit;
  30.  
  31. ################################################################
  32.  
  33.     # Here is the top of form format, with column headings.
  34.  
  35. format top =
  36.             Job's Stuff, Inc.
  37. Beastie     Nose Insured       Premium    Servants  Total Est.
  38. Name       Count Against    Each    Total           Yearly Cost
  39. -------    ----- ---------- ----  -------  -------  -----------
  40. .
  41.  
  42.    # Here is the format for each record.
  43.  
  44. format STDOUT =
  45. @<<<<<<<< @##### @<<<<<<<<<@#.## @####.##  @>>>>>>  @#######.##
  46. $beastie, $noses,$hazard,$premium,$totprem,$servants,$cost
  47. .
  48.