home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 December / PCpro_2006_12.ISO / ossdvd / server / Perl2 / site / lib / Text / demo.pl < prev   
Encoding:
Perl Script  |  2001-07-13  |  445 b   |  22 lines
  1. #! /usr/local/bin/perl -w
  2.  
  3. # TRY DOING *THIS* WITH format!
  4.  
  5. use Text::Autoformat qw(form break_with);
  6.  
  7. my $text = join "", map "line $_\n", (1..20);
  8.  
  9. @lines = form { 
  10.     pagelen=>6,
  11.     header => sub { "Page $_[0]\n" },
  12.     footer => sub { return "" if $_[1];
  13.             "-"x50 . "\n" . form ">"x50, "...".($_[0]+1);
  14.               },
  15.     pagefeed => "\n"x10
  16.     },
  17. "      [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[\n",
  18.        \$text;
  19.  
  20. print @lines;
  21.  
  22.