#!/usr/bin/perl -wT
use strict;

my $x = 1;
my $y = '$x';

eval "$y = 6";

print "X:$x\n";
print "Y:$y\n";
[download]

Oh, and Sweeper reminded me in another thread of a USENET post by dominus called Why it's stupid to `use a variable as a variable name'

-Blake

my $x = 1;
my $y = '$x';

eval "$y++";

print $x, "\n";

# Output == 2
[download]

It looks like you want to use symbolic references, but you probably want hard references instead. See References quick reference by tye, then perlref

my $x = 1;
my $y = \$x;
$$y = 2;
print $x;
[download]

After Compline,
Zaxo

Well, while I would recommend using different approaches to something like this, soft references seems like what you're heading for:

my $x = 1 ;
my $y = 'x' ;

$$y++ ; # $x now == 2
[download]

You can't use this while using strict... most would consider that a feature =) Like I said, I'd try to find another way to approach whatever problem you're coding for. Since I don't know anything about it (perhaps this is just a learning exercise), I can't begin to offer more help in that regard.

If you do have a particular problem you're coding for, feel free to ask about alternative methods. TMTOWTDI, after all.

HTH

-Ducky

no strict 'refs';
$x = 1;
$y = "x";
$$y++;
print $x," bad!\n";
[download]

I spit 'use stricts' in your face...

mitd-Made in the Dark
'My favourite colour appears to be grey.'

First of all, in this piece of code, $y doesn't have anything to do with $x because it's single quoted, so $y contains a string which looks like $x

You might want to ref:

my $x = 1;
my $y = \$x;

$$y++;

print $x;
[download]

Update: It turned out that $y has something to do with $x after all.. my bad. see lemming's post below..