I want to take a list of files and encode them to the __DATA__ section, and then extract them back to their different files. I think I've started right, but I'm not sure. I cannot do a simple copy file to move them because the purpose is to get them to multiple remote machines.
sub files_to_data{
print TRVUP "__DATA__\n";
foreach (@filelist){
my $currfile = "$ROOT\\$_\.txt";
open FILE, $currfile or die "$currfile: $!";
while(<FILE>){
print TRVUP encode_base64($_);
}
}
}
That's all I have for this section. It appears to write the encoded info to the new file (TRVUP), but I don't know what I need to add to TRVUP to decode the files and create the separate new files on the remote machine. Any hel would be appreciated.
sub files_to_data{
print TRVUP "__DATA__\n";
foreach (@filelist){
my $currfile = "$ROOT\\$_\.txt";
open FILE, $currfile or die "$currfile: $!";
while(<FILE>){
print TRVUP encode_base64($_);
}
}
}
That's all I have for this section. It appears to write the encoded info to the new file (TRVUP), but I don't know what I need to add to TRVUP to decode the files and create the separate new files on the remote machine. Any hel would be appreciated.