note
chanio
Actually, I am fond of these simple tasks that can make our lives easier...<p>
When I call this script I use to mention one or two arguments that would make additional effects to the text...<p>
The following code, adds some formating to the text. By default, it writes columns of 60 characters. But it is possible to specify any number of columns.
<code>
my $cant;
$cant =shift || 60 ; ## DEFAULT: 60 COLS.
use Text::Format;
my $anco; ## 1ST.LINE LEFT MARGIN
$anco = length($1) if ($text=~/^( +)/);## MARGIN?
$anco = 0 if ($anco < 1 or
$anco >= $cant);## ERROR?
$cant -= $anco; ## FORMAT WITHOUT LEFT MARGIN TO ADD
my @tod = (split(/\n+ */,$text));
$text=new Text::Format({ columns => $cant,
text => \@tod,
justify => 1,
firstIndent => 0});
$result.= join(" ", ($text->paragraphs()));
if ($anco) ## FORMAT WITH 1ST. LINE MARGIN...
{
@tod= (split(/\n+ */,$result));## GET EVERY LINE
my $cant= ' ' x $anco; ## LEFT MARGIN IN SPACES
$result = $cant.
join("\n$cant",@tod); ## ADD LEFT MARGIN AND OUTPUT
}
$CLIP->Set($result); ## TO THE CLIPBOARD...
</code>
I can also transform plain text into HTML code, extract certain phrases with REGEX,
transform the text into a commented block, unescape characters or escape them,
sort the lines, turn them all into upper/lowercase and even eval some code
while leaving it's result as the output.
<p>
This is what I call a useful toolbox..
<p><!-- BORRAME -->
<div class="pmsig"><div class="pmsig-245320">
<ul><li> <i>Landlords production is only eaten by landlords...</i><p>
<li> [http://knopper.net/knoppix/index-en.html|Wherever I lay my KNOPPIX disk, a new FREE LINUX nation could be established]</ul>
</div></div>
605154
605154