如何使用 Perl 在文件中查找扩展 ASCII 字符？

Question

如何使用 Perl 在文件中查找扩展 ASCII 字符？ 谁能拿到剧本吗？

.....提前致谢.....

Answer 1

由于扩展的 ASCII 字符具有值 128 及更高，您只需调用 ord 单个字符并处理那些值 >= 128 的字符。以下代码从 stdin 读取并仅打印扩展 ASCII 字符：

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

或者，解压 与 chr< /a> 也可以工作。 示例：（

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

我确信某些 Perl 大师可以将这两者压缩为两个单行代码...）

---

要打印行号，您可以使用以下内容（这不会删除重复项，并且在使用 unicode 时会出现奇怪的行为已通过）：（

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

感谢 Yaakov Belch 提供的 $. 提示。）

Answer 2

第一个可打印 ASCII 字符是空格 (32)。 最后一个可打印的 ASCII 字符是 ~ (126)。 所以我可能会使用，

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

尽管不可否认，它也会显示包含控制字符和扩展 ASCII 的行。

编辑：更改为打印行号而不是行本身。

Answer 3

Oneliner：

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

适用于较旧的 Perl 版本

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

Answer 4

一个关键的问题是是否

使用字节；

pragma 应该有效。 海报应该决定这一点。 要选取代码大于 127 的字符，以下内容就足够了：

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

或

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

Answer 5

Hynek -Pichi- Vychodil 的回答：

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

只测试非打印的有限部分，大概应该是

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

相反。

Answer 6

grep 怎么样？

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