2024年3月5日
perl next, last, regular expression 实用场景
摘要： #!/usr/local/bin/perl -w use strict; use v5.10; my $torrent = shift; foreach ( `btcheck -li 2>/dev/null $torrent` ) { /Torrent Hash : ([a-f0-9]{40})$/ 阅读全文
posted @ 2024-03-05 23:55 profesor 阅读(10) 评论(0) 推荐(0)
perl中的say与print，如何启用say
摘要： say会自动增加“\n”，而print不会。 perl默认不支持say，如何启动say呢？ 程序的开头，添加： use feature "say"; 或 use v5.10; 其他方法，参照：https://stackoverflow.com/questions/37694988/how-do-i- 阅读全文
posted @ 2024-03-05 23:50 profesor 阅读(80) 评论(0) 推荐(0)
【FreeBSD】transmission-show的半替代品btcheck
摘要： FreeBSD上安装 pkg search btcheck pkg install btcheck man btcheck 使用： btcheck -li ABF-073.torrent Announce URL : https://eu.org/AnnounceDir. Name : ABF-07 阅读全文
posted @ 2024-03-05 23:40 profesor 阅读(729) 评论(0) 推荐(0)