Perguntas[perl](unix)

linha do arquivo de log

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

no arquivo logview eu tenho

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);

a saída é

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

faltando o useragent completo devido a espaços

Mozilla/5.0 (X11; Linux x86_64; rv:128.0) Gecko/20100101 Firefox/128.0       

A versão antiga de 2 argumentos de open(ou seja, open FILEHANDLE,EXPR) para abrir um arquivo em perl está obsoleta. Por motivos de segurança, deve ser substituído pela versão de 3 argumentos open FILEHANDLE,MODE,EXPR. Porém, há um caso em que a versão com 3 argumentos se comporta de maneira diferente da versão com 2 argumentos:

2-arg openinterpreta o nome do arquivo especial -como entrada padrão. Por exemplo, ambos

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

e

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

produzir a saída foo. Na versão de 3 argumentos, a interpretação especial de -desapareceu, entretanto:

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

não imprime nada.

Qual é a maneira padrão ou recomendada de emular esse recurso de 2-arg openusando 3-arg open? (Na aplicação concreta, o nome do arquivo é um argumento do programa que pode ou não ser -.)

$ 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;'
$

Onde posso aprender mais sobre o misterioso @0 ... @9999 do Perl, etc.?

Essa linha que tenho no meu código corta o .csh de uma string e retorna o restante dela. Alguém pode explicar o que cada parte faz?

($eachJOBID = $eachScriptNoPath) =~ s/\.csh// ;

Estou tentando depurar um monitor de processo legado com falha que pesquisa processos em execução. Eu determinei que isso está sendo causado por algum comportamento misterioso do Linux. O processo que está sendo executado é /opt/my/path/directoryname/daemonname, mas por algum motivo estranho, ele aparece com espaços, não /, ao redor do nome do diretório. Muitos daemons estão sendo executados no mesmo diretório e aparecem com o caminho correto. É apenas um daemon específico em cada servidor.

ps -efmostra o seguinte para este daemon:

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

Este daemon está sendo iniciado por um script perl. Comparando-o com outros, parece que o caminho do diretório está sendo fornecido usando exatamente a mesma variável env de todos os outros scripts, mas esses outros scripts resultam em um caminho correto como /opt/my/path/directoryname/daemonname. As linhas Perl relevantes se parecem com exec => catfile( $settings->config("/directories/executables"), $daemon_name ),e eu confirmei que o valor de config("/directories/executables") é o valor correto/opt/my/path/directoryname

Procurar por esta pergunta tem sido um pesadelo devido a todas as perguntas sobre nomes de diretórios com espaços. Isto não é isso. Nenhum caminho deve conter um espaço. ps mostra meu comando mkdir com um espaço onde eu tinha uma barra é o mais próximo que consegui encontrar, que não foi respondido.

Um script Perl está travado,

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

mas quando eu strace -f -p, só obtenho a saída

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

Qual é o próximo passo para descobrir o que está acontecendo?

Eu escrevi um servidor Perl simples que escuta em uma porta/soquete TCP, aceitando conexões. Agora eu me pergunto:

Ao querer implementar o controle de acesso baseado em endereço, é possível verificar o endereço do peer que solicita uma conexão antes de aceitá-la?

Se possível, eu poderia rejeitar a solicitação de conexão (espero) em vez de aceitar a conexão e fechá-la imediatamente novamente.

Eu tenho brincado com a implementação perl da ferramenta de renomeação no cygwin e finalmente consegui fazê-la funcionar através da instalação do cpan.

Já faz muito tempo que não brinquei com essas coisas, então estou um pouco enferrujado com minhas coisas de regexp.

basicamente estou apenas tentando renomear um monte de pastas no formato

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

ou

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

e mova o material do início delimitado por []até o final para que pareça

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

ou

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

Eu descobri como fazer isso usando parâmetros de posição, mas estou lutando para fazer isso usando correspondência de padrões para[]

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

fará o trabalho para as pastas com a data completa e obviamente, mas não para as pastas com apenas um ano. Idealmente, gostaria de uma única expressão para processar todos eles.

Acho que pode ser complicado pelo fato de [] serem tratados como operadores, portanto, pode ser necessário escapar de alguma forma.

Qualquer ajuda será apreciada.

