How to add to Associative Array

This is a multi-part message in MIME format.

--===============0877690443==
Content-class: urn:content-classes:message
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C7C2C5.308F9379"

This is a multi-part message in MIME format.

------_=_NextPart_001_01C7C2C5.308F9379
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Hello,
I want to add to Associative Array dynamically (means=3D> I don't =
exact size of Associative Array).
=20
Ex: In test.txt I have the fallowing data.
red,danger
blue,going smooth
yellow, pending
Green, accept.
....etc
=20
I have to add these values to Associative Array
like
%info=3D (red =3D>danger=20
blue =3D>going smooth
yellow =3D> pending
Green=3D>accept.
...etc)
=20
For these I have read the test.txt line by line and add to %info. Please =
guide me how to do this....


=20
Thanks && Regards=20
Karunakar Reddy B.V.=20

BSH Bosch Siemens Hausgeräte GmbH


------_=_NextPart_001_01C7C2C5.308F9379
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable



charset=3Diso-8859-1">

Re: How to add to Associative Array

Beri-Veera-ext, Reddy (n.a.) wrote:
> Hello,
> I want to add to Associative Array dynamically (means=> I don't exact
> size of Associative Array).
>
> Ex: In test.txt I have the fallowing data.
> red,danger
> blue,going smooth
> yellow, pending
> Green, accept.
> ....etc
>
> I have to add these values to Associative Array
> like
> %info= (red =>danger
> blue =>going smooth
> yellow => pending
> Green=>accept.
> ...etc)
>
> For these I have read the test.txt line by line and add to %info. Please
> guide me how to do this....

use strict;
use warnings;

my @lines = ( # phoney test data simulating file data
"red,danger\n",
"blue,going smooth\n",
"yellow, pending\n",
"Green, accept\n",
);

my %info = ();
foreach (@lines) { # would normally be: while () { # reading from file
chomp;
my @a = split /\s*,\s*/;
$info{$a[0]} = $a[1];
}
print "$_ => $info{$_}\n" foreach keys %info;

__END__
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: [RMX:#] Re: How to add to Associative Array

Hi,
Thanks for your quick info. How I will get
my @lines = ( # phoney test data simulating file data
"red,danger\n",
"blue,going smooth\n",
"yellow, pending\n",
"Green, accept\n",
);
How I will convert test.txt to @line.
Please explain this.


Thanks && Regards
Karunakar Reddy B.V.


-----Original Message-----
From: Bill Luebkert [mailto:dbecoll@roadrunner.com]
Sent: 10 July 2007 09:48
To: Beri-Veera-ext, Reddy (n.a.)
Cc: ActivePerl
Subject: [RMX:#] Re: How to add to Associative Array

Beri-Veera-ext, Reddy (n.a.) wrote:
> Hello,
> I want to add to Associative Array dynamically (means=> I don't
exact
> size of Associative Array).
>
> Ex: In test.txt I have the fallowing data.
> red,danger
> blue,going smooth
> yellow, pending
> Green, accept.
> ....etc
>
> I have to add these values to Associative Array
> like
> %info= (red =>danger
> blue =>going smooth
> yellow => pending
> Green=>accept.
> ...etc)
>
> For these I have read the test.txt line by line and add to %info.
Please
> guide me how to do this....

use strict;
use warnings;

my @lines = ( # phoney test data simulating file data
"red,danger\n",
"blue,going smooth\n",
"yellow, pending\n",
"Green, accept\n",
);

my %info = ();
foreach (@lines) { # would normally be: while () { # reading
from file
chomp;
my @a = split /\s*,\s*/;
$info{$a[0]} = $a[1];
}
print "$_ => $info{$_}\n" foreach keys %info;

__END__
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: How to add to Associative Array

Beri-Veera-ext, Reddy (n.a.) wrote on Tue, Jul 10, 2007 at 09:37:37AM +0200:

> I want to add to Associative Array dynamically
> (means=> I don't exact size of Associative Array).

That's what these beasts are meant for in the first place. RTFM.

> Ex: In test.txt I have the fallowing data.
> red,danger
> blue,going smooth
> yellow, pending
> Green, accept.
> ....etc
>
> I have to add these values to Associative Array
> like
> %info= (red =>danger
> blue =>going smooth
> yellow => pending
> Green=>accept.
> ...etc)
>
> For these I have read the test.txt line by line and add to %info.
> Please guide me how to do this....

ischwarze@ischwarze:~$ perl -e 'while (<>) {/(.+),(.*)/ and $info{$1}=$2}; use Data::Dumper; print %info."\n".Dumper(\%info);'
red,danger
blue,going smooth
yellow, pending
green,accept
4/8
$VAR1 = {
'green' => 'accept',
'blue' => 'going smooth',
'red' => 'danger',
'yellow' => ' pending'
};

> Karunakar Reddy B.V.
> BSH Bosch Siemens Hausgeraete GmbH

Are you trolling?
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: [RMX:#] Re: How to add to Associative Array

If you want to read the lines in from a file, you need to open a filehandle:
open(IN, $path_to_my_file) or die "Couldn't open file: $!\n";

then use the IN filehandle in the while loop, such as::
foreach () {
# stuff to do with each line
# ...
}

The close the filehandle with:
close IN;

Hope this helps
Nath


Quoting "Beri-Veera-ext, Reddy (n.a.)" :

> Hi,
> Thanks for your quick info. How I will get
> my @lines = ( # phoney test data simulating file data
> "red,danger\n",
> "blue,going smooth\n",
> "yellow, pending\n",
> "Green, accept\n",
> );
> How I will convert test.txt to @line.
> Please explain this.
>
>
> Thanks && Regards
> Karunakar Reddy B.V.
>
>
> -----Original Message-----
> From: Bill Luebkert [mailto:dbecoll@roadrunner.com]
> Sent: 10 July 2007 09:48
> To: Beri-Veera-ext, Reddy (n.a.)
> Cc: ActivePerl
> Subject: [RMX:#] Re: How to add to Associative Array
>
> Beri-Veera-ext, Reddy (n.a.) wrote:
> > Hello,
> > I want to add to Associative Array dynamically (means=> I don't
> exact
> > size of Associative Array).
> >
> > Ex: In test.txt I have the fallowing data.
> > red,danger
> > blue,going smooth
> > yellow, pending
> > Green, accept.
> > ....etc
> >
> > I have to add these values to Associative Array
> > like
> > %info= (red =>danger
> > blue =>going smooth
> > yellow => pending
> > Green=>accept.
> > ...etc)
> >
> > For these I have read the test.txt line by line and add to %info.
> Please
> > guide me how to do this....
>
> use strict;
> use warnings;
>
> my @lines = ( # phoney test data simulating file data
> "red,danger\n",
> "blue,going smooth\n",
> "yellow, pending\n",
> "Green, accept\n",
> );
>
> my %info = ();
> foreach (@lines) { # would normally be: while () { # reading
> from file
> chomp;
> my @a = split /\s*,\s*/;
> $info{$a[0]} = $a[1];
> }
> print "$_ => $info{$_}\n" foreach keys %info;
>
> __END__
> _______________________________________________
> ActivePerl mailing list
> ActivePerl@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>


_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: [RMX:#] Re: How to add to Associative Array

This is a multi-part message in MIME format.

------_=_NextPart_001_01C7C2CF.E5B36123
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

Hi all,
I wrote a sample program with your guide lines but the associative
array has double entries. Please the attachment for my program and
test.txt file. Please tell me what I did the wrong.=20


Thanks && Regards=20
Karunakar Reddy B.V.=20

-----Original Message-----
From: Nathan S. Haigh [mailto:N.Haigh@sheffield.ac.uk]=20
Sent: 10 July 2007 10:10
To: Beri-Veera-ext, Reddy (n.a.)
Cc: Bill Luebkert; ActivePerl
Subject: RE: [RMX:#] Re: How to add to Associative Array

If you want to read the lines in from a file, you need to open a
filehandle:
open(IN, $path_to_my_file) or die "Couldn't open file: $!\n";

then use the IN filehandle in the while loop, such as::
foreach () {
# stuff to do with each line
# ...
}

The close the filehandle with:
close IN;

Hope this helps
Nath


Quoting "Beri-Veera-ext, Reddy (n.a.)" :

> Hi,
> Thanks for your quick info. How I will get =20
> my @lines =3D ( # phoney test data simulating file data
> "red,danger\n",
> "blue,going smooth\n",
> "yellow, pending\n",
> "Green, accept\n",
> );
> How I will convert test.txt to @line.=20
> Please explain this.
>=20
>=20
> Thanks && Regards=20
> Karunakar Reddy B.V.=20
>=20
>=20
> -----Original Message-----
> From: Bill Luebkert [mailto:dbecoll@roadrunner.com]=20
> Sent: 10 July 2007 09:48
> To: Beri-Veera-ext, Reddy (n.a.)
> Cc: ActivePerl
> Subject: [RMX:#] Re: How to add to Associative Array
>=20
> Beri-Veera-ext, Reddy (n.a.) wrote:
> > Hello,
> > I want to add to Associative Array dynamically (means=3D> I don't
> exact=20
> > size of Associative Array).
> > =20
> > Ex: In test.txt I have the fallowing data.
> > red,danger
> > blue,going smooth
> > yellow, pending
> > Green, accept.
> > ....etc
> > =20
> > I have to add these values to Associative Array
> > like
> > %info=3D (red =3D>danger
> > blue =3D>going smooth
> > yellow =3D> pending
> > Green=3D>accept.
> > ...etc)
> > =20
> > For these I have read the test.txt line by line and add to %info.
> Please=20
> > guide me how to do this....
>=20
> use strict;
> use warnings;
>=20
> my @lines =3D ( # phoney test data simulating file data
> "red,danger\n",
> "blue,going smooth\n",
> "yellow, pending\n",
> "Green, accept\n",
> );
>=20
> my %info =3D ();
> foreach (@lines) { # would normally be: while () { # reading
> from file
> chomp;
> my @a =3D split /\s*,\s*/;
> $info{$a[0]} =3D $a[1];
> }
> print "$_ =3D> $info{$_}\n" foreach keys %info;
>=20
> __END__
> _______________________________________________
> ActivePerl mailing list
> ActivePerl@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>=20


------_=_NextPart_001_01C7C2CF.E5B36123
Content-Type: text/plain;
name="test.txt"
Content-Transfer-Encoding: base64
Content-Description: test.txt
Content-Disposition: attachment;
filename="test.txt"

Iw0KIyBCU0ggRXhwb3J0IFNlcnZlciBKb2IgRmlsZQ0KIyBjcmVhdGVkIHdp dGggc3R5bGVzaGVl
dCB2ZXJzaW9uIDEuMC4yDQojDQpCU0ggRXhwb3J0IFNlcnZlciBKb2IgRmls ZQ0KdmVyc2lvbj0x
LjAuMg0KDQpQTE1FSm9iDQppdGVtX2lkPVBMTUVKT0IwMDAwMDAwMDAyDQpp dGVtX3VpZD1TTkVa
RkQ2YVI2cVRQRA0Kd29ya2Zsb3dfdWlkPQ0KDQpQTE1FSm9iIE1hc3Rlcg0K bWFzdGVyX2Zvcm1f
dWlkPVNOSFpGRDZhUjZxVFBEDQpwbG1lX21fam9iX2RfMDE9DQpwbG1lX21f am9iX2RfMDI9DQpw
bG1lX21fam9iX2RfMDM9DQpwbG1lX21fam9iX2lfMDE9MA0KcGxtZV9tX2pv Yl9pXzAyPTANCnBs
bWVfbV9qb2JfaV8wMz0wDQpwbG1lX21fam9iX2xfMDE9DQpwbG1lX21fam9i X2xfMDI9DQpwbG1l
X21fam9iX3NfMDE9DQpwbG1lX21fam9iX3NfMDI9DQpwbG1lX21fam9iX3Nf MDM9DQpwbG1lX21f
am9iX3NfMDQ9QlNIIEV4cG9ydA0KcGxtZV9tX2pvYl9zXzA1PQ0KcGxtZV9t X2pvYl9zXzA2PQ0K
cGxtZV9tX2pvYl9zXzA3PQ0KcGxtZV9tX2pvYl9zXzA4PQ0KcGxtZV9tX2pv Yl9zXzA5PQ0KcGxt
ZV9tX2pvYl9zXzEwPQ0KcGxtZV9tX2pvYl9zXzExPVRvIENvbnZlcnQNCnBs bWVfbV9qb2Jfc18x
Mj0NCnBsbWVfbV9qb2Jfc18xMz0NCg0KUExNRUpvYiBSZXZpc2lvbg0KaXRl bV9yZXZpc2lvbl9p
ZD1BDQppdGVtX3JldmlzaW9uX3VpZD1TUkxaRkQ2YVI2cVRQRA0KDQpSZWZl cmVuY2VkIEl0ZW0g
UmV2aXNpb25zDQpJdGVtOzAxMjg2MztBO0lNQU5fc3BlY2lmaWNhdGlvbjtV R1BBUlQ7MDEyODYz
X2RyMDE7cWFmO2R3Z19zaHQxLnFhZg0KSXRlbTswMTI4NjM7QTtJTUFOX3Nw ZWNpZmljYXRpb247
VUdQQVJUOzAxMjg2M19kcjAxO3FhZjtxYWZtZXRhZGF0YS5xYWYNCkl0ZW07 MDEyODYzO0E7SU1B
Tl9zcGVjaWZpY2F0aW9uO1VHUEFSVDswMTI4NjNfZHIwMTtwcnQ7MDEyODYz X2RyMDEucHJ0DQpJ
dGVtOzAxMjg2MztBO0lNQU5fc3BlY2lmaWNhdGlvbjtVR01BU1RFUjswMTI4 NjMtYTtxYWY7aW1h
Z2VzX3ByZXZpZXcucWFmDQpJdGVtOzAxMjg2MztBO0lNQU5fc3BlY2lmaWNh dGlvbjtVR01BU1RF
UjswMTI4NjMtYTtxYWY7cWFmbWV0YWRhdGEucWFmDQpJdGVtOzAxMjg2MztB O0lNQU5fc3BlY2lm
aWNhdGlvbjtVR01BU1RFUjswMTI4NjMtYTtwcnQ7MDEyODYzX2EucHJ0DQpJ dGVtOzAxMjg2NDtB
O0lNQU5fc3BlY2lmaWNhdGlvbjtVR01BU1RFUjswMTI4NjQtYTtxYWY7aW1h Z2VzX3ByZXZpZXcu
cWFmDQpJdGVtOzAxMjg2NDtBO0lNQU5fc3BlY2lmaWNhdGlvbjtVR01BU1RF UjswMTI4NjQtYTtx
YWY7cWFmbWV0YWRhdGEucWFmDQpJdGVtOzAxMjg2NDtBO0lNQU5fc3BlY2lm aWNhdGlvbjtVR01B
U1RFUjswMTI4NjQtYTtwcnQ7MDEyODY0X2EucHJ0DQpJdGVtOzAxMjg2NDtB O0lNQU5fc3BlY2lm
aWNhdGlvbjtVR1BBUlQ7MDEyODY0X2RyMDE7cWFmO2R3Z19zaHQxLnFhZg0K SXRlbTswMTI4NjQ7
QTtJTUFOX3NwZWNpZmljYXRpb247VUdQQVJUOzAxMjg2NF9kcjAxO3FhZjtx YWZtZXRhZGF0YS5x
YWYNCkl0ZW07MDEyODY0O0E7SU1BTl9zcGVjaWZpY2F0aW9uO1VHUEFSVDsw MTI4NjRfZHIwMTtw
cnQ7MDEyODY0X2RyMDEucHJ0DQpJdGVtOzAxMjg2NDtBO0lNQU5fc3BlY2lm aWNhdGlvbjtQREZE
cmF3aW5nOzAxMjg2NCxBO3BkZjsydGllci5wZGYNCkl0ZW07MDEyODY0O0E7 SU1BTl9zcGVjaWZp
Y2F0aW9uO1BERkRyYXdpbmc7MDEyODY0LEENCkl0ZW07MDEyODYyO0E7SU1B Tl9zcGVjaWZpY2F0
aW9uO1VHTUFTVEVSOzAxMjg2Mi1hO3FhZjtpbWFnZXNfcHJldmlldy5xYWYN Ckl0ZW07MDEyODYy
O0E7SU1BTl9zcGVjaWZpY2F0aW9uO1VHTUFTVEVSOzAxMjg2Mi1hO3FhZjtx YWZtZXRhZGF0YS5x
YWYNCkl0ZW07MDEyODYyO0E7SU1BTl9zcGVjaWZpY2F0aW9uO1VHTUFTVEVS OzAxMjg2Mi1hO3By
dDswMTI4NjJfYS5wcnQNCkl0ZW07MDEyODYyO0E7SU1BTl9zcGVjaWZpY2F0 aW9uO1VHUEFSVDsw
MTI4NjJfZHIwMTtxYWY7ZHdnX3NodDEucWFmDQpJdGVtOzAxMjg2MjtBO0lN QU5fc3BlY2lmaWNh
dGlvbjtVR1BBUlQ7MDEyODYyX2RyMDE7cWFmO3FhZm1ldGFkYXRhLnFhZg0K SXRlbTswMTI4NjI7
QTtJTUFOX3NwZWNpZmljYXRpb247VUdQQVJUOzAxMjg2Ml9kcjAxO3BydDsw MTI4NjJfZHIwMS5w
cnQNCg0KUExNRUpvYiBSZWZlcmVuY2VkIERhdGFzZXRzDQpJTUFOX3JlZmVy ZW5jZTtUZXh0O1BM
TUVKT0IwMDAwMDAwMDAyO3R4dDsyMi50eHQNCklNQU5fcmVmZXJlbmNlO1BE RkRyYXdpbmc7cGRm
YXR0O3BkZjt3b3JrZmxvd19wcm9jZXNzLnBkZg0KSU1BTl9yZWZlcmVuY2U7 UERGRHJhd2luZztw
ZGZhdHQNCg0KUExNRUpvYiBSZXZpc2lvbiBSZWZlcmVuY2VkIERhdGFzZXRz

------_=_NextPart_001_01C7C2CF.E5B36123
Content-Type: application/octet-stream;
name="cr_ass_array.pl"
Content-Transfer-Encoding: base64
Content-Description: cr_ass_array.pl
Content-Disposition: attachment;
filename="cr_ass_array.pl"

IyEvdXNyL2Jpbi9wZXJsDQokUEFUSF9ERUxJTQkJCT0gIlxcIjsNCiRmaWxl ID0gImM6XFx0ZW1w
Ii4kUEFUSF9ERUxJTS4iZXhwb3J0Ii4kUEFUSF9ERUxJTS4iQ09OVkVSU0lP TiIuJFBBVEhfREVM
SU0uInRlc3QudHh0IjsNCiVpbmZvID0oKTsNCmlmKG9wZW4gKFRFU1QgLCI8 JGZpbGUiKSkNCnsN
CiAgd2hpbGUoPFRFU1Q+KQ0KICB7DQogIGNob21wOw0KICBpZiAoICRfICF+ IC9QTE1FSm9iIE1h
c3Rlci8gKQ0KICAgICAgICB7DQogICAgICAgICAgICAgICAgbmV4dCA7DQog ICAgICAgIH0gDQog
ICAgICAgICRfID0gPFRFU1Q+IDsNCiAgICAgICAgY2hvbXA7DQogICAgICAg ICB3aGlsZSAoICRf
ICF+IC9eJC8pDQogICAgICAgIHsNCiAgICAgICAgICAgcHJpbnQgIiRfXG4i Ow0KICAgICAgICAg
ICBteSBAYSA9IHNwbGl0IC89LzsNCgkgICAgICAgICAkaW5mb3skYVswXX0g PSAkYVsxXTsgIA0K
CSAgICAgICAgICRfID0gPFRFU1Q+Ow0KCSAgICAgICAgIGNob21wOw0KICAg ICAgICB9IA0KICAg
ICAgICBjbG9zZShURVNUKTsgICANCiAgfQ0KfQ0KI2Nsb3NlKFRFU1QpOw0K Zm9yZWFjaCglaW5m
bykNCnsNCiAgcHJpbnQgIiRfID0+ICRpbmZveyRffVxuIg0KfQ0KI3ByaW50 ICIkXyA9PiAkaW5m
b3skX31cbiIgZm9yZWFjaCBrZXlzICVpbmZvOw0K

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

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
------_=_NextPart_001_01C7C2CF.E5B36123--

Re: [RMX:#] Re: How to add to Associative Array

Beri-Veera-ext, Reddy (n.a.) wrote:
> Hi all,
> I wrote a sample program with your guide lines but the associative
> array has double entries. Please the attachment for my program and
> test.txt file. Please tell me what I did the wrong.

If you post a script without the use strict and use warnings, I'll
pass on replying:

#!/usr/bin/perl

use strict;
use warnings;

my $file = 'C:/temp/export/CONVERSION/test.txt';
$file = 'data/test.txt'; # modified for me
my %info = ();

open TEST, $file or die "open $file: $! ($^E)";
my $found = 0;
while () {
chomp;
if (/PLMEJob Master/) {
$found = 1;
next;
}
if ($found) {
last if /^\s*$/;
my @a = split /=/;
$info{$a[0]} = $a[1] || ''; # or use something like 'No value'
}
}
close TEST;
print "$_ => $info{$_}\n" foreach keys %info;

__END__

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs