Jeff 'Japhy' Pinyan wrote:
>
> If you DON'T want that, you'd have to do:
>
> for (@data) {
> (my $copy = $_) =~ s/^ //;
> push @data_, $copy;
> }
>
> Or something to that effect. Here's a one-liner:
>
> @data_ = map { (my $copy = $_) =~ s/^ //; $copy } @data;
>
a bit shorter:
#!/usr/bin/perl -w
use strict;
my @data = (' 123',' 456',' 789');
my @data_ = ();
s/^ // for(@data_ = @data);
print join('',@data),"\n",join('',@data_),"\n";
__END__
prints:
123 456 789
123456789
david
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
