File: uuencode.pl

package info (click to toggle)
sharutils 1%3A4.2-6
  • links: PTS
  • area: main
  • in suites: hamm
  • size: 1,436 kB
  • ctags: 587
  • sloc: ansic: 6,313; perl: 1,742; makefile: 563; sh: 495; pascal: 293; sed: 93
file content (10 lines) | stat: -rw-r--r-- 259 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
 
# uuencode in Perl - non tested.
# Copyright (C) 1995 Free Software Foundation, Inc.
# Franois Pinard <pinard@iro.umontreal.ca>, 1995.

print "begin 644 $ARGV[0]\n";
print pack ("u", $bloc) while read (STDIN, $bloc, 45);
print "`\n";
print "end\n";

exit 0;