Articles of перл

Принимая номера из текстового файла и добавляя их вместе

У меня есть текстовый файл с сотнями строк, как показано ниже. Я пытаюсь найти способ вытащить количество записей и добавить их вместе. Затем я хочу поместить ответ в отдельный файл. Это мой первый скрипт, который я когда-либо пытался написать. Record 4957 of message 1: Record 3411 of message 1: Record 2529 of message 1:

Perl однострочный для замены кодового блока

У меня есть файл foo.txt hello world first line to change second line to change Я хотел бы написать perl one-liner, который изменяет foo.txt чтобы читать hello world this is my new text Я пытался perl -p -i -e 's/ first line to change\n second line to change/ this is\n my new text/g' foo.txt но […]

Не удается прослушивать эфемерный порт tcp

У меня есть несколько серверов под управлением CentOS 7.2, все они установлены из локального репо и управляются через марионетку (так что они очень похожи). На большинстве из них запуск следующей команды не дает выхода (как и ожидалось): perl -we 'use AnyEvent::Socket;tcp_server(undef,undef,sub{},sub{})' Однако на одной конкретной машине одна и та же команда возвращает ошибку: Undefined port […]

имя файла в качестве аргумента и сортировать по убыванию в perl?

У меня есть этот скрипт perl #!/usr/bin/perl use strict; open my $df, '<', 'file.txt' or die "open: $!\n"; my %h; while (<$df>) { $h{$_}++ for split /\s+/; END{ for (keys %h){ print $_, "=", $h{$_}; print "\n"; } } } он печатает появление каждого слова в файле, у меня есть несколько вопросов 1) Как я […]

Как печатать первые три строки и последние две строки файла, используя perl?

Через командную строку я рисую один или несколько найденных шаблонов text.xml-файла: perl -ln0e 'while(/<PMResult.*?<\/PMResult>/gs) { $x=$&;print $x if $x=~/BCCEL-[1-3]/}' text.xml Мне нужно создать новый файл с найденным шаблоном; новый файл будет иметь первые три строки файла Text.xml перед шаблоном и иметь последние две строки файла Text.xml после шаблона.

захватить несколько строк после соответствующей целевой линии

Этот вопрос похож на Как показывать строки после каждого совпадения grep до другого конкретного совпадения? таким образом, ответы могут быть похожими на них. Я пытаюсь захватить и извлечь из файла строки, которые находятся после строк, которые соответствуют значению TARGET («forms = 2», в моем случае) и следующей пустой строке. Сегмент моего файла выглядит следующим образом: […]