[perl5.git] / eg / uudecode

#!/usr/bin/perl
while (<>) {
    next unless ($mode,$file) = /^begin\s*(\d*)\s*(\S*)/;
    open(OUT,"> $file") || die "Can't create $file: $!\n";
    while (<>) {
	    last if /^end/;
	    next if /[a-z]/;
	    next unless int((((ord() - 32) & 077) + 2) / 3) ==
		    int(length() / 4);
	    print OUT unpack("u", $_);
    }
    chmod oct($mode), $file;
    eof() && die "Missing end: $file may be truncated.\n";
}
Commit	Line	Data
93a17b20 LW	1	#!/usr/bin/perl
	2	while (<>) {
	3	next unless ($mode,$file) = /^begin\s(\d)\s(\S)/;
	4	open(OUT,"> $file") \|\| die "Can't create $file: $!\n";
	5	while (<>) {
	6	last if /^end/;
	7	next if /[a-z]/;
	8	next unless int((((ord() - 32) & 077) + 2) / 3) ==
	9	int(length() / 4);
	10	print OUT unpack("u", $_);
	11	}
	12	chmod oct($mode), $file;
	13	eof() && die "Missing end: $file may be truncated.\n";
	14	}
	15