#!/usr/bin/perl -w

use strict;

my $uclc = shift or Usage();
Usage() unless ($uclc eq 'uc' or 'lc');
while(<>) { print $uclc eq 'uc' ?  uc() : lc(); }

sub Usage {
   print "\n Usage: uclc.pl (uc|lc) < infile > outfile\n\n";
   exit;
   }

=head1 NAME

 uclc.pl

=head1 SYNOPSIS

 uclc.pl (uc|lc) < infile > outfile"

 Convert alpha characters in text file to uppercase (or lowercase).

=head1 UPDATED

 2001-07-26 16:30 CDT
   Simplify code for (in|out)put of STD(IN|OUT).
   Remove unnecessary "or Usage()" from first two input lines.
   Replace if/else with ternary "?:".
     my $munged;
     if ($uclc eq 'uc') { $munged = uc(); }
     else {$munged = lc(); }
     print OUT $munged;
   While instead of for so file read line-by-line not slurp entire file.
   Post efficiency SoPW to PerlMonks
 2001-07-25
   Initial working code.

=head1 TODOS

 None that I know of.

=head1 TESTED

 ActivePerl 5.61 on Win2kPro

=head1 AUTHOR

 ybiC

=head1 CREDITS

 Thanks to synapse0, OeufMayo, crazyinsomniac, Masem,
 MZSanford, virtualsue, Hoffmater, tilly, clemburg,
 and ichimunki for suggestions.
 And to davorg for "Data Munging with Perl".
 Oh yeah, and to some guy named vroom.

=cut