Làm thế nào để một lớp lót Perl này kiểm tra xem một thư mục có trống không?

Question

Tôi nhận được dòng mã lạ này ngày hôm nay, nó cho tôi biết 'trống' hoặc 'không trống' tùy thuộc vào việc CWD có bất kỳ mục nào (ngoài số . và ..) trong đó.

Tôi muốn biết nó hoạt động như thế nào vì nó không có ý nghĩa với tôi.

perl -le 'print+(q=not =)[2==(()=<.* *>)].empty' 

Bit mà tôi quan tâm là <.* *>. Tôi không hiểu làm thế nào nó được tên của tất cả các tập tin trong thư mục.

Answer 1

Đó là một chiếc áo lót lót gôn. Cờ -e có nghĩa là thực hiện phần còn lại của dòng lệnh làm chương trình. -l cho phép xử lý dòng tự động.

Phần <.* *> là hình cầu chứa hai mẫu để mở rộng: .* và *.

phần này

(q=not =) 

là một danh sách có chứa một giá trị duy nhất - chuỗi "không". Các q=...= là một dấu phân cách chuỗi thay thế, rõ ràng được sử dụng bởi vì các báo giá duy nhất đang được sử dụng để báo giá một lót.

Phần [...] là chỉ số trong danh sách đó. Giá trị của chỉ số dưới sẽ hoặc là 0 (giá trị "không  ") hoặc 1 (không có gì, mà in như chuỗi rỗng) tùy thuộc vào kết quả của sự so sánh này:

2 == (()=<.* *>) 

Có rất nhiều xảy ra ở đây. Việc so sánh kiểm tra xem liệu glob có trả về danh sách chính xác hai mục (giả định là . và ..) hay không nhưng nó hoạt động thế nào. Các dấu ngoặc đơn bên trong biểu thị một danh sách trống. Gán vào danh sách này đặt glob trong ngữ cảnh danh sách để nó trả về tất cả các tệp trong thư mục. (Trong ngữ cảnh vô hướng, nó sẽ hoạt động giống như một trình lặp và chỉ trả về một lần.) Bản thân nhiệm vụ được đánh giá trong ngữ cảnh vô hướng (ở phía bên phải của phép so sánh) và do đó trả về số phần tử được gán.

Hàng đầu + là để ngăn Perl phân tích cú pháp danh sách dưới dạng đối số thành print.Đường nhỏ .empty nối chuỗi "trống" vào bất kỳ thứ gì xuất hiện trong danh sách (ví dụ: "không phải là  " hoặc chuỗi trống).

Answer 2

<.* *> có nghĩa là (glob(".*"), glob("*")). glob mở rộng các mẫu tệp giống như cách trình bao làm.

Answer 3

<.* *> 

là một glob gồm hai mô hình: .* là tất cả các tên tập tin bắt đầu bằng . và * tương ứng với tất cả các file (đây là khác biệt so với các công ước DOS/Windows thông thường).

(()=<.* *>) 

đánh giá ngữ cảnh trong danh sách, trả về tất cả tên tệp phù hợp.

Sau đó, so sánh với 2 đặt nó vào ngữ cảnh vô hướng để 2 được so sánh với số lượng tệp được trả về. Nếu số đó là 2, thì các mục nhập thư mục duy nhất là . và .., dấu chấm. ;-)

Answer 4

Tài liệu về tính năng đó là here. (Di chuyển gần cuối của phần này)

Answer 5

tôi thấy rằng các mô-đun B::Deparse giúp khá nhiều trong việc giải mã một số nội dung mà ném ra mắt hầu hết các lập trình viên, chẳng hạn như các q=...= xây dựng:

$ perl -MO=Deparse,-p,-q,-sC 2>/dev/null << EOF 
> print+(q=not =)[2==(()=<.* *>)].empty 
> EOF 
use File::Glob(); 
print((('not ')[(2 == (() = glob('.* *')))] . 'empty')); 

Dĩ nhiên , điều này không ngay lập tức tạo ra "có thể đọc được" mã, nhưng nó chắc chắn chuyển đổi một số các trở ngại.