Perl 讀取方括號的正則表達式

[英]Perl Regular expression to read square bracket

我想在方括號內讀一點，也想要方括號。 棘手的部分是 class4。 sample1[1]一點也不。 位僅在行尾。 例子： 預期結果： 我使用正則表達式，但無法讀取方括號。 [] = Used for set of characters. ... = Any character except new ...

用於識別關鍵字中字符的正則表達式

[英]Regex to identify characters in keyword

我想檢查構成關鍵字的 1 個或多個字符。 因此，如果關鍵字是“show”，則 s、sh、sho 或 show 都符合條件，但所有其他組合都會失敗。 我認為先行是解決方案，但不確定如何使它們成為可選的並仍然執行要求。 就像在.. 回聲“s” | perl -ne 'print if /s(?=h)? ...

現在禁止標量上的實驗鍵

[英]Experimental keys on scalar is now forbidden

我正在嘗試調試一個給我錯誤的 Perl 腳本現在禁止標量上的實驗鍵這似乎是我的系統有一個較新版本 perl 的問題，但希望有人可以建議快速修復。 有問題的行是 語法被定義為 和 groupName 來自 我不太了解 perl，所以任何幫助將不勝感激我對這條線有類似的問題 現在禁止對標量進行錯誤實驗推 ...

Perl：如何復制沒有文件的目錄？

[英]Perl: How to copy directory without any files?

我想復制一個包含子文件夾但沒有文件的文件夾。 使用來自dircopy File::Copy::Recursive的 dircopy，將復制包含文件的整個結構： 是否有合適的模塊，或者我是否使用了模塊use File::Find;中的finddepth ？ 並使用 rmdir？ ...

使用 Perl PDF::API2 反轉 PDF colors（負）

[英]Inverting PDF colors (negative) using Perl PDF::API2

就像標題一樣，我正在嘗試編寫一個腳本，通過使用 Perl 和 PDF::API2 來反轉一堆 PDF 的 colors。 我對 perl 不是很熟悉，我在 chatGPT 的幫助下修改了我在 stackoverflow 上找到的一個簡短腳本，來自這篇文章 如何將 PDF 中的所有顏色更改為各自的互 ...

如何檢查 LVALUE 是否代表 SCALAR

[英]How to check if LVALUE represents SCALAR

多年來，我一直在使用包含以下條件的代碼 我總是希望有一個ARRAY或SCALAR ，但最近我將substr()傳遞給該參數。 意想不到的事情發生了。 該條件返回了一個假值。 然后我想通了。 ref返回LVALUE而不是SCALAR 。 由於LVALUE是一種奇怪的引用類型，我需要檢查它后面是否有 ...

如何正確刪除Perl中的回車？

[英]How to remove carriage return in Perl properly?

我有一個看起來像這樣的代碼 此外，當我在子例程之外或在主 function 中使用 perl 命令時，該命令有效。但是當我創建一個單獨的子例程以將 dos 轉換為 unix 時，我收到一條錯誤消息： 其中我不明白。 另外，我也試過 dos2unix 但出於某種原因，它並沒有像 perl 命令那樣完 ...

從 Perl 中低於 1 的浮點中刪除前期零

[英]Remove upfront zeros from floating point lower than 1 in Perl

我想規范化來自 ie 的變量。 00000000.1，到 0.1 使用 Perl 除了使用正則表達式之外，還有其他解決方案可以通過刪除前期零來標准化低於 1 的浮點數嗎？ 當我嘗試將這些數字放入下面的示例 function 中時 我得到 這不是預期的。 ...

嘗試在 macOS、ventura、13.2（Intel 機器）上安裝 perl Image::Magick 模塊時出錯

[英]Errors trying to install perl Image::Magick module on macOS, ventura, 13.2 (Intel machine)

我安裝了 imagemagick 和 brew 以及 opencl-headers。 嘗試安裝在 Perl 5.36 上運行的 perl Image::Magick 模塊，我在運行cpanm Image::Magick時遇到以下錯誤： 似乎也有問題 ...

將字符串數組與 perl 中的另一個字符串數組進行比較

[英]compare an array of string with another array of strings in perl

我想將一個字符串數組與另一個字符串數組進行比較； 如果匹配，打印匹配。 例子： 然后我需要將@var與@array進行比較； 如果匹配，則打印匹配的模式。 這里的整個邏輯都在一個循環中，在每次迭代中給出一個新的@array。 所以每次執行這個邏輯時@array 都有不同的字符串。 然后帶有@var ...

