Perguntas[perl](unix)

Aqui está um script para corrigir nomes de arquivos cirílicos quebrados se os arquivos foram movidos do Windows para o Mac (com base em uma resposta para Reverter nomes de arquivos depois que eles foram corrompidos pelo uso de codificação diferente )

#!/bin/zsh

# Usage: <script> <target directory>
# Requires Perl::Rename

find "$1" -mindepth 1 -print0 |
  rename -0 -d -e '
    use Unicode::Normalize qw(NFC);
    use Encode qw(:all);

    if ($_ =~ /[†°Ґ£§•¶І®©™Ђђ≠]/) {
      my $check = DIE_ON_ERR | LEAVE_SRC;
      my $new = eval {encode("UTF-8",
                      decode("cp866",
                      encode("mac-cyrillic",
                      NFC(decode("UTF-8", $_, $check)), $check), $check))
                     };
      if ($new) {$_ = $new;} else {warn $@;}
    }'

Quero que ele renomeie apenas os arquivos no diretório de destino que tenham pelo menos um dos seguintes caracteres em seus nomes: †°Ґ£§•¶І®©™Ђђ≠. Mas, por algum motivo, o script renomeia todos os arquivos ali: por exemplo, um nome de arquivo correto срочно.txté alterado para um ёЁюўэю.txt. O que estou fazendo errado?

O caminho para minha pasta de teste é simples /Users/john/scripts/test: sem espaços, sem caracteres cirílicos ou especiais.

O script é usado no macOS e com a versão BSD do find.

Uma atualização dois dias após a resposta à pergunta: as versões Chazelas e Choroba do Stéphane funcionam bem para mim. A versão do Terdon ainda não funciona.

Lembro que instalei o Perl::Rename usando cpan -i File::Rename, e de fato tenho os executáveis $HOME/perl5/bin​​with renamee unsafe-renamelá.

Mas quando tento usar rename,

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

...há um erro:

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.

Então tentei reinstalar File::Rename, usando o mesmo comando, mas então aparece outra mensagem de erro, uma bem longa. Aqui está uma parte do finalzinho:

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

O que está acontecendo aqui?

O Perl em si é o que vem com o macOS. Eu não o instalei.

Eu tenho Debian GNU/Linux trixie/side instalei o publican do repositório do Debian. (O publican está fazendo gravação e publicação para DocBook)
Quando eu executo publican, ele recebo as seguintes mensagens:

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.

A versão do meu publican é 4.3.2-4.
Também instalei libfile-spec-native-perlo pacote do repositório.

Então eu baixo o código fonte via:

apt source publican

Em seguida, execute publican e obtenha o seguinte erro:

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!

De acordo com a string acima Action Required!adicionada à saída.

Não sei como resolver isso.
Você me deixa feliz se resolver meu problema.

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.