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 / ch3 / bugs < prev    next >
Encoding:
Text File  |  1992-10-18  |  879 b   |  25 lines

  1. #!/usr/bin/perl
  2.  
  3. # a report from a bug report form
  4. format top =
  5.             Bug Reports
  6. @<<<<<<<<<<<<<<<<<<<<<<<     @|||         @>>>>>>>>>>>>>>>>>>>>
  7. $system,                      $%,         $date
  8. ---------------------------------------------------------------
  9. .
  10.  
  11. format STDOUT =
  12. Subject: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  13.      $subject
  14. Index: @<<<<<<<<<<<<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<
  15.        $index,                       $description
  16. Priority: @<<<<<<<<<< Date: @<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<
  17.       $priority,        $date,   $description
  18. From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<
  19.       $from,                         $description
  20. Assigned to: @<<<<<<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<
  21.          $programmer,            $description
  22. ~~                                   ^<<<<<<<<<<<<<<<<<<<<<<<<<
  23.                      $description
  24. .
  25.