Try this to encode your file. Decoding I beleive you can do.
open (FILE, "C:\\perl\\original\.txt" ) or die ;
open (FILE1,">C:\\perl\\converted\.txt") or die ;
while (<FILE>) {
@ascii = unpack("C*", $_);
foreach $val (@ascii) {
$val++;
}
$_ = pack("C*", @ascii);
print FILE1;
}
close(FILE);
close(FILE1);
regards
Rajendran
Burlingame,CA
----- Original Message -----
From: "NYIMI Jose (BMB)" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, September 26, 2002 7:07 AM
Subject: Hide a string while saving it to file
I have a string (ascii).
I would like to apply a rule on it before saving it to a file -> coding ...
And apply the same rule to get the original string while reading from the
file -> decoding ...
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
