Re^2: About $/

Nested declaration may be what you are looking for.

$/="\r";
my @splitted=();
while(<FH>){
 local $/="\003";
 push @splitted,split(/$\//,$_); 
}
[download]

Comment on Re^2: About $/ Download Code

Replies are listed 'Best First'.
Re^3: About $/ by Tux (Canon) on May 24, 2013 at 13:15 UTC
No need for the second `local $/` and the first can be made even more local: `my @splitted = do { local $/ = "\r"; map { split m/\003/ => $_, -1 } <>; };` [download] Enjoy, Have FUN! H.Merijn	[reply] [d/l] [select]
Re^3: About $/ by lddzjwwy (Novice) on May 24, 2013 at 10:48 UTC
This way works very well! Thank you so much! :)	[reply]


The stupid question is the question not asked
	PerlMonks