note
ybiC
Thanks, [synapse0] <i>(and others who replied also)</i> for the suggestions. 8^)
<p>
I'm not familiar with the <code>eq 'lc' ? lc() : uc();</code> syntax from <code>print OUT $uclc eq 'lc' ? lc() : uc();</code>. Would you be so kind as to explain how that works?
<p>
<b>Updated: </b> 2001-07-29 07:40 CDT
<p>
Here's what I ended up using. Thanks again, and ++ to all who offered suggestions in nodes and CB!
<br> cheers,
<br> Don
<br> <i>striving toward <a href="http://prometheus.frii.com/~gnat/yapc/2000-stages/">Perl Adept</a></i>
<br> <font size="-2">(it's pronounced "why-bick")</font>
<code>#!/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
</code>
99943
99947