Làm thế nào để tôi nhận được dòng lệnh Perl để chấp nhận các biến shell?

Question

tôi có thể làm toán như

perl -e 'print 5253413/39151' -l 

Nhưng tôi không hoàn toàn nhận được làm thế nào để tận dụng khả năng của Perl để làm toán với các biến bash được xác định trước của riêng tôi. Tôi đã thử

var1=$(some wc command that yields a number); var1=$(some wc that yields another number) 
perl -e 'print var1/var2' -l 

Nhưng nó không hoạt động

Answer 1

Có hai cách chính để làm điều này.

• Trong mã Perl bạn có thể sử dụng %ENV built-in băm để truy cập các biến môi trường được xuất khẩu từ vỏ

  $ export var1=5253413 
  $ export var2=39151 
  $ perl -E 'say $ENV{var1}/$ENV{var2}' 
  134.183366963807 
  

• Bạn có thể sử dụng các thiết bị vỏ suy để chèn giá trị của biến hệ vỏ thành lệnh

  Điều này được thực hiện tốt nhất làm thông số cho lớp phủ một lớp thay vì i ntroducing các giá trị trực tiếp vào mã

  $ var1=5253413 
  $ var2=39151 
  $ perl -E '($v1, $v2) = @ARGV; say $v1/$v2' $var1 $var2 
  134.183366963807 
  

Answer 2

Hai cách ít phổ biến hơn để làm điều này làm cho sử dụng các tính năng từ lâu perl.

Đầu tiên là core module Env, mà quan hệ biến môi trường quá trình perl biến:

sh$ export VAR1=1000 
sh$ export VAR2=33 
sh$ perl -MEnv -E 'say $VAR1/$VAR2'   # imports all environ vars 
333.333333333333 
sh$ perl -MEnv=VAR1,VAR2 -E 'say $VAR1/$VAR2' # imports only VAR1, VAR2 
333.333333333333 

Lưu ý rằng các biến cần phải có mặt trong môi trường thừa hưởng bởi quá trình perl, ví dụ với export VAR như trên, hoặc một cách rõ ràng cho một lệnh (như là FOO=hello perl -MEnv -E 'say $FOO').

Cách thứ hai và khá mơ hồ hơn là sử dụng perl use của -s switch để thiết lập các biến tùy ý từ dòng lệnh:

sh$ VAR1=1000 
sh$ VAR2=33 
sh$ perl -s -E 'say $dividend/$divisor' -- -dividend=$VAR1 -divisor=$VAR2 
333.333333333333 

awk làm điều gì đó tương tự với -v switch của nó.