source: trunk/soft/ObsData/examples/obsarchive @ 17

#!/usr/bin/perl

# Olivier Thauvin <olivier.thauvin@aerov.jussieu.fr>
# CNRS Service d'Aeronomie

# $Id$

use strict;
use warnings;
use Getopt::Long;
use ObsData::Archive;

GetOptions();

sub help {
    print qq(
Usage $0 ARCHIVE [FILE]
List an archive or extract FILE from archive into current directory
)
}

my ($archive, $files) = @ARGV;

$archive or do {
    help();
    exit(1);
};

my $ar = ObsData::Archive->new($archive) or die "Can't read archive\n";

if ($files) {
    my ($basename) = $files =~ /.*\/(.*)/;
    $ar->extract($files, "./$basename") or die "Can't extract files\n";
} else {
    foreach($ar->ls) {
        print "$_\n";
    }
}