Re: Interpolate variable in a __DATA__ block

[Gunnar Hjalmarsson]

Trudge wrote:

I'm trying to get a script to interpolate variable values in a
__DATA__ block if possible. This is a kind of alternative to a full-
blown template method. I'm not sure if I can even do what I want,
hence my posting here.

It can be done; see the FAQ entry

    perldoc -q "expand variables"

<snip>

        while (<DATA>)
        {
                chomp;
                if ($_ eq "<$data>")
                {
                        next;
                        print "$_\n";
                }
                if ($_ eq "</$data>")
                {
                        last;
                }
                print "$_\n";
        }

Try to replace that with:

        while (<DATA>) {
                chomp;
                next if $_ eq "<$data>";
                last if $_ eq "</$data>";
                s/(\$\$\w+)/$1/eeg;
                print "$_\n";
        }

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/