perl
机器上运行的 Perl IRC Bot
有人入侵了我的 Linux 机器，并运行了一段 Perl 代码，该代码似乎是某种机器人。第二天，我接到 ISP 的电话，说有大量垃圾邮件从您的 IP 地址发出。我在主目录中找到了这段 Perl 代码。 Perl IRC 机器人 你能帮我找出这段代码的作用以及对我的系统有哪些损害吗？ 谢谢迈克 ...
perl
perl
如何将 bash 变量（密码）传递给 IRSSI 配置文件？
我正在使用 IRSSI，我想知道如何将我的 IRC 频道的密码传递给 IRSSI 配置文件（~/.irssi/config），而不是直接将它们写入文件中。 在 Mutt 中我有一个 awk 命令，可以查询我加密的主文件夹中的本地文件，如下所示： set my_pass1=`awk '/fradeve_gmail:/ {print $2}' ~/.mutt/muttpass` set my_pass2=`awk '/fradeve_inventati:/ {print $2}' ~/.mutt/muttpass` IRSSI 有类似的解决方案吗？ 附...
perl
如何使用 Xcode 工具从 OS X 上的 CPAN 安装 Perl/Tk 804.29？
一位朋友尝试安装Perl/Tk 804.029从他的 MacBook Pro 上的源代码，但在构建内部 zlib 档案时失败： $ cpanp -i Tk [...] cd zlib && make libz.a "CC=llvm-gcc-4.2 " RANLIB="/usr/bin/ar s" [...] llvm-gcc-4.2 -arch x86_64 -arch i386 -g -pipe -fno-common -DPERL_DARWIN -fno-strict-aliasing -fstack-protector -I/usr/...
perl
在 Windows 上创建 UNIX 风格的快捷方式？
我有一个独特的问题...我在 Windows 机器上开发 Perl，但我的测试/生产服务器是 AIX。我希望能够使用 Apache 和 Perl 的安装进行本地测试，但我不想更改所有脚本中的 #! 行以进行本地测试，然后将它们改回上传到测试服务器。 我的问题是：我可以在 Windows 中创建类似 '/usr/bin/perl' 的某种快捷方式/别名/其他东西吗？实际上指向‘C:\ActiveState\Perl5.0.12\perl.exe’？ 我对此有点困惑，所以非常感谢任何帮助。谢谢！ ...
perl
perl 模块问题
sh-3.2# ./backup.pl Can't locate Net/RawIP.pm in @INC (@INC contains: /Library/Perl/Updates/5.10.0 /System/Library/Perl/5.10.0/darwin-thread-multi-2level /System/Library/Perl/5.10.0 /Library/Perl/5.10.0/darwin-thread-multi-2level /Library/Perl/5.10.0 /Netwo...
perl
如何在不使用 Windows 的情况下将 .dbx（Outlook Express）邮件文件转换为 mbox 格式（用于 thunderbird）？
最近，我的硬盘崩溃了（咔哒咔哒咔哒咔哒咔哒咔哒……）。我使用的是 XP，没有安装光盘（3 次搬家前丢失了……）。 我定期备份，只丢失了大约 3 天的资料（没有什么重要的东西）。在我的另一台电脑上，我一直在运行 Linux。我不需要 Windows，在电脑上安装了新的硬盘，并在上面安装了 Fedora，没有任何问题。运行如冠军。 现在历史电子邮件...似乎有很多解决方法可以将 dbx 文件放入 Windows 内部的 mbox，但我如何在没有安装 Windows 的情况下完成此任务（虚拟安装不行，因为我没有任何 Windows 安装光盘）。快速搜索后，我只...
perl
Perl + 将 shell 脚本语法翻译为 perl + 正则表达式
在我的系统中/var/tmp，有以下文件： ls | grep FILE AAA-FILE.xml BBB-FILE.xml 使用以下命令我剪切了文件的第一个字，如下所示： ls /var/tmp | grep FILE.xml | sed "s/.FILE.*//" 我得到： AAA BBB 我如何使用 Perl 执行相同的操作以将“AAA”和“BBB”插入到 @RESULTS 中？例如： @RESULTS=perl syntax ... ...
perl
我应该使用什么演示软件进行五分钟的演讲？
我很快就要进行一次简短演讲，需要整理一些幻灯片。这是一次关于 Perl 文档的技术演讲。我将使用 OS X 计算机来运行演示软件。 我想要的是 简约 易于发布到网络 控制简单（前进和后退就可以了，但使用热键访问单个幻灯片会更好） 易于创建幻灯片（最好是纯文本，不需要太多标记） 未连接网络时也会运行 ...
perl
如何使用旧的/损坏的 perl Finance::Quote 在 KMyMoney、GNUCash 或其他程序中获取股票报价
结论：我无法从 GnuCash 和 KMyMoney 中获取在线股票报价。看来 perl Finance::Quote 模块出了问题。修复此问题最简单的方法是什么？ 背景 许多免费应用程序（如 KMyMoney 和 GnuCash）使用 perl 库 Finance::Quote 从各种网站获取股票、债券和货币报价。但是，这些网站经常更改面向公众的 URL，从而破坏了这些应用程序的此功能。我正在使用长期支持的 Linux 发行版 (Ubuntu LTS)，因为我喜欢它的稳定性，但反向移植中没有此库的更新，所以我的软件现在已损坏。 最近在 Ubuntu 22....
![Bash [[ test =~ regex ]] 与 perl 命令结果](https://linux22.com/image/1701762/Bash%20%5B%5B%20test%20%3D~%20regex%20%5D%5D%20%E4%B8%8E%20perl%20%E5%91%BD%E4%BB%A4%E7%BB%93%E6%9E%9C.png)
perl
Bash [[ test =~ regex ]] 与 perl 命令结果
Bash 运算符=~等同于perl调用吗？ filename="test-33.csv" regex="([^.]+)(-\d{1,5})(\.csv)" 使用 bash 测试： if [[ "$filename" =~ $regex ]]; then echo "it matches"; else echo "doesn't match"; fi # doesn't match if [[ "$filename" =~ ([^.]+)(-\d{1,5})(\.csv) ]]; then echo "matches"; else echo "doesn'...
perl
在 Windows 上安装 Perl 以获取 LaTeX 软件包而不会出现依赖问题
我目前在 Windows 系统上安装 Perl 时遇到困难，我需要处理特定 LaTeX 相关软件包。到目前为止，我的经历让我遇到了一系列问题，我正在寻求有效解决这些问题的指导。 最初，我尝试安装草莓Perl使用 Chocolatey，因为它通常推荐给 LaTeX 用户。但是，我遇到了一个与File::Which依赖项相关的持续问题，我无法解决 Fetching http://www.cpan.org/authors/id/R/RE/REHSACK/File-HomeDir-1.006.tar.gz ... OK Configuring File-HomeD...
perl
使用 perl 应用程序（rt 5 - 请求跟踪器）连接到 Postgres 数据库时出现数据库连接错误
在 CentOS 9 系统上，我通过 dnf 安装了 postgres # dnf info postgresql Last metadata expiration check: 3:26:33 ago on Tue 21 Nov 2023 12:13:48 PM PST. Installed Packages Name : postgresql Version : 13.11 然后我编辑了 pg_hba.conf 以允许 md5 密码 # TYPE DATABASE USER ...
perl
AWK 将一些特殊的新行替换为一行
我有一些像这样的日志： 2023-11-15T08:59:28.000000+00:00 database-1 # Time: 231115 8:59:28 # User@Host: rdsadmin[rdsadmin] @ localhost [] # Thread_id: 3 Schema: QC_hit: No # Query_time: 0.000123 Lock_time: 0.000000 Rows_sent: 1 Rows_examined: 0 # Rows_affected: 0 Bytes_sent: 49 SET tim...
perl
对两个文件执行查找
我有一个 csv 文件，该文件通过 SFTP 传输到我设置的 RHEL 框中。然后，该文件被稍微转换，然后另一个 SFTP 进程进入并抓取它，然后将其发送出去导入第三方数据库。 我需要有一个 shell 脚本打开文件一，获取 id 和 code 字段..在文件二中搜索它们..从文件二中抓取 pay 字段并插入到文件一的 pay 字段中。 例子： File1.csv 501,101, 505,101, 507,103, File2.csv 501,101,5.50 505,101,6.25 507,103,1.25 我想将File2中的5.50插入到Fil...
perl
将两个正则表达式公式合并为一个（使用 notepad++）
Si cum îi semănau ! Fraţi buni, puindu-si, ca si el, tot sufletul în ceea ce făceau, muncind din greu, luptind din greu, jert- findu-se, fără nici un gînd de răsplată. Simțind în tot ceasul, asupra destinului lor, o poruncă ce vine mai de departe Si poruncește mai straşnic dec...