Perl oneliner для сопоставления точного слова в пути со многими различными значениями со специальными символами

Как упоминалось в ответ на ваш последний вопрос (поскольку он удален), синтаксический анализ вывода ls очень неоптимален. Вместо этого можно использовать readlink.

find /tmp -type l -exec \
   perl -e'
      my $TARGET_NAME = shift;
      for (@ARGV) {
         my $p = readlink($_);
         $p =~ m{(?:^|/)\Q$TARGET_NAME\E(?:/|\z)}
            or next;
         print("$_\t$p\n");
      }
   ' "$TARGET_NAME" {} \;

Или более эффективно,

perl -MFile::Find::Rule -e'
   my ($TARGET_NAME, $BASE) = @ARGV;
   for (File::Find::Rule->symlink->in($BASE)) {
      my $p = readlink($_);
      $p =~ m{(?:^|/)\Q$TARGET_NAME\E(?:/|\z)}
         or next;
      print("$_\t$p\n");
   }
' "$TARGET_NAME" /tmp

По запросу это будет соответствовать

TARGET_NAME
TARGET_NAME/
TARGET_NAME/x
.../TARGET_NAME
.../TARGET_NAME/
.../TARGET_NAME/x

но нет

TARGET_NAMEx/...
.../TARGET_NAMEx
.../TARGET_NAMEx/...
xTARGET_NAME/...
.../xTARGET_NAME
.../xTARGET_NAME/...

Примечание. Измените find ... -exec ... \; на find ... -exec ... +, если ваш find поддерживает это.

Поскольку цель может совпадать или не совпадать с возвращаемой частью, проще всего сделать два отдельных вызова регулярных выражений (также может помочь, если это следует обобщить):

perl -ne 'print "$1" if (m#[email protected]# && m#([^/]+)\s*$#);'

Другими словами, найдите целевую фразу, а затем получите последний компонент поиска (тот, который не содержит «/»). Когда оба условия выполнены, напечатайте захваченный текст в круглых скобках.

Относительно специальных символов: если «#» заменить более традиционным «/», вам нужно будет экранировать тот, который я написал как «/». В противном случае «@» не должен вызывать у вас проблемы. Конечно, если это так в вашей системе, просто экранируйте их с помощью «\».

Учитывая следующие ссылки

$ cd /tmp

$ ls -l link* | sed -e 's/^.*\(link\)/\1/'
link -> /usr/admin/Collect_tests
link1 -> /usr/admin/Collect_tests/[email protected]
link2 -> /usr/admin/Collect_tests/[email protected]/Upload_Shema@@@.DATA.com
link3 -> /usr/admin/Collect_tests/[email protected]/Upload_Shema@@@.DATA.com/List.files.emails.dummy*Printed
link4 -> /usr/admin/Collect_tests/[email protected]/Upload_Shema@@@.DATA.com/List.files.emails.dummy
link5 -> /usr/admin/Collect_tests/[email protected]/

используйте модуль File::Find, как в

$ TARGET_NAME='Upload_Shema@@@.DATA.com' perl -MFile::Find -le 'find sub {
   -l && defined($dst = readlink $_) &&
   index($dst, $ENV{TARGET_NAME}) >= 0 &&
   print "$File::Find::name $dst" }, @ARGV' /tmp
/tmp/link2 /usr/admin/Collect_tests/[email protected]/Upload_Shema@@@.DATA.com
/tmp/link3 /usr/admin/Collect_tests/[email protected]/Upload_Shema@@@.DATA.com/List.files.emails.dummy*Printed
/tmp/link4 /usr/admin/Collect_tests/[email protected]/Upload_Shema@@@.DATA.com/List.files.emails.dummy

Это действительно громоздко, как однострочник. В качестве отдельной команды становится

#! /usr/bin/env perl

use strict;
use warnings;

use File::Find;

die "Usage: $0 root-dir ..\n" unless @ARGV;
die "$0: TARGET_NAME is not defined\n" unless exists $ENV{TARGET_NAME};

sub print_matching_target_name {
  return unless -l && defined(my $dst = readlink $_);
  print "$File::Find::name $dst\n" if index($dst, $ENV{TARGET_NAME}) >= 0;
}

find \&print_matching_target_name, @ARGV;

Пример вывода:

$ find-target
Usage: find-target root-dir ..

$ find-target /tmp
find-target: TARGET_NAME is not defined

$ [email protected] ./find-target /tmp
/tmp/link2 /usr/admin/Collect_tests/[email protected]/Upload_Shema@@@.DATA.com
/tmp/link3 /usr/admin/Collect_tests/[email protected]/Upload_Shema@@@.DATA.com/List.files.emails.dummy*Printed
/tmp/link4 /usr/admin/Collect_tests/[email protected]/Upload_Shema@@@.DATA.com/List.files.emails.dummy

Попробуйте сделать это:

#!/bin/bash

while IFS= read -r file; do
    printf "TARGET_NAME=%q\n" "$file"
done < <(find /tmp -type l -printf '%l\n')

Результат обозначается обратной косой чертой, например:

TARGET_NAME=/tmp/foo/List.files.emails.dummy\*Printed