asked on
PERL Force String Wrapping
ASKER
$x=5; #change this to any value
@a = split //;
for($i=0;$i<$#a;$i++)
{
push($a[$i],@b);
$j = $i % $x;
if($j == 0)
{
push(" ",@b);
}
}
print "\n @b";
$x=5; #change this to any value
@a = split //;
for($i=0;$i<$#a;$i++)
{
push(@b,$a[$i]);
$j = $i % $x;
if($j == 0)
{
push(@b," ");
}
}
print "\n @b";
$text="bangalore,new york,london,cunnighma,dehl
$x = 5;
$text =~ s/\G(.{$x})/$1 /g;
print $text;
----
outputs:
banga lore, new y ork,l ondon ,cunn ighma ,dehl i
s#(\S{$x},)(?!\s)#$1<wbr />#g
ASKER
sample string:
THISIS3,000,abcdef
THISIS3,000, abcdef (OK - this would be perfect)
THISIS3, 000, abcdef (NOT OK)
A scripting language is a programming language that supports scripts, programs written for a special run-time environment that automate the execution of tasks that could alternatively be executed one-by-one by a human operator. Scripting languages are often interpreted (rather than compiled). Primitives are usually the elementary tasks or API calls, and the language allows them to be combined into more complex programs. Environments that can be automated through scripting include software applications, web pages within a web browser, the shells of operating systems (OS), embedded systems, as well as numerous games. A scripting language can be viewed as a domain-specific language for a particular environment; in the case of scripting an application, this is also known as an extension language.
TRUSTED BY
#!/usr/local/bin/perl
$text="bangalore,new york,london cunnighma,dehli";
$text=~ s/,/ /g;
print $text;