Come posso passare la variabile del ciclo Bash all'interprete Perl?

Question

Sto cercando di modificare alcuni script con una combinazione di Bash e Perl. Il guaio è che Perl pensa che $index è la sua propria variabile, che non viene mai definito:

for index in {1..25}; do 
    perl -pi -e 's/\d+/$index/' cmd_$index.sh; 
done 

C'è un modo per rendere $index indossare il suo mantello Bash all'interno del Perl one-liner?

Answer 1

Spremere un export index; nel ciclo do. Fare riferimento a $ENV{index} nel corpo del programma Perl.

In alternativa: utilizzare le virgolette "… $index … " per interpolare la variabile di shell nell'espressione che costituisce il corpo del programma Perl. Nel caso in cui si desideri espandere questo one-liner, fare attenzione a evitare espressioni Perl come ad esempio $ sui nomi di variabili e forse barre rovesciate, in modo che siano interpretate da Perl, non dalla shell.

Answer 2

Utilizzare " anziché '. La bash può quindi sostituire la variabile prima che perl la veda.

Answer 3

Utilizzare le virgolette anziché le virgolette singole e l'indice $ verrà interpolato prima che la stringa -e venga passata a Perl.

Answer 4

Ecco un esempio di lavoro (anche se non nei termini del vostro problema - scusate!):

generatep() { 
    perl -e ' 
     $_stem=$ARGV[0]; 
     $_ctx=$ARGV[1]; 
     $_role=$ARGV[2]; 
     $i=$ARGV[3]; 
     $ct=$i + $ARGV[4]; 
     while ($i < $ct) { 
      print "user=$_stem$i,$_ctx,$_role\n"; 
      $i++; 
     } 
    ' ${stem} ${ctx} ${role} ${startix} ${count} 
} 

Answer 5

Credo che il problema qui è che le gocce di shell bash non supportano gli intervalli. Per qualche ragione, pensavo che lo facessero. Non importa, Perl supporta gamme più che bene:

perl -pi -e ' 
    BEGIN { @ARGV = map "cmd_$_.sh", 1 .. 25; } 
    my ($index) = $ARGV =~ /(\d+)/; 
    s/\d+/$index/' 

Un po 'goffo, ma è tutto una lingua in ogni caso.