Grabbing multiple variables based on name, with regexp?

[mistaroblivion]

Hi everyone,

I have quite a few variables that I'd like to put into a 'vars' pragma
- I'm using a version of perl before the 'our' modifier was
implemented. Anyway, all these scalar variables are called something
like

$file_something, $file_something_else, $file_morestuff ... etc

and there are about 20 or 30 of them. Aside from putting them in a
hash, a package, etc, is there a way I can grab them all based on their
name, inside the parenthesis? Sorta like:

#!/usr/bin/perl
my $file_0 = "thing0";
my $file_1 = "thing1";
use vars (/file_/); #<-- except this obviously doesn't work =(

I think I saw a way to do this once, but now I can't seem to find it.
Any ideas?

Thanks a bunch!

 

[Xicheng]

Hi everyone,

I have quite a few variables that I'd like to put into a 'vars' pragma
- I'm using a version of perl before the 'our' modifier was
implemented. Anyway, all these scalar variables are called something
like

$file_something, $file_something_else, $file_morestuff ... etc

and there are about 20 or 30 of them. Aside from putting them in a
hash, a package, etc, is there a way I can grab them all based on their
name, inside the parenthesis? Sorta like:

#!/usr/bin/perl
my $file_0 = "thing0";
my $file_1 = "thing1";
use vars (/file_/); #<-- except this obviously doesn't work =(

I think I saw a way to do this once, but now I can't seem to find it.
Any ideas?

I guess you were talking about importing some like things from an
external module..
then you can have:

use SomeModule qw(/file_/);

I didn't see people used this on the "vars" module though.
Best,
Xicheng

 

[mistaroblivion]

Yeah, I that must have been where I've seen it. So you're telling me it
can't be done with variables?

 

[Uri Guttman]

m> Hi everyone,
m> I have quite a few variables that I'd like to put into a 'vars' pragma
m> - I'm using a version of perl before the 'our' modifier was
m> implemented. Anyway, all these scalar variables are called something
m> like

m> $file_something, $file_something_else, $file_morestuff ... etc

m> and there are about 20 or 30 of them. Aside from putting them in a
m> hash, a package, etc, is there a way I can grab them all based on their
m> name, inside the parenthesis? Sorta like:

why do you say aside from a hash? the correct answer to having many
related variables is to put them in a hash. what you want can be done
with some simple string munging but isn't worth the effort IMO.

uri

 

[Tad McClellan]

I have quite a few variables that I'd like to put into a 'vars' pragma

Why would you like to do that?

Why not just put them all into a single hash, or use lexical
variables instead?

- I'm using a version of perl before the 'our' modifier was
implemented.

Six years is an awfully long time in "computer years"...

Anyway, all these scalar variables are called something
like

$file_something, $file_something_else, $file_morestuff ... etc

and there are about 20 or 30 of them. Aside from putting them in a
hash,

If you tell us what problem you are trying to avoid by not simply
using a hash, then we might be able to help you with a workaround...

a package, etc, is there a way I can grab them all based on their
name, inside the parenthesis? Sorta like:

#!/usr/bin/perl
my $file_0 = "thing0";
my $file_1 = "thing1";
use vars (/file_/); #<-- except this obviously doesn't work =(

The main benefit of "use vars" is to make "use strict" shutup
when you use the short form of a variable's name.

But you do not have strict turned on, and even if you did the
my() would already be shutting it up.

Any ideas?

I'm sure there would be some if we were told what the underlying
problem is that you are trying to solve.

What underlying problem do you think "use vars" will solve for you?

 

[Tad McClellan]

Yeah,

What are you agreeing with?

So you're telling me it
can't be done with variables?

What can't be done with variables?

Please quote some context in followups like everybody else does.