Convert::yEnc::Decoder - decodes yEncoded files
use Convert::yEnc::Decoder;
$decoder = new Convert::yEnc::Decoder;
$decoder = new Convert::yEnc::Decoder $dir;
$decoder->out_dir($dir);
eval
{
$decoder->decode( $file);
$decoder->decode(\*FILE);
$decoder->decode;
};
print $@ if $@;
$name = $decoder->name;
$file = $decoder->file;
$size = $decoder->size;
$ybegin = $decoder->ybegin;
$ypart = $decoder->ypart;
$yend = $decoder->yend;
yEnc decoder
Convert::yEnc::Decoder decodes a yEncoded file and writes it to disk. Methods are provided for returning information about the decoded file.
Nothing.
new Convert::yEnc::Decoder
new Convert::yEnc::Decoder $dirCreates and returns a new Convert::yEnc::Decoder object.
Decoded files will be written to $dir. If $dir is omitted, it defaults to the current working directory.
out_dir($dir)Sets the output directory to $dir.
decode($file)
decode(\*FILE)
decodeDecodes a file. dies if there are any errors.
The first form reads from the file named $file. The second form reads from the file handle FILE. The third form reads from STDIN.
The data stream need not begin at the =yBegin line; decode will search until it finds it. decode stops reading when it finds the =yend line, so Decoder can decode multiple files from the same data stream.
decode may be called repeatedly on the same Decoder object to decode multiple files.
nameAfter a successful decode, returns the name of the file that was created.
fileAfter a successful decode, returns the complete path of the file that was created.
sizeAfter a successful decode, returns the size of the decoded file.
ybeginAfter a successful decode, returns the =ybegin line.
ypartAfter a successful decode, returns the =ypart line, or undef if there wasn't one.
yendAfter a successful decode, returns the =yend line.
To decode a single file on the command line, write
perl -MConvert::yEnc::Decoder -e 'Convert::yEnc::Decoder->new->decode' < myFile
Original version.
Steven W McDougall, <swmcd@world.std.com>
Copyright (c) 2002 by Steven McDougall. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
