[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]
[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]
Actions : (View-Readers)
There are no names to display.
Posting Permissions
Reply With Quote