Perl biết một tệp là nhị phân như thế nào?

Question

Tôi biết bạn có thể sử dụng toán tử kiểm tra tệp -B để kiểm tra xem tệp có phải là nhị phân hay không, nhưng Perl thực hiện nội bộ này như thế nào?

Answer 1

Từ perldoc -f -B:

Các -T và -B tắc làm việc như sau. Khối đầu tiên hoặc do đó tệp được kiểm tra đối với các ký tự lẻ chẳng hạn như mã kiểm soát hoặc ký tự lạ với bộ bit cao. Nếu quá nhiều ký tự lạ (> 30%) được tìm thấy, đó là tệp -B; nếu không, đó là tệp -T. Ngoài ra, bất kỳ tệp nào chứa null trong khối đầu tiên được coi là tệp nhị phân. Nếu -T hoặc -B được sử dụng trên filehandle, bộ đệm IO hiện tại được kiểm tra thay vì khối đầu tiên. Cả hai -T và -B trả về true trên một tệp rỗng hoặc tệp tại EOF khi thử nghiệm tệp thủ công. Vì bạn phải đọc một tệp để làm bài kiểm tra -T, trên hầu hết các trường hợp bạn muốn sử dụng số -f đối với tệp trước, như trong " next unless -f $file && -T $file".

Answer 2

Theo Chương 11 của cuốn sách Learning Perl:

Câu trả lời là ** Perl lừa **: nó mở tập tin, nhìn vào đầu tiên vài ngàn byte, và làm cho một giáo dục đoán . Nếu nó thấy rất nhiều byte null, các ký tự điều khiển bất thường và các byte có bộ bit cao, thì nó trông giống như một tệp nhị phân. Nếu không có nhiều thứ lạ, thì nó trông giống như văn bản. Đôi khi nó đoán sai. Nếu một tệp văn bản có nhiều từ tiếng Thụy Điển hoặc tiếng Pháp (có thể có các ký tự đại diện với bộ bit cao, như một số biến thể ISO-8859 hoặc thậm chí là phiên bản Unicode), nó có thể đánh lừa Perl khai báo nhị phân. Vì vậy, nó không hoàn hảo, nhưng nếu bạn cần tách mã nguồn của bạn khỏi các tệp đã biên dịch hoặc các tệp HTML khỏi PNG, các thử nghiệm này sẽ thực hiện thủ thuật.