home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / demo.pl < prev    next >
Encoding:
Perl Script  |  2001-04-16  |  476 b   |  23 lines
  1. #! /usr/local/bin/perl -ws
  2.  
  3. # TRY DOING *THIS* WITH format!
  4.  
  5. use Text::Reform qw(form break_with);
  6.  
  7. my $text = join "", map "line $_\n", (1..20);
  8.  
  9. @lines = form { 
  10.     pagelen=>9,
  11.     header => sub { "Page $_[0]\n"."="x50 },
  12.     footer => sub { my ($pagenum, $lastpage) = @_;
  13.             return "" if $lastpage;
  14.             return "-"x50 . "\n" . form ">"x50, "...".($pagenum+1);
  15.               },
  16.     pagefeed => "\n"x10
  17.     },
  18. "      [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[\n",
  19.        \$text;
  20.  
  21. print @lines;
  22.  
  23.