εξαγωγή από συμπιεσμένα αρχεία στην perl

[trotos]

νέο ερώτημα...
έχω έναν φάκελο, πχ ~/Desktop/Bioperl/
ο οποίος περιέχει gz αρχεία.
πως μπορώ από την perl να του πω να κάνει εξαγωγή αρχείων από τον συγκεκριμένο φάκελο στον ίδιο φάκελο;

δοκιμάζω τα:

use Archive::Extract;
my $ae->extract( [to => '$PeakDir'])

όπου $PeakDir έχει οριστεί ως το ~/Desktop/Bioperl/

από ότι καταλαβαίνετε δεν δουλεύει...

δοκίμασα και κάτι σαν:

$ae = Archive::Extract->new(archive => '$PeakDir',[type => gz])

τίποτα
Υ.Γ. υπάρχει κάποιο forum όπου ασχολείται αποκλειστικά με perl, ελληνόφωνο κατά προτίμηση για να μπορώ να ποστάρω εκεί τις ερωτήσεις μου όσο αρχάριος και να είμαι;

[atrias]

ελληνόφωνο forum για perl δε νομίζω να βρεις
πάντως για αυτά που ρωτάς ρίξε μια ματιά στο synopsis εδώ
http://perldoc.perl.org/Archive/Extract.html

[tsigarid]

Off Topic

Υ.Γ. υπάρχει κάποιο forum όπου ασχολείται αποκλειστικά με perl, ελληνόφωνο κατά προτίμηση για να μπορώ να ποστάρω εκεί τις ερωτήσεις μου όσο αρχάριος και να είμαι;

Γιατί δεν φτιάχνεις ένα νήμα "απορίες perl" και να του κάνεις... κατάχρηση;

[trotos]

ελληνόφωνο forum για perl δε νομίζω να βρεις
πάντως για αυτά που ρωτάς ρίξε μια ματιά στο synopsis εδώ
http://perldoc.perl.org/Archive/Extract.html

από εκεί διαβάζω, αλλά δε καταλαβαίνω την τύφλα μου.
υπάρχει κάποια λύση στο ερώτημά μου που να μπορέσω να την καταλάβω;

[Manos29]

Βρήκα ενα λινκ αλλα μάλλον ειναι κατι σαν αυτο που εχεις δοκιμάσει

http://www.ehow.com/how_7147935_extr...iles-perl.html

[trotos]

είναι ακριβώς το ίδιο...τουλάχιστον στα δικά μου μάτια δε μπορώ να βρω κάποια αλλαγή.

[atrias]

δοκίμασε αυτό

use Archive::Extract;
my $ae = Archive::Extract->new( archive => 'foo.tgz' );
my $ok = $ae->extract;

[trotos]

δοκίμασε αυτό

use Archive::Extract;
my $ae = Archive::Extract->new( archive => 'foo.tgz' );
my $ok = $ae->extract;

αυτό το διάβασα και στο site της perl. το ερώτημα είναι πως μπορώ να βάλω στη θέση του foo.tgz to $PeakDir, όπως ορίζεται από το παρακάτω:

my $path = $ENV{HOME};
	my $desktop_path = "$path/Desktop";
		my $PeakDir = "$desktop_path/BioProject";

Θέλω να μπορέσει να διαβάσει τα .gz από αυτόν τον φάκελο και να μπορέσει να κάνει extract αυτών των αρχείων.

[EvoGenomics]

Ο αρχικός σου κώδικας είναι σωστός, εκτός από τα μονά εισαγωγικά στο $PeakDir. Δοκίμασε διπλά εισαγωγικά ή καθόλου. Στην Perl, τα μονά εισαγωγικά την κάνουν να διαβάζει τα πάντα ως απλό κείμενο. Δηλαδή δεν καταλαβαίνει ότι είναι μεταβλητή, αλλά ένα string που αρχίζει με το $.

[trotos]

αχ αυτές οι "μικρές" διαφορές τι ζημιά μπορούν να κάνουν.