[PerlChina] Re: 何让perl明白输出中$1这样的东西是字符串，不作变量替换？

\$1

在 2009-05-13三的 20:22 -0700，Calvin写道：
> $ps=blabla;
> system("cat > g.sh << END
> pscoast -R95/135/21/41 -JM6i -Ggray -Slightblue -B5 -N1 -W1 -I3 -K>
> $ps
> awk '{print $1, $2, $3, 1/$3^1.8*0.025}' site | psxy -R95/135/21/41 -
> JM6i -O -Cneis.cpt -Sci -Wthin -H >> $ps
> END");
> }
>
> 上面这段代码想创建名字为 g.sh 的文件，内容为：
>
> pscoast -R95/135/21/41 -JM6i -Ggray -Slightblue -B5 -N1 -W1 -I3 -K>
> blabla
> awk '{print $1, $2, $3, 1/$3^1.8*0.025}' site | psxy -R95/135/21/41 -
> JM6i -O -Cneis.cpt -Sci -Wthin -H >> blabla
>
> 但是 $1 $2 $3 会被perl当作变量替换成空内容。如何让perl明白它们是字符串不作变量替换呢？
> 多谢。
> >

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---