Вопрос Печатать слово, содержащее строку и первое слово


Я хочу найти строку в строке текста и напечатать строку (между пробелами) и первое слово фразы.

Например:

«Это единственная текстовая строка»
"Еще одна вещь"
«Лучше попробуй еще раз»
"Лучше"

Список строк:

текст
вещь
пытаться
Лучше

Я пытаюсь получить такую ​​таблицу:

Этот текст [tab]
Еще одна вкладка
Это [вкладка] попробуйте
Лучше

Я пробовал с grep, но ничего не произошло. Любое предложение?


9
2017-08-16 23:18


происхождения


Итак, в основном «Если строка имеет строку, напечатайте первое слово + строку». Правильно ? - Sergiy Kolodyazhnyy


ответы:


Версия Bash / grep:

#!/bin/bash
# string-and-first-word.sh
# Finds a string and the first word of the line that contains that string.

text_file="$1"
shift

for string; do
    # Find string in file. Process output one line at a time.
    grep "$string" "$text_file" | 
        while read -r line
    do
        # Get the first word of the line.
        first_word="${line%% *}"
        # Remove special characters from the first word.
        first_word="${first_word//[^[:alnum:]]/}"

        # If the first word is the same as the string, don't print it twice.
        if [[ "$string" != "$first_word" ]]; then
            echo -ne "$first_word\t"
        fi

        echo "$string"
    done
done

Назовите это так:

./string-and-first-word.sh /path/to/file text thing try Better

Вывод:

This    text
Another thing
It  try
Better

12
2017-08-17 00:51





Перл на помощь!

#!/usr/bin/perl
use warnings;
use strict;

my $file = shift;
my $regex = join '|', map quotemeta, @ARGV;
$regex = qr/\b($regex)\b/;

open my $IN, '<', $file or die "$file: $!";
while (<$IN>) {
    if (my ($match) = /$regex/) {
        print my ($first) = /^\S+/g;
        if ($match ne $first) {
            print "\t$match";
        }
        print "\n";
    }
}

Сохранить как first-plus-word, беги как

perl first-plus-word file.txt text thing try Better

Он создает регулярное выражение из входных слов. Каждая строка затем сопоставляется с регулярным выражением, и если есть совпадение, первое слово печатается, и если оно отличается от слова, это слово также печатается.


9
2017-08-16 23:44





Вот версия awk:

awk '
  NR==FNR {a[$0]++; next;} 
  {
    gsub(/"/,"",$0);
    for (i=1; i<=NF; i++)
      if ($i in a) printf "%s\n", i==1? $i : $1"\t"$i;
  }
  ' file2 file1

где file2 это список слов и file1 содержит фразы.


9
2017-08-17 00:37



Неплохо! Я поместил его в файл сценария, paste.ubuntu.com/23063130 , только для удобства - Sergiy Kolodyazhnyy


Вот версия python:

#!/usr/bin/env python
from __future__ import print_function 
import sys

# List of strings that you want
# to search in the file. Change it
# as you fit necessary. Remember commas
strings = [
          'text', 'thing',
          'try', 'Better'
          ]


with open(sys.argv[1]) as input_file:
    for line in input_file:
        for string in strings:
            if string in line:
               words = line.strip().split()
               print(words[0],end="")
               if len(words) > 1:
                   print("\t",string)
               else:
                   print("")

Демо-версия:

$> cat input_file.txt                                                          
This is a single text line
Another thing
It is better you try again
Better
$> python ./initial_word.py input_file.txt                                      
This    text
Another     thing
It  try
Better

Примечание: Сценарий python3 совместим, поэтому вы можете запускать его с помощью python2 или python3,


8
2017-08-17 00:18





Попробуй это:

$ sed -En 's/(([[:alnum:]]+)[[:space:]].*)?(text|thing|try|Better).*/\2\t\3/p' File
This    text
Another thing
It      try
        Better

Если вкладка перед Better это проблема, затем попробуйте следующее:

$ sed -En 's/(([[:alnum:]]+)[[:space:]].*)?(text|thing|try|Better).*/\2\t\3/; ta; b; :a; s/^\t//; p' File
This    text
Another thing
It      try
Better

Вышеописанное было проверено на GNU sed gsed на OSX). Для BSD sed могут потребоваться некоторые незначительные изменения.

Как это работает

  • s/(([[:alnum:]]+)[[:space:]].*)?(text|thing|try|Better).*/\2\t\3/

    Это ищет слово, [[:alnum:]]+, затем пробел, [[:space:]], за которым следует что угодно, .*, за которым следует одно из ваших слов, text|thing|try|Better, за которым следует что угодно. Если это найдено, оно заменяется первым словом в строке (если есть), вкладкой и совпадающим словом.

  • ta; b; :a; s/^\t//; p

    Если команда подстановки привела к замене, что означает, что одно из ваших слов было найдено на линии, тогда ta команда сообщает sed перейти к метке a, Если нет, то мы введем (b) на следующую строку. :a определяет метку a. Итак, если одно из ваших слов было найдено, мы (а) сделаем замену s/^\t// который удаляет ведущую вкладку, если она есть, и (b) печать (p) линия.


7
2017-08-16 23:41





Простой подход bash / sed:

$ while read w; do sed -nE "s/\"(\S*).*$w.*/\1\t$w/p" file; done < words 
This    text
Another thing
It  try
    Better

while read w; do ...; done < words будет перебирать каждую строку в файле words и сохраните его как $w, -n марки sed не печатать ничего по умолчанию. sed затем заменит двойные кавычки, за которыми следуют не-пробелы (\"(\S*), круглые скобки служат для «захвата» того, что соответствует \S*, первое слово, и мы можем позже ссылаться на него как \1), 0 или более символов (.*), а затем слово, которое мы ищем ($w) и 0 или более символов (.*). Если это соответствует, мы заменяем его только 1-м словом, вкладкой и $w (\1\t$w) и распечатать строку (это то, что p в s///p делает).


7
2017-08-17 08:58





Это версия Ruby

str_list = ['text', 'thing', 'try', 'Better']

File.open(ARGV[0]) do |f|
  lines = f.readlines
  lines.each_with_index do |l, idx|
    if l.match(str_list[idx])
      l = l.split(' ')
      if l.length == 1
        puts l[0]
      else
        puts l[0] + "\t" + str_list[idx]
      end
    end
  end
end

Пример текстового файла hello.txt содержит

This is a single text line
Another thing
It is better you try again
Better

Запуск с ruby source.rb hello.txt приводит к

This    text
Another thing
It      try
Better

5
2017-08-17 07:40