perl如何提取字符型或或整形变量?

oukm

一个文件我二进制方式,打开后作处理,再写回去.可不知道如何将一个流中提取出一个个的字符型或整形变量.

比如:
open(INPUT_FILE, "a.jpg") || die "Can not open file $infile !";
open(OUT_FILE, "b.jpg")  || die "Can not open file $outfile !";

binmode INPUT_FILE;
binmode OUT_FILE;

while(read(INPUT_FILE, $buf, 32*32*1024))
{
        $dat .= $buf;
}

如何从$dat中提取出一个字符?

jason680

回复 1# oukm

$ perldoc -f substr
   

oukm

jason680 发表于 2013-09-18 13:50
回复 1# oukm

$ perldoc -f substr

perldoc -f  没有看懂!
我的要编写的是文件加密,每读一字节就异或一个字节密码,所有文件处理完以后,再写入一个新文件!

qq27898

2楼的意思是可以用substr截取字符串，如果对于substr不知道怎么用，可以查阅文档，

直接输入命令 perldoc -f substr就行了，试试看

oukm

感谢2楼4楼提示,程序我写出来了如下,不过我觉得通过"非ASCII码字符串"方式处理似乎不是一中正规的入理方法,不知道正规处理方法是什么?

$infile = "_SC_0011.JPG";
$outfile = ">ct.txt";
open(INPUT, $infile) || die "Can not open $infile";
open(OUTPUT, $outfile) || die "Can not open $outfile";

binmode(INPUT);
binmode(OUTPUT);


$txt = "";
while(read(INPUT, $buf, 100*1024))
{
        $txt .= $buf;
}
$len = length($txt);

$c="a";
print "len=$len\n";
#print "txt=$txt\n";

for($i = 0; $i<$len; $i++)
{
        substr($txt, $i, 1)= (substr($txt, $i, 1) ^ $c);
        #print "2.txt=$txt\n";
}

print OUTPUT $txt;

close(INPUT);
close(OUTPUT);