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

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

Replies are listed 'Best First'.
Re: Re: Re: Re: Re: Non-fixed data in record
by brassmon_k (Sexton) on Aug 31, 2001 at 21:53 UTC
    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]
        Yes, that is it but I want to have only the "radioChannelProperty" line print. That will print what you showed above. It matches and prints the whole block. Now I can't tell it to print off $line2 if it's "radioChannelProperty" even though that's what I want because in the next record block "radioChannelProperty" could be on line3 so I have to devise a way of telling it to print the "radioChannelProperty" line when it isn't always on the same line for every record block. So in the best way I can explain it, and this isn't proper syntax.

        while block subheading equals "msterminating"
        if match "radioChannelProperty" on line5 print line5 or if
        match "radioChannelProperty" on line10 print line10

        elsif subheading equals "msoriginating"
        if match "radioChannelProperty" on line2 print line2 or if
        match "radioChannelProperty" on line8 print line8

        The Brassmonk
[reply]

In Section Seekers of Perl Wisdom