主页 / unix / 问题

问题[perl](unix)

Martin Hope
jsx97
Asked: 2025-03-16 08:53:41 +0800 CST
  • 5

我记得我已经使用 安装了 Perl::Rename，cpan -i File::Rename并且事实上我在那里有$HOME/perl5/bin和rename可执行unsafe-rename文件。

但当我尝试使用时rename，

# Expected: Renames FooBar.txt to Foo_Bar.txt
# It worked for me in the past
rename 's/\s/_/' *.txt

...有一个错误：

Can't locate File/Rename.pm in @INC (you may need to install the File::Rename module) (@INC contains: /Library/Perl/5.34/darwin-thread-multi-2level /Library/Perl/5.34 /Network/Library/Perl/5.34/darwin-thread-multi-2level /Network/Library/Perl/5.34 /Library/Perl/Updates/5.34.1 /System/Library/Perl/5.34/darwin-thread-multi-2level /System/Library/Perl/5.34 /System/Library/Perl/Extras/5.34/darwin-thread-multi-2level /System/Library/Perl/Extras/5.34) at ./rename line 4.
BEGIN failed--compilation aborted at ./rename line 4.

然后我尝试File::Rename使用相同的命令重新安装，但又出现了另一条错误消息，非常长。以下是最后的一部分：

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ERROR: Can't create '/Library/Perl/5.34/File'
mkdir /Library/Perl/5.34/File: Permission denied at /System/Library/Perl/5.34/ExtUtils/Install.pm line 470.

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 at -e line 1.
make: *** [pure_site_install] Error 13
  RMBARKER/File-Rename-2.02.tar.gz
  /usr/bin/make install  -- NOT OK

这里发生什么事了？

Perl 本身是 macOS 附带的。我没有安装它。

perl
Martin Hope
PersianGulf
Asked: 2025-02-02 20:46:08 +0800 CST
  • 7

我已经从 debian 的 repoDebian GNU/Linux trixie/sid安装了publican。(publican 正在为 进行写入和发布DocBook)
当我运行时publican，它会收到以下消息：

Attempt to call undefined import method with arguments ("abs2rel") via package "File::Spec" (Perhaps you forgot to load the package?) at /usr/share/perl5/Publican/TreeView.pm line 12.
Duplicate specification "help" for option "help"
Can't open publican: No such file or directory at /usr/bin/publican line 646.

我的 publican 版本是4.3.2-4。
我还libfile-spec-native-perl从 repo 安装了软件包。

然后我通过以下方式下载源代码：

apt source publican

然后运行publican，出现以下错误：

mohsen@debian:~/src-compiled/publican/publican-4.3.2/bin$ ./publican 
Attempt to call undefined import method with arguments ("abs2rel") via package "File::Spec" (Perhaps you forgot to load the package?) at /usr/share/perl5/Publican/TreeView.pm line 12.
Duplicate specification "help" for option "help"

Action required!

根据以上Action Required!字符串添加到输出。

我不知道该如何解决。
如果你解决了我的问题，我会很高兴。

perl
Martin Hope
nixnut
Asked: 2024-10-04 14:19:32 +0800 CST
  • 5

日志文件行

4/10/2024--06:00pm guest 192.168.1.2 https://nixnut.nz/home/accounts/hosting.cgi?action=getonline Mozilla/5.0 (X11; Linux x86_64; rv:128.0) Gecko/20100101 Firefox/128.0

在 logview 文件中我有

open (FILE, "tail -$form{'howmany'} $file | tail -$form{'howmany'} |") or die "Opening $file: $!";

  while (<FILE>) {
    chomp;
    s/^\"//;
    s/\"$//;
    my ($date, $user, $host, $page, $browser) = split(' ', $_);
print "<tr bgcolor=black>";
print "<td bgcolor=white align=left valign=top>$font $date</td>";
print "<td bgcolor=white align=left valign=top><a href=http://nixnut.nz/$user target=_blank>$font $user</a></td>";
print "<td bgcolor=white align=left valign=top>$font <a href=https://www.iptolocation.io/ip-lookup/$host target=_blank>$host</a></td>";
print "<td bgcolor=white align=left valign=top>$font <a href=http://$host target=_blank>$host</a></td>";
print "<td bgcolor=white align=left valign=top><a href=$page target=_blank>$font $page</a></td>";
print "<td bgcolor=white align=left valign=top>$font $browser</td>";
print "</tr>\n";
  }
  close (FILE);

输出是

4/10/2024--06:00pm  guest   192.168.1.2 192.168.1.2 https://nixnut.nz/home/accounts/hosting.cgi?action=getonline    Mozilla/5.0

由于空格而缺少完整的用户代理

Mozilla/5.0 (X11; Linux x86_64; rv:128.0) Gecko/20100101 Firefox/128.0
perl
Martin Hope
Uwe
Asked: 2024-08-07 20:26:56 +0800 CST
  • 5

