perl - perl中如何将char字符串转换为十六进制

Question

我读了这篇文章： 如何在 perl 中将十六进制转换为字符字符串 以将十六进制转换为图表字符串。

如何进行反向操作？我需要在 perl 中将 char 字符串转换为十六进制。例如，我有字符串“ hello world！ ”，我必须得到：

00680065006C006C006F00200077006F0072006C00640021

标签： perl

Answer 1

这是另一种方法。使用正则表达式一次性完成所有操作。

my $string = 'hello world!';
$string =~ s/(.)/sprintf '%04x', ord $1/seg;