Come posso trovare caratteri ASCII estesi in un file usando Perl?

Question

Come posso trovare caratteri ASCII estesi in un file usando Perl? Qualcuno può ottenere la sceneggiatura?

..... grazie in anticipo .....

Answer 1

Dal momento che i lunghi ASCII personaggi hanno valore 128 and higher, si può chiamare ord sui singoli personaggi e gestire quelli con un valore> = 128. La seguente codice legge dallo standard input e stampa solo i caratteri ASCII estesi:

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

In alternativa, unpack insieme chr sarà anche funzionare. Esempio:

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

(Sono sicuro che alcuni Perl guru può condensare entrambe queste due battute ...)

---

Per stampare i numeri di riga, invece, è possibile utilizzare il seguente (questo non rimuovere i duplicati, ed avrà un comportamento strano quando viene passata unicode):

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

(. Grazie Yaakov Belch per la punta $.)

Answer 2

Il primo carattere ASCII stampabile è space (32). L'ultimo carattere ASCII stampabile è ~ (126). Quindi probabilmente sarei uso

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

anche se sarà, certamente, anche visualizzare le righe che contengono caratteri di controllo così come ASCII esteso.

Modifica: Modificato per stampare il numero di riga anziché la linea stessa.

Answer 3

Oneliner:

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

per le versioni più vecchie di perl

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

Answer 4

Una questione cruciale è se i

uso di byte;

pragma dovrebbe essere in vigore. Il poster dovrebbe decidere che. Per scegliere caratteri con codici superiori a 127, il seguente sarà sufficiente:

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

o

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

risposta

Answer 5

Hynek -Pichi- di Vychodil:

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

tests solo una parte limitata della non-stampa dovrebbe presumibilmente essere

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

invece.

Answer 6

Che dire di grep?

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