in reply to Re^5: Bugfixing Old Code
in thread Bugfixing Old Code
and my test below shows that it works:# Split on multiple spaces using regex captured matches my @temp_and_starts = $_ =~ /[^\s +]+/g; my @last_AT_fracs = <$in> =~ /[^\s +]+/g; my @twenty_SFs = (<$in> . <$in> . <$in> . <$in>) =~ /[^\s +]+/g;
$ perl -E '$_="This and that and other";@x= $_=~ /[^\s]+/g;; say for +@x' This and that and other
"The difficult we do today; the impossible takes a little longer."
|
|---|