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]

Я уже разобрался..........

Perl Найти похожие ветки