用perl交换两个字节
提问于 2014-05-18 17:38:56
我试图在一个文件中一次交换两个字节。所以我想我可以一次读两个字节，然后用相反的方式来切换字节。但是，我不知道如何在perl中一次读取两个字节。有人能提个建议吗？
回答 2
Stack Overflow用户
回答已采纳
发布于 2014-05-18 19:31:02
一次读取两个字节是非常低效率的。您应该继续一次读取较大的块，并在缓冲区中处理字节。
$buf =~ s/(.)(.)/$2$1/sg;或
$buf = pack 'S<*, unpack 'S>*', $buf;Stack Overflow用户
发布于 2014-05-18 17:46:47
使用" read“(http://perldoc.perl.org/functions/read.html)读取和传递长度参数"2”以读取数据的2个字节(默认情况下)。
出于性能原因，如果您有一个大文件，您可能需要考虑一次读取更多(或者全部)文件，而不是调用read (以字节表示的文件大小)/2。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/23728612
复制
腾讯云开发者
