Re^2: output differs in perl version

But you always can implement the algorithm in a way that does work in 5.8.8. For example like this:

while ( $str1 =~ /^(\S+\s+)(\S+\s+\S+)(.*)$/ ) {
  print "$1$2\n";
  $str1 = "$2$3";
  $n++;
}
[download]

Alternatively, you could use $' (${^POSTMATCH} doesn't work in 5.8.8):

while ( $str1 =~ /^(\S+\s+)(\S+\s+\S+)/ ) {
  print "$1$2\n";
  $str1 = "$2$'";
  $n++;
}
[download]

Comment on Re^2: output differs in perl version Select or Download Code

Replies are listed 'Best First'.
Re^3: output differs in perl version by ikegami (Patriarch) on Jul 05, 2011 at 02:00 UTC
~~Doesn't work.~~	[reply]