Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!ucsd!rutgers!maverick.ksu.ksu.edu!ux1.cso.uiuc.edu!ux1.cso.uiuc.edu!phil
From: phil@ux1.cso.uiuc.edu
Newsgroups: comp.lang.perl
Subject: Re: Uudecode in Perl?
Message-ID: <1043800001@ux1.cso.uiuc.edu>
Date: 3 Sep 90 17:59:00 GMT
References: <VX6uo4w162w@cybrspc>
Lines: 74
Nf-ID: #R:<VX6uo4w162w@cybrspc>:-21:ux1.cso.uiuc.edu:1043800001:000:3250
Nf-From: ux1.cso.uiuc.edu!phil    Sep  3 12:59:00 1990


First of I want to get the clerical details out of the way:

> Roy M. Silvernail |+|  roy%cybrspc@cs.umn.edu  |+| #define opinions ALL_MINE;
---->                    ^^^^^^^^^^^^^^^^^^^^^^
> main(){float x=1;x=x/50;printf("It's only $%.2f, but it's my $%.2f!\n",x,x);}
> "This is cyberspace." -- Peter da Silva  :--:  "...and I like it here!" -- me

) From MAILER-DAEMON@cs.umn.edu Mon Sep  3 12:48:54 1990
) Received: from cs.umn.edu by ux1.cso.uiuc.edu with SMTP id AA23861
)   (5.64+/IDA-1.3.4 for phil); Mon, 3 Sep 90 12:48:51 -0500
) Received: from ux1.cso.uiuc.edu by cs.umn.edu (5.59/1.14)
) 	id AA27209; Mon, 3 Sep 90 12:48:29 CDT
) Date: Mon, 3 Sep 90 12:48:29 CDT
) From: "Mail Delivery Subsystem" <MAILER-DAEMON@cs.umn.edu>
---->                              ^^^^^^^^^^^^^^^^^^^^^^^^
) Subject: Returned mail: Host unknown
) Message-Id: <9009031748.AA27209@cs.umn.edu>
) To: <phil@ux1.cso.uiuc.edu>
) Status: R
) 
)    ----- Transcript of session follows -----
) 550 <roy%cybrspc@cs.umn.edu>... Host unknown
---->  ^^^^^^^^^^^^^^^^^^^^^^     ^^^^^^^^^^^^

And now to the original message:

)    ----- Unsent message follows -----
) Received: from ux1.cso.uiuc.edu by cs.umn.edu (5.59/1.14)
) 	id AA27201; Mon, 3 Sep 90 12:48:29 CDT
) Received: by ux1.cso.uiuc.edu id AA23837
)   (5.64+/IDA-1.3.4 for roy%cybrspc@cs.umn.edu); Mon, 3 Sep 90 12:48:33 -0500
) Date: Mon, 3 Sep 90 12:48:33 -0500
) From: Phil Howard KA9WGN <phil@ux1.cso.uiuc.edu>
) Message-Id: <9009031748.AA23837@ux1.cso.uiuc.edu>
) To: roy%cybrspc@cs.umn.edu
) 
) I guess you are one of those people I cannot just do a reply to from news
) since "cyprspc" is not known to uucp, but at least you give a signature.
) 
) > Has anyone implemented UUdecode in Perl?
) > 
) > I'm working on a Perl project (targeted at MS-DOS) that will include
) > UUdecoding files. In the interest of conserving disk overhead, I'd
) > rather not create a temp file and spawn UUdecode. I'd rather just
) > accomplish the whole project in Perl. If a Perl UUdecode already has
) > been written, it would save me re-inventing a wheel.
) > 
) > Just another Perl newbie...
) 
) While you are at it, I'd like to encourage you to include the capability
) to encode and decode the XXencode format as well.  XX is an alternative
) to UU that uses a different character set that does not run into the
) ambiguities of translation between IBM's EBCDIC character set and ASCII.
) XXencode works where UUencode does (requiring and XXdecoder of course)
) but also works in (non-UNIX) places that UU won't.
) 
) XX uses the following character set:
) 
) +-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
) 
) representing the binary values from 0 to 63 in that order.  By using
) a string index you can convert a 6 bit value to a character.  My C
) implementation built an array of 256 bytes indexed by the arriving
) character for the decoding process.  All the rest of the format is
) identical to the UUencode format.
) 
) UUencode won't go away, but XXencode is starting to see some uses
) among those in, or exchanging data with, IBM mainframes.
) 
) Various sources are available on:
)     wuarchive.wustl.edu: (various paths)
)     ux1.cso.uiuc.edu:unix/xxcp  (these are the originals)
)