Форум: "Основная";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
ВнизPerl Найти похожие ветки
← →
Alibaba (2002-03-06 18:08) [0]Народ, помогите понять что делает эта програма.
# Шифрация даты для CbCrhbrn
sub to36d ($)
{
my $d = shift;
$S_36 = "0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z";
@S_36= split /\,/, $S_36 ;
if( $d < 0 || $d > 35 )
{return 0 } else {return $S_36[$d] } ;
} ;
sub GetYear ($)
{
my $y = shift;
return int(substr($y,2,2)) ;
} ;
sub GetMonth ($)
{
my $y = shift;
return substr($y,4,2);
} ;
sub GetDay ($)
{
my $y = shift;
return substr($y,6,2) ;
} ;
sub DoubleDate {
my $d1 = shift ;
my $d2 = shift ;
return GetYear($d2).to36d(GetMonth($d2)).to36d(GetDay($d2)).GetYear($d1).to36d(GetMonth($d1)).to36d(GetDay($d1)) ;
} ;
# print DoubleDate(20010117,20010220) ;
sub f_name # процедура для имени выходного файла
{
my ($ADR,$NMB,$DAT) = (shift,shift,shift);
if ($NMB < 10 ) {$NMB = "0".$NMB } ;
$yy = substr($DAT,3,1) ;
$mm = substr($DAT,4,2) ;
$dd = substr($DAT,6,2) ;
if ($mm eq "10" ) {$mm = "a"} ;
if ($mm eq "11" ) {$mm = "b"} ;
if ($mm eq "12" ) {$mm = "c"} ;
$p_name = "p_".$ADR.$NMB.$yy.".".$mm.$dd ;#получаем имя выходного файла
return $p_name ;
} ;
1
### $f_name = $OUTPUT_DIR."\\".DoubleDate($DSTAT_DATE,$DSTAT_DATE)."\\".$PARAM_NAME."_0_0_1000\\".$Vrm."_".$Agen."_".$BegMfo.".".$BegDir.".html";
Если кто-то на Delphi - напишет тоже - моя благодарность безгранична!!
← →
Alibaba (2002-03-06 18:49) [1]Я уже разобрался..........
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c