6000 Fonts

|
Script for downloading 6000 free windows fonts. Read on to see the script.
#!/usr/bin/perl
# tested on WindowsXP
# perl  v5.8.3

use strict;
use warnings;
use LWP::Simple;
use HTML::TokeParser;

use constant BASE => 'http://www.typenow.net/';

my @alphabet = ('b'..'z');

  for ( @alphabet )
    {
      my $alpha = $_;
      my $html = get(BASE . $alpha . '.htm');
      print BASE . $alpha . '.htm' . "\n";
      my $page = HTML::TokeParser->new(\$html);
     
        while (my $token = $page->get_tag("a")) 
           {
            my $url = $token->[1]{href} || "-";
            my $file = $url;
            $file =~ s/^.+\///;
            
              if ($url =~ /zip$/i)
                {  
                  print  "\t Saving" . BASE . $url  . qq` as $file \n`;
                  getstore( BASE . $url,$file) || die $!;
                }                
     }
  }
  

About this Entry

This page contains a single entry by Will published on June 25, 2004 12:57 PM.

S.I. Swimsuit Issue was the previous entry in this blog.

Wimbledon 2004 is the next entry in this blog.

Find recent content on the main index or look in the archives to find all content.

Powered by Movable Type 4.01
Support this site by opening up a hosting account with site5.com
Powered By Site5.com