[ Please don't top-post
Please remove unwanted lines from your post.
( 122 lines trimmed )
]
Connie Chan wrote:
>
> 1. in the array
>
> Method 1
> for (my $x = 0; $x <= $#privates; $x++)
> { $privates[$x] =~ s/^(.+)$/"$1"/ }
>
> Method 2
> for (0..$#privates)
> { my $temp = shift(@privates);
> $temp = '"'.$temp.'"';
> push (@privates, $temp)
> }
>
> I believe there should be a simpiler way,
> anybody in list can tell ?
$_ = qq("$_") for @privates;
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
