>>>>> "PM" == Paul Marquess <paul.marqu...@ntlworld.com> writes: PM> Sorry if you found IO::Uncompress::AnyUncompress to complicated.
PM> Let me show you one way of retrieving the trailing data that may exist PM> beyond the end of a gzip file using another of my Perl modules OK thanks very much. I will append it to the bug report in case someday one else needs to figure out how. Looking at what you wrote, I see I could not have figured out how to do it on my own. Thanks. PM> So first we need a gzip file PM> $ gzip <~/.bash_profile >/tmp/try.gz PM> And now let's add some "trailing garbage" PM> $ echo Hello World >>/tmp/try.gz PM> This Perl script will print the trailing data PM> use warnings; PM> use strict; PM> use IO::Uncompress::Gunzip qw(:all) ; PM> use IO::File ; PM> my $file = "/tmp/try.gz"; PM> my $in = new IO::File "<$file"; PM> gunzip $in => "/dev/null", PM> TrailingData => my $trailing; PM> print "[$trailing]\n;" PM> cheers -- To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org
