Как мне использовать Perl как Sed?

Question

У меня есть файл, в котором есть записи типа

--ERROR--- Failed to execute the command with employee Name="shayam" Age="34"

--Successfully executed the command with employee Name="ram" Age="55"

--ERROR--- Failed to execute the command with employee Name="sam" Age="23"

--ERROR--- Failed to execute the command with employee Name="yam" Age="3"

Я должен извлечь только Имя и Возраст тех, для кого не удалось выполнить команду. в этом случае мне нужно извлечь shayam 34 sam 23 yam 3. Мне нужно сделать это в perl. большое спасибо ..

Answer 1

В качестве однострочника:

perl -lne '/^--ERROR---.*Name="(.*?)" Age="(.*?)"/ && print "$1 $2"' file

Answer 2

файл perl -p -e 's /../../ g'

или для внутренней замены:

perl -pi -e 's /../ ../ g 'file

Answer 3

Ваш заголовок не совсем понятен.Во всяком случае ...

while(<>) {
 next if !/^--ERROR/;
 /Name="([^"]+)"\s+Age="([^"]+)"/;
 print $1, "  ", $2, "\n";
}

может сделать это чтение из стандартного ввода;конечно, вы можете изменить цикл чтения на что-нибудь еще и распечатать что-нибудь, чтобы заполнить хэш или что-то еще в соответствии с вашими потребностями.

Answer 4

В качестве одной строки попробуйте:

perl -ne 'print "$1 $2\n" if /^--ERROR/ && /Name="(.*?)"\s+Age="(.*?)"/;'

Это очень похоже на использование sed, но с синтаксисом Perl.

Answer 5

Непосредственный вопрос "как мне использовать perl как sed?" лучше всего ответить с s2p, конвертер sed в perl. Учитывая командную строку «sed $ script», просто вызовите «s2p $ script» для генерации (обычно нечитаемого) perl-скрипта, который эмулирует sed для данного набора команд.

Answer 6

См. Комментарии:

my @a = <>; # Reading entire file into an array
chomp @a;   # Removing extra spaces
@a = grep {/ERROR/} @a; # Removing lines that do not contain ERROR
# mapping with sed-like regexp to keep only names and ages :
@a = map {s/^.*Name=\"([a-z]+)\" Age=\"([0-9]+)\".*$/$1 $2/; $_} @a; 
print join " ",@a; # print of array content