如何在perl脚本中读取货币符号

0s0u357o  于 2022-11-15  发布在  Perl
关注(0)|答案(1)|浏览(173)

我有一个Perl脚本,我们从一个.csv文件中阅读数据,该文件具有一些不同的货币符号。

Get <A3>50 or <80>50 daily

实际值为

Get £50 or €50 daily

与美元标志,它是工作罚款,如果有任何其他货币代码,它是不工作的
我试过了
第一次
od -t x1输出文件名0000000 47 65 74 20 a3 35 30 20 6 f 72 20 5c 78 7 b 32 30 0000020 61 63 7 d 35 30 20 64 61 69 6c 79 0a 0000034
但这也没有帮助。我得到的输出
第一个

km0tfn4u

km0tfn4u1#

| Unicode码位|字形|UTF-8编码格式|输入档案|国际标准化组织|输出档案|
| - -|- -|- -|- -|- -|- -|
| U+00 A3磅符号|英镑|C2 A3| C2 A3| A3页|A3页|
| U+20 AC欧元符号|欧元|E2 82交流电|E2 82交流电|不适用|5C 78 7B 32 30 61 63 7D|
(“LATIN 1”是“ISO-8859-1”的别名。)
输入文件没有问题。

  • £在输入文件中编码正确。
  • 在输入文件中编码正确。

至于输出文件,

  • £已在输出文件中正确编码。
  • latin1 charset中找不到,因此改用\x{20ac}

您的程序按预期运行。
您说您看到的是<A3>而不是£,这可能是因为您使用的程序需要使用UTF-8编码的文件,但您提供的是使用ISO-8859-1编码的文件。
您还说您看到的是<80>而不是。但您提供的文件不可能看到这一点。

相关问题