无法在perl中使用cp1256

我有一个简单的计算单词的脚本，它只计算英语单词，没有看到我主要关心的cp-1256编码的阿拉伯语单词。我在用Windows8 以下是该文件的示例：

本1573 3方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方方在各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各各㶟والفكرة والطرح، كان ذلك بين أواخر الخمسينيات وطوال الستينيات ورغم التطور النوعي الفارق الذي أحدثه فيما يتعلق بفكرة التحديث، إلا أن قصصه كانت لصيقة بالحياة ومتقاطعة مع قطاع عظيم من البشر المهمشين، خاصة من خلال مجموعاته القصصية «بيت من لحم» و«لغة الأي آي» و«أرخص ليالي» وقد ولد يوسف إدريس «زي النهارده» من عام 1927 في «البيروم» بمحافظة الشرقية. وليوسف إدريس نحو عشرين مجموعة قصصية وخمس روايات كان منها «الحرام» و«قاع المدينة» «والنداهة» وكانت أعماله القصصية قد ترجمت للكثير من اللغات الأخري ومنها نحو 65 قصة ترجمت للروسية، وكان يوسف إدريس قد كتب للأهرام سلسلة من المقالات التي صدرت مجمعة من كتاب يحمل عنوان «فقر الفكر وفكر الفقر» وكان قد حصل علي جائزة الدولة التشجيعية عام 1966، وقيل إن اسمه كان مدرجاً ضمن المرشحين لجائزة نوبل عام 1988 والتي حظي بها نجيب محفوظ، وكان له في ذلك هجوم شهير. وليوسف إدريس عدد من المسرحيات كان منها «الفرافير» و«المخططين» و«البهلوان» و«اللحظة الحرجة» و«المهزلة الأرضية» و«الجنس الثالث». 正文

---

您应该设置输入流的编码

use open IN => ':encoding(cp1256)';   # For "script file"
binmode STDIN, ':encoding(cp1256)';   # For "script <file"

---

您应该设置输入流的编码

use open IN => ':encoding(cp1256)';   # For "script file"
binmode STDIN, ':encoding(cp1256)';   # For "script <file"

---

只是为了了解情况，我将print语句改为进行排序

foreach $word (sort by_count keys %count) {
printf "%5d \t %s\n", $count{$word}, $word;

---

谢谢

只是为了了解情况，我将打印语句改为进行排序

foreach $word (sort by_count keys %count) {
printf "%5d \t %s\n", $count{$word}, $word;

谢谢

foreach $word (sort by_count keys %count) {
printf "%5d \t %s\n", $count{$word}, $word;