การแปลงarrayเป็นข้อความ ( Convert Array to String )

[src]
sub arrToText
{
$text;
my($a)=@_;
my @A=@$a;
foreach $e (@a)
{
$text.=$e;
}
return $text;

}
[/src]


How to use
[src]
@a=(1,2,3);
$text=arrToText(a);
print $text;
[/src]
output:
[src]
123
[/src]