perl -ne 'print "$1\r\n" if $_ =~ /^'(.+)'.+/;'

[phaoost]

как заставить сабж работать? в скрипте работает. \' не помогает

[leikind]

Вот так у меня работает в Bash:

Код: Выделить всё

leikind@pc324:~$ perl -ne 'print "$1\n" if $_ =~ /^'"'"'(.+)'"'"'.+/;'
'ddd'ooo
ddd

Работа в виндозном cmd.exe не гарантируется.

[phaoost]

thnx. вопрос и был про bash