Πώς μπορώ Πιέστε μια διαδρομή στο Unix μεταβλητή περιβάλλοντος Path σε Perl

; Στο λειτουργικό σύστημα UNIX , κάθε διεργασία που εκτελείται έχει μια συλλογή των μεταβλητών περιβάλλοντος στο οποίο μπορεί να διαβάσει και να γράψει . Μία από αυτές τις μεταβλητές είναι " PATH ", που αντιστοιχεί σε άνω και κάτω τελεία διαχωρισμένες λίστα των φακέλων όπου η διαδικασία θα ψάξει για τα εκτελέσιμα προγράμματα των άλλων προγραμμάτων που μπορεί να χρειαστεί να τρέξει . Αν , ειδικότερα , τη διαδικασία σας UNIX αποτελείται από μια εφαρμογή που εκτελείται Perl , μπορείτε να ορίσετε τη μεταβλητή PATH της μέσα από τον κωδικό σας Perl . Οδηγίες
Η 1

Αποθηκεύστε την τιμή που θέλετε να εκχωρήσετε στη μεταβλητή περιβάλλοντος PATH σε μια μεταβλητή Perl , όπως στο ακόλουθο δείγμα κώδικα :

$ desiredPath = " /usr /bin : /usr /local /bin "

Αντικαταστήστε το" /usr /bin :/usr /local /bin " με την τιμή που θέλετε να εκχωρήσετε στη μεταβλητή PATH . 2

Δημιουργία μια σειρά Perl που περιέχει ολόκληρη την εντολή που θα θέσει τη μεταβλητή PATH : .

$ systemCommand = " setenv PATH = " $ desiredPATH

το " setenv " πρωτόγονη θα εκτελεστεί από την εντολή του UNIX κέλυφος , όταν οι μεταφορές Perl έλεγχο να
εικόνων 3

ελέγχου Μεταφορά στο κέλυφος UNIX χρησιμοποιώντας ενσωματωμένο " σύστημα " λειτουργία της Perl : .

σύστημα ( $ systemCommand )

Μετά την εκτέλεση αυτής της γραμμής , η μεταβλητή περιβάλλοντος PATH θα έχει την τιμή επιλέξατε στο Βήμα 1 .
Η
εικόνων