主页 / unix / 问题

问题[perl](unix)

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
Martin Hope
numchrun
Asked: 2023-10-05 16:52:44 +0800 CST
  • 7

我的脑海中浮现出一个奇怪的现象。如您所知，处理直接暴露在互联网上的邮件服务器可能是一件非常“快乐”的事情，因为许多人试图闯入它或将其用作中继。我在手动阻止通过防火墙的地址或范围时没有任何问题，尽管这需要一些努力。我不太热衷于使用fail2ban 自动化整个过程；我更喜欢知道“发生了什么事”。

因此，我使用 iptables 和 ip6tables 创建了各种规则，它们的数量几乎达到了稳定水平。尽管如此，为了保持某种组织的外观，我想将被阻止的 V4 IP 和 V4 范围的数量与 V4 地址的总数联系起来。关于后者，我忽略了这样一个事实：有一些不允许的地址，例如未路由的广播地址或私有地址范围。相反，我简单地假设可以有 2^32 个具有四个字节的地址。

从 iptables 的规则中，我使用过滤器（主要是 awk）提取指定的 IP 范围，并获得如下所示的列表：

...
27.72.155.100/32
37.9.0.0/20
37.9.32.0/20
37.9.48.0/21
37.9.64.0/18
37.9.128.0/21
...

因此，地址和掩码中有效位的通常组合。我使用一个处理 STDIN 的小型 Perl 程序来处理这个列表。为了从这样的字符串中确定受影响地址的数量，我使用了 Perl 库“Net::IP”，它提供了方便的处理。例如，在 后$str = "37.9.32.0/20"，可以执行$ip = new Net::IP($str); $count = $ip -> size();，并且 $count 现在包含 4096，这是 2^(32-20) 的结果。到目前为止，一切都很好。

当我尝试使用 $count 执行计算时，问题就出现了。对所有数量求和后，我想通过除以 2^32 来确定它们占可能的 IP 总量的百分比。即使对于单个值，问题也很明显：尝试将确定的数量 4096 除以 3 不会产生浮点数“1365.33...”，而只会产生整数值 1365。我尝试在除法之前进行转换获得清晰的格式，但这没有帮助。它可能与 Net::IP 使用的面向对象代码有关。我承认，作为一名前汇编程序员，我并不精通面向对象编程，并且对此很挣扎。可能需要的是一种\$count -> getInt()因为：

我采用了蛮力方法，通过在循环中迭代 IP 数量，减少 Net::IP 的 OOP 结果，实际上获得了所需的浮点数结果。但这确实太粗糙了，完全绕过了Net::IP 的优雅概念。此外，我确信你们当中有专家可以向我指出一些可以产生著名的“啊哈效应”的东西，我对此很期待。这是我使用的源代码，在 Perl 中简化为单个 IP 地址/掩码：

#!/usr/bin/perl
use strict;
use Net::IP;
my $count = 0;
my $str = "37.9.32.0/20";
my $ip = new Net::IP($str) or die (Net::IP::Error());
my $count = $ip -> size();

print "this is the result of 4096/3\t\t\t: ", 4096 / 3, "\n";
print "this is count\t\t\t\t\t: ", $count, "\n";
print "and this is the result of \$count / 3\t\t: ", $count / 3, "\n";
print "and this is the result of int(\$count) / 3\t: ", int($count) / 3, "\n";

my $countW = 0;
while ($count > 0) {
        $count--;
        $countW++;
}
print "and now comes the result of \$countW / 3\t\t: ", $countW / 3, "\n";

这里产生的输出：

this is the result of 4096/3                    : 1365.33333333333
this is count                                   : 4096
and this is the result of $count / 3            : 1365
and this is the result of int($count) / 3       : 1365
and now comes the result of $countW / 3         : 1365.33333333333
perl
Martin Hope
Kamil
Asked: 2023-09-30 00:06:55 +0800 CST
  • 13

今天我注意到 Perl 中发生了一些变化，可能是最近，它运行 shell 命令的方式发生了变化。有人可以解释一下发生了什么变化吗？我自己找不到答案，遗憾的是我们以最艰难的方式了解到了这一变化。一些新用户在他们的新主目录中获得了有趣的内容......

我正在运行一个简单的命令/脚本：

#!/usr/bin/perl -w

system("ls -R /etc/skel/.[^.]*");

在 Debian 11: 中perl v5.32.1，输出只是以下内容/etc/skel（如预期）：

.  ..  .bash_logout  .bashrc  .face  .face.icon  .kshrc  .profile

但在 Debian 12 中：perl v5.36.0通配符^被忽略，整体/etc被读取，这意味着..不被忽略。

当我更改^为替代符号!:时system("ls -R /etc/skel/.[!.]*");，它再次按预期运行。

问题是，Perl 在处理符号!和调用^方面发生了什么变化system()？

编辑: 2023年9月29日 19:50

我在两台服务器上做了一些测试，看起来有些东西发生了dash变化？

Debian 11：（我在破折号中dash Version: 0.5.11+git20200708+dd9ef66-5没有看到标志，所以这是来自 APT）。--version

root@s:~# dash -c 'ls -R /etc/skel/.[^.]*'
/etc/skel/.bash_logout  /etc/skel/.bashrc  /etc/skel/.forward+spam  /etc/skel/.kshrc  /etc/skel/.profile
root@s:~# dash -c 'ls -R /etc/skel/.[!.]*'
/etc/skel/.bash_logout  /etc/skel/.bashrc  /etc/skel/.forward+spam  /etc/skel/.kshrc  /etc/skel/.profile

Debian 12：dash Version: 0.5.12-2

[students] ~ ➽ $ dash -c 'ls -R /etc/skel/.[^.]*' | more
/etc/skel/..:
a2ps.cfg
a2ps-site.cfg
adduser.conf
adjtime
aliases
aliases.db
alsa
alternatives

[students] ~ ➽ $ dash -c 'ls -R /etc/skel/.[!.]*'
/etc/skel/.bash_logout  /etc/skel/.bashrc  /etc/skel/.face  /etc/skel/.face.icon  /etc/skel/.kshrc  /etc/skel/.profile

亲切的问候，卡米尔

perl