Mike Blezien wrote:
Mike,
Here is a start for you:
#!perl -w
my $MyCnt = 0;
my $MyMax = 2;
while ( <DATA> ) {
chomp;
printf " " if ( $MyCnt );
printf "%-s", $_;
if ( ++$MyCnt > $MyMax ) {
printf "<P>\n";
$MyCnt = 0;
}
}
printf "<P>\n" if ( $MyCnt );
__DATA__
Animations
Backgrounds
Buttons
Clip_Art
Dividers-Bars
Flash
Fonts
Icons
Interfaces
Member_Tools
Names
Photos
Presentations
Screen_Savers
Templates
Textures
Wallpaper
#output:
Animations Backgrounds Buttons<P>
Clip_Art Dividers-Bars Flash<P>
Fonts Icons Interfaces<P>
Member_Tools Names Photos<P>
Presentations Screen_Savers Templates<P>
Textures Wallpaper<P>
Wags ;)
**********************************************************
This message contains information that is confidential
and proprietary to FedEx Freight or its affiliates.
It is intended only for the recipient named and for
the express purpose(s) described therein.
Any other use is prohibited.
****************************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
