Am Mit, 03 M�r 1999 schrieben Sie:
> >> #!/usr/bin/perl
> >> $O=0;
> >> while (<STDIN>) {
> >> $X = $_;
> >> $X =~ s/\n//gi;
> >> if ($O == 1) { print STDOUT "$X\n"; }
> >> if ($X eq "") { $O=1; }
> >> }
> >
> >> Sollte Dein Problem loesen. Liest von STDIN und schreibt auf
> >> STDOUT. Da die
> >> Header grundsaetzlich mit einer Leerzeile vom Text getrennt
> >> sind, sollte das
> >> klappen.
> >
> > Urgs. Probier mal den:
> >
> > while (<>) {
> > if (1 .. /^$/) { print HEADER; } else { print BODY; }
> > }
>
> Hallo,
> moechte ja nicht dumm daherkommen, aber darf ich fragen
> (so gut wie noch nie ein script geschrieben) wie ich das
> verwirklichen kann?
> /usr/bin/perl: bleibt weiter mein x-term offen. Dachte jetzt geht
> ein Editor auf bzw. kompiler. Einfach sooo mal ein paar Zeichen
> bewirken doch nichts. Oder?
> Was mach ich, nachdem ich im x-term den Eintrag erledigt habe?
> Mit Strg & z geht perl wieder zu.
> Vieleicht ist aber auch zu gewahgt von mir hier solche "billigen"
> Fragen zu stellen.
> Wenn ich das Geld haette wie es Buecher gibt......Schade dem ist
> nicht soo!
> Wenigstens perl, shell-scripting und gwak moechte ich ein wenig
> nachvollziehen koennen. Bzw, das kompilieren danach!
> Wuerde gern, da `ne Menge kommandos hier bei mir liegen, fuer mich
> ein wenig "spielen".
> Bin echt dankbar ueber jeden Hinweis in Sachen script-compiling.
> Auch URL`s, wenn fuer Anfaenger geeignet.
> Irgendwann muss/will ich damit mal beginnen.
>
> mfg, clemens
Ich wuerd mal das angeh�ngte studieren das ist die L�sung meines
Problems. Das funktioniert jetzt wirklich auch mit mehreren Mails.:
(editor �ffnen z.B xemacs -> den unteren Teil einf�gen->speichern->
chmod +x "Die datei")
<--------------------------------:
#!/usr/bin/perl -w
$L=0;
while (<STDIN>) {
$LINE = $_;
$LINE =~ s/\n//gi;
if(($LINE =~ /^From /) or ($LINE =~ /^Return-Path: /)) {$L = 0;}
if ($L == 1) { print STDOUT $LINE . "\n"; }
if ($LINE eq "") {
if ($L == 0) {print STDOUT '-------######next#####-------'."\n"};
$L=1;
}
}
---------------------->
mal allgemein:
du �ffnest deinen Editor tippst: #!/usr/bin/perl
und dann halt den rest
Frage bei Fragen !
--
Name: Florian Bartels
E-Mail: [EMAIL PROTECTED]
Homepage: http://power-two.virtualave.net
--
Um aus der Liste ausgetragen zu werden, eine Mail an [EMAIL PROTECTED]
schicken, mit dem Text: unsubscribe suse-linux
