ELEKTRO
CHEMIE
PROGRAMOVÁNÍ
FOTKY
BLOG
E-SHOP

Elektro

  • Novinky
  • Aktuality
  • PHP
  • MySQL
  • JavaScript
  • .NET
  • Download
  • Odkazy
  • Anketa
  • Návštěvní kniha
  • Mapa webu
  • O webu
  • RSS

  • © by Hugo moravec.zd@gmail.com

    Stažení komiksu Dilbert

    Úvod

    Na serveru idnes.cz vychází každý den jeden díl komiksu Dilbert. Ruční stahování všech dílů (v současnosti skoro 160) by bylo pracné, proto jsem si napsal několikařádkový skriptík, který během pár minut stáhne všechny díly komiksu a uloží je na disk počítače. Samotný skript je velmi jednoduchý, situaci velmi usnadnil fakt, že URI jednotlivých dílů je stejná a liší se pouze pořadovým číslem.

    Skript

    <?php

    $cfgURL 
    'http://i.idnes.cz/06/033/gal/dilbert_';
    $cfgURLExt '.gif';

    $cfgStart 1// CISLO PRVNIHO DILU
    $cfgEnd 158// CISLO POSLEDNIHO DILU

    for ( $i $cfgStart$i <= $cfgEnd; ++$i )
    {
      
    $num SPrintF'%04d'$i ); // FORMATOVANI CISLA DILU
      
    $filename $cfgURL.$num.$cfgURLExt// SLOZENI URI
      
    $filenameInt $num.'.gif'// NAZEV SOUBORU NA DISKU
      
      
    $fpExt FOpen$filename'rb' );

      
    $contentExt '';
      
      
    // STAZENI OBRAZKU
      
    while ( !FEof$fpExt ) )
      {
        
    $contentExt .= FRead$fpExt100000 );
      }
      
    FClose$fpExt );
      
      
    // ULOZENI OBRAZKU NA DISK
      
    $fpInt FOpen$filenameInt'w' );
      
    FWrite$fpInt$contentExt );
      
    FClose$fpInt );
    }

    ?>