Um fenômeno peculiar está em minha mente. Como você deve saber, lidar com um servidor de e-mail diretamente exposto à Internet pode ser uma grande “alegria” para vários indivíduos que tentam invadi-lo ou usá-lo como retransmissor. Não tenho problemas em bloquear manualmente endereços ou intervalos que me incomodam através do firewall, mesmo que isso exija algum esforço. Não estou muito interessado em automatizar todo o processo com fail2ban; Prefiro saber o que está ‘acontecendo’.

Então, criei várias regras com iptables e ip6tables, e seu número quase atingiu um patamar. No entanto, para manter alguma aparência de organização, gostaria de relacionar a quantidade de IPs V4 e intervalos V4 bloqueados ao número total de endereços V4. Em relação a este último, estou deixando de lado o fato de que existem alguns endereços não permitidos, como endereços de transmissão ou intervalos de endereços privados, que não são roteados. Em vez disso, estou assumindo de forma simplista que pode haver 2 ^ 32 endereços com quatro bytes.

Das regras para iptables, extraio os intervalos de IP especificados usando filtros, principalmente com awk, e obtenho uma lista semelhante a esta:

...
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
...

Portanto, a combinação usual de endereço e bits válidos na máscara. Eu processo esta lista com um pequeno programa Perl que lida com STDIN. Para determinar a quantidade de endereços afetados de tal string, uso a biblioteca Perl "Net::IP", que fornece processamento conveniente. Por exemplo, depois $str = "37.9.32.0/20", é possível fazer $ip = new Net::IP($str); $count = $ip -> size();, e $count agora contém 4096, que é o resultado de 2^(32-20). Até agora está tudo bem.

O problema surge quando tento realizar cálculos com $count. Depois de somar todas as quantidades, quero determiná-las como uma porcentagem da quantidade total de IP possível, dividindo-as por 2 ^ 32. Mesmo com valores individuais, o problema é evidente: a tentativa de dividir a quantidade determinada de 4096 por 3 não produz o número de ponto flutuante "1365,33...", mas simplesmente o valor inteiro 1365. Tentei converter antes da divisão para obter formatos claros, mas não ajudou. Provavelmente tem algo a ver com o código orientado a objetos usado pelo Net::IP. Admito que, como ex-programador assembler, não sou muito versado em programação orientada a objetos e tenho dificuldade com isso. O que provavelmente é necessário é uma espécie de \$count -> getInt()porque:

Recorri a uma abordagem de força bruta para realmente obter o resultado desejado como um número de ponto flutuante, iterando a quantidade de IP em um loop, diminuindo o resultado OOP de Net::IP. Mas isso é muito grosseiro e ignora completamente o conceito elegante de Net::IP. Além disso, tenho certeza de que há especialistas entre vocês que podem me indicar algo que produza o famoso “efeito aha”, e estou ansioso por isso. Aqui está o código-fonte que usei, reduzido a um único endereço/máscara IP em Perl:

#!/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";

E aqui os resultados produzidos:

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

Hoje notei que algo mudou no Perl, provavelmente recentemente, na forma como ele executa comandos shell. Alguém poderia explicar o que mudou? Não consigo encontrar a resposta sozinho e, infelizmente, aprendemos sobre essa mudança da maneira mais difícil possível. Alguns novos usuários obtiveram conteúdos interessantes de seus novos diretórios pessoais...

Estou executando um comando/script simples:

#!/usr/bin/perl -w

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

No Debian 11: perl v5.32.1, a saída é apenas o conteúdo de /etc/skel(como esperado):

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

Mas no Debian 12: perl v5.36.0o globbing ^é ignorado e o todo /etcé lido, o que significa ..que não é ignorado .

Quando mudo ^para o símbolo alternativo !: system("ls -R /etc/skel/.[!.]*");, ele funciona conforme o esperado novamente.

A questão é: o que mudou no Perl no tratamento de símbolos !e ^na system()invocação?

EDITAR: 29.09.2023, 19h50

Fiz alguns testes nos dois servidores e parece que algo mudou dash?

Debian 11: dash Version: 0.5.11+git20200708+dd9ef66-5(não vejo uma --versionbandeira no traço, então é do APT).

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

Atenciosamente, Kamil