Come faccio a spingere un percorso a percorso Unix ambiente variabile in Perl?

July 7

Nel sistema operativo UNIX, ogni processo in esecuzione ha una collezione di variabili di ambiente per cui è in grado di leggere e scrivere. Una di queste variabili è "PATH", corrispondente ad una lista separata da due punti di cartelle in cui il processo cercare gli eseguibili di altri programmi che potrebbe essere necessario eseguire. Se, in particolare, il processo di UNIX è costituito da un'applicazione Perl in esecuzione, è possibile impostare la variabile di PATH all'interno del codice Perl.

istruzione

1 Conservare il valore che si desidera assegnare alla variabile d'ambiente PATH in una variabile Perl, come nel seguente codice di esempio:

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

Sostituire "/ usr / bin: / usr / local / bin" con il valore che si desidera assegnare alla variabile PATH.

2 Creare una stringa Perl che contiene l'intero comando che imposterà la variabile PATH:

$ SystemCommand = "setenv PATH =". $ DesiredPATH

Il "setenv" primitiva sarà eseguito dalla shell di comando UNIX quando i trasferimenti di Perl il controllo ad esso.

3 Trasferire il controllo alla shell UNIX utilizzando built-in di Perl "sistema" la funzione:

Sistema ($ systemCommand)

Dopo l'esecuzione di questa linea, la variabile d'ambiente PATH avrà il valore selezionato nel passaggio 1.