κατασκευή φακέλου στην perl ανεξαρτήτως χρήστη.

[trotos]

Καλησπέρα και χρόνια πολλά.
Έχω εδώ και λίγο καιρό ξεκινήσει να ασχολούμαι με προγραμματισμό και μαθαίνω για τη δουλειά να γράφω scripts σε perl για να αυτοματοποιώ ορισμένες διεργασίες.

Είμαι σε περιβάλλον Mac Os Χ αλλά χρησιμοποιώ terminal και αν κάποιο πρόγραμμα δεν υπάρχει κάνω εγκατάσταση.

προσπαθώ να ορίσω σε μια μεταβλητή που να μπορώ να τη χρησιμοποιώ σε όλο το script το path του Desktop, ώστε το script να φτιάχνει φακέλους, να γράφει σε αυτούς αρχεία και μετά να τα ξεgz και να τα διαβάζει.

διάβασα ότι αυτό θα έπρεπε να γίνεται έτσι:

use File::Path;
use warnings;
use strict;
#my $path = $ENV{'USERPROFILE'}; <--- αυτό παίζει μόνο για windows based;;;
my $path = $ENV{HOME};

my $desktop_path = "$path/Desktop";

my $PeakDir = "$desktop_path/BioProject";
mkpath($PeakDir);

και το φτιάχνει...ΤΟ ΕΡΩΤΗΜΑ ΕΙΝΑΙ:

τι γίνεται στο

$ENV{HOME};

τι ακριβώς κάνει;
και γιατί το

$ENV{'USERPROFILE'};

δεν δουλεύει είναι γιατί παίζει μόνο σε windows based;;;

ΕΥΧΑΡΙΣΤΩ ΕΚ ΤΩΝ ΠΡΟΤΕΡΩΝ

[Mosfet]

Καλησπέρα και καλή χρονιά.

Το %ENV είναι ένα hash που περιέχει τις μεταβλητές περιβάλλοντος και τις τιμές τους.

Τρέχοντας π.χ. το παρακάτω script

#!/usr/bin/perl
use warnings;
use strict;

for my $key ( keys %ENV ) {
    my $value = $ENV{$key};
    print "$key => $value\n";
}

θα δεις ένα σωρό μεταβλητές και τις τιμές τους. Το ποιες είναι αυτές οι μεταβλητές και τι τιμές έχουν, εξαρτάται προφανώς από την πλατφόρμα που τρέχεις το script. Για αυτό π.χ. η μεταβλητή 'USERPROFILE' που ανέφερες, ενδεχομένως να μην υφίσταται για μη windows συστήματα.

[trotos]

Καλησπέρα και καλή χρονιά.

Το %ENV είναι ένα hash που περιέχει τις μεταβλητές περιβάλλοντος και τις τιμές τους.

.

ΑΥΤΌ δεν καταλαβαίνω, από που παίρνει τις μεταβλητές, πως ορίζονται αυτές οι μεταβλητές πως μπορώ να τις ανασύρω, τι τιμές μπορεί να πάρει.
Και τι είναι το hash, συνήθως το βλέπω ως hash tables.

Δεν πολύ καταλαβαίνω τα εγχειρίδια.

[Mosfet]

Αυτές οι μεταβλητές περιβάλλοντος (και οι τιμές τους), ορίζονται από το εκάστοτε σύστημα. Όταν για παράδειγμα ανοίγεις μια κονσόλα σε windows ή linux (ή σε Mac OS X), οι μεταβλητές αυτές προϋπάρχουν και συνήθως ορίζονται και παίρνουν τιμές κατά το booting του υπολογιστή.

Με τον κώδικα που παρέθεσα, μπορείς να πάρεις το όνομα ($key) και την τιμή ($value).

Hash είναι γενικά μια κατηγορία μεταβλητών της perl (όπως π.χ. μια άλλη κατηγορία είναι τα arrays).

Πάντως , καλό θα είναι να διαβάσεις κάποια από τα άπειρα tutorials και intros που υπάρχουν για την perl. Εκεί θα καταλάβεις τις αρχές της γλώσσας και θα λύσεις τις περισσότερες απορίες σου.

[trotos]

Οπότε με το ENV ουσιαστικά καλούμε σταθερές οι οποίες διευκρινίζονται στο {}.
Ποια η διαφορά μεταξύ του $ % είναι ότι το ένα ορίζει array και το άλλο hash;

το script το έτρεξα και έλαβα τα εξής:

HOME => /Users/sunta3iouxos
DISPLAY => /tmp/launch-3oDfNZ/org.macosforge.xquartz:0
COMMAND_MODE => unix2003
ORG_CHROMIUM_CHROMIUM_FRAMEWORK_SERVICE_PROCESS/USERS/SUNTA3IOUXOS/LIBRARY/APPLICATION_SUPPORT/CHROMIUM_SOCKET => /tmp/launch-mBhUt9/ServiceProcessSocket
SSH_AUTH_SOCK => /tmp/launch-b1i1Fv/Listeners
Apple_PubSub_Socket_Render => /tmp/launch-5wj9hs/Render
PWD => /Users/sunta3iouxos
LANG => el_GR.UTF-8
USER => sunta3iouxos
LOGNAME => sunta3iouxos
__CF_USER_TEXT_ENCODING => 0x1F5:6:20
SECURITYSESSIONID => 24abf2
TERM_PROGRAM => Apple_Terminal
SHLVL => 1
_ => /opt/local/bin/perl
TERM_PROGRAM_VERSION => 273.1
PATH => /opt/local/bin:/opt/local/sbin:/opt/local/bin:/opt/local/sbin:/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/opt/X11/bin:/usr/X11/bin
SHELL => /bin/bash
TMPDIR => /var/folders/nY/nYCsY4IpGBicNgfTPKXbI++++TI/-Tmp-/
TERM => xterm-color

με τα κεφαλαία είναι οι σταθερές που εισάγω στο {} για να λάβω συγκεκριμένες τιμές;

Ποια άλλη χρησιμότητα μπορεί να έχει από το να εισάγω πχ την διεύθυνση του home φακέλου σε μεταβλητή;;

υπάρχει και αυτό, που τώρα το είδα:
http://en.wikipedia.org/wiki/Environment_variable

[yuk]

Άσχετο, αλλά τσέκαρες αν μπορούν να γίνουν αυτά που θέλεις με τον Automator; Τουλάχιστον αυτά που περιγράφεις γίνονται πανεύκολα.

[trotos]

δε με ενδιαφέρει, θέλω να φτιάξω ένα script που να δουλεύει όσο το δυνατόν σε περισότερα unix/;inux based μηχανήματα. Όταν θα ολοκληρωθεί θα πάει να τρέξει σε cluster και θα γίνει από άλλον optimized για multi-core-thread-big-mem και δε ξέρω τι άλλο.
Απλά πρέπει να φτιάξω μόνος τον βασικό σκελετό για να μάθω.