怎樣在輸出內(nèi)容中防止$1這樣的字符被當(dāng)成變量？

Calvin00

system(qq(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));

這里，$1 $2 $3 會(huì)被當(dāng)作perl的變量，被替換成空內(nèi)容。如何讓perl明白它們是字符串而不是變量？

$ps="abc.ps"; system("cat > g.sh << END pscoast -R95/135/21/41 -JM6i -Ggray -Slightblue -B5 -N1 -W1 -I3 -K> $ps awk "{print q($1), q($2), q($3), 1/q($3)^1.8*0.025}" site | psxy -R95/135/21/41 -JM6i -O -Cneis.cpt -Sci -Wthin -H >> $ps END");

上面這樣，用 q() ，希望作單引號(hào)防止perl進(jìn)行變量替換，但是 q() 會(huì)被當(dāng)作字符。變量替換仍然發(fā)生。

$ps="abc.ps"; 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");

以上，嘗試用轉(zhuǎn)義符號(hào)防止變量替換，結(jié)果被perl當(dāng)作對變量的引用，仍然發(fā)生變量替換。

[ 本帖最后由 Calvin00 于 2009-5-14 16:19 編輯 ]

MMMIX

原帖由 Calvin00 于 2009-5-14 11:15 發(fā)表
system(qq(cat > g.sh  $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));

這里，$1 $2 $3 會(huì)被當(dāng)作perl的變量，被替換成空內(nèi)容。如何讓perl明白它們是字符串而不是變量？

用 \ 轉(zhuǎn)義 $

Calvin00

你是說寫成 \$1 這樣？
試過完全不行，會(huì)被當(dāng)成引用，結(jié)果還是被替換成空內(nèi)容。試過加單引號(hào)也試過，結(jié)果單引號(hào)被當(dāng)作字符輸出，而單引號(hào)內(nèi)部的$1的還是被替換成空內(nèi)容。

DQP

看錯(cuò)了

[ 本帖最后由 DQP 于 2009-5-14 11:42 編輯 ]

Calvin00

原帖由 DQP 于 2009-5-14 11:40 發(fā)表
你的here-doc 用錯(cuò)了

這里的 here-doc 是 bash 的。
我希望 perl 明白 $1 $2 $3 這三個(gè)東西是字符串，不要作變量替換。而 $ps 是變量，希望作變量替換。

DQP

1. 
   
2. print qq{\$1};
   

復(fù)制代碼

output: $1
挺好的啊

hfahe

q($1)
qq($ps)

MMMIX

原帖由 Calvin00 于 2009-5-14 11:37 發(fā)表
你是說寫成 \$1 這樣？
試過完全不行，會(huì)被當(dāng)成引用，結(jié)果還是被替換成空內(nèi)容。

給個(gè)能重現(xiàn)/說明這個(gè)問題的完整例子。

MMMIX

原帖由 DQP 于 2009-5-14 11:47 發(fā)表

print qq{\$1};

output: $1
挺好的啊

嗯，我甚至用和樓主的代碼類似的例子測試過，而已沒發(fā)現(xiàn)問題。

Calvin00

原帖由 hfahe 于 2009-5-14 11:50 發(fā)表
q($1)
qq($ps)

原帖由 DQP 于 2009-5-14 11:47 發(fā)表

print qq{\$1};

output: $1
挺好的啊

原帖由 MMMIX 于 2009-5-14 12:03 發(fā)表

嗯，我甚至用和樓主的代碼類似的例子測試過，而已沒發(fā)現(xiàn)問題。

原帖由 MMMIX 于 2009-5-14 11:58 發(fā)表

給個(gè)能重現(xiàn)/說明這個(gè)問題的完整例子。

第一樓的代碼就是可以完整重現(xiàn)問題的例子。

以上各位回答的，都屬于普遍性的情況。這個(gè)例子情況特殊，因?yàn)槭窃趕ystem()里面。各位把一樓的代碼貼下來自己試試看，確實(shí)都不行的。