perl 外部指令

[kahn]

小弟最近用perl 寫個for win32 的程式,因為是新手對程式沒什麼概念,請多包含.
其中有一段如下,功能是用perl 去執行外部指令(win98)利用rsync 同步c:\sk2 目錄到rsync server的 $myenv 目錄
但是現在的困難在於 perl 執行外部指令時無法讀取到在程式內部定義的變數 $myenv , 另外要如何用 perl 執行 win98的 set mydate=1234

system 'rsync -avz --delete --progress /cygdrive/c/sk2 username@192.168.10.10::public/$myenv';

[kanru]

要讓 perl 自動取代 $myenv 的值，請用雙引號如 system(" ");
網路上有許多 perl 的教學文件，建議妳可以去找一找
如: http://perl.hcchien.org/

[kahn]

謝啦! kanru兄

[kahn]

剛剛試一下
$myenv = 1234;
system (`rsync -avz --delete --progress /cygdrive/c/sk2 username@192.168.10.10::public/$myenv`);
結果是 $myenv 不會變成1234 會,但如果用雙引號 username@192.168.10.10 的路徑會錯誤

[hata]

username\@192.168.10.10

Perl 學習手札全文

[kahn]

system ("set Rsync_Password=123456");
無法設定 win98 的 set Rsync_Password=123456
perl 要執行外部(win98) 的path 跟 set 要怎樣作才正確呢?

[訪客]

設定環境變數

$ENV{'Rsync_Password'}='12345';
試試看

[kahn]

在win98下 run
echo %Rsync_Password% 結果是.............
%Rsync_Password%

直接跑該程式(xxx.pl) 是OK的.