Perl

[Jan-Benedict Glaw]

On Thu, 2003-04-10 10:38:46 +0200, Ralph Meyer <ralph at schosemail.de>
wrote in message <1814.62.225.208.106.1049963926.squirrel at schose.dyndns.org>:
> >> ich hab hier eine Textdatei von einem DOS-Rechner.
> >> Jede Zeile beginnt mit 2 Zeichen die den
> >> Hexadezimalwert 20 haben. Ich will diese 2
> >> Zeichen entfernen, sodas am Anfang jeder Zeile
> >> eine Zahl steht. Aufgrund geistiger Umnachtung
> >> bekomme ich das einfach nicht hin.
> >> Ich hoffe ihr könnt mir helfen.
> >> Ein Auszug der Datei als Anhang.
> >
> > 0x20 ist ein space - Du willst jetzt also 2 spaces am anfang entfernen ?
> 
> Es können auch mehr sein. Im Prinzip will ich alles bis zur ersten
> Zahl entfernen.
> 
> > Was spricht gegen
> >
> > sed -e 's/^..//'
> 
> Entweder bin ich zu blöd oder das funktioniert nicht.

$ cat orig.txt
     123
   gga111
 12
1
456sdf
    aa

$ cat orig.txt | sed -e 's/^[^0-9]*//'
123
111
12
1
456sdf

$

...und wenn Du nur die Leerzeichen entfernen willst, dann einfach:

$ cat orig.txt | sed -e 's/^ *//'
123
gga111
12
1
456sdf
aa

$

MfG, JBG

-- 
   Jan-Benedict Glaw       jbglaw at lug-owl.de    . +49-172-7608481
   "Eine Freie Meinung in  einem Freien Kopf    | Gegen Zensur | Gegen Krieg
    fuer einen Freien Staat voll Freier Bürger" | im Internet! |   im Irak!
      ret = do_actions((curr | FREE_SPEECH) & ~(IRAQ_WAR_2 | DRM | TCPA));
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: not available
URL: <http://lug-owl.de/pipermail/linux/attachments/20030410/1477300e/attachment.sig>