如何檢查數組是否有不是 integer 的元素？

[英]How to check if an array has an element that is not integer?

首先，我有一個 hash: $hWriteHash{'Identifier'}{'number'}包含 = 1#2#12#A24#48 然后我用“#”分割它，然后把它放在@arr_of_tenors變量中。 這是代碼： output 是1 2 12 A24 48 現在，我的目標是如果數組中有一個 ...

Perl - 從 xlsx 轉換為 perl 時如何根據列 header 設置鍵 hash

[英]Perl - How to set key based on column header when converting from xlsx to perl hash

我有一個 xlsx，我正在轉換成 perl hash 姓名類型象征顏色約翰越野車 X R 搶商務車是乙詹姆士 4X4 是 G 目前，我只能根據列數組將 hash 超級鍵設置為想要的列。 我似乎無法根據列 header 弄清楚如何選擇。 我得到的結果是， 我想擁有; ` ...

perl 正則表達式替換如果不是這個字符串也不是那個字符

[英]perl regex substitution if NOT this string NOR that character

當我瀏覽文本頁面時，我正在使用 Perl 通過瀏覽器突出顯示錯誤。 此時，我想確保文本Seq前面有馬耳他十字和空格✠ ，否則突出顯示它。 我也想忽略n>Seq 。 附言。 如果它更容易，我想忽略>但它總是n> 。 事實上，它總是</span> - 以最容易檢查的為准。 ...

使用Perl hash表刪除字符串中的元音，但output始終為空

[英]Using Perl hash table to delete vowels in string, but output is always empty

我試圖通過用戶提供的字符串數組在 Perl 到 go 中編寫一個簡短的腳本，檢查 hash 表以查看字符串中是否有元音，然后返回減去元音的字符串。 我知道使用正則表達式會更容易完成，但是必須使用 hash 表、 exists()和split()問題 state 的參數。 這是我到目前為止的腳本： 輸 ...

無法在 Mac Perlbrew 環境上構建 Perl libgd

[英]Cannot build Perl libgd on Mac Perlbrew environment

我在 Perl 5.36 中使用 Mac OS 12 和 Perlbrew。 當我使用CPAN或cpanm安裝GD時，出現以下錯誤： 以上是build.log的內容。 我不確定如何進一步調查或修復它。 以前，我使用系統 Perl 安裝和構建 Perl 的GD 。我還從 Homebrew 安裝了 l ...

將數組轉換為列表

[英]Cast array into list

我有一個文件需要讀入列表，以便在Template Toolkit中使用它。 我可以用數組輕松做到這一點，但我對列表有點吃力。 有沒有辦法將數組轉換為列表？ 有什么想法嗎？ ...

獲取 function 返回的列表的第一項

[英]Get the first item of the list returned by function

問題的簡單模擬： 在使用“strict refs”時不能使用字符串（“3”）作為 ARRAY ref ...

Perl JSON arrays 在父鍵中

[英]Perl JSON arrays within a parent key

我創建了一個腳本來從各種外部來源獲取一些信息，結果應該是json格式。 有很多數據，我循環將所有內容推送到一個數組，然后在所有內容完成后打印json數組，腳本的循環部分的摘錄： 這給出了 output 的： 和截圖： 然而，我試圖通過設置一個關鍵元素並將附加數據作為設備名稱的子元素來做到這一點，即 ...

perl 匹配連續的換行符：`echo "aaa\n\n\nbbb" | perl-pe "s/\\n\\n/z/gm"`

[英]perl match consecutive newlines: `echo "aaa\n\n\nbbb" | perl -pe "s/\\n\\n/z/gm"`

這有效：echo "aaa\n\n\nbbb" | perl -pe "s/\\n/z/gm" aaazzzbbbz 這不匹配任何東西：echo "aaa\n\n\nbbb" | perl -pe "s/\\n\\n/z/gm" aaa bbb 我該如何修復，以便正則表達式匹配兩個連續 ...

Perl 正則表達式替換 - 同時捕獲和執行 $1

[英]Perl Regex substitution - capturing and executing at same time $1

使用 Perl 吐出 HTML 文本，如果中間沒有空格，我想用黃色突出顯示星號和前導/尾隨字母。 否則，如果星號周圍有空格，我想用青色突出顯示星號。 就輸入/輸出而言，這是我想要的。 我正在使用以下內容，但丟失了前導/尾隨字母和星號，因為$1用於執行而不是捕獲。 有沒有辦法做到這兩點？ ...