пых пых

[_kleptos_]

Разгребая авгиевы конюшни.

Comments

[drumrock]

И про лимиты человек не знает :-)

[_kleptos_]

Лимиты?

Яб может и понял о чём ты говоришь. Но я честно признаюсь: я боюсь такого кода, он просто повергает меня в шок и уныние, я даже до конца непонимаю что там делаеться.

[drumrock]

Я про функции mysql_fetchone() и mysql_fetchall(). Вот, что человеку мешало написать нормальные SQL-запросы, в которых бы просто стояло LIMIT 0,1 или не стояло? Например. Уже не говоря о том, что можно было бы сузить область поиска как-нибудь.

[_kleptos_]

Цбр в выходные не устанавливает новый курс.
Поэтому как я понял, он не заполняет пустые дни в базе значениями из предыдущих дней и если ничего за сегодняшний день не получил, то смотрит за предыдущий.

Я сейчас перереализовываю это функционал, потмоу-что что-то сломал :)
Решил сделать olap с забивкой всех дат и разделить апдейт стоксов от выборки, пофиг на оверхед, зато просто и быстро.

[hichnik]

сочувствую :-)

#!/usr/bin/perl -w
use strict;

use LWP::UserAgent;
require HTTP::Request;
require HTTP::Response;

my $ua = new LWP::UserAgent;
$ua->agent("Mozilla/5.0 (Windows 2003b)");

sub get_data {
my $staturl = $_[0];
my $request; my $response;
my $url = $staturl;
$request = HTTP::Request->new('GET' => $url);
$response = $ua->request($request);
return $response->content;
}

sub header {return "Content-type: text/html; charset=windows-1251\npragma: no-cache\n\n"}

my ($url,$data);
$url = 'http://your_hostname';

$data = get_data($url);
$data =~ /(что нужно выцепить)/;
$data = (defined $1)? $1 : 'no data';
print &header;
print $data;

я вот пользую такую заготовку для цепляния данных из веба :-)

[_kleptos_]

а почему не libwww?

[hichnik]

LWP::UserAgent - это и есть libwww

[_kleptos_]

сорри туплю.
глаз зацепился за sub header и всё.