Perl板 - WEB批踢踢(PTT)

Re: [問題] sleep與-e搭配應用

2025-06-19T05:05:23+08:00

這個 script 的設計不好，如果檔案不存在，無窮迴圈有可能卡死。
建議要設計合理的 timeout 機制，範例如下：
#!/usr/bin/env perl
my $timer = 30;   # timeout after 30 min
while (1) {

[問題] sleep與-e搭配應用

2025-06-11T01:26:41+08:00

as title
我寫一段簡單程式去判斷檔案是否存在
如果存在就做下一步這樣
wait.pl
#!/usr/bin/perl

[問題] 如何清除雜湊以釋放記憶體

2024-10-16T19:43:42+08:00

大家好
先前很感謝gugod大的回覆
這次的問題是如何清除整個雜湊使Perl釋放記憶體給OS, 程式流程大略為:
在迴圈裡面讀檔進雜湊, 將雜湊內每筆資料分類後輸出資料至硬碟, fork些子程序計算數據
程式如下:

[問題] 如何改善大文件的讀寫效能

2024-07-12T20:22:39+08:00

餓死抬頭
我在工作上撰寫一些程式給同仁使用
主要是以perl做文件內容的更改或比較
一開始都還沒問題，但隨著檔案愈來愈大，效能就是一個問題了
檔案目前大約3G-9G不等，我寫法是從IO做讀寫

Re: [問題] 參照變數宣告及記憶體位置問題

2023-02-13T21:44:53+08:00

基本上你可以預期一個純量變數會對應到記憶體中的固定一小片空間，其位置幾
乎 [^1] 不會變。但若是用 print 去印的某個內容物是參照的變數的話，
印出來的後面那個數字代表的不是變數本身的位置，而是其內容物的位置。
以下面這個例子而言，印 "$Ref" 會顯示出 $AAA 的位置。
    my $AAA = 0;

[問題] 參照變數宣告及記憶體位置問題

2023-02-07T14:33:48+08:00

大家好
最近在參照上遇到一個問題，想請問大家下面兩段程式碼裡，為什麼我使用my宣告後的第二
次重新指定變數內容會讓Perl指向新的記憶體位置，而沒有宣告的部份卻是指向一樣的位置
？
另外想問變數名稱和記憶體位置的關係在Perl 裡面是如何的，跟其他語言會是相似的嗎？

[問題] can't use string as an array ref

2022-07-15T21:11:38+08:00

as title
我有一個檔案是這樣的
file:
@fruit: apple banana
@area: area1 area2 area3

Learing Perl 第八版中文版出版了

2022-06-22T21:58:03+08:00

不確定譯者本人有沒有在上 Ptt BBS...
就先貼個鏈接： https://www.facebook.com/groups/perl.tw/posts/5429796933708344/
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 119.47.170.101 (日本)
※ 文章網址: https://webptt.com/m.aspx?n=/bbs/Perl/M.1655906283.A.618.html

[請益] 請教terminal 餵正規表示法給perl問題

2021-04-10T02:11:10+08:00

大家好
我以terminal餵資料給perl遇到一些問題
fileA
   Aao.a1.b2.c3.d4:a
   Aao.a5.b10.c6.d2:b

[問題] 是不是要放棄perl了

2021-03-02T22:36:19+08:00

   人氣越來越少
   目前寫程式 就是要自動化 利用網路資訊
   是不是
   重新學習Python 比用perl 苦思解法 來的方便？
--

[問題] 請問如何建立新的Row？(代po)

2020-11-23T20:11:14+08:00

大家好
想請教各路高手問題如下
（怕格式跑掉所以用截圖的方式...）
https://i.imgur.com/sFBkZf0.jpg
因為是代po所以請高手別站內信，麻煩好心寄信至 ventiva2007@gmail.com

[問題] diff檔案內容並把相異處產出檔案

2020-11-15T15:38:35+08:00

我是想要diff兩個檔案，並把相異處寫成diff.log
其實就是linux的 "diff A.txt B.txt > diff.log"
只是不知道為何我把那行塞進system()裡面，是無效的
他叫我diff:Try `diff --help' for more information
因此只好找perl內建的功能，例如Text:Diff來解決

Re: [問題] regexp的replace？

2020-11-13T18:23:19+08:00

我猜您在這裡使用的應該是 s/// 算符吧。像是
    $s =~ s/、/，/;
不過這麼寫的話的的確只會處裡第一個。要處理全部的話，最後要加上 g:
    $s =~ s/、/，/g;
另我覺得全部寫成一條 regexp  會看起來很長很複雜，不如先找出第一個 '[' 與

[問題] Perl中使用system失敗...

2020-11-12T08:10:05+08:00

各位大大好
小弟是Perl新手，最近想把awk放進Perl來使用，
程式如下:
my $cmd=q(grep 'Only in ${keyword}' ./A.txt | awk -F '[ :]' '{print $3, $5}'
> BB.log);

[問題] regexp的replace？

2020-11-03T00:13:39+08:00

○、○[FL-clover、door、(天満春華)]返せ、かわり、○○で。[2007年、2009年](東方)
○、○[FL-clover,door,(天満春華)]返せ、かわり、○○で。[2007年、2009年](東方)
如上例若限定只將第一個[]範圍的n個、取代成,  n不固定
^([^\n[]*?\[[^]]*?)、([^]]*\])
$1,$2

[問題] perl tk 一個小問題請教

2020-10-23T17:30:03+08:00

各位好，最近在練習perl tk 遇到一個回傳值的問題。
如圖所示，一個簡單的選擇檔案的按鈕，在subroutines裡選擇檔案名字後，
想要丟回主程式，繼續使用這個檔案名字的變數繼續去做事情。
不太清楚要怎麼寫，爬網頁也都只介紹元件用法，沒有寫到類似這種回傳值的問題。
有沒有強者願意幫忙指導一下，非常感謝。

perl weekly challenge

2020-10-21T18:27:58+08:00

https://perlweeklychallenge.org/
我最近開始用這裡提供的題目來練習各種程式語言。
算是一種沒有那麼緊張的 leetcode (?)
而且可以讀讀其他人寫的解答。算是一種線上異步讀書會形式。
推薦大家加入看看。

[問題] 年久失修的 Linux::ACL 套件

2020-10-18T22:21:40+08:00

如題，CPAN 上的 Linux::ACL 套件年久失修，有些 bug，
已經回報 issue，但作者一直沒回應，似乎不打算維護了...
雖然有寫過一點 Perl，但寫模組實在遠遠超出目前能力範圍，
不曉得有沒有大神願意接手修正一下 bug，拯救為數不多的 Perl 蒼生？XD
Issue link: https://github.com/nazarov-yuriy/Linux--ACL/issues/2

Re: [問題] 新手請問取代檔案內容的寫法

2020-05-16T16:51:52+08:00

提供兩個方法，很久沒有寫 Perl 了，可能寫起來不是很好。
use strict;
use feature qw(switch);
no warnings qw(experimental::smartmatch);
# using LUT method

Re: [請益] 字串拼接的方式

2020-05-12T22:25:15+08:00

感謝flu大建議，使用sprintf，能讓程式更簡單明確
修改後的程式:
my $FLOW;
my @Array=();
s/(\)\s+\;)+?|\?|\:/=/g;