Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!snorkelwacker.mit.edu!bloom-beacon!eru!hagbard!sunic!lth.se!newsuser
From: jh@efd.lth.se (Joergen Haegg)
Newsgroups: comp.lang.perl
Subject: uuencode in perl?
Message-ID: <1991Feb6.091933.27961@lth.se>
Date: 6 Feb 91 09:19:33 GMT
Sender: newsuser@lth.se (LTH network news server)
Reply-To: jh@efd.lth.se (Joergen Haegg)
Organization: Lund Institute of Technology, Sweden
Lines: 76


I was trying to write a uuencode/uudecode program in perl.
(Yes, I know, the c-version is free, but it's fun to try ;-)
Not very difficult, since pack has 'u'.
But I compared the output with Suns uuencode:

sub encode
{
        ($name, $file, @x) = @_;

        $st_mode = 0622;
        if ($file)
        {
                &Stat($file) || die "stat $file: $!";
        }
        printf OUT "begin %03o %s\n", $st_mode&0777, $file;

        open(IN, $file) || die "open $file: $!";

        while (($n = sysread(IN, $row, 45)) > 0)
        {
                $uline = pack("u", $row);
                print OUT "$uline";
        }
        close (IN);
        print OUT "\nend\n";
}

Testfile:
  PID TT STAT  TIME COMMAND
17364 p2 S     7:12 bash -login
17582 p2 TW    0:04 view ../route.c
18371 p2 R     0:00 ps
 2505 p4 I     2:31 -su (bash)
18369 p4 I     0:00 vi uued


This script gave 
begin 644 z
M("!0240@5%0@4U1!5" @5$E-12!#3TU-04Y$"C$W,S8T(' R(%,@(" @(#<Z
M,3(@8F%S:" M;&]G:6X*,3<U.#(@<#(@5%<@(" @,#HP-"!V:65W("XN+W)O
M=71E+F,*,3@S-S$@<#(@4B @(" @,#HP,"!P<PH@,C4P-2!P-"!)(" @(" R
K.C,Q("US=2 H8F%S:"D*,3@S-CD@<#0@22 @(" @,#HP,"!V:2!U=65D"@ R

end

Suns uuencode gave
begin 644 z
M("!0240@5%0@4U1!5" @5$E-12!#3TU-04Y$"C$W,S8T(' R(%,@(" @(#<Z
M,3(@8F%S:" M;&]G:6X*,3<U.#(@<#(@5%<@(" @,#HP-"!V:65W("XN+W)O
M=71E+F,*,3@S-S$@<#(@4B @(" @,#HP,"!P<PH@,C4P-2!P-"!)(" @(" R
K.C,Q("US=2 H8F%S:"D*,3@S-CD@<#0@22 @(" @,#HP,"!V:2!U=65D"B R

end

The last line differs in the end, '@ R' and 'B R'.
Uudecode says 'Short file' on my perl version.

And there seems to be two different formats of uuencode. A source
porgram I tried looked like this:
begin 644 z
M("!0240@5%0@4U1!5"`@5$E-12!#3TU-04Y$"C$W,S8T('`R(%,@("`@(#<Z
M,3(@8F%S:"`M;&]G:6X*,3<U.#(@<#(@5%<@("`@,#HP-"!V:65W("XN+W)O
M=71E+F,*,3@S-S$@<#(@4B`@("`@,#HP,"!P<PH@,C4P-2!P-"!)("`@("`R
K.C,Q("US=2`H8F%S:"D*,3@S-CD@<#0@22`@("`@,#HP,"!V:2!U=65D"B`R
`
end

Just like Sun's uuencode, but all spaces is backticks instead.

What is right and what is wrong?
-- 
Joergen Haegg				jh@efd.lth.se	postmaster@efd.lth.se
System manager @ efd			046-107492
Lund Institute of Technology		E-huset, DDG, Ole R|mers v. 3
					221 00 LUND, Sweden