Страница 1 из 1

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

Добавлено: 21 окт 2005, 12:44
phaoost
как заставить сабж работать? в скрипте работает. \' не помогает :-(

Добавлено: 21 окт 2005, 14:25
leikind
Вот так у меня работает в Bash:

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

leikind@pc324:~$ perl -ne 'print "$1\n" if $_ =~ /^'"'"'(.+)'"'"'.+/;'
'ddd'ooo
ddd
Работа в виндозном cmd.exe не гарантируется.

Добавлено: 23 окт 2005, 02:28
phaoost
thnx. вопрос и был про bash :)