|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 04 Apr 2002 14:43:53
To : Denis Zwerew
Subject : Re: Символ возврата каретки
--------------------------------------------------------------------------------
Здравствуй, Denis Zwerew.
AM>> У кого есть прога убирающая в скриптах сабж (линухи этого не понимают
AM>> а скрипты я делаю на NT) Поделитесь ПЛЗ!
DZ> $ vi foobar.pl
DZ> :1,$s/.$//
DZ> :wq
Ты поосторожнее с алгоритмом архивации "удалить последний байт - не очень-то
он был нужен".
$ perl -e 'print "t\x0d\x0a"' >file
$ cat file
t
$ vi file
:1,$s/.$//
:wq
$ cat file
$ vi --version
VIM - Vi IMproved 6.1 (2002 Mar 24, compiled Mar 30 2002 09:54:24)
...
Он, видишь ли, понимает, что такое досовский перевод строки. И в нем
правильный ответ был бы
:set fileformat=unix|wq
В случае файла со смешанным контентом, когда часть строк с \r в конце, а часть
- без, вместо этого :%s/^M$//. В vim 6.x можно сделать универсальную команду -
:silent! %s/\r$//|set fileformat=unix|wq
Hо перловый однострочник perl -pi -e 's/\x0d$//' проще. Правда, вот за что не
поручусь, так за его работу в виндах. Может потребоваться пощелкать binmode.
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
