Re: text replacement+

[Jeff 'japhy' Pinyan]

On Nov 15, Kiko Uehara said:

>---------
> BlockA
>        color 0 0 0
>        rcolor 1 1 1
>        dcolor 2 2 2
>
> BloackB
>        color 0 0 0
>        rcolor 1 1 1
>        dcolor 2 2 2
>---------

> BlockA rcolor "1 1 1" to "4 4 4"
> BlockB rcolor "1 1 1" to "0 0 0".
>
>I have variables like $BlockA_rcolor = "rcolor 4 4 4".

I would suggest a hash instead:

  $change{BlockA}{rcolor} = "4 4 4";
  $change{BlockB}{rcolor} = "0 0 0";

or:

  %change = (
    BlockA => {
      rcolor => "4 4 4",
      # other ones
    },
    BlockB => {
      rcolor => "0 0 0",
      # other ones
    },
    # other blocks
  );

>while (<IN>)
>{
>    if ( $_ =~ m/rcolor/ ) {
>       $_ = $BlockA_rcolor;
>    }
>    print $_;
>}

I'd suggest keeping track of what block you're in, and what "attribute" is
on the line:

  BLOCK: while (<IN>) {
    # skip blank lines
    print, next if /^\s*$/;

    # otherwise extract the block name
    my ($block) = /^(\S+)/;

    # print the line
    print;

    # process the block's contents
    while (<IN>) {
      # restart the OUTER while loop if we're done with this block
      redo BLOCK unless /^\s+(\S+)/;

      # store the attribute
      my $attr = $1;

      # if this block has things to be modified,
      # and this attribute is one of them, change it
      if ($change{$block} and exists $change{$block}{$attr}) {
        s/\Q$attr\E.*/$attr $change{$block}{$attr}/;
      }

      # print the attribute
      print;
    }
  }

Let me know if you understand it, or if you need more explanation.

-- 
Jeff "japhy" Pinyan      [EMAIL PROTECTED]      http://www.pobox.com/~japhy/
RPI Acacia brother #734   http://www.perlmonks.org/   http://www.cpan.org/
<stu> what does y/// stand for?  <tenderpuss> why, yansliterate of course.
[  I'm looking for programming work.  If you like my work, let me know.  ]


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]