Changeset 5 for trunk

Timestamp:

09/21/05 13:21:13 (19 years ago)

Author:

thauvin

Message:

• add extract
• add test

Location:

trunk/soft/ObsData

Files:

• ObsData/Archive.pm (modified) (3 diffs, 1 prop)
• t (added)
• t/OA-01.t (added)
• t/OA-02.t (added)
• testdata (added)
• testdata/coin (added)

trunk/soft/ObsData/ObsData/Archive.pm

@@ -5 +5 @@
 use strict;
 use warnings;
+use File::Copy;
+use File::Temp qw/ tempfile /;
 
 sub new {
@@ -28 +30 @@
 }
 
+sub DESTROY {
+    my ($self) = @_;
+}
+
 sub ls {
     my ($self) = @_;
-    my ($file) = $self->{archive} =~ m!^(:?.*/)?(.*)!;
+    my ($file) = $self->{archive} =~ m!^(?:.*/)?(.*)!;
     return $file;
+}
+
+sub extract {
+    my ($self, $file, $dest) = @_;
+    # the devel should specify the file he want
+    # as the basic contains only 1 file... this does not matter
+
+    my ($fh, $fname);
+    
+    if ($dest) {
+        $fname = $dest;
+        open($fh, '>', $dest) or return undef;
+    } else {
+        ($fh, $fname) = tempfile(
+            DIR => $self->_tempdir,
+            UNLINK => 1,
+        ) or return undef;
+    }
+    
+    if(!copy($self->{archive}, $fh)) {
+        unlink($fname);
+        return undef;
+    }
+    
+    close($fh);
+    $fname
+}
+
+### Private method
+
+sub _tempdir {
+    my ($self) = @_;
+    $self->{tmpdir} || $ENV{TMPDIR}
 }
 
@@ -48 +87 @@
 list the content of the archive
 
+=item extract
+
+Extract a file from the archive and return the filename of extract file