Farid Hajji: Perl - Einführung, Anwendungen, Referenz
2., aktualisierte und erweiterte Auflage
Addison-Wesley Longman, ISBN 3-8273-1535-2
uuencode.pl
#!/usr/local/bin/perl -w
# uuencode.pl -- Implementation von uuencode(1) in Perl mit pack().
$filename = $ARGV[0]; # Aufruf: uuencode.pl zieldatei ...
print "begin 644 $filename\n"; # Praeambel.
{ local $/; $input = <>; } # Ganze Datei nach $input einlesen.
print pack("u", $input); # Konvertieren und ausgeben.
print "`\n", "end\n"; # Abschluss.
[Prev] [Up] [Relevant Chapter] [Next]
[Alte Quelle]
| Last modified: $Date: 2006/05/18 12:56:10 $ FH. Search :: Sitemap :: Disclaimer :: Copyright :: Privacy |
 |