Perl: найти точное слово из файла с разделителями табуляции

Ваше регулярное выражение не работает по нескольким причинам. Во-первых, ваша вкладка не может быть необязательной, иначе строка не будет правильно разделена. Во-вторых, в вашем шаблоне нет ничего, что могло бы объяснить возможные символы после частей, которые вы хотите сопоставить, то есть ничего, что соответствовало бы that this.

Вы можете решить первую, добавив .*? после каждого захвата (или, для второго захвата, просто удалив конечную привязку $). Вторая проблема решается просто заменой \t* на \t.

Эта модификация работает с вашими образцами данных

$line =~ /^(\w*\-?\w*\@?).*?\t(\w*\-?\w*\@?).*?$/

но это не очень красиво!

Похоже, вам просто нужны все строки не пробельных символов сразу после табуляции или начала строки

Эта программа кодирует эту идею как регулярное выражение

use strict;
use warnings;

my @data = (
  "ABA-1\tCDF@",
  "ABA-1\tEFG", 
  "ZYA\tABA-1 this",
  "EFG that this\tZYA",
);

for (@data) {
  my @fields = /(?:^|\t)(\S+)/g;
  print "@fields\n";
}

вывод

ABA-1 CDF@
ABA-1 EFG
ZYA ABA-1
EFG ZYA

Это будет соответствовать двум словам (без пробелов), разделенным одной табуляцией в строке:

$line=~ /^(\w+)\t(\w+)$/

Обновление: это исключит все строки, содержащие что-то вроде «ABA this». Однако, возможно, вы хотите захватить только ABA из «ABA this». Это сделает это для вас:

$line=~ /^([A-Z]+)[^\t]*\t([A-Z]+)/

Обновление: вот новый шаблон для новых требований. Он соответствует первой части без пробелов в каждом столбце.

$line=~ /^([^\s]+).*\t\s*([^\s]+)/

$line=~ /^(\w+)[^\t]*\t(\w+).*$/

Это захватит только первое слово до и после tab.

ОБНОВЛЕНИЕ: - Если вы хотите сопоставить any non-space символа перед первым пробелом, вы можете попробовать этот шаблон: -

my $line = "ABA-1\tCDF@";
my $line1 = "ZYA \t  ABA-1 this";

if ($line=~ /^([^\s]+)[^\t]*\t\s*([^\s]+).*$/) {    
    print "$1 $2";
}

if ($line=~ /^([^\s]+)[^\t]*\t\s*([^\s]+).*$/) {    
    print "$1 $2";
}

ВЫВОД: -

ABA-1 CDF@
ZYA ABA-1