Re: Appending strings

#!/usr/bin/perl

# http://perlmonks.org/?node_id=1142266

use strict;
use warnings;

my $path = "XX.YY.ZZ";
my $s    = "(ABC | (~dEf & hIJ)) & ~LMn";

print $s =~ s/(\w+)/$path.$1/gr, "\n";
[download]

Comment on Re: Appending strings Download Code

Replies are listed 'Best First'.
Re^2: Appending strings by doofus (Acolyte) on Sep 17, 2015 at 00:26 UTC
I tried it and it says : syntax error at t line 80, near "s/(\w+)/$path.$1/gr" Execution of t aborted due to compilation errors.	[reply]
Re^3: Appending strings by toolic (Bishop) on Sep 17, 2015 at 00:44 UTC
It may be the /r modifier to s///, which was added in perl version 5.14: Regular Expressions. What perl version are you on? `perl -v` [download]	[reply] [d/l]
Re^4: Appending strings by doofus (Acolyte) on Sep 17, 2015 at 00:48 UTC
This is perl, v5.8.8 built for x86_64-linux-thread-multi	[reply]
Re^3: Appending strings by Anonymous Monk on Sep 17, 2015 at 01:50 UTC
`#!/usr/bin/perl # http://perlmonks.org/?node_id=1142266 use strict; use warnings; my $path = "XX.YY.ZZ"; my $s = "(ABC \| (~dEf & hIJ)) & ~LMn"; (my $answer = $s) =~ s/(\w+)/$path.$1/g; print "$answer\n";` [download] Tweaked for older perls.	[reply] [d/l]