genesis 運行perl scripts？

时间：10-02 整理：3721RD 点击：

請問:如何在genesis中運行perl的scripts?

要如何設定和執行?

Genesis now supports Perl scripts=================================

How to enable Perl scripts under Genesis========================================

The following steps are needed to enable Perl scripts under Genesis:

1. Obtain Perl 2. Install Perl 3. Install the Perl files enabling sockets 4. Change /etc/services 5. Inspect the files in /genesis/eNN/all/perl 6. Install Genesis.pm 7. Read rules regarding Perl scripts 8. Run the example script 9. Debugging 10. Remote debugging

i dont't understand

以下是引用justwin在2004-6-17 15:06:22的发言：

請問:如何在genesis中運行perl的scripts?

要如何設定和執行?

Genesis now supports Perl scripts=================================

How to enable Perl scripts under Genesis========================================

The following steps are needed to enable Perl scripts under Genesis:

1.上CPAN下載最新版本perl 版本為5.8.3

2.安裝perl, 在unix下perl Makefile.PL然後makemake test

make install

在windows建議用 ActivePerl較簡單安裝

3.建議裝perl/tk,用此來作漂亮且多功能的GUI

4.確認Genesis.pm存在於genesis目錄

5.開始寫程式囉.........

記得程式前面加上

#！/sw/bin/perl

use Genesis;

use Tk;#若你有裝perl/tk

...........剩下的看你的造化.........加油吧！

執行時,產生警告訊息:

Script C:/valor/klt.pl ended with error:

Execution of C:/valor/klt.pl aborted due to compilation errors.

請教前輩們,要如何順利執行呢?

是在GENESIS-SCRIPTS功能中執行嗎?

在dos環境下執行的結果:

C:\valor>perl -cw klt.pl"use" may clash with future reserved word at klt.pl line 4.syntax error in file klt.pl at line 4, next 2 tokens "use Genesis"klt.pl had compilation errors.

要如何順利在genesis-scripts功能中,順利執行呢?

試試這個,執行完後把結果post上來

#Asics Lui perl scripts for check install item.

#！/usr/bin/perl use strict; use ExtUtils::Installed;

my $inst= ExtUtils::Installed->new(); my @modules = $inst->modules();

foreach(@modules) { my $ver = $inst->version($_) || "?"; printf("%-12s -- %s\n", $_, $ver); } exit 0;

執行結果是:

gen_csh-10004-Script exitedScript C:/valor/sys/scripts/PERLINTEST.pl ended with error:

Badly placed ()'s.

請教在genesis中可以debug perl程式嗎?

以下是引用justwin在2004-6-24 9:32:37的发言：

執行結果是:

gen_csh-10004-Script exitedScript C:/valor/sys/scripts/PERLINTEST.pl ended with error:

Badly placed ()'s.

請教在genesis中可以debug perl程式嗎?

結果輸出應該類似:

ActivePerl:ocTools -- 0.04ActiveState::RelocateTree -- 0.03Archive::Tar -- 0.072Archive::Zip -- 0.11CPANPLUS -- 0.049Compress::Zlib -- 1.16DBD::ODBC -- 1.07DBD::mysql -- 2.9002DBI -- 1.34Data:ump -- 0.04Digest::HMAC -- 1.01Digest::MD2 -- 2.00Digest::MD4 -- 1.1Digest::SHA1 -- 2.01ExtUtils::AutoInstall -- 0.56File::CounterFile -- 0.12Font::AFM -- 1.18HTML-Tree -- ?HTML:arser -- 3.26HTML::Tagset -- 3.03IPC::Run -- 0.78MD5 -- 2.02PPM3 -- ?Perl -- 5.8.0SOAP:ite -- 0.55Sort::Versions -- 1.5Test::Reporter -- 1.20Text::Autoformat -- 1.04Tk -- 800.024URI -- 1.19Unicode::String -- 2.06Win32 -- 0.20Win32::AuthenticateUser -- 0.02XML:arser -- 2.31XML::Simple -- 1.06YAML -- 0.35libwww-perl -- ?

至於debug建議在終端下看較好

可以加上use diagnostics;又叫長舌婦功能.......會很詳細的告訴你的語法哪裡錯了,並舉例給你看...............

我的問題,好像是無法讓genesis找到或是執行perl.exe的主程式.因為執行scripts功能時產生 use:command not found.訊息.

鍵入perl -v

秀給我看你的版本

建議重裝perl

若有需要我寄給你......請註明你要哪個系統的....例如w2k.linux或hpux.........

