Jak mogę przekazać zmienną pętli Bash do interpretera Perla?

Question

Próbuję zmodyfikować niektóre skrypty za pomocą kombinacji Bash i Perl. Problem polega na tym, że Perl uważa, że ​​jest swoim własnym $index zmienna, która nigdy nie jest zdefiniowana:

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

Czy istnieje sposób, aby $index nosić swój płaszcz w Bash Perl jednej wkładki?

Answer 1

Ściśnij export index; w pętli do. Patrz: $ENV{index} w treści programu Perl.

Alternatywnie: Użyj podwójnego cudzysłowu "… $index … ", aby wstawić zmienną powłoki do wyrażenia, które składa się na treść programu Perla. Jeśli chcesz rozszerzyć tę jedną linijkę, upewnij się, że poprawnie unikasz wyrażeń Perla, takich jak $ na nazwach zmiennych, a może w ukośnikach odwrotnych, które są interpretowane przez Perla, a nie przez powłokę.

Answer 2

Użyj " zamiast '. Bash może następnie podstawić zmienną, zanim perl ją zobaczy.

Answer 3

Użyj podwójnych cudzysłowów zamiast pojedynczych cudzysłowów, a indeks $ zostanie interpolowany przed przekazaniem ciągu e-e do Perla.

Answer 4

Oto przykład działa (choć nie w kategoriach problemu - sorry!):

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

Chyba problem jest to, że globs powłoki bash nie obsługuje zakresy. Z jakiegoś powodu, myślałem, że tak. Nieważne, perl obsługuje następujące zakresy:

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

Trochę niezgrabny, ale w każdym razie jest to tylko jeden język.