关键词1 关键词101 关键词201 关键词301 关键词401 关键词501 关键词601 关键词701 关键词801 关键词901 关键词1001 关键词1101 关键词1201 关键词1301 关键词1401 关键词1501 关键词1601 关键词1701 关键词1801 关键词1901 懂视1 懂视101 懂视201 懂视301 懂视401 懂视501 懂视601 懂视701 懂视801 懂视901 懂视1001 懂视1101 懂视1201 懂视1301 懂视1401 懂视1501 懂视1601 懂视1701 懂视1801 懂视1901 文库1 文库101 文库201 文库301 文库401 文库501 文库601 文库701 文库801 文库901 文库1001 文库1101 文库1201 文库1301 文库1401 文库1501 文库1601 文库1701 文库1801 文库1901

#!/usr/bin/perl
    open(RFP,"a.txt") || die;
    open(WFP,">test.yuv") || die;

    while(<RFP>) {
        while(/(\w+)/g) {
            $yuv_data = $1;
            $hex_yuv = pack("H*",$yuv_data);
            print WFP $hex_yuv;
        }
    }

$yuv_data = '2b';
$hex_yuv = pack("H*",$yuv_data);