Transposing an Array

JustLikeThat has asked for the wisdom of the Perl Monks concerning the following question:

Hello! I'm still trying to learn Perl in my spare time.

The following code is a simple example of a larger problem I am having. I am trying to transpose a string of characters from a horizontal scalar to a vertical string of characters.

ie) ABCDEFG to:

E etc

The code below almost gives me what I want but there is one error message that appliers with each character: Argument "character" isn't numeric in array element at C\:dir line 8. Any help on this simple problem would be nice!!

#!/usr/bin/perl
use strict;
use warnings;

my $phrase="I like apple pie"; #### set the phrase
my @array = split(//, $phrase);### split phrase into individual charac
+hters###
foreach  my $w (@array){
    print "$array[$w]\n";
};
[download]

Thanks in advance for your help!!

Comment on Transposing an Array Download Code

Replies are listed 'Best First'.
Re: Transposing an Array by Arunbear (Prior) on Nov 11, 2004 at 21:57 UTC
Try this: `print join "\n", split(//, $phrase);` [download]	[reply] [d/l]
Re^2: Transposing an Array by rev_1318 (Chaplain) on Nov 11, 2004 at 22:27 UTC
Or: `$,="\n"; print split //, $phrase;` [download] to avoid the join :-) BTW, a one-liner could be: `perl -le 'print for split //, pop' "my phrase here"` [download] Paul	[reply] [d/l] [select]
Re: Transposing an Array by tachyon (Chancellor) on Nov 11, 2004 at 22:33 UTC
Another way, no array required `$_ = "ABCDEFG"; s/(.)/$1\n/g; print;` [download] cheers tachyon	[reply] [d/l]
Re: Transposing an Array by ikegami (Patriarch) on Nov 11, 2004 at 21:40 UTC
`$w` holds `$array[`index`]`, not `index`, so just use `print "$w\n";`. If you do want `$w` to hold the index, do: `foreach my $w (0..$#array){ print "$array[$w]\n"; };` [download]	[reply] [d/l] [select]
Re: Transposing an Array by atcroft (Abbot) on Nov 11, 2004 at 22:02 UTC
Just for grins, this also will work: `$phrase = join("\n", split(//, $phrase)); print $phrase, "\n";` [download] This does the split as before, but then joins them back into a single string with the "\n" character as the seperator. 'Njoy.	[reply] [d/l]
Re: Transposing an Array by gube (Parson) on Nov 12, 2004 at 10:08 UTC
<!--PLEASE TRY THESE CODE> <!--THE ABOVE INFORMED IN ANONYMOUS IS GUBE> `use strict; my($input,@input); $input = <STDIN>; @input = split(//, $input); $" ="\n"; print "@input";` [download]	[reply] [d/l]
Re^2: Transposing an Array by JustLikeThat (Initiate) on Nov 15, 2004 at 15:24 UTC
Thanks for the idea, but I don't quite understand what <code> $"="\n"; <code> is from. I haven't see it in Learning Perl and I'll have to read how it works with the string. It is a nice trick, it seems like a shortcut to concatenate a common command to every string in the array.	[reply]
Re^3: Transposing an Array by Happy-the-monk (Canon) on Nov 15, 2004 at 16:42 UTC
$" is the list separator, see perldoc perlvar: its value is placed between list/array/slice values when the list is interpolated into a doublequoted string. Cheers, Sören	[reply]
Re: Transposing an Array by Anonymous Monk on Nov 12, 2004 at 09:58 UTC
<!--please try this code :) > `$input = <stdin>; @input = split(//, $input); $" ="\n"; print "@input";` [download]	[reply] [d/l]
Re: Transposing an Array by TedPride (Priest) on Nov 12, 2004 at 07:48 UTC
Or: `my $str = 'ABCDEFG'; for (0..(length($str)-1)) { print substr($str,$_,1)."\n"; }` [download] I just like substr :)	[reply] [d/l]