#!/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, ''.$_.'';
    }
}

print <<"END_HTML"



$words[int(rand($#words))]


@output


END_HTML