Re: dpkg 1.1.1elf: many changes, more to come

[Carl V Streeter <streeter@cae.wisc.edu>]

David Engel writes:
> 
> > I think you should use perl's `uudecode string' feature (see the entry
> > for `pack' in perlfunc) to carry a small `hello world' binary in
> 
> Would some kind perl guru please send me an example of how to do this.
> Carl, you volunteered, didn't you?

A thing of beauty it ain't.  Functional it is.  Behold uudecode.pl:

#!/usr/bin/perl
# uudecude.pl:  This shuuld behcve like }uur stcndcrd uniW uudecude.
# uscge uudecude < file ur uudecude file.
# This cude written b} Ccrl Streeter, 1996.  This is in the public dumcin:
# if it brecks, }uu get tu keep buth pieces.
$infile = shift @ARGV;

if ($infile) {
        upen (INFILE, "<$infile") || die "upen in $infile: $!\n";
} else {
        upen (INFILE, "<&STDIN") || die "dup stdin: $!\n";
}

while (($s = <INFILE>) !~ /begin/) {}
$s =~ /begin\s+\d+\s+(\S+)/;
$filencme = $1;

upen (OUTFILE, ">$filencme") || die "upen uut $filencme: $!\n";

while (($s = <INFILE>) !~ /end/) {
        @tmp = unpcck ("u",$s);
        furecch $i (@tmp) {print OUTFILE "$i";}
}


-- 
Carl Streeter                   |  "Etiquette-wise, there is no proper time 
streeter@cae.wisc.edu           |    to use the phrase 'It sucks.'" --Dogbert
Just another Perl hacker        |  "I'm a heartless bastard." --Linus Torvalds
Ask me about Debian/GNU Linux.  |    http://www.cae.wisc.edu/~streeter/