perl -ne 'print "$1\r\n" if $_ =~ /^'(.+)'.+/;'
Добавлено: 21 окт 2005, 12:44
как заставить сабж работать? в скрипте работает. \' не помогает
Linux-портал Республики Беларусь
https://linux.by/
Код: Выделить всё
leikind@pc324:~$ perl -ne 'print "$1\n" if $_ =~ /^'"'"'(.+)'"'"'.+/;'
'ddd'ooo
ddd