Символы Grep и символ из строки. Perl

Это мои данные:Символы Grep и символ из строки. Perl

@someDescription ID 1234_Reverse_4321 ... 
@someDescription 1234_4321 ... 
@someDescription ID 1234_4321 ...

Я хочу, чтобы Grep из них из каждой строки:

1234_Reverse_4321 
1234_4321

Я использую Perl, но я также знаком с Баш.
Я использовал эти числа, но практически мой диапазон от 600-5000 (но потенциально может быть от 0-10,000)

я бы не иметь эту проблему, если файл был равномерно отформатирован с пробелами, когда данные не доступны (строка 2).

источник

2014-02-11 IMPERATOR

Я установил его, используя свое собственное решение. Спасибо за вашу помощь! Это помогло мне дойти до решения @grepped = grep (/:? D \ d \ d \ d \ d \ d) (?: _ | _RevStrand_) (?: \ d | \ d \ d | \ d \ d \ d | \ d \ d \ d \ d) /, @ линия); Спасибо за вашу помощь! Это помогло мне найти собственное решение. – IMPERATOR

Его можно было бы сократить до: '\ d + _ (?: Reverse _)? \ D +' – Toto

Лучше использовать AWK для этого:

awk 'NF>2 {print $3}' file 
1234_Reverse_4321 
1234_4321 
1234_4321

источник

2014-02-11 02:56:49 anubhava

Можете ли вы изменить это, чтобы я мог вырезать все экземпляры этого шаблона в каждой строке? – IMPERATOR

Извините, не получилось, вы не хотите, чтобы 3-й столбец выводился? Нужен другой выход? – anubhava

Чисто регулярное выражение:

/@\w+\s+(?:ID\s+)?(\w+)/g

источник

2014-02-11 03:15:42

Символы Grep и символ из строки. Perl

ответ

Смежные вопросы