還有genesis目錄內是否有genesis.pm這個檔案呢?

若有請copy到/perl/lib

可在終端下試著執行

perl

use Genesis.pm; 按enter後若無問題即表示能在genesis執行.........

鍵入perl -v結果為:

This is perl, v5.6.0 built for MSWin32-x86-multi-thread(with 1 registered patch, see perl -V for more detail)

Binary build 623 provided by ActiveState Tool Corp. http://www.ActiveState.comBuilt 16:27:07 Dec 15 2000

Perl may be copied only under the terms of either the Artistic License or theGNU General Public License, which may be found in the Perl 5.0 source kit.

Complete documentation for Perl, including FAQ lists, should be found onthis system using `man perl' or `perldoc perl'. If you have access to theInternet, point your browser at http://www.perl.com/, the Perl Home Page.

在終端下試著執行

perl

use Genesis.pm;

結果為:

syntax error at - line 1, near "use genesis."Execution of - aborted due to compilation errors.

你改安裝5.8.3版的支援較廣,若沒有你留下信箱我寄給你

將genesis.pm丟到/perl/lib內,看看0204有說明,運行......

可是我看你的......genesis.pm好像壞了,是正版的嗎? 若是的話我寄給你,盜版的我不給喔........

Asics

这位老兄,你不是这么小气吧,竟然把我的贴都删除了,是不是觉得你很没有面子啊

这位老兄,你不是这么小气吧,竟然把我的贴都删除了

你也幫幫忙....這個都不懂.........真笨........

我的權限能殺嗎...............

請你自己反省是不是自己太欠人扁了........被人刪除了.......

看來不只我看你不爽,連別人也看你不爽,哈哈哈哈,哈哈哈哈,哈哈哈哈！

真是不自覺啊...............

對啊.........討厭的人.........

一直在挑釁,實在看不下去,被刪了還怪別人,

別理他啦,看看那個人發表的文章,被刪除率高達80%以上..........

沒面子的人應該是你啦！

以下是引用hnitgah在2004-6-24 22:36:11的发言：这位老兄,你不是这么小气吧,竟然把我的贴都删除了

论坛是用来讨论的，不是用来斗气的，请自重

我的email: klt1@ms10.hinet.net 請給我active perl 5.8.3 軟體謝謝你.

請教: perl所編寫的*.pl程式，可否編譯成可執行檔呢?(如：＊．exe)

以下是引用justwin在2004-6-27 21:19:48的发言：

請教: perl所編寫的*.pl程式，可否編譯成可執行檔呢?(如：＊．exe)

CCC 可！

例如內建的perlcc(windows下我覺得不好用,但unix下不錯)

或perl2exe(此為windows下不錯,但最好是pro版才支援perl/tk gui)

還有其他的編譯軟件,上cpan看看.........

可以給我perl2exe pro 和perl/tk程式嗎? 謝謝. email: klt1@ms10.hinet.net

大家有空可參考: http://www.fanqiang.com/a4/b3/index_b.html

楼上的老大，可不可以把PERL程序发给我一下：

dgchgh@21cn.com

上CPAN看看 http://ftp.plig.org/pub/CPAN/

perl/tk不用錢.............perl/tk 804.025版

但是perl2exe pro要錢.........我沒有,我都用perlcc及perlapp.....

p.s 盜版的不要找我.......若需要unix免費軟體可以一起討論研究.......

没有啊！。

不知道PERL需有哪几个文件?

以下是引用dgchgh在2004-7-7 15:11:34的发言：不知道PERL需有哪几个文件?

基本上裝perl就很好用了.....

若真的需要玩一些高階的可以裝下列東西來玩玩....

1.使用perl/tk(用於作GUI,例如像應用程式的menu或對話框....繪圖等等,視您的需求而定)

2.使用DBD::Informix或DBD::ODBC或DBD::Orcale或DBD::Mysql玩genesis與資料庫程式語言整合

以下是我裝的模組.....供你參考.....CPAN網站有很多不錯的模組可以下載來試試

ActivePerl:ocTools -- 0.04ActiveState::RelocateTree -- 0.03Archive::Tar -- 0.072Archive::Zip -- 0.11Compress::Zlib -- 1.16DBD::Excel -- 0.06DBD::ODBC -- 1.07DBD::mysql -- 2.9002DBI -- 1.34Data:ump -- 0.04Digest::HMAC -- 1.01Digest::MD2 -- 2.00Digest::MD4 -- 1.1Digest::SHA1 -- 2.01ExtUtils::AutoInstall -- 0.56File::CounterFile -- 0.12Font::AFM -- 1.18HTML-Tree -- ?HTML:arser -- 3.26HTML::Tagset -- 3.03IO-stringy -- ?MD5 -- 2.02OLE::Storage_Lite -- 0.11PPM3 -- ?Perl -- 5.8.0SOAP:ite -- 0.55SQL::Statement -- 1.005Spreadsheet:arseExcel -- 0.2602Spreadsheet::WriteExcel -- 0.42Text::Autoformat -- 1.04Tk -- 800.024URI -- 1.19Unicode::String -- 2.06Win32 -- 0.20Win32::AuthenticateUser -- 0.02XML:arser -- 2.31XML::Simple -- 1.06libwww-perl -- ?

這是我的perlver.pl 執行結果:

ActivePerl:ocTools -- 0.04ActiveState::RelocateTree -- 0.03ActiveState::Rx -- 0.60Archive::Tar -- 1.08Archive::Zip -- 1.06Compress::Zlib -- 1.33Data:ump -- 1.03Digest::HMAC -- 1.01Digest::MD2 -- 2.03Digest::MD4 -- 1.1Digest::SHA1 -- 2.10File::CounterFile -- 1.04Font::AFM -- 1.19HTML-Tree -- ?HTML:arser -- 3.36HTML::Tagset -- 3.03I:Zlib -- 1.01MD5 -- 2.03PPM3 -- ?Perl -- 5.8.4SOAP:ite -- 0.55Text::Autoformat -- 1.12Text::Reform -- 1.11Tk -- 804.027URI -- 1.30Unicode::String -- 2.07Win32 -- 0.23Win32::AuthenticateUser -- 0.02XML:arser -- 2.34XML::Simple -- 2.12libwww-perl -- ?

可是為何Genesis v8.0a 中,還是無法執行呢?

該作的我都作了...如install perlv5.8.4 和

加

#！/sw/bin/perl-----------請教這一行是什麼用意?

# use lib qw(/genesis/e32/all/perl);-----------請教這一行是什麼用意?

use Genesis;

謝謝賜教

這些步驟好像都要ok才行嗎?

The following steps are needed to enable Perl scripts under Genesis:

1. Obtain Perl 2. Install Perl 3. Install the Perl files enabling sockets------這項需請教? 4. Change /etc/services------這項需請教? 5. Inspect the files in /genesis/eNN/all/perl 6. Install Genesis.pm 7. Read rules regarding Perl scripts 8. Run the example script 9. Debugging10. Remote debugging請再賜教..謝謝前輩

安裝 Genesis Perl Scripts 方法:

1. 取得 activePerl v5.8.4(最新版)

2. 安裝 Perl(主程式),系統需含C編譯器

3. 安裝Perl 授權插座:

l h2ph程式 ( cd /usr/include; h2ph * sys/* )

4. 改變 /etc/services 設定:

l 增加 ( genesis 56753/tcp #Genesis port for scripts )

5. 檢查 /genesis/eNN/all/perl 目錄下檔案:

l Genesis.pm(介面檔) server.pl(除錯檔) example.pl(範例檔)

6. 安裝 Genesis.pm 於 ( lib/perl/site_perl )目錄中.

l 並需於perl scripts 前加 :

l use lib qw(/genesis/e30/all/perl)

l use Genesis

7. Perl 規則:

l #！/usr/local/bin/perl --- 正確安裝路徑

l use Genesis; --- genesis介面

l $f = new Genesis; --- 連上genesis

l $f -> VOF

l $f -> COM

l o getJobs @jobs = $f -> getJobs();

l o getLayers @getSteps = $f -> getSteps($myJob);

l o getSteps @getLayers = $f -> getLayers ($myJob,$myLayers);

l (Perl 和csh 介面相似,csh無法Debug perl scripts)

8. 執行 example.pl perl scripts.

9. Debugging偵錯:

l perl自行偵錯,需先執行server.pl scripts

l 當server.pl執行時,Genesis會等perl scripts下指令.

l 必需開啟shell(xterm,hpterm,emacs)並執行指令

l perl –d example.pl – 會進入perl偵錯模式

10. 遠端偵錯 : perl –d example.pl hostname

(更多說明於Genesis.pm檔案本身中)

上一篇：（求助！）GENESIS PERL程序是否有类似CSH SW CASE语句？
下一篇：求助！~~~~~~~~~~~~~~~~~~~~~~~~~~~~

栏目分类