Início / unix / Perguntas / 524035
Accepted
Harper - Reinstate Monica
Asked: 2019-06-11 07:26:42 +0800 CST

O Unix encontra-se sobrecarregado por várias ameixas e digite f?

  • 772

Passei dias neste cubo de Rubik. Qualquer coisa que eu faça para corrigir um problema quebra outro.

Estou no MacOS X 10.5 a 10.14 compatível com POSIX. Estou chamando isso de um script Perl em um contexto de

  system ("find blah blah > FILENAME");

Eu preciso do Unix 'find' para fazer todas essas coisas de uma vez.

  • comece em uma raiz de volume, por exemplo/Volumes/My HD
  • não cruze sistemas de arquivos
  • imprimir apenas arquivos, não diretórios ou links simbólicos
  • nem desça em vários diretórios como net dev system. (Ou seja, não explore /Volumes/foo/dev/ mas explore /Volumes/foo/Users/Jim/ dev /github/twonky/)
  • o ponto inicial pode conter espaços

No momento, estou fazendo o seguinte: (dividido em várias linhas para facilitar a leitura; na verdade, é uma linha longa)

 Find -x '/Volumes/foo/' 
    -path '/Volumes/foo//dev/*' -prune
    -path '/Volumes/foo//net/*' -prune
    -path '/Volumes/foo//system/*' -prune
    -o -type f -print

A razão para o double / é que a impressão de find inclui o // porque o ponto inicial termina em um /. Os caminhos de Prune devem concordar, ou não combinarão. Por que o ponto de partida termina em /? Porque se isso não acontecer, find falha em qualquer ponto de partida com um espaço no nome, como "Meu HD". Tentei isso.

No momento, find exclui apenas o primeiro diretório da lista. O resto, apenas ignora. Atualmente estou testando no OS X 10.5, mas preciso de algo que funcione em todos os lugares.

Várias ameixas + arquivos apenas + espaços em nomes de arquivos são uma ponte muito longe? Estou apenas pedindo muito de encontrar ?

find

3 respostas

  1. Você precisa de um "ou" para realizar a segunda correspondência - nenhum caminho único corresponderá a ambos -path '/Volumes/foo//dev/*'e-path '/Volumes/foo//net/*'

    Find -x '/Volumes/foo/' 
    \( -path '/Volumes/foo//dev/*' 
    -o -path '/Volumes/foo//net/*' 
    -o -path '/Volumes/foo//system/*' \) -prune
-o -type f -print
    • 5
  2. Best Answer

    Minha resposta com uma solução Perl pura.

    Com esta caixa de areia:

    $ tree -F Volumes/ 
Volumes/ 
└── My\ HD/
    ├── Users/
    │   └── Jim/
    │       └── dev/
    │           └── github/
    │               └── twonky/
    │                   └── i_there.txt
    ├── dev/
    ├── net/
    ├── start.bat
    └── system/
        └── hello

9 directories, 3 files

    O seguinte código Perl usando File::Find:

    #!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

use File::Find;

my $start = 'Volumes/My HD';
my $start_dev = (stat($start))[0];
my @exclude = qw/net dev system/;
my %skipdir;

sub wanted {
    my $name = $_;
    return if (stat($name))[0] != $start_dev;
    $skipdir{$File::Find::name} = 1 if $File::Find::dir eq $start && grep { $name eq $_ } @exclude;
    if (exists($skipdir{$File::Find::dir})) {
        $skipdir{$File::Find::name} = 1 if -d $name;
        return;
    }
    return if ! -f $name;
    say "Got: $File::Find::name";

}

my %args = (
    wanted => \&wanted,
    follow => 1,
    follow_skip => 1,
);


find(\%args, $start);

    dá o esperado (se entendi bem):

    Got: Volumes/My HD/start.bat
Got: Volumes/My HD/Users/Jim/dev/github/twonky/i_there.txt

    É um POC, pode ser aprimorado.

    Observe também que você tem a find2perlferramenta documentada para poder converter uma findchamada específica para o código Perl associado usando File::Findos mesmos critérios.

    Agora com Path::Classo código pode parecer mais simples/fácil de ler (para o mesmo resultado):

    #!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

use Path::Class;

my $start = Path::Class::Dir->new('Volumes/My HD');
my @exclude = qw/net dev system/;

$start->recurse(callback => sub {
    my $node = shift;
    if ($node->is_dir) {
        return $node->PRUNE if $node->parent eq $start && grep { $node->dir_list(-1) eq $_ } @exclude;
        return;
    }
    return $node->PRUNE if $node->stat()->dev != $start->stat()->dev;
    say 'Got: ', $node->stringify();
}, preorder => 1)
    • 2

  3. Com a sua ajuda, consegui estabilizar "encontrar". No entanto, mover o código do OS X 10.5 para 10.10 o quebrou novamente . Essa foi a gota d'água. 'find' é simplesmente muito obtuso, subdocumentado e inconsistente, e é um recurso central do unix pelo amor de Deus! Este. É por isso que eu odeio o código de outras pessoas. Comecei a me esforçar para aprender File::Find, então pensei "o que estou fazendo? Posso codificar isso sozinho em 20 minutos".

    O que eu fiz sumariamente. 

    sub iterate {
  my ($mydir, $ref_FH, $homevol, $ref_excludes) = @_;  # last is ref to hash

  return if (defined ($ref_excludes -> {$mydir}));   # No excludes

  my $thisvol = (stat($mydir))[0];    # What's my volume?
  return if ($thisvol != $homevol) ;  # No crossing volumes

  opendir (my $DIR, $mydir);
  while (defined (my $file = readdir($DIR))) {
    next if ($file eq '.' or $file eq '..');
    my $full = "$mydir/$file";   

    if (-l $full) {                                   # symlink
                                                         # nope
    } elsif (-f $full) {                              # file
      print {$$ref_FH} "$full\n";                        # print it
    } elsif (-d $full) {                              # dir
      &iterate($full, $ref_FH, $homevol, $ref_excludes); # iterate
    }
  }
}

    E é rápido. E leve - este código tem metade do tamanho (e mais fácil de manter) do que o código que formatou a lista de argumentos de "find"!

    • 1

relate perguntas