Come utilizzare le variabili di shell nella chiamata al comando perl in uno script di shell bash?

Question

Come utilizzare le variabili di shell nella chiamata al comando perl in uno script di shell bash?

Ho un comando perl nel mio script di shell per valutare la data -1.

Come è possibile utilizzare $myDate nella chiamata al comando perl?

Questa è la sezione nel mio script:

myDate='10/10/2012' 

Dt=$(perl -e 'use POSIX;print strftime '%m/%d/%y', localtime time-86400;") 

voglio usare $myDate al posto di %m/%d/%y.

Qualsiasi aiuto sarà apprezzato.

Grazie.

Answer 1

Allo stesso modo in cui si passano valori a qualsiasi altro programma: passarlo come arg. (Si potrebbe essere tentati di generare codice Perl, ma questo è una cattiva idea.)

Dt=$(perl -MPOSIX -e'print strftime $ARGV[0], localtime time-86400;' -- "$myDate") 

Si noti che il codice non restituisce sempre la data di ieri (dal momento che non tutti i giorni hanno 86400 secondi). Per questo, che ci si vuole

Dt=$(perl -MPOSIX -e'my @d = localtime time-86400; --$d[4]; print strftime $ARGV[0], @d;' -- "$myDate") 

o

Dt=$(perl -MDateTime -e'print DateTime->today(time_zone => "local")->subtract(days => 1)->strftime($ARGV[0]);' -- "$myDate") 

o semplicemente

Dt=$(date --date='1 day ago' +"$myDate") 

Answer 2

Lo stesso modo in cui si passa i valori di qualsiasi altro programma: passare come un ARG. (Si potrebbe essere tentati di generare codice Perl, ma questo è una cattiva idea.)

Dt=$(perl -MPOSIX -e'my($m,$d,$y) = split qr{/}, $ARGV[0]; --$d; print strftime "%m/%d/%y", 0,0,0, $d,$m-1,$y-1900;' -- "$myDate") 

Answer 3

Variabili dalla shell sono disponibili in %ENV hash di Perl. Con bash (e alcune altre shell) è necessario eseguire il passaggio extra di "esportazione" della variabile shell in modo che sia visibile ai sottoprocessi.

mydate=10/10/2012 
export mydate 
perl -e 'print "my date is $ENV{mydate}\n"' 

Answer 4

Perché non qualcosa di simile: $ENV{'PATH'} = $ENV{'PATH'}.":"."/additional/path";

Answer 5

Utilizzando " invece di ' passa anche variabili di shell a Perl versione 5.24.

mydate=22/6/2016 
perl -e "print $mydate"