uawdijnntqw1x1x1
IP : 216.73.216.23
Hostname : web17.us.cloudlogin.co
Kernel : Linux web17.us.cloudlogin.co 5.10.238-xeon-hst #1 SMP Thu Jun 5 12:15:42 UTC 2025 x86_64
Disable Function : None :)
OS : Linux
PATH:
/
home
/
..
/
.
/
usr
/
bin
/
puuencode
/
/
#!/usr/bin/perl use strict; use Convert::UU 'uuencode'; my($file,$as_file) = @ARGV; $as_file ||= $file; my $stat = (stat $file)[2] or die "Couln't stat $file: $!"; my($mode) = sprintf "%04o", $stat & 07777; open F, $file or die "Couldn't open $file: $!"; binmode(F); print uuencode(\*F,$as_file,$mode); close F; __END__ =head1 NAME puuencode - perl replacement for uuencode =head1 SYNOPSIS puuencode inputfile as_outputfile =head1 DESCRIPTION Puuencode reads the inputfile and writes a printable version of it to STDOUT in uuencoded style. Nothing fancy, just a simple uuencode replacement. =head1 BUGS This implementation is much slower than most uuencode programs written in C. Its primary intention is to allow quick testing of the underlying Convert::UU module. =head1 SEE ALSO puudecode(1), Convert::UU(3) =head1 AUTHOR Andreas Koenig E<lt>andreas.koenig@mind.deE<gt> =cut
/home/.././usr/bin/puuencode