在 perl 中，用于打开文件的旧 2 参数版本open（即）已弃用。出于安全原因，应将其替换为 3 参数版本。不过，有一种情况下，3 参数版本的行为与 2 参数版本不同：open FILEHANDLE,EXPRopen FILEHANDLE,MODE,EXPR

2-argopen将特殊文件名解释-为标准输入。例如，

echo foo | perl -e 'open my $fh, "-"; $_ = <$fh>; print $_;'

和

echo foo | perl -e 'open my $fh, "<-"; $_ = <$fh>; print $_;'

产生输出foo。在 3 参数版本中，的特殊解释-已经消失：

echo foo | perl -e 'open my $fh, "<", "-"; $_ = <$fh>; print $_;'

不打印任何内容。

open使用 3-arg 来模拟 2-arg 的这个特性的标准或推荐方法是什么open？（在具体应用中，文件名是程序的一个参数，可能是也可能不是-。）

perl
Martin Hope
Dan Jacobson
Asked: 2024-07-25 08:32:36 +0800 CST
  • 9
$ perl -wle 'my @388=0..2;'
Can't use global @388 in "my" at -e line 1, near "my @388"
Execution of -e aborted due to compilation errors.
$ perl -wle '@388=0..2;'
$

在哪里可以了解有关 Perl 的神秘 @0 ... @9999 等的更多信息？

perl
Martin Hope
k.schroeder31
Asked: 2024-04-27 00:02:31 +0800 CST
  • 8

我正在尝试调试一个失败的旧进程监视器，该监视器搜索正在运行的进程。我确定这是由一些神秘的 Linux 行为引起的。正在运行的进程是 /opt/my/path/directoryname/daemonname 但由于某些奇怪的原因，它在目录名周围显示空格，而不是 /。许多守护进程都从同一目录运行，并以正确的路径显示。它只是每台服务器上的一个特定守护进程。

ps -ef显示此守护程序的以下内容：

/opt/my/path directoryname daemonname --arg1 VALUE1 --arg-two VALUE.TWO --arg-three ARG.UMENT.THREE.ERR --worker daemonname --pid-role daemonname

该守护进程由 perl 脚本启动。与其他脚本相比，看起来目录路径是使用与所有其他脚本完全相同的环境变量提供的，但这些其他脚本会产生正确的路径，例如/opt/my/path/directoryname/daemonname. 相关的 perl 行看起来像这样exec => catfile( $settings->config("/directories/executables"), $daemon_name ),，我已经确认 config("/directories/executables") 的值是正确的值/opt/my/path/directoryname

由于所有有关目录名称包含空格的问题，搜索这个问题一直是一场噩梦。这不是那个。任何路径都不应包含空格。 ps 显示了我的 mkdir 命令，其中有一个空格，其中有一个斜线，这是我能找到的最接近的，但没有得到答复。

perl
Martin Hope
Thomas
Asked: 2024-02-24 20:04:48 +0800 CST
  • 5

Perl 脚本卡住了，

root     1317478 99.8  0.0 264072 22516 ?        R    04:57 478:37 /usr/bin/perl /usr/share/awstats/wwwroot/cgi-bin/awstats.pl -config=domain.tld-http -staticlinks -configdir=/usr/local/psa/etc/awstats -output=keywords

但是当我strace -f -p，我只得到输出

strace: Process 1317478 attached [ Process PID=1317478 runs in x32 mode. ]

下一步要做什么才能查明到底发生了什么？

perl
Martin Hope
U. Windl
Asked: 2023-11-13 15:54:41 +0800 CST
  • 9

我编写了一个简单的 Perl 服务器，它侦听 TCP 端口/套接字并接受连接。现在我想知道：

当想要实现基于地址的访问控制时，是否可以在接受连接之前检查请求连接的对等方的地址？

如果可能的话，我可以拒绝连接请求（我希望），而不是接受连接并立即再次关闭它。

perl
Martin Hope
Adam B
Asked: 2023-11-02 17:48:50 +0800 CST
  • 5

我一直在玩 cygwin 中重命名工具的 perl 实现，最终通过从 cpan 安装使其工作。

我已经很长时间没有玩这些东西了，所以我对我的正则表达式东西有点生疏了。

基本上我只是想重命名一堆表单的文件夹

[2022-10-10] This is a Test - This is a Test (some stuff) [393933939339]

或者

[2022] This is a Test - This is a Test (some stuff) [393933939339]

并将开头处的内容移至[]末尾，这样看起来就像

This is a Test - This is a Test (some stuff) [393933939339] [2022-10-10]

或者

This is a Test - This is a Test (some stuff) [393933939339] [2022]

我已经弄清楚如何使用位置参数来做到这一点，但我很难使用模式匹配来做到这一点[]

rename  -n 's/^(.{12})(.*)$/$2 $1/'

将为具有完整日期的文件夹执行此操作，显然，但不适用于仅包含一年的文件夹。理想情况下，我想要一个表达式来处理所有这些。

我认为这可能会因为 [] 被视为运算符而变得复杂，因此可能需要以某种方式转义。

任何帮助表示赞赏。

perl