Verzeichnisse TARen in PERL - #80433 (Allgemeines zu Perl)

pacey

2004-03-01 10:59

User since
2004-03-01
23 Artikel
BenutzerIn

Hier mal mein Code bisher:

Code: (dl )

sub use_tar_dirs {
    print "=> Using TAR Compression Method\n";
    print "=> Compressing Directories\n";
    my $tar = Archive::Tar->new;
    my $dirs = $_[0];
    my @dirs = s2a($dirs);
    my $dir = $_[2];
    my $tarname = $_[1];
    unlink($tarname);
    $tar->add_files( './'.$dir.'/'.@dirs );
    $tar->write($tarname.'.tar');
}
sub s2a {
    my $s = $_[0];
    my @a = split(/,/, $s);
    return(@a);
}

Gruss pacey\n\n

Quote
If You don't know what it does, why do you put it in your code

Code: ()

1
2
3

print +(a=>b=>c=>d=>e=>f=>g=>h=>i=>j=>k=>l=>m=>n=>o=>p=>q=>r=>s=>t=>u=>v=>w=>x=>y=>z=>" ")

[9=>20=>18=>19=>-1=>0=>13=>14=>19=>7=>4=>17=>-1=>15=>4=>17=>11=>-1=>7=>0=>2=>10=>4=>17];