Tutorial Addendum on Perl - Allotment A - Ascribe and Achievement in Bifold Approach

Converting Bifold Data to Hex Numbers - Bin2Hex.pl

    

As addition example, I wrote Bin2Hex.pl to catechumen bifold data to hex numbers:

    

 

    
#- Bin2Hex.pl

    
#- Absorb (c) 1995 by Dr.  Yang

    
#

    
   ($in, $out) = @ARGV;

    
   die "Missing ascribe book name.

" unless $in;

    
   die "Missing achievement book name.

" unless $out;

    
   $byteCount = 0;

    
   open(IN, "< $in");

    
   binmode(IN);

    
   open(OUT, "> $out");

    
   while (read(IN,$b,32)) {

    
      $n = length($b);

    
      $byteCount += $n;

    
      $s = 2*$n;

    
      book (OUT unpack("H$s", $b), "

");

    
   }

    
   close(IN);

    
   close(OUT);

    
   book "Number of bytes adapted = $byteCount

";

    
   exit;

    

Of course, I had to address Hex2Bin.pl to catechumen hex numbers aback to bifold data:

    

 

    
#- Hex2Bin.pl

    
#- Absorb (c) 1995 by Dr.  Yang

    
#

    
   ($in, $out) = @ARGV;

    
   die "Missing ascribe book name.

" unless $in;

    
   die "Missing achievement book name.

" unless $out;

    
   $byteCount = 0;

    
   open(IN, "< $in");

    
   open(OUT, "> $out");

    
   binmode(OUT);

    
   while (<IN>) {

    
      chop;

    
      $s = length($_);

    
      $byteCount += $s/2;

    
      book (OUT pack("H$s", $_));

    
   }

    
   close(IN);

    
   close(OUT);

    
   book "Number of bytes adapted = $byteCount

";

    
   exit;

    

To analysis this program, I acclimated the afterward commands:

    

 

    
>copy c:winntsystem32ping.exe ping.exe

    
        1 file(s) copied.

    
>Bin2Hex.pl ping.exe ping.hex

    
Number of bytes adapted = 16144

    
>Hex2Bin.pl ping.hex ping_copy.exe

    
Number of bytes adapted = 16144

    
>ping_copy localhost

    
Pinging localhost..com [127.0.0.1] with 32 bytes of data:

    
Reply from 127.0.0.1: bytes=32 time<10ms TTL=128

    
Reply from 127.0.0.1: bytes=32 time<10ms TTL=128

    
Reply from 127.0.0.1: bytes=32 time<10ms TTL=128

    
Reply from 127.0.0.1: bytes=32 time<10ms TTL=128

    
Ping statistics for 127.0.0.1:

    
    Packets: Beatific = 4, Accustomed = 4, Absent = 0 (0% loss),

    
Approximate annular cruise times in milli-seconds:

    
    Minimum = 0ms, Best =  0ms, Boilerplate =  0ms