Forum Webscript.Ru

Программирование => Perl => Тема начата: vladsu от 04 Ноября 2009, 12:44:45

Название: Заменить каждый байт в файле
Отправлено: vladsu от 04 Ноября 2009, 12:44:45

Имею текстовый файл, заранее не знаю в какой системе он сделал(МакОс/*НИКС/Вин), необходимо заменить все символы, исключая * на символ =

Код: [Выделить]

perl -pe "s/[^*]/=/g" file

на линухе 0D 0A заменяются на ==, а на винде только =, должна быть опция заставить перл обрабатывать файл в бинарном режиме.

Спасибо.