这是我的代码:
#!/usr/bin/perl -w
use Crypt::CBC;
my $scriptkey = qx(cat /tmp/scriptkeyfile);
chomp $scriptkey;
print new Crypt::CBC(-key=>"$scriptkey",-salt=>"my_salt")->encrypt(qx(cat $ARGV[0]));
此脚本仅加密给定文件的第一行。如果我将加密更改为解密,它只会解密给定文件的一行。如何改变这一点,加密整个文件。