Wow !, And I never thought we can use "split //" This solution >>>> print join ' ', split //, $input; shows the beauty of Perl :-)
Rajeev ----- Original Message ----- From: "Bob Showalter" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, October 02, 2001 9:06 PM Subject: RE: $variable manipulation question > > -----Original Message----- > > From: Shannon Murdoch [mailto:[EMAIL PROTECTED]] > > Sent: Tuesday, October 02, 2001 6:51 AM > > To: [EMAIL PROTECTED] > > Subject: Re: $variable manipulation question > > > > > > I found a solution not long after using a loop of sorts. (and > > killed two > > birds with one stone, as my next step was to put each item > > (space delimited) > > into an array). > > I made a loop saying, 'as long as $input still has characters > > in it, put > > each one (one at a time) into the @front_chars array, then > > reverse the list > > order so it's normal again.' > > > > $input = "1234"; > > > > while($input ne undef){ > > push(@front_chars,chop($input)); > > } > > @front_chars = reverse @front_chars; > > > > Not sure if this is helpful to anyone, but it helped me.... > > How did that help you? Now you have an array of individual > characters, gotten the hard way. Using split() is the way > to do this (see perldoc -f split): > > @chars = split //, $input; > > To print this list out with spaces between, you can: > > $" = ' '; # this is the default > print "@chars"; # double quotes required here > > or > > print join ' ', @chars; > > The split and join can be combined to elminate the intermediate > array: > > print join ' ', split //, $input; > > Which was brian's solution. > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
