Re^2: Use of uninitialized value in concatenation

>perl -wMstrict -le
"my %words = map { $_ => 1 } qw($Word $name);
 my $line = '$Word $ $foo';
 $line =~ s/(\$\w*)/exists $words{$1} ? $1 : qq{ dollar }/eg;
 print $line;
"
$Word  dollar   dollar
[download]

I think the OPer wants '$foo' to be replaced by 'dollarfoo'. And what's with the extra spaces?

Comment on Re^2: Use of uninitialized value in concatenation Select or Download Code

Replies are listed 'Best First'.
Re^3: Use of uninitialized value in concatenation by gem555 (Acolyte) on Jun 11, 2009 at 11:20 UTC
`#!/usr/bin/perl -w use strict; my %words = map { $_ => 1 } qw($Word $name); my $line = '$Word $ $foo'; $line =~ s/(\$\w*)/exists $words{$1} ? $1 : qq{ dollar }/eg; print $line;` [download] For $foo it prints dollar and not dollarfoo. But still gets a warning message	[reply] [d/l]
Re^4: Use of uninitialized value in concatenation by AnomalousMonk (Archbishop) on Jun 11, 2009 at 15:20 UTC
I'm confused. The code you post in Re^3: Use of uninitialized value in concatenation is essentially identical to the code I posted in Re^2: Use of uninitialized value in concatenation. I agree that instead of printing `'dollarfoo'` as you require, it prints `'dollar'`, but I get no warnings at all. Can you please post the exact code you are executing and the execution output so I can see the exact warning message? (This is only to satisfy my curiosity; there is no urgency.)	[reply] [d/l] [select]
Re^5: Use of uninitialized value in concatenation by Anonymous Monk on Jun 12, 2009 at 04:08 UTC
`#!/usr/bin/perl -w use strict; use warnings; my %words = map { $_ => 1 } qw($Word $name $test); my $line = '$Word $ $ $ $test $testing'; $line =~ s/(\$(\w+)*)/exists $words{$1} ? $1 : "dollar$2"/eg; print "$line\n\n";` [download] The exact code I am using is this. When I execute this : output is `Use of uninitialized value in concatenation (.) or string at ex.pl lin +e 6. Use of uninitialized value in concatenation (.) or string at ex.pl lin +e 6. Use of uninitialized value in concatenation (.) or string at ex.pl lin +e 6. $Word dollar dollar dollar $test dollartesting` [download] The problem is with "$2". How to define $2.	[reply] [d/l] [select]
Re^6: Use of uninitialized value in concatenation by AnomalousMonk (Archbishop) on Jun 12, 2009 at 15:48 UTC