asylu3
16-09-2004, 01:38 AM
sub arrToText
{
$text;
my($a)=@_;
my @A=@$a;
foreach $e (@a)
{
$text.=$e;
}
return $text;
}
How to use
@a=(1,2,3);
$text=arrToText(a);
print $text;
output:
123
{
$text;
my($a)=@_;
my @A=@$a;
foreach $e (@a)
{
$text.=$e;
}
return $text;
}
How to use
@a=(1,2,3);
$text=arrToText(a);
print $text;
output:
123