Jenda Krynicky wrote:
>
> "John W. Krahn" <[EMAIL PROTECTED]> suggested:
> > my @s = split //, $s;
> >
> > my @s = unpack 'a' x length $s, $s;
> >
> > my @s = $s =~ /./gs;
> >
> > push @s, substr $s, $_, 1 for 0 .. length $s - 1;
> >
> > push @s, chr vec $s, $_, 8 for 0 .. length $s - 1;
>
> Also
>
> unshift @s, chop($s) while $s ne '';
>
> ;-)
>
> But as Japhy said, stick with the first. We were just playing ;-)
>
> And to get the $i-th character :
>
> $char = substr $s, $i, 1;
>
> or even to change the $i-th char :
>
> substr( $s, $i, 1) = 'X';
Or
substr $s, $i, 1, 'X';
:-)
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
