有誰能幫我看看這個嗎?

inmolee

假設有一個文字檔內容為此為C Shell的環境下輸出之檔案)
#########################
set gEXISTS=yes
set gPROF_xmax=18
set gPROF_ymax=24
set gPROF_xmin=0
set gPROF_ymin=0
#########################
在C Shell中可用source讀進來並完成設定宣告,請問在perl中該如何讀進此檔案並完成宣告呢?

anonimousboy

原帖由 "inmolee" 发表：
假設有一個文字檔內容為此為C Shell的環境下輸出之檔案)
#########################
set gEXISTS=yes
set gPROF_xmax=18
set gPROF_ymax=24
set gPROF_xmin=0
set gPROF_ymin=0
#####################..........

   
不明白你意思的说~~

inmolee

原帖由 "anonimousboy" 发表：
   
不明白你意思的说~~

   

是這樣的....
我用C Shell寫程式,用perl/tk作GUI,很奇怪的組合吧,因為對Shell較熟,
所以程式主體以C Shell為主,而perl/tk是用來抓取C Shell產生的變數值,
希望你能看得懂.....^_^

nkliyong

原帖由 "inmolee" 发表：
假設有一個文字檔內容為此為C Shell的環境下輸出之檔案)
#########################
set gEXISTS=yes
set gPROF_xmax=18
set gPROF_ymax=24
set gPROF_xmin=0
set gPROF_ymin=0
#####################..........

   

去Perl问问看.

laoxia

应当是这样吧

$gEXISTS=yes ；

俺是菜鸟，谨供参考

laoxia

上边仅是定义了而已，俺要帮你研究研究如何实现这个

红袖添香

...

在 perl 中用

$a = $ENV{'HOME'};
$b = $ENV{'PWD'};

等可以等到原有的环境变量，

laoxia

这个问题先要把文件格式改一下，把每行从

set gEXISTS=yes

改成

$gEXISTS=yes ；

再用PERL运行一下

laoxia

1.    
   
2. #!/bin/ksh
   
3. awk /set/ $1 | awk '{print $2}' | awk -F"=" '{printf("$%s=%s;\n",$1,$2)}' > $1.n
   
4. ew
   
5. /usr/local/bin/perl $1.new

复制代码

[/code]

红袖添香

...

laoxia，楼主好象是说要在 perl script 内部调用...
不过我也不太清楚是不是这个意思，
他好象是港澳台同胞的说......