Here is one script I used to inspect files
use strict;
my $fn;
print"Enter the name of a file you want to examine ";
while (<>) {
$fn = $_;
last if $fn;
}
print "Opening $fn\n";
open TF, "$fn" or die "Cannot open $fn:$!\n";
my @ov;
my $ov;
while (<TF>) {
@ov = unpack('U*',$_);
print;
print"\t\t";
foreach $ov (@ov) {
print"-$ov-";
}
print "\n";
}
close TF;
HTH
"Ramis" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> Friends,
> how read a file one by one symbols, not a whole string once at time?
> Thanks.
> --
> -----------!
> My blessing!
> Ramis. !
> -----------!
>
> http://www.samtan.fromru.com
> mailto: [EMAIL PROTECTED]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
