On Friday 21 April 2006 11:53, Charles K. Clarkson wrote:
> BTW, I think indent() could be rewritten. I think these do
> the same thing as your indent().
>
> sub indent {
> my $indent = shift;
> return '' unless defined $indent;
> return ' ' x $indent;
> }
>
> # Or:
>
> sub indent {
> return '' unless defined $_[0];
> return ' ' x $_[0];
> }
Or:
sub indent {
return ' ' x ($_[0] || 0);
}
>
>
> HTH,
>
> Charles K. Clarkson
> --
> Mobile Homes Specialist
> 254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
