in reply to putting text into array word by word

firstly your file loading option is wrong.use < instead of +>
secondly split function's first parameter should be \s
use this code 
#! /usr/bin/perl 
open(FILE,"<input.txt");
print "file loaded \n";
my @lines=<FILE>;
close(FILE);
my @all_words;
foreach my $line(@lines) {
@temp_arr=split('\s',$line);
push(@all_words,@temp_arr);
}
print "@all_words\n";

[download]

Replies are listed 'Best First'.
Re^2: putting text into array word by word
by jms53 (Monk) on Jan 09, 2012 at 18:35 UTC

    I have tried your code, and although I get no syntax errors, it does not print the array

    using the following code 

    #! /usr/bin/perl -w
use strict;

open(FILE,"<input.txt");

print "file loaded \n";

my @lines=<FILE>;
my @temp_arr;
close(FILE);
my @all_words;
foreach my $line(@lines) {

@temp_arr=split('\s',$line);
push(@all_words,@temp_arr);
}
print "@all_words\n";

    [download]
[reply]
[d/l]
      check your file from which you are taking the input.
      since you used +> parameter earlier , perl have deleted its contents.
[reply]

        PERFECT, Thank you sooo much

        I can now go back to calmly pseudo-geeking.

[reply]

In Section Seekers of Perl Wisdom