ANTICHAT — форум по информационной безопасности, OSINT и технологиям

my $f;
open FILE ,'file.txt' or die $!;
{
    local $/ = undef;
    $f = <FILE>;
}
close FILE;

#!/usr/bin/perl -w

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;
use Encode qw/encode decode/;

print "content-type: text/html \n\n";
my $query = $ENV{QUERY_STRING};
my $ua = LWP::UserAgent->new;
my ($req, $res, $content, $OUT);
my $url = 'http://site/cgi-bin/trstat.pl';
my $post=$ENV{'QUERY_STRING'};
open my $FILE, '<', '/inetpub/wwwroot/cl/clients.txt' or die "Open error: $!\n";
my @f = <$FILE>;
chomp @f;
close $FILE;

foreach my $name(@f) {
  $req = HTTP::Request->new (GET => $url . "?code=$name&month" .$post);
  $req->content_type ('text/html');
  $res = $ua->request ($req);
  die "Can't get url $url: " . $res->status_line . "\n" unless $res->is_success;
  $content = $res->content;
  open $OUT, '>','/inetpub/wwwroot/cl/res/' . $name.''.$post. '.txt';
  print $OUT decode('KOI8-U',$content);
  close $OUT;
  }
  print "Все готово,чтобы посмотреть отчеты нажмите  <a href=http://192.168.100.211/cl/res/>сюда</a>";

$ perl -e '@a = ('a'..'z');print @a,"\n"'
abcdefghijklmnopqrstuvwxyz
$

use IO::Socket;