Làm cách nào để tìm các ký tự ASCII mở rộng trong một tệp bằng Perl?

Question

Làm cách nào để tìm các ký tự ASCII mở rộng trong một tệp bằng Perl? Bất cứ ai có thể nhận được kịch bản?

..... cảm ơn trước .....

Answer 1

Kể từ khi ASCII ký tự mở rộng có giá trị 128 and higher, bạn chỉ có thể gọi ord về đặc điểm cá nhân và xử lý những người có một giá trị> = 128. Sau đây đang đọc từ stdin và in chỉ các ký tự ASCII mở rộng:

while (<>) { 
    while (/(.)/g) { 
    print($1) if (ord($1) >= 128); 
    } 
} 

Ngoài ra, cùng với unpackchr cũng sẽ làm việc. Ví dụ:

while (<>) { 
    foreach (unpack("C*", $_)) { 
    print(chr($_)) if ($_ >= 128); 
    } 
} 

(Tôi chắc chắn một số guru Perl có thể ngưng tụ cả hai đến hai một lớp lót ...)

---

Để in số dòng thay vào đó, bạn có thể sử dụng sau đây (điều này không loại bỏ bản sao, và sẽ có hành vi kỳ quặc khi unicode được truyền):

while (<>) { 
    while (/(.)/g) { 
    print($. . "\n") if (ord($1) >= 128); 
    } 
} 

(. Cảm ơn Yaakov Belch cho $. tip)

Answer 2

Ký tự ASCII có thể in đầu tiên là space (32). Ký tự ASCII có thể in lần cuối là ~ (126). Vì vậy, tôi có thể sử dụng

while (<>) { 
    print "$.\n" if /[^ -~]/; 
} 

mặc dù nó sẽ thừa nhận, cũng hiển thị các dòng chứa ký tự điều khiển cũng như ASCII mở rộng.

Chỉnh sửa: Thay đổi để in số dòng chứ không phải chính dòng đó.

Answer 3

oneliner:

perl -nE'say$.if/[\xE0-\xFF]/' 

cho các phiên bản perl cũ

perl -lne'print$.if/[\xE0-\xFF]/' 

Answer 4

Một câu hỏi quan trọng là liệu các byte sử dụng

;

pragma sẽ có hiệu lực. Người áp phích nên quyết định điều đó. Để chọn ký tự với các mã lớn hơn 127, sau đây là đủ:

print grep 127 < ord, split // while <>; 

hoặc

print grep /[^[:ascii:]]/, split // while <>; 

Answer 5

Hynek -Pichi- Vychodil của câu trả lời:

perl -nE'say$.if/[\xE0-\xFF]/' 

chỉ kiểm tra một phần hạn chế không in được có lẽ là

Thay vào đó,

.

Answer 6

Còn grep thì sao?

grep [\x00-\x1F\x7F-\xFF]+ *