Keskustelu: Koodit: PHP: Tiedoston tulostus heksamuodossa

<?php
//******************************************************
//* Skripti näyttää tiedoston heksaeditorin tavoin.    *
//* Tekijä: Antti Laaksonen (antti.laaksonen@mbnet.fi) *
//******************************************************

//dokumentin tyyppi on tavallinen teksti
header ("Content-type: text/plain");

//luettava tiedosto
$tiedosto = "ln2.png";
//tavujen (heksat ja merkit) määrä yhdellä rivillä
$tavujarivillä = 16;
//tiedoston kohtaa osoittavan rivin pituus (tarvittaessa etunollia)
$kohdanpituus = 8;

//avataan tiedosto ja haetaan sen koko
$d = fopen($tiedosto, "r");
$koko = filesize($tiedosto);

//näytetään tiedoston nimi ja koko
echo "$tiedosto ($koko tavua)\n\n";

//kohtalaskurin alustus
$kohta = 0;

//luetaan tiedostoa sen loppuun saakka
while (!feof($d)) {
   //luetaan seuraavat tavut muuttujaan
   $tavut = fread($d, $tavujarivillä);

   //tyhjennetään rivi
   $heksat = "";
   $merkit = "";

   //muodostetaan kohtarivi
   $kohtat = substr(str_repeat("0", $kohdanpituus) . strtoupper(dechex($kohta)), -$kohdanpituus);

   //käydään kaikki tavut läpi
   for ($i=0; $i < $tavujarivillä; $i++) {
      //jos ei olla tiedoston lopussa...
      if ($kohta + $i < $koko) {
         //luetaan yksittäinen merkki ja muodostetaan siitä heksadesimaali
         $merkki = substr($tavut, $i, 1);
         $heksa = substr(strtoupper("0".dechex(ord($merkki))), -2);

         //lisätään heksa riville
         $heksat .= $heksa;
         //joka toisen numeron jälkeen tulee välilyönti
         if ($i % 2 == 1) {$heksat .= " ";}

         //jos merkki on tavallisen merkistön ulkopuolella, se näytetään pisteenä
         if (ord($merkki) < 32 || ord($merkki) > 127){$merkki = "."; }
         //lisätään merkki riville
         $merkit = $merkit . $merkki;
      //muussa tapauksessa jatketaan riviä tyhjällä
      } else {
         $heksat .= "  ";
         if ($i % 2 == 1) {$heksat .= " ";}
      }
   }
   echo "$kohtat  $heksat $merkit\n";
   $kohta = $kohta + $tavujarivillä;
}

//suljetaan tiedosto
fclose($d);

?>