in reply to Re: Re: Non-fixed data in record
in thread Non-fixed data in record

Nope. You would do something like the following: 
my %data;
@{$data{PCSPLMNCallDataRecord}{mSTerminating}{radioChannelProperty}} =
("00'H", "01'H", "02'H");

[download]
And access it just like you would any array. Just the name is a little longer. :)

------
We are the carpenters and bricklayers of the Information Age.

Vote paco for President!

Replies are listed 'Best First'.
Re: Re: Re: Re: Non-fixed data in record
by brassmon_k (Sexton) on Aug 31, 2001 at 21:37 UTC
    Okay,

    As if you haven't noticed I'm not to good at the hash/array thing. I'm not a newbie though. I'd say I'm intermediate. Anyway okay again for "radioChannelProperty", If I wanted to print this "radioChannelProperty is at Sector 47" for radioChannelProperty's value of 00'H
    I'd have to do this -
    if (radioChannelProperty[0] =~ "00'H") {
print "radioChannelProperty is at Sector 47\n";

    [download]
    However let's say the above worked. How would I tell the script to find that line in the block of text.
    if ($_ =~ /radioChannelProperty/) {

    [download]
    Oh, I'm lost on this one.

    The Brassmon_k
[reply]
[d/l]
[select]
      I guess what I really need to know more than the hash or arrays because thats used primarily for storing values is how to tell the script that if it finds the line I want to print it. I haven't been able to do that because it's always on different lines, and I can't use "$_" for a pattern match because the only way I can get it to print is to print "$_" and I haven't figured out how to say if you match this line print it. I can't say if you match this text on this line print it because the text is on different lines sometimes.

      To make this work I was thinking of using OR's, such as: 
      If ($lines[2] =~ "radioChannelProperty") {
print "$lines[2]"; 
OR
if ($lines[3] =~ "radioChannelProperty") {
print "$lines[3]";
OR
etc...

      [download]
      That's what I really, REALLY need to figure out. I can read on how to construct the arrays and hashes and stuff but as to do the above I have no clue. I haven't tried what I put up there because I think that PERL would laugh at me that was just to give you an example of what I was looking at for desired effect.
      The Brassmonk
[reply]
[d/l]
        while (<IN_FILE>) {
    if (/radioChannelProperty/) {
        print "$_\n";
    }
}

        [download]
        I'm assuimng that that's what you want to do.

        ------
        We are the carpenters and bricklayers of the Information Age.

        Vote paco for President!

[reply]
[d/l]

In Section Seekers of Perl Wisdom