Help with Perl newbie..the $/ separator

[Javier]

Greetings..
my file looks something like this..
item1 item2 6
itemA itemB 3
itmeX item1 1

I'm reading a list
MYFILE = "/myItems.txt";
$/="\n";
while(<MYFILE>){
push(@list,$_);
}

while this gives me each line ..
@list[0] item1 item2 6
@list[1] itemA itemB 3

what I need is the list to be like this
@list[0] item1
@list[1] item2
@list[3] 6
@list[4] itemA
@list[5] itemB

my problem is that I can only define one separator at the time.
How can I tell the parser to use "\n" and " " as separators?
Thanks for your help.

Javier.

 

[Gunnar Hjalmarsson]

my file looks something like this..
item1 item2 6
itemA itemB 3
itmeX item1 1

I'm reading a list
MYFILE = "/myItems.txt";
$/="\n";
while(<MYFILE>){
push(@list,$_);
}

while this gives me each line ..
@list[0] item1 item2 6
@list[1] itemA itemB 3

what I need is the list to be like this
@list[0] item1
@list[1] item2
@list[3] 6
@list[4] itemA
@list[5] itemB

my problem is that I can only define one separator at the time.
How can I tell the parser to use "\n" and " " as separators?

What happened when you tried $/=" "; ?

 

[Stoco]

I think this may work... At bit long, but it does the trick.

open (MYFILE, "<Text-1.txt");
my @contents = <MYFILE>;
close (MYFILE);

my @out;
foreach my $line (@contents){
chomp($line);
my @row = split (/ /, $line);
@out = (@out, @row);
}
1;

John

 

[Javier]

my file looks something like this..
item1 item2 6
itemA itemB 3
itmeX item1 1

I'm reading a list
MYFILE = "/myItems.txt";
$/="\n";
while(<MYFILE>){
push(@list,$_);
}

while this gives me each line ..
@list[0] item1 item2 6
@list[1] itemA itemB 3

what I need is the list to be like this
@list[0] item1
@list[1] item2
@list[3] 6
@list[4] itemA
@list[5] itemB

my problem is that I can only define one separator at the time.
How can I tell the parser to use "\n" and " " as separators?

What happened when you tried $/=" "; ?

When I use a space as separtor,
@list[3] turns out to be 6\nitemA
because a eoln(\n) is not considered a separator

 

[Javier]

I think this may work... At bit long, but it does the trick.

open (MYFILE, "<Text-1.txt");
my @contents = <MYFILE>;
close (MYFILE);

my @out;
foreach my $line (@contents){
chomp($line);
my @row = split (/ /, $line);
@out = (@out, @row);
}
1;

John

Thanks a bunch..worked on first try.

Javier.

 

[Gunnar Hjalmarsson]

What happened when you tried $/=" "; ?

When I use a space as separtor,
@list[3] turns out to be 6\nitemA
because a eoln(\n) is not considered a separator

Suppose you mean $list[2] ... but yes, you are right. I thought it
'worked' for me, but I just fooled myself.

Using split() works of course, as you know by now.