Perl cờ -pe, -pi, -p, -w, -d, -i, -t?

Tôi đã thấy rất nhiều cách chạy mã Perl hoặc tập lệnh, với các cờ khác nhau. Tuy nhiên, khi tôi cố gắng tìm kiếm ý nghĩa của mỗi lá cờ, tôi chủ yếu nhận được kết quả từ các trang Perl chung chung và không tìm thấy thông tin cụ thể nào về các lá cờ hoặc việc sử dụng chúng ở đó.

Dưới đây là những lá cờ mà tôi gặp thường xuyên nhất và tôi không biết ý nghĩa của chúng:

• perl -pe
• perl -pi
• perl -p
• perl -w
• perl -d
• perl -i
• perl -t

Tôi sẽ rất biết ơn nếu bạn cho tôi biết ý nghĩa của mỗi từ đó và một số trường hợp sử dụng đối với chúng, hoặc ít nhất là cho tôi biết cách tìm ra ý nghĩa của chúng.

Vâng, Google là vô cùng khó khăn cho nhìn lên dấu chấm câu và, thật không may, Perl không có vẻ là chủ yếu tạo thành dấu chấm câu :-)

Tất cả các công tắc dòng lệnh đều được trình bày chi tiết trong perlrun . (có sẵn từ dòng lệnh bằng cách gọi perldoc perlrun)

Đi vào các tùy chọn một cách ngắn gọn, từng cái một:

-p: Đặt một vòng lặp in xung quanh lệnh của bạn để nó hoạt động trên từng
    dòng đầu vào tiêu chuẩn. Được sử dụng chủ yếu để Perl có thể đánh bại
    quần tắt awk về sức mạnh VÀ sự đơn giản :-)
-n: Đặt một vòng lặp không in xung quanh lệnh của bạn.
-e: Cho phép bạn cung cấp chương trình dưới dạng đối số
    hơn trong một tệp. Bạn không muốn phải tạo một tập lệnh
    tập cho mỗi Perl một lớp lót nhỏ.
-i: Sửa đổi tệp đầu vào của bạn tại chỗ (tạo bản sao lưu của
    nguyên). Tiện dụng để sửa đổi tệp mà không cần {copy,
    quá trình xóa-gốc, đổi tên}.
-w: Kích hoạt một số cảnh báo. Bất kỳ coder Perl giỏi sẽ sử dụng điều này.
-d: Chạy trong trình gỡ lỗi Perl. Để gỡ lỗi mã Perl của bạn,
    chắc chắn.
-t: Coi một số mã "nhiễm bẩn" (không rõ ràng) là cảnh báo (thích hợp
    chế độ mờ sẽ lỗi trên mã đáng ngờ này). Dùng để làm thịt bò
    tăng cường bảo mật Perl, đặc biệt là khi chạy mã cho
    người dùng, chẳng hạn như tập lệnh setuid hoặc nội dung web.

Các -p lá cờ về cơ bản chạy kịch bản với

while (<>) {
# exec here
}
continue {
    print or die "-p destination: $!\n";
}

-e cho phép bạn chuyển một tập lệnh tới STDIN

perl -e '$x = "Hello world!\n"; print $x;'

-ihướng dẫn trình thông dịch rằng tất cả dữ liệu được chuyển đến STDINbởi tập lệnh đang thực thi phải được thực hiện tại chỗ.

-w giống như use warnings; , nhưng trong phạm vi toàn cầu thay vì phạm vi cục bộ

-d chạy trình gỡ lỗi Perl

Khác đã đề cập đến perlrun. Nếu bạn sử dụng B :: Deparse, bạn có thể thấy ý nghĩa của nó (đối với hầu hết mọi thứ):

$ perl -MO=Deparse   -p  -e 1
LINE: while (defined($_ = <ARGV>)) {
    '???';
}
continue {
    die "-p destination: $!\n" unless print $_;
}
-e syntax OK

1 được biểu thị bằng '???', vì nó được tối ưu hóa.

$ perl -MO=Deparse   -p -i  -e 1
BEGIN { $^I = ""; }
LINE: while (defined($_ = <ARGV>)) {
    '???';
}
continue {
    die "-p destination: $!\n" unless print $_;
}
-e syntax OK

-i đặt $ ^ I, like

$ perl -MO=Deparse   -p -i.bak  -e 1
BEGIN { $^I = ".bak"; }
LINE: while (defined($_ = <ARGV>)) {
    '???';
}
continue {
    die "-p destination: $!\n" unless print $_;
}
-e syntax OK

Nhưng hãy nhớ rằng, <ARGV> sử dụng mở 2 đối số, do đó, không có tên tệp bắt đầu bằng > <hoặc bắt đầu / kết thúc bằng |.

Ngoài ra còn có một lá cờ quan trọng -nkhông được đề cập trong danh sách.

-nhoạt động giống như -p, chỉ là nó không in $_theo mặc định. Điều này có thể rất hữu ích trong việc lọc các tệp văn bản.

Bằng cách này Perl có thể thay thế grep | sedbằng một lớp lót duy nhất.

Ví dụ:

perl -ne 'print "$1\n" if /Messages read: (\d+)/' <my_input.txt

Sẽ in ra mọi giá trị số nguyên được tìm thấy sau "Tin nhắn đã đọc:" và không in thêm gì nữa.