Mit Perl Blanks am ende einer Datei entfernen

Post Reply
Message
Author
mirki

Mit Perl Blanks am ende einer Datei entfernen

#1 Post by mirki »

Hallo Zusammen,

Folgendes Problem :

Ich empfange regelmäßig Dateien, die dann automatisch von einem speziellen Programm weiterbearbeitet werden. Von einem Bestimmten Absender bekomme ich die Datei so das nach dem ende des letzten Zeichen Blanks beinhaltet. Das Programm, daß diese Datei bearbeitet kann dann wegen diesen blanks nicht arbeiten, weil es wegen den Blanks noch was erwartet.

Kann mir jemand ein Script zaubern, welches diese Blanks entfernt ?

Die Blanks folgen immer nach dem letzten ' ( Hochkomma ).

ich bedanke mich jetzt schon für deine/eure Hilfe.

MFG
mirki

Jochen

Re: Mit Perl Blanks am ende einer Datei entfernen

#2 Post by Jochen »

Lang leben die Regulären Ausdrücke! <img src="http://www.pl-forum.de/UltraBoard/Images/Happy.gif" border="0" align="middle">
<blockquote><pre><font size="1" face="">code:</font><hr><font face="Courier New" size="2">
perl -p -i.bak -e 's/ *$//' datei
</font><hr></pre></blockquote>

Jochen

Chris

Re: Mit Perl Blanks am ende einer Datei entfernen

#3 Post by Chris »

Hi!

Hört sich schwer nach einer EDIFACT-Nachricht an...
Das folgende Script hat den Vorteil, dass der Delimiter aus dem UNA-Segment uebernommen wird sofern vorhanden...


Gruß
Chris

<blockquote><pre><font size="1" face="">code:</font><hr><font face="Courier New" size="2">
#!/bin/ksh
#-------------------------------------------------------------------------------
# modify_blanks_edifact
#-------------------------------------------------------------------------------
# Usage: modify_blanks_edifact <INPUT> <OUTPUT>
#-------------------------------------------------------------------------------
INPUT=$1
OUTPUT=$2
DELIMITER="'"
if [ "`cat $INPUT | cut -b1-3`" = "UNA" ]; then
DELIMITER=`cat $INPUT | cut -b9`
fi
cat $INPUT | sed "s%$DELIMITER[ ]*%$DELIMITER%g" | tr -d '\015' | tr -d '\012' > $OUTPUT
exit $?
</font><hr></pre></blockquote>

Chris

Re: Mit Perl Blanks am ende einer Datei entfernen

#4 Post by Chris »

Ups... gerade erst gelesen, dass Perl gewuenscht war... Dann vergiss e mein Script!

mirki

Re: Mit Perl Blanks am ende einer Datei entfernen

#5 Post by mirki »

Sollte Edifact sein, aber ist es nicht, weil die Blanks da sind.

Gruß
Mirki

Chris

Re: Mit Perl Blanks am ende einer Datei entfernen

#6 Post by Chris »

Hi!

Ist mir in letzter Zeit oefter aufgefallen, dass manche Firmen (speziell die aus dem Norden Europas... *g*) Leerzeichen am Ende der Datei haben. Na ja... EDIFACT ist halt Interpretationssache! <img src="http://www.pl-forum.de/UltraBoard/Images/Wilk.gif" border="0" align="middle">


Gruss
Chris

Mirki

Re: Mit Perl Blanks am ende einer Datei entfernen

#7 Post by Mirki »

Hi Chris,

hmmm, Du scheinst aus der Branche zu sein !?!

Mit deiner these scheinst Du recht zu haben. Ich erlaube mir mal was an zu hängen :

und die aus der nähe des Ruhrpotts ( ---- <img src="http://www.pl-forum.de/UltraBoard/Images/Happy.gif" border="0" align="middle">) *gggr* ) lösen das Problem mit den Blanks in den Nordeuropäischen Edifacts umständlicher.

How ever....

Können wir per eMail kontakt aufnehmen ?

Gruß

Mirki

Chris

Re: Mit Perl Blanks am ende einer Datei entfernen

#8 Post by Chris »

Hi!

Klar können wir das... Gib mal deine Mail-Adresse...


Gruß
Chris

mirki

Re: Mit Perl Blanks am ende einer Datei entfernen

#9 Post by mirki »

Hi

jasemin@gmx.de , dahin kannst Du mir ne Mail schicken.



Gruß
Mirki

Post Reply