|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Nikolay Pichtin 2:5056/30 18 Aug 2002 21:55:47
To : Artem Chuprina
Subject : Re: Выделить большее и меньшее
--------------------------------------------------------------------------------
NP>> Есть файл с данными по продаже валюты ( содержимое ниже)
NP>> Поля:
NP>> Банк|Курс покупки USD|Курс продажи USD|Курс покупки Euro|Курс
NP>> продажи Euro Я его обрабатываю и создаю таблицу. Hо ни как не могу
NP>> сделать так, чтобы в колонках покупки выделить самый высокий курс,
NP>> а в колонках продажи самый маленький.
NP>> Вятка-Банк|28,9|29,48|12,0|13,7
NP>> ИМПЭКС|28,95|29,6|12,2|14,0
NP>> ПСБ|28,9|29,6|12,0|13,6
NP>> РОССЕЛЬХОЗБАК|28,88|29,53|-|-
NP>> СБЕРБАК|28,8|29,55|12,4|13,55
NP>> Петрокоммерц|28,9|29,5|12,5|14,0
NP>> ХЛЫОВ|28,85|29,49|-|-
NP>> ДОРТРАСБАК|28,95|29,5|12,55|13,45
NP>> Банк МОСКВЫ|28,95|29,5|-|-
NP>> СВЯЗЬБАК|28,95|29,55|-|-
NP>> USD курс ЦБ|29,43|29,46|-|-
AC> Это тебе не сюда. Это тебе в RU.ALGORITHM.
Чтобы было сюда привожу мой скрипт. :-))
#!/usr/bin/perl
use strict;
use CGI;
use vars qw($url $sec $min $hour $mday $mon $year $wday @months $addpath);
require "setup.date";
use_date();
my $i=0;
my $q = new CGI;
my %ID=('01' => 'USD',
'02' => 'EURO'
);
my ($class, @CUR);
my ($lsec,$lmin,$lhour,$lmday, $lmon,$lyear,$lwday,$lydat,$lisdst) =
localtime((stat("$addpath/currency"))[9]);
$lyear+=1900;
$lmday = sprintf("%.2d",$lmday);
$lmon = sprintf("%.2d",$lmon);
print $q->header(
-'type'=>'text/html',
-'Cache-control'=>'no-cache',
-'Pragma'=>'no-cache',
-'charset'=>'windows-1251',
-'expires'=>'-3y',
-'status'=>'200 Ok');
print qq~
<link rel="stylesheet" type="text/css" href="../cur.css">
<table class="tab">
<caption class="cap">Курс валют в вятских банках на $lmday $months[$lmon]
$lyear года</caption>
<tr class="head">
<td>Банк</td><td>Покупка $ID{'01'}</td><td>Продажа $ID{'01'}</td><td>Покупка
$ID{'02'}</td><td>Продажа $ID{'02'}</td>
</tr>
~;
open (FILE,"$addpath/currency") or die $!;
while (<FILE>) {
chomp;
my $str = $_;
if (defined $str) {
my (@dat) = split(/\|/,$str);
print qq~ <tr>\n~;
for ($i=0;$i<=$#dat;$i++) {
if (!$dat[$i]) { $dat[$i] = "--" }
if ($i == 0) { $class="class=bk" }
else { $class="class=val" }
print qq~ <td $class>$dat[$i]</td>~;
}
print qq~\n </tr>\n~;
}
}
close FILE;
print qq~</table>\n~;
exit;
####################
* Программист ушел на базу
-- Hиколай
----------------------------------------------------------------------
---
* Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
