perl

0熱度

1回答

我正在研究文件上傳系統，該系統還根據上傳的文件中的信息解析上傳的文件並生成另一個文件。這些文件以XML文件的形式上傳。我只需要解析每個文件中的第一個XML標記，並且只需要獲取標記中單個屬性的值。示例XML： <LAB title="lab title goes here">...</LAB> 我要找提取使用Perl的分裂功能的title屬性的值或使用正則表達式的好方法。如果我有能力在服務器上

6熱度

3回答

Perl中的數組和負指數

我是Perl的新手，我正在閱讀有關數組的內容。據我所知，陣列根據需要自動擴展（酷！）但我也讀到，我們可以使用負指標來以相反的順序訪問數組。例如可以訪問3個元素的陣列： $array[0] $array[1] $array[2] 或 $array[-1] $array[-2] $array[-3]（以相反順序）。我的問題是什麼發生的值小於-3例如$array[-5]？數組是否擴展或什麼？

2熱度

2回答

拒絕了對用戶使用Perl和cron

我廣泛搜查擁有文件，但沒有找到任何具體的這個樣子。我有一個目錄還擁有和可寫的「阿帕奇」，「阿帕奇」所擁有的日誌文件，並寫入： -rw-rw-r-- 1 apache apache 0 Apr 9 16:43 /var/log/apache2/load.log 我有一個Perl程序「load.pl」有以下幾點： my $log = "/var/log/apache2/load.log"; m

2熱度

1回答

在Linux上將MSword轉換爲XML/HTML

我需要將MSWord文件轉換爲XML或HTML，同時保留文件結構（主要是表格）。我偶然發現蒂卡，這是從MSWORD文件（及任何文件）中提取文本相當強大，如下： curl www.vit.org/downloads/doc/tariff.doc \ | java -jar tika-app-1.3.jar --text ，我可以從選項中選擇要保存的輸出轉換成HTML/XML，如下： curl w

1熱度

6回答

將一個子程序傳遞給另一個子程序

我有一個函數sub _where(\@ \&)，它有兩個參數：第一個是數組，第二個應該是另一個函數。這個其他函數返回一個布爾值，我想在我的函數sub _where(\@ \&)函數循環中調用它。我無法解壓我傳入的自定義本地名稱的函數。我想我確實需要一些本地名稱，因爲它應該可以將不同的布爾函數傳遞給我的where函數。其中： sub _where(\@ \&) { my @stud

0熱度

1回答

Perl使用Win32 :: OLE模塊Excel 2007-不能生成圖表

我正在運行perl64上的簡單腳本來在excel上生成圖表，但我得到的錯誤沒有生成任何圖表。它打開excel表單，將數據寫入表單但沒有圖表。 Win32::OLE(0.1709) error 0x80020003: "Member not found" in PROPERTYPUT "ChartType" at C:\path\test.pl line 20. 這裏是我的系統規格

0熱度

2回答

定義全局符號（錯誤）

我經歷了幾次討論以找到解決方案，但似乎沒有一個人在我的情況下工作。我有以下的代碼 print ("Choose from the following\n"); print ("op1 op2\n"); my $x = <>; chomp($x); print ("x is $x"); if ($x eq "op1") { my $DirA = "./A"; my $DirB

1熱度

3回答

從Perl腳本中刪除權限？

我有一個perl腳本作爲root運行，並從它內部我想要執行一個系統命令bar作爲一個較低的prrileged用戶foo。所以，我有我的system電話裹如下： sub dosys { system(@_) == 0 or die "system @_ failed: $?"; } 所以，我想說： as user foo dosys("bar") 是否有Per

1熱度

2回答

打印文本與RegEp

我想提取我的源文本滿足這些條件的字符串：字符串的第一個字母既是對線和元音的第一個字母。的字符串繼續到下一個.或;（無論換行符）我嘗試這樣做： $_ = join("",<>); foreach ($text =~ /^[AEIOUaeiou][\w\s,]*[.;]/m) { print "$text\n"; } 的應如何工作的一個例子： Input: Lorem i

0熱度

1回答

連接未建立。 Mail :: Sender

我正在使用Mail :: Sender，我收到錯誤消息爲連接未建立。我使用OpenMultipart填補哈希值。當這個錯誤會來嗎？如何解決這個問題？如果我發送郵件10，只有2個郵件發送成功，剩下的郵件得到這個錯誤。 $Msg = new Mail::Sender ( { smtp => $EMAIL_Globals::SMTP_IP, from