On another note, your specific problem is exactly what
the 0.20 solves.
CHANGES
Version 0.20
Added class methods for creation, extraction and listing of tar
files.
No longer maintain a complete copy of the tar file in memory.
Removed
the `data()' method.
Version 0.10
Numerous changes. Brought source under CVS. All changes now
recorded
in ChangeLog file in distribution.
Version 0.08
New developer/maintainer. Calle has carpal-tunnel syndrome and
cannot
type a great deal. Get better as soon as you can, Calle.
Added proper support for MacOS. Thanks to Paul J. Schinder
<schin-
[EMAIL PROTECTED]>.
Version 0.071
Minor release.
> -----Original Message-----
> From: Harikrishnan Bhaskaran
> Sent: Thursday, May 16, 2002 3:39 PM
> To: 'Jack Sheppard'; [EMAIL PROTECTED]
> Subject: RE: Out of Memory
>
>
> ActiveState build comes with an older version of Archive::Tar
> 0.071 (when I look at the docs)
> You should probably get the latest version using ppm
> (package manager). I am looking at 0.20 version (seems
> to be at least three builds newer) on my unix
> box. Can't be sure if there is a win32 build or not.
>
> > -----Original Message-----
> > From: Jack Sheppard [mailto:[EMAIL PROTECTED]]
> > Sent: Thursday, May 16, 2002 12:44 PM
> > To: [EMAIL PROTECTED]
> > Subject: RE: Out of Memory
> >
> >
> > I have not tried the create_archive method because it is
> not among the
> > methods listed in the documentation for Activestate Perl
> > build 631 under
> > Archive-->Tar.
> >
> > When I replace the last "for" loop with the "create_archive"
> > I get this
> > message:
> >
> > Name "main::tar" used only once: possible typo at
> > F:\temp\optest.pl line 23.
> > Can't locate object method "create_archive" via package
> "Archive::Tar"
> > (perhaps you forgot to load "Archive::Tar"?) at
> > F:\temp\optest.pl line 23.
> >
> > -----Original Message-----
> > From: [EMAIL PROTECTED]
> > [mailto:[EMAIL PROTECTED]]On Behalf Of
> > Harikrishnan Bhaskaran
> > Sent: Thursday, May 16, 2002 12:06 PM
> > To: 'Jack Sheppard'; [EMAIL PROTECTED]
> > Subject: RE: Out of Memory
> >
> >
> >
> > Have you tried the create_archive method?
> > (instead of the last for loop)
> >
> > Archive::Tar->create_archive ("$name.tar", 0, @files);
> >
> >
> > > Hello all!
> > >
> > > I put together this script to tar a bunch of directories
> > off a NT 4.0
> > > server. The script runs on a Win 2000 Pro workstation with
> > > 128 MB of RAM. It
> > > runs out of memory while it's processing the last directory
> > > and aside from
> > > creating the tar in memeory I don't see any other way of
> > > doing it among the
> > > methods listed.
> > >
> > > Any help would be greatly appreciated.
> > >
> > > Jack Sheppard
> > > Sr. Eng. Specialist
> > > [EMAIL PROTECTED]
> > >
> > > ------>
> > > use File::Find;
> > > use Archive::Tar;
> > > use warnings;
> > >
> > > @dirs = qw(
> > > A206C206
> > > A206C228
> > > A206C360
> > > A206C361
> > > A206C396
> > > A206C906
> > > A206C907
> > > A314A929
> > > A314A930
> > > A322A379
> > > A557A133
> > > );
> > >
> > > $name = "f:/temp/test";
> > >
> > > foreach $dir (@dirs)
> > > {
> > > find(\&jprint, $dir);
> > > }
> > >
> > > sub jprint ()
> > > {
> > > $file = "$File::Find::name";
> > > push(@files, $file);
> > >
> > > }
> > >
> > > # make tar
> > > $tar = Archive::Tar->new();
> > > foreach $doc (@files)
> > > {
> > > if (!-d $doc)
> > > {
> > > print "Adding $doc\n";
> > > $tar->add_files("$doc");
> > > }
> > > }
> > >
> > > # write, and finish
> > > $tar->write("$name.tar");
> > > print "\nArchive $name.tar created.";
> > >
> > > _______________________________________________
> > > Perl-Win32-Admin mailing list
> > > [EMAIL PROTECTED]
> > > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> > >
> > _______________________________________________
> > Perl-Win32-Admin mailing list
> > [EMAIL PROTECTED]
> > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> >
> > _______________________________________________
> > Perl-Win32-Admin mailing list
> > [EMAIL PROTECTED]
> > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> >
>
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
