ingenting

[sslug@sslug]

Hej med dig
blapre blapre blapre
fsck fsck fsck
sync sync sync
xyzzy
ve% cat script1 
#!/bin/perl

open FILE, ">>test1";

$/="\n\n";
<STDIN>;
print FILE <STDIN>;

ve% perl script1 < mail.in
ve% cat test1
Hej med dig
blapre blapre blapre
fsck fsck fsck
sync sync sync
xyzzy
ve% cat script2
#!/bin/perl

open FILE, ">>test2";
while (<STDIN>) {
  print FILE if (/^$/..eof());
}

ve% perl script2 < mail.in 
ve% cat test2             

Hej med dig
blapre blapre blapre
fsck fsck fsck
sync sync sync
xyzzy
ve% 


Ok, man kan spørge sig selv om hvilket af scriptene der over
specifikationerne fuldstændigt. Det første script skriver kroppen af
en mail til en fil og script to skriver alt undtagen headerne til en
fil.

Jeg har selv ofte brugt one-liners modeleret over script1.

-- 
Peter