another doggone newbie question about hash fiddling...

This is a multipart message in MIME format.
--===============0743891982==
Content-Type: multipart/alternative;
boundary="=_alternative 006D8AF0862573A7_="

This is a multipart message in MIME format.
--=_alternative 006D8AF0862573A7_=
Content-Type: text/plain; charset="US-ASCII"

Gurus,

I'm embarrassed to have to ask this, but my books don't mention it, and
neither does perldoc. I'm looking for a way to do a substitution to all
values of a hash in one line, something using, oh, grep, or map... What I
want to do is change the values of this hash:

my %foo = ( '01' => 'abc/SID/def',
'02' => 'bcd/SID/fgh',
'03' => 'hjk/SID/opq' );

to

$foo{'01'} = 'abc/12345/def';
$foo{'02'} = 'bcd/12345/fgh';
$foo{'03'} = 'hjk/12345/opq';

In other words, I want to replace the text 'SID' in each value of the hash
with the text '12345' using one line of code. Can this be done?

Thanks,

Deane Rothenmaier
Programmer/Analyst
Walgreens Corp.
847-914-5150

Let us permit nature to have her way; she understands her business better
than we do. -- Michel de Montaigne
--=_alternative 006D8AF0862573A7_=
Content-Type: text/html; charset="US-ASCII"

 Gurus,
 
 I'm embarrassed to have to ask this,
but my books don't mention it, and neither does perldoc. I'm looking
for a way to do a substitution to all values of a hash in one line, something
using, oh, grep, or map... What I want to do is change the values
of this hash:
 
 my %foo = ( '01' => 'abc/SID/def',
 
'02' => 'bcd/SID/fgh',
 
'03' => 'hjk/SID/opq' );
 
 to 
 
 $foo{'01'} = 'abc/12345/def';
 $foo{'02'} = 'bcd/12345/fgh';
 $foo{'03'} = 'hjk/12345/opq';
 
 In other words, I want to replace the
text 'SID' in each value of the hash with the text '12345' using one line
of code. Can this be done?
 
 Thanks,
 
 Deane Rothenmaier 
Programmer/Analyst 
Walgreens Corp. 
847-914-5150 
 
Let us permit nature to have her way; she understands her business better
than we do. -- Michel de Montaigne
--=_alternative 006D8AF0862573A7_=--

--===============0743891982==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0743891982==--

Deane.Rothenmaier [ Di, 04 Dezember 2007 20:56 ] [ ID #1885735 ]

Re: another doggone newbie question about hash fiddling...

This is a multipart message in MIME format.
--===============1177815806==
Content-Type: multipart/alternative;
boundary="=_alternative 00723714862573A7_="

This is a multipart message in MIME format.
--=_alternative 00723714862573A7_=
Content-Type: text/plain; charset="US-ASCII"

William,

That's what I was looking for! Thanks a heap!!

Deane Rothenmaier
Programmer/Analyst
Walgreens Corp.
847-914-5150

Let us permit nature to have her way; she understands her business better
than we do. -- Michel de Montaigne
--=_alternative 00723714862573A7_=
Content-Type: text/html; charset="US-ASCII"

 William,
 
 That's what I was looking for! Thanks
a heap!!
 
 Deane Rothenmaier 
Programmer/Analyst 
Walgreens Corp. 
847-914-5150 
 
Let us permit nature to have her way; she understands her business better
than we do. -- Michel de Montaigne
--=_alternative 00723714862573A7_=--

--===============1177815806==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============1177815806==--

Deane.Rothenmaier [ Di, 04 Dezember 2007 21:47 ] [ ID #1885736 ]

RE: another doggone newbie question about hash fiddling...

This is a multipart message in MIME format.

--===============0615181842==
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0180_01C83673.EA4D42D0"
Content-Language: en-ca

This is a multipart message in MIME format.

------=_NextPart_000_0180_01C83673.EA4D42D0
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: 7bit

You said: "I want to replace the text 'SID' in each value of the hash with the text '12345'".

English to perl translation:

s/SID/12345/ for values %foo;

Cheers,

-Jan

From: activeperl-bounces [at] listserv.ActiveState.com [mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of
Deane.Rothenmaier [at] walgreens.com
Sent: December 4, 2007 11:56 AM
To: activeperl [at] listserv.ActiveState.com
Subject: another doggone newbie question about hash fiddling...

Gurus,

I'm embarrassed to have to ask this, but my books don't mention it, and neither does perldoc. I'm looking for a way to do a
substitution to all values of a hash in one line, something using, oh, grep, or map... What I want to do is change the values of
this hash:

my %foo = ( '01' => 'abc/SID/def',
'02' => 'bcd/SID/fgh',
'03' => 'hjk/SID/opq' );

to

$foo{'01'} = 'abc/12345/def';
$foo{'02'} = 'bcd/12345/fgh';
$foo{'03'} = 'hjk/12345/opq';

In other words, I want to replace the text 'SID' in each value of the hash with the text '12345' using one line of code. Can this
be done?

Thanks,

Deane Rothenmaier
Programmer/Analyst
Walgreens Corp.
847-914-5150

Let us permit nature to have her way; she understands her business better than we do. -- Michel de Montaigne

------=_NextPart_000_0180_01C83673.EA4D42D0
Content-Type: text/html;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

<html xmlns:v=3D"urn:schemas-microsoft-com:vml" =
xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:m=3D"http://schemas.microsoft.com/office/2004/12/omml" =
xmlns=3D"http://www.w3.org/TR/REC-html40">

<head>
<meta http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dus-ascii">
<meta name=3DGenerator content=3D"Microsoft Word 12 (filtered medium)">
<style>

</style>

</head>

<body lang=3DEN-US link=3Dblue vlink=3Dpurple>

<div class=3DSection1>

You said: “I want to replace the text 'SID' in each =
value
of the hash with the text '12345'”.<o:p></o:p>

<o:p> </o:p>

English to perl translation:<o:p></o:p>

<o:p> </o:p>

s/SID/12345/ for values =
%foo;<o:p></o:p>

<o:p> </o:p>

Cheers,<o:p></o:p>

-Jan<o:p></o:p>

<a name=3D"_MailEndCompose"><o:p> </o:p></span=
></a>

<div style=3D'border:none;border-left:solid blue 1.5pt;padding:0cm 0cm =
0cm 4.0pt'>

<div>

<div style=3D'border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt =
0cm 0cm 0cm'>

From:=

activeperl-bounces [at] listserv.ActiveState.com
[mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of =
Deane.Rothenmaier [at] walgreens.com 
Sent: December 4, 2007 11:56 AM 
To: activeperl [at] listserv.ActiveState.com 
Subject: another doggone newbie question about hash =
fiddling...<o:p></o:p>

</div>

</div>

<o:p> </o:p>

 
 Gurus,=
 
 
I'm =
embarrassed
to have to ask this, but my books don't mention it, and neither does =
perldoc.
I'm looking for a way to do a substitution to all values of a hash =
in one
line, something using, oh, grep, or map... What I want to do is =
change
the values of this hash: 
 
my =
%foo =3D (
'01' =3D> 'abc/SID/def', 
 =

=
'02'
=3D> 'bcd/SID/fgh', 
 =

=
'03'
=3D> 'hjk/SID/opq' ); 
 
to =
 
 
 $foo{'01'} =
=3D
'abc/12345/def'; 
 $foo{'02'} =
=3D
'bcd/12345/fgh'; 
 $foo{'03'} =
=3D
'hjk/12345/opq'; 
 
In =
other words,
I want to replace the text 'SID' in each value of the hash with the text
'12345' using one line of code. Can this be done? 
 
 Thanks,</span=
> 
 
Deane
Rothenmaier 
Programmer/Analyst 
Walgreens Corp. 
847-914-5150 
 
Let us permit nature to have her way; she understands her business =
better than
we do. -- Michel de Montaigne<o:p></o:p>

</div>

</div>

</body>

</html>

------=_NextPart_000_0180_01C83673.EA4D42D0--

--===============0615181842==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0615181842==--

Jan Dubois [ Di, 04 Dezember 2007 21:48 ] [ ID #1885737 ]

Re: another doggone newbie question about hash fiddling...

my %foo = ( '01' => 'abc/SID/def',
'02' => 'bcd/SID/fgh',
'03' => 'hjk/SID/opq' );

to

$foo{'01'} = 'abc/12345/def';
$foo{'02'} = 'bcd/12345/fgh';
$foo{'03'} = 'hjk/12345/opq';

$foo{$_} =~ s/SID/12345/ for keys %foo;

a

Andy Bach
Systems Mangler
Internet: andy_bach [at] wiwb.uscourts.gov
VOICE: (608) 261-5738 FAX 264-5932

Remember, the first rule of optimisation is: don't do it yet. :-) Brian
Raven

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Andy_Bach [ Di, 04 Dezember 2007 22:14 ] [ ID #1885738 ]

RE: another doggone newbie question about hash fiddling...

> English to perl translation:

s/SID/12345/ for values %foo;

Nice - this takes advantage of the fact that $_ here is a reference to the
actual value of the hash so that the subst. works directly on the hash.
The same fact works for arrays too
[at] foo = ('abc/SID/def', 'bcd/SID/fgh', 'hjk/SID/opq' );

foreach ( [at] foo ) {
s/SID/12345/;
}

or:
s/SID/12345/ for [at] foo;

It's also a cautionary tale - if you're using the default "$_" in for
loops, you can munge your original data.
foreach my $foo ( [at] foo ) {
$foo =~ s/SID/12345/;
}

this doesn't mess w/ [at] foo.

a

Andy Bach
Systems Mangler
Internet: andy_bach [at] wiwb.uscourts.gov
VOICE: (608) 261-5738 FAX 264-5932

Remember, the first rule of optimisation is: don't do it yet. :-) Brian
Raven

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Andy_Bach [ Di, 04 Dezember 2007 22:20 ] [ ID #1885739 ]

RE: another doggone newbie question about hash fiddling...

On Tue, 04 Dec 2007, Andy_Bach [at] wiwb.uscourts.gov wrote:
> It's also a cautionary tale - if you're using the default "$_" in for
> loops, you can munge your original data.
> foreach my $foo ( [at] foo ) {
> $foo =~ s/SID/12345/;
> }
>
> this doesn't mess w/ [at] foo.

That is not correct; it will still modify [at] foo. It only protects
you against functions that you might call inside of your for() loop
from messing with your values via $_, which is a global variable
in Perl 5.8.

Note that you can have a lexical $_ in 5.10:

foreach my $_ ( [at] foo ) {
s/SID/12345/;
}

Cheers,
-Jan

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Jan Dubois [ Di, 04 Dezember 2007 22:41 ] [ ID #1885740 ]

RE: another doggone newbie question about hash fiddling...

--------------8<---------------
Note that you can have a lexical $_ in 5.10:

foreach my $_ ( [at] foo ) {
s/SID/12345/;
}
--------------8<---------------

Arrrrgggghhhh! Why is that considered a good feature to add to 5.10?

Sure scoping and all, but do the other perlvars behave the same? I kind of like the local rule of thumb for perlvar . . .

Just in

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Justin Allegakoen [ Mi, 05 Dezember 2007 03:20 ] [ ID #1886681 ]

RE: another doggone newbie question about hash fiddling...

--------------8<---------------
Note that you can have a lexical $_ in 5.10:

foreach my $_ ( [at] foo ) {
s/SID/12345/;
}
--------------8<---------------

Arrrrgggghhhh! Why is that considered a good feature to add to 5.10?

Sure scoping and all, but do the other perlvars behave the same? I kind of like the local rule of thumb for perlvar . . .

Just in

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Justin Allegakoen [ Mi, 05 Dezember 2007 03:20 ] [ ID #1886682 ]

RE: another doggone newbie question about hash fiddling...

On Tue, 04 Dec 2007, Justin Allegakoen wrote:
> --------------8<---------------
> Note that you can have a lexical $_ in 5.10:
>
> foreach my $_ ( [at] foo ) {
> s/SID/12345/;
> }
> --------------8<---------------
>
> Arrrrgggghhhh! Why is that considered a good feature to add to 5.10?
>
> Sure scoping and all, but do the other perlvars behave the same? I
> kind of like the local rule of thumb for perlvar . . .

This is special-cased for $_. From perlvar.pod:

| As C<$_> is a global variable, this may lead in some cases to unwanted
| side-effects. As of perl 5.9.1, you can now use a lexical version of
| C<$_> by declaring it in a file or in a block with C<my>. Moreover,
| declaring C<our $_> restores the global C<$_> in the current scope.

Cheers,
-Jan

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Jan Dubois [ Mi, 05 Dezember 2007 05:04 ] [ ID #1886683 ]