Извлеките окружающие слова вместе с совпадением

Я ищу все случаи поиска, например. ddd, в файле и вывести окружение, например:

File.txt

aaa bbb ccc ddd eee fff
ttt uuu iii eee ddd
ddd
ggg jjj kkk ddd lll

Выход

ccc ddd eee
eee ddd
ddd
kkk ddd lll

В качестве отправной точки я использую этот фрагмент кода

#!/usr/bin/perl -w     
while(<>) { 
    while (/ddd(\d{1,3}))/g) {       
    print "$1\n"
    }  
}

спросил(а) 2 месяца, 3 недели назад

Jo.

пожаловаться

Решение

Вы можете попробовать следующее: он дает требуемый результат:

while(<>) {
        if(/((?:\w+ )?ddd(?: \w+)?)/) {
                print "$1\n";
        }
}

Используемое выражение:

(         # open the grouping.
(?:\w+ )? # an optional word of at least one char followed by a space.
ddd       #  'ddd'
(?: \w+)? # an optional space followed by a word of at least one char.
)         # close the grouping.

ответил(а) 2 месяца, 3 недели назад

codaddict

пожаловаться

#!/usr/bin/perl -w
while (<>) {
    if (/((?:[a-z]{3} )?ddd(?: [a-z]{3})?)/)
        print "$1\n";
}

ответил(а) 2 месяца, 3 недели назад

ptomli

пожаловаться

while (<>) {  
    chomp;
    my @words = split;
    for my $i (0..$#words) {
        if ($words[$i] eq 'ddd') {
            print join ' ', $i > 0 ? $words[$i-1] : (), $words[$i], $i < $#words ? $words[$i+1] : ();
            print "\n";
        }
    }

}

ответил(а) 2 месяца, 3 недели назад

Eugene Yarmash

пожаловаться

-4

#!/usr/bin/perl

while (<>) {
    chomp;
    @F = split /\s+/;
    if (/^ddd$/) {print $_."\n";next};
    for ($i=0; $i<=$#F;$i++) {
        if ($F[$i] eq 'ddd') {
            print "$F[$i-1] $F[$i] $F[$i + 1]\n";
        }
    }
}

ответил(а) 2 месяца, 3 недели назад

ghostdog74

пожаловаться

Ваш ответ

Извлеките окружающие слова вместе с совпадением

Еще в рубрике

Другие вопросы