perl scalar -> array

[Borek Lupoměský]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On Wed, 23 May 2001, Jiri Kratochvil wrote:

JK> omlouvam se za OT. Ale nevim kde se ptat tak to zkousim tady
JK> potrebuji neco takovyho: scalarni promenou rozhodit do pole
JK> 
JK>   $scalar = "1234567890";
JK>   @array = $scalar;
JK> 
JK> a ted bych cekal ze budu mit array
JK> (1,2,3,4,5,6,7,8,9,0)

$scalar = "1234567890";
my $tmp = $scalar;
while($tmp) {
  my $first_char = substr($tmp, 0, 1);
  push(@array, $first_char);
  $tmp =~ s/^.//;
}

   Bye Borek

- -- 

=====================================================================
BOREK LUPOMESKY                Usti nad Labem, Czech Republic, Europe
WWW: http://www.volny.cz/borekl/                  PGP keyid: B6A06AEB
==========[ MIME/ISO-8859-2 & PGP encrypted mail welcome ]===========

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.5 (GNU/Linux)
Comment: Get GPG key at http://www.volny.cz/borekl/pgp.txt

iD8DBQE7C88rA6dWI7agausRAqR1AJ4n9XZaVwXCAllzwsxy0pEylFFfegCeJ433
AarXqoOtFJ7p+WaxHIbmzgQ=
=cfXy
-----END PGP SIGNATURE-----