Re: [PERL] perl interpolation i en "" doublequote

[Ole Tange <sslug@sslug>]

On Thu, 6 Apr 2000, bv wrote:

> #!/usr/bin/perl
> $\="\n";
> 
> my ($r1,$r2)=("goda","darvs");
> my $www="L1:$r1:$r2";
> $link{'L1'}="http://%s/%s";;
> 
> ($m,@p)=split(/:/,$www);
> sslug@sslug("\$r1","\$r2");
> sslug@sslug(eval,@p);
> 
> $form=sprintf($link{$m},@p);
> print $form;
> --8<--
> 
> Min klamhuggerløsning bestod i at indkoble den anden kommentar for at
> gennemtvinge interpolationen
> -->@p=map(eval,@p);
> Det er meget ulykkeligt fordi eval interpolerer OG fortolker som en
> perlsætning.

Kan du så ikke bare proppe et par " om?

@p=map {eval ('"'.$_.'"')} @p;


/Ole
-- 
Adopter en politiker
http://ole.tange.dk/adopt