tekst linie wyżej jeśli powrót karetki (^M$)

[markossx]

Hej,

dostaje dane w formacie:

"23754" "tekst" "tekst"   "tekst"   "tekst"        "tekst"$
"23755" "tek^M$
st"     "tekst"      "tekst"     "tekst"  "tekst"$
"43987" "tekst"     "tekst"       "tekst"   "tekst"  "tekst"$

potrzebny wynik:

"23754" "tekst" "tekst"   "tekst"   "tekst"        "tekst"$
"23755" "tekst"     "tekst"      "tekst"     "tekst"  "tekst"$
"43987" "tekst"        "tekst"     "tekst"    "tekst"$

cat X | sed -e 's/\x0D/\x08/'

?

[TQM]

cat X | perl -e 's/\r\n/\n/; print;'

Niektore linuxy maja tez polecenie fromdos i todos ktore konwertuje wlasnie znaki konca linii... a jak nie to perlem zaliczysz... ewentualnie

perl -p -i -e 's/\r\n/\n/;' X

to zrobi zamiane w miejsu bez kopii zapasowej, jak dasz -i .bak to stworzy ci .bak jeszcze

[markossx]

Spoko, to ogarniam.
Mam:

"23754" "tekst" "tekst"   "tekst"   "tekst"        "tekst"$
"23755" "tek^M$
st"     "tekst"      "tekst"     "tekst"  "tekst"$
"43987" "tekst"     "tekst"       "tekst"   "tekst"  "tekst"$

Potrzebuję:

"23754" "tekst" "tekst"   "tekst"   "tekst"        "tekst"$
"23755" "tekst"     "tekst"      "tekst"     "tekst"  "tekst"$
"43987" "tekst"     "tekst"       "tekst"   "tekst"  "tekst"$

Póki co,zamieniłem ^M$ na dowolny znak,
i mam wszystko jednej linii.

[TQM]

Ah sorry zle zrozumialem problem...
Mozna na pare sposobow ale najprosciej i najczytelniej takie cos:

while(<STDIN>) {
  if (/\r\n$/) {
    # linia urwana i konczy sie na CR+LF wiec czyscimy, doklejamy nastepna
    s/\r\n//;
    $_ .= <STDIN>;
  }
  print;
}

teraz cat X | filter.pl > Y i po sprawie
Jedyny przypadek gdzie to nie zadziala jak powinno to gdy jedna linia jest przerwana nie raz ale 2+ razy ale wtedy mozna przepuscic przez filtr kilka razy :-)

Jesli pliki sa takie ze mniej wiecej zmieszcza sie cale w RAM to mozna wczytac plik do tablicy i wtedy zrobic calosc za jednym zamachem ale sadze ze to jest ok, nawet gdyby trzeba kilka razy przepuscic przez filtr

[markossx]

Teraz proste...

dzięki

[markossx]

Musiałem wrócić do tego i znalazłem moje rozwiązanie w bash,
(wiedziałem, że nie będzie więcej niż 4)

I=0
while [ $I -ne 4 ]
do
echo $I
if [[ `cat /tmp/SHIPTO.$I | grep $'\r' | wc -l` -gt 0 ]]
then
   cat /tmp/SHIPTO.$I | $LINEUP > /tmp/SHIPTO.$(( $I+1 ))
else
   echo
fi
((I++))
done

Jeszcze inaczej?

[markossx]

Przed użyciem filtra można sprawdzić długosć pliku na dysku,
jak jest powtarzalna,znaczy że nie ma M$.