удалить в тексте ^M

[ProFTP]

как удалить перенос с ^M из виндовс?

у меня был скрипт, но я его потерял, сейчас в гугле найти не могу, подскажмите такой скрипт плиз

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[zingel]

Заливать на ftp файлы нужно в binary mode просто

[zingel]

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

sed 's/^[ ^M  ]*//')

[ProFTP]

файл уже есть...

он через http получился

на perl я не найду как решить... может плохо искал в гугле, но не знаю что туда написать чтобы найти...

[ProFTP]

спасибо, на shell уже забыл

[ProFTP]

не работает

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

cat t.txt > sed 's/^[ ^M  ]*//')
Syntax error: ")" unexpected

[zingel]

ну скобочку убрать сложно что ли?

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

sed 's/^[ ^M  ]*//'

[ProFTP]

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

$ cat t.txt > sed 's/^[ ^M  ]*//'
cat: s/^[ ^M  ]*//: No such file or directory

[zingel]

я в шоке, иде скорей man regexp && man intro, пока никто не видет.... я потом потру....

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

cat t.txt | sed 's/^[ ^M  ]*//'

UPD:

даже вот так:

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

cat t.txt | sed 's/^[ ^M  ]*//' > t-new.txt || echo "error"

[ProFTP]

сори, затупил
я уже кажеться догадался ак на своем любимом perl

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

open(MA, "ma");
while ($line = <MA>)
{

и перебрать

[ProFTP]

я в шоке, иде скорей man regexp && man intro, пока никто не видет.... я потом потру....

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

cat t.txt | sed 's/^[ ^M  ]*//'

UPD:

даже вот так:

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

cat t.txt | sed 's/^[ ^M  ]*//' > t-new.txt || echo "error"

не работает

тоже самое, этот символ остаеться...

ладно, погуглю тогда может найду, просто на перле, я прывык открыть файл масивом, тут помои-иу каждый элемент масива - строка, просто перебрать надо...

[ProFTP]

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

#!/usr/local/bin/perl
open(MA, "t.txt"); while ($line = <MA>) {  $line=~s{^M}{}ig; print $line; }

[ProFTP]

НЕ работает все равно

[zingel]

Семён Семёныч....

нажимаем:

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

vi t.txt

внутрях его жмём

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

Ctrl+M

и вводим после двоеточия:

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

%s/^M//g

[ProFTP]

спасибо кончено, но не получилось, в vi я не шарю, такое может сделать kate, но он не ставиться!!
а другого редактора нету?

я написал Ctrl+M он перешел на другу строку просто, и вводить не куда было...

в perl не получилось скалярную величину сохранить в файл, тоже, может помоглобі открыть и закрыть...

[zingel]

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

Esc, Shift+Q

после двоеточия:

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

%s/^M//g

[ProFTP]

не получаеться

отвичает:

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

:No match found
The No command is unknown
:%s/^M//g
No match found
:s/^M//g
No match found
:

щас попробую в гугде посмотреть, отпишусь

кодировка в файле utf8 он ее собьет наверное, в консоле другая - стандартная кодировка

[zg]

юзайте фильтр col -b

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

# cat 1.php | cat -v
Hello^M
World!^M
# cat 1.php | col -b | cat -v
Hello
World!

[ProFTP]

кодировка utf8, он сносит все русское...

перл когда работал, ничего не сносил....

[zg]

кодировка utf8, он сносит все русское...

локаль никто не отменял

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

# ./1.sh | cat -v
M-oM-;M-?M-PM-^_M-QM-^@M-PM-8M-PM-2M-PM-5M-QM-^B,^M
M-PM-<M-PM-8M-QM-^@!^M
-----------
M-PM-^_M-QM-^@M-PM-8M-PM-2M-PM-5M-QM-^B,
M-PM-<M-PM-8M-QM-^@!
# cat 1.sh
#!/bin/sh

LC_ALL=ru_RU.UTF-8
export LC_ALL

cat 1.php
echo "-----------"

cat 1.php | col -b
#

[ProFTP]

спасибо, я что-то полинился локаль менять

еще можно вот так, но он снесет будет просто прямая строка для nix это подходит

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

#!/usr/local/bin/perl
open(MA, "t.txt"); while ($line = <MA>) {  $line=~s/\r//; print $line; }

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

   $_ =~ s/\x0D?\x0A$//;

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

  $fo = new IO::File "> $fo_name" or die "Cannot open $fo_name : $!";
   binmode($fo);

   print $fo $_.chr(13).chr(10) or die "Write to $fo_name failed: $!";

[salvator]

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

cat file1.txt | perl -ne 'chomp; print $_, "\n";' > file2.txt

[manefesto]

епт...вы чо....есть же утилита dos2unix

[zg]

епт...вы чо....есть же утилита dos2unix

где ж ты раньше то был

[manefesto]

а я в этой ветке редко бываю