lag3d

   1 #!/usr/bin/env perl
   2
   3 #=======================================================================
   4 # lag3d
   5 # File ID: 0a5321d2-5d3e-11df-86cd-90e6ba3022ac
   6 # [Description]
   7 #
   8 # Character set: UTF-8
   9 # ©opyleft 2004– Øyvind A. Holm <sunny@sunbase.org>
  10 # License: GNU General Public License, see end of file for legal stuff.
  11 #=======================================================================
  12
  13 use strict;
  14 use warnings;
  15 use Getopt::Long;
  16
  17 $| = 1;
  18
  19 our ($opt_help, $opt_two) =
  20     (        0,        0);
  21
  22 my $VERSION = "0.0";
  23
  24 our $progname = $0;
  25 $progname =~ s#^.*/(.*?)$#$1#;
  26
  27 Getopt::Long::Configure("bundling");
  28 GetOptions(
  29     "help|h"       => \$opt_help,
  30     "2"            => \$opt_two
  31 ) || die("$progname: Option error. Use -h for help.\n");
  32
  33 $opt_help && usage(0);
  34
  35 my $Count = 1;
  36 my $Buf = "";
  37 my $per_line = $opt_two ? 2 : 3;
  38
  39 while (<>) {
  40     my $Curr = $_;
  41     $Curr =~ s/\s+/\t/g;
  42     $Curr =~ s/(\S+)/pr_num($1)/gse;
  43 }
  44
  45 sub pr_num {
  46     my $Num = shift;
  47     $Buf .= ("$Num\t");
  48     ($Count++ % $per_line) || print("$Buf\n", $Buf = "");
  49     return("");
  50 }
  51
  52 sub usage {
  53     # Send the help message to stdout {{{
  54     my $Retval = shift;
  55     print(<<END);
  56
  57 $progname v$VERSION
  58
  59 Usage: $progname [options] [file [files [...]]]
  60
  61 Options:
  62
  63 -h, --help  Show this help.
  64 -2          Generate two columns instead of three.
  65
  66 END
  67     exit($Retval);
  68     # }}}
  69 }
  70
  71 __END__
  72
  73 # Plain Old Documentation (POD) {{{
  74
  75 =pod
  76
  77 =head1 NAME
  78
  79
  80
  81 =head1 SYNOPSIS
  82
  83
  84
  85 =head1 DESCRIPTION
  86
  87
  88
  89 =head1 OPTIONS
  90
  91 =over 4
  92
  93 =item B<-h>, B<--help>
  94
  95 Print a brief help summary.
  96
  97 =item B<-2>
  98
  99 Generate two columns instead of three.
 100
 101 =back
 102
 103 =head1 BUGS
 104
 105
 106
 107 =head1 AUTHOR
 108
 109 Made by Øyvind A. Holm S<E<lt>sunny _AT_ sunbase.orgE<gt>>.
 110
 111 =head1 COPYRIGHT
 112
 113 Copyleft © Øyvind A. Holm &lt;sunny@sunbase.org&gt;
 114 This is free software; see the file F<COPYING> for legalese stuff.
 115
 116 =head1 LICENCE
 117
 118 This program is free software; you can redistribute it and/or modify it
 119 under the terms of the GNU General Public License as published by the
 120 Free Software Foundation; either version 2 of the License, or (at your
 121 option) any later version.
 122
 123 This program is distributed in the hope that it will be useful, but
 124 WITHOUT ANY WARRANTY; without even the implied warranty of
 125 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 126 See the GNU General Public License for more details.
 127
 128 You should have received a copy of the GNU General Public License along
 129 with this program; if not, write to the Free Software Foundation, Inc.,
 130 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 131
 132 =head1 SEE ALSO
 133
 134 =cut
 135
 136 # }}}
 137
 138 # vim: set fenc=UTF-8 ft=perl fdm=marker ts=4 sw=4 sts=4 et fo+=w :
 139 # End of file lag3d