echo -e '1\t2\t3\t4\t5\t6\t7\n1\t2\t3\t4\t5\t6\n\t\t\t\t\t\t1\n' | sed '/\(.*[\t].*\)\{6\}/!d; /\(.*[\t].*\)\{7,\}/d;'

http://xpoint.ru/know-how/Perl/Podderzh … zhivayutsy

К сожалению, я  пока не изучал Perl, но спасибо за ссылку,

При выполнении указанных команд в cmd.exe под win32 sed отрабатывает успешно. По-видимому, это чистой воды косяк wineconsole cmd. Попробую еще с двойным экранированием \\, но я, конечно расстроен, что wine не поддерживает cmd так как надо в win32.

В win32 соответственно ваш regexp:

/^([^\t]*\t){6}[^\t]*$/

будет выглядеть так:

"/^\([^\t]*\t\)\{6\}[^\t]*$"

т.е. в sed.exe нужно брать regexp в двойные кавычки "" и, кроме этого, экранировать круглые и фигурные скобки с помощью \ (backslash), хотя значение этих костылей Винды для данного Форума не актуально
Мне пригодился ваш скрипт вот в таком случае: в строках, содержащих 8 разделителей, заменить 6 разделитель на 2 разделителя (\tab), с целью выравнивания текста относительно строк, содержащих 9 разделителей:

cat.exe "unalign.txt" | sed "/^\([^\t]*\t\)\{8\}[^\t]*$/s/\t/&&/6" > align.txt

Спасибо!

http://xpoint.ru/know-how/Perl/Podderzh … zhivayutsy

regexp Вам уже дан. включите мозг и перефразируйте его на sed. не всю же жизнь зависеть от кого то

Спасибо за разъяснения. Буду думать, как это реализовать под win32 - нужно, на работе win32, дома linux, поэтому запускаю из wineconsole cmd, конечно, это изврат, но я боюсь, что если я этот скрипт буду реализовывать в native shell, то могу допустить ошибки в win32, например, в виде одинарных кавычек или отсутствия экранирования символов. По-видимому, у меня какой-то глюкодром с cmd.

cat serv2.txt | sed -e "s/\t/qqq/g" > temp.txt

заменяет не символ табуляции, а букву t. Даже

sed -e "s/\x09/qqq/g" > temp.txt

не хочет заменять tab. Попробую еще сравнить как эти regexp будут работать под win32.

Нужен именно однострочник на sed

regexp Вам уже дан. включите мозг и перефразируйте его на sed. не всю же жизнь зависеть от кого то

вот тут различия будут. в какой ОС вы работаете.

это к доктору, скоро он придет.

а я дал универсальный ответ. не за что.

#!/usr/bin/perl

while (<>) {
    chomp;
    if ( /^([^\t]*\t){6}[^\t]*$/ ) {
        print "Matched: |$`<$&>$'|\n";
    }
}

Нужен именно однострочник на sed. sed из пакета unixutils запускается из cmd. Можно в linux, главное, чтобы это был однострочник на sed.
PS: и еще: каждая строка начинается с символа tab

пока не помогает. Скорее всего, я неправильно написал регулярное выражение.

да нет... вроде всё правильно, если «не меньше 6 табов» надо (если надо ровно 6, то сопри регулярку у moshell'а)... разве что в bash пытается интерпретировать восклицательный знак, так что надо писать в одинарных кавычках... или эскейпить...

а как sed запускается? из bash'а? или из cmd? если второе? если второе, то не знаю как он символы эскейпит... но сдаётся мне, что везде нужен дополнительный бекслеш... а может и два...

#!/usr/bin/perl

while (<>) {
    chomp;
    if ( /^([^\t]*\t){6}[^\t]*$/ ) {
        print "Matched: |$`<$&>$'|\n";
    }
}

### для проверки
# сохраните этот кусок кода в какой нибудь файл с именем any_file
chmod +x any_file
./any_file text_for_parsing
# где text_for_parsing - это текст в котором хотите найти эти 6 табуляторов

`echo $str | awk -F "f" '{printf("%d",NF)}'`

вернет число, на 1 больше.

Пётр.

Пробовал использовать такой вариант:

sed -e "/\(\t[^\t]*\)\{6\}/!d"

пока не помогает. Скорее всего, я неправильно написал регулярное выражение.
буду дальше думать
PS: просьба не бить сильно руками,  использовал GNU sed version 4.0.7 под win32 из unixutils.