[ASK] Cara nulis file di Perl?

[Permenkaret]

Saya lagi iseng2 bikin script enkripsi sederhana di Perl




Code:

use MIME::Base64;

$myfile = $ARGV[0];

open FILE, $myfile or die $!;

while (){
$content .= $_;
}
close FILE;

$content = encode_base64($content);
$content = "saya" . $content . "ganteng";
$content = encode_base64($content);

$myfile =~ s/.txt/.b64/g;

open OUTFILE, >> $myfile or die $!;
print OUTFILE $content;
close OUTFILE;

Idenya begini:

1. baca isi file, lalu hasilnya di-base64

2. string hasil base64 ini ditambahkan string "saya" didepan dan "ganteng" dibelakang

3. lalu di-base64 lagi



Nah waktu script saya jalankan, ada error:


Quote:





No such file or directory at encrypt.pl line 18.





Itu kenapa ya? Apa saya saya menulis file yg belum benar?

</div>