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
