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
Mit Perl Blanks am ende einer Datei entfernen
Re: Mit Perl Blanks am ende einer Datei entfernen
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
<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
Re: Mit Perl Blanks am ende einer Datei entfernen
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>
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>
Re: Mit Perl Blanks am ende einer Datei entfernen
Ups... gerade erst gelesen, dass Perl gewuenscht war... Dann vergiss e mein Script!
Re: Mit Perl Blanks am ende einer Datei entfernen
Sollte Edifact sein, aber ist es nicht, weil die Blanks da sind.
Gruß
Mirki
Gruß
Mirki
Re: Mit Perl Blanks am ende einer Datei entfernen
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
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
Re: Mit Perl Blanks am ende einer Datei entfernen
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
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
Re: Mit Perl Blanks am ende einer Datei entfernen
Hi!
Klar können wir das... Gib mal deine Mail-Adresse...
Gruß
Chris
Klar können wir das... Gib mal deine Mail-Adresse...
Gruß
Chris