linux-l: perl und regexpr

[Marek Froehlich]

On Wed, 17 Jan 2001 16:55:28 +0100, Ulrich Wiederhold wrote:

>Wenn ich Euch vielleicht noch ein kleines Problem anbieten könnte....
>Es soll die erste Zeile einer Datei gelöscht werden. Ich mache das
>bisher so:
>...
>open(FILE, "<$location");
>@getfile = <FILE>;
>close(FILE);
>splice(@getfile,0,1);
>`rm $location`;
>open(DEL, ">$location");
>print DEL "@getfile";
>close(DEL);

entweder im Programm:
open(FILE, "<$location") && (@getfile=<FILE>) && close(FILE) or die "read-error:$!\n";
shift @getfile;
open(FILE, ">$location") && (print FILE @location) && close(FILE) or die "write-error:$!\n";

oder mit der Kommandozeile:
perl -ni -e 'if($. != 1){ print }' <list-of-filenames>


--
mfg
Marek

/                  E-Mail: Marek at samweis.IN-Berlin.DE                    \
| Marek Fröhlich | Wen interessiert es,               | Linux 2.2.15     | 
|  13467 Berlin  | dass der Pentium Fehler macht -    | K7-750           | 
\     Germany    | er macht sie wenigstens schnell ...| K6-II 400        /