Re: text replacement+

[James Edward Gray II]

On Nov 14, 2003, at 4:13 PM, James Edward Gray II wrote:

my $block;
while (<IN>) {
        if (/^(Block[A-Z]+)/) { $block = $1; }
        elsif (/^\s+([rd]?color)/) {
                my $color = $1;
                s/\d+ \d+ \d+$/$changes{"${block}_$color"}/
                                if exists $changes{"${block}_$color"};
        }
Oops, forgot the print() right here.  Sorry.

	print;

}
James

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