#!/usr/bin/perl
#===============================================================================
#
#         FILE:  yandex-speeder.pl
#
#        USAGE:  ./yandex-speeder.pl файл_с_текстом файл_со_ссылками
#
#  DESCRIPTION:  Генератор "бредосайта" - сайта со случайным тестом,
#                наполненного ссылками (забивается в аддурилку Яндексу).
#
#       AUTHOR:  Dimio (www.dimio.org), dimio@dimio.org
#      VERSION:  1.0
#===============================================================================
use strict;
use warnings;
use utf8;

my $get_input_data = sub {
    my $input_file_name = shift;
    open my $input_fh, '<', $input_file_name
        or die "Can't open $input_file_name : $!\n";
    return <$input_fh>;
};

my @urls  = $get_input_data->($ARGV[1]);
my @words = map { split /\s/ } $get_input_data->($ARGV[0]);
my @output;
my $i;
my $limit = $#words/$#urls;
foreach (@words) {
    $i++;
    if ($i < $limit) {
        push @output, $_;
    }
    else {
        $i = 0;
        push @output, '<a href="'.shift (@urls).'">'.$_.'</a>';
    }
}

print <<"END_HTML"
<HTML>
<HEAD>
<meta charset="utf-8" />
<title>$words[int(rand($#words))]</title>
</HEAD>
<BODY>
@output
</BODY>
</HTML>
END_HTML