perl-module

    3熱度

    1回答

    我知道我能做到這一點作爲表達式修改: #!/usr/bin/perl -w use strict; use File::Find; sub file_find{ my ($path,$filter) = @_; find(sub {print $File::Find::name."\n" if /$filter/}, $path); } file_find($new

    3熱度

    1回答

    我需要在多個用戶散列中加入一個通用散列(宏)。實際上,這些都是在perl中寫成HoH/HoL的規範。 我希望'用戶'規格採用自己修改的宏規格。在下面的例子中,變量'$ v_Y'需要在user1和user2中有不同的值。 我在下面有不完全的代碼,但試圖說明問題。由於已經創建了macro_spec,因此我無法獲得$ v_Y的多個值。 ## this is in a package my $MACRO

    0熱度

    1回答

    我在library1.pm中調用library2.pm中的函數(func1)。這個函數簡稱爲& func1(),因爲我在library1中聲明瞭「use library2」。但是這是拋出一個錯誤作爲未定義的子程序。但是當我將這個函數調用爲「& library2 :: func1」時,它正在工作。我在這裏錯過任何Perl包嗎?

    -1熱度

    2回答

    我正在寫一個小的perl程序,我正在檢查#start和#end的模式。議程是用開始和結束模式之間的線創建一個單獨的文件。這我可以用下面的腳本來做。 #!/usr/bin/perl open(INFILE,"<","testcases") || die "Can't open file: $!"; my $binary; my $tccounter=1;

    0熱度

    1回答

    我想寫LDAP身份驗證我的代碼Perl script.Below我提供了示例USER詳細信息和AD服務器詳細信息。 我無法使用下面提供的變量來驗證LDAP用戶。 我使用的Net :: LDAP庫,但我仍然無法實現我的目標。 我需要幫助來了解LDAP身份驗證過程以及我需要暗示的身份驗證LDAP用戶的邏輯。 我有一個疑問是「我需要驗證LDAP用戶是否存在或不在AD服務器?」 USER:cn=Feroz

    0熱度

    3回答

    我有下面的Perl一行代碼轉換/path/to/file.txt到/path/to/ echo "/path/to/file.txt" | perl -pe 's{(.*)}{File::Basename->dirname($1)}ge' ,但我錯過了我的File::Basename->dirname()調用的東西,引起以下錯誤: Can't locate object method "dir

    0熱度

    1回答

    我想將字符串序號轉換爲perl中的數字 我已搜索但未得到確切答案。 例如:如果輸入的是 one it should be 1. five hundred it should be 500. three hundred it should be 300. 是否有任何模塊做到這一點?

    1熱度

    2回答

    我通過網絡安裝程序安裝時出現該錯誤,該錯誤表示: DBIx::Class::Storage::DBI::_dbh_execute(): Data truncated for column 'type' at row 1 at /usr/share/koha/lib/Koha/Objects.pm line 101 安裝的版本:16.05.05.000 我安裝使用的軟件包按照這個指示鏈接:htt

    0熱度

    1回答

    我不是Perl開發人員,但我需要它爲perforce製作觸發器。 所以這是背景: 我有一個windows服務作爲管理員在Windows上調用Perl腳本運行。 該腳本需要在網絡存儲器上創建一個文件,該文件都配置爲使用windows和UNIX permissions \ security類型。 由於運行該腳本的用戶是管理員用戶,所有目錄下創建的所有文件夾和文件都不會繼承目錄權限,而只能對根目錄編輯。

    1熱度

    3回答

    我是Perl新手。 我想在包含多個子文件夾,子子文件夾和大量文件的大型目錄樹中遞歸搜索pdf文件。 我正在使用File::Find::Rule來實現這一點。但是,性能影響是巨大的。 該腳本需要花費大量時間進行搜索。 從我的Perl腳本 段: @folders = File::Find::Rule -> file -> name('*.[pP][dD][fF]') -> in($folderPath