- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
sub dopprobelz # функция дополнения строки нулями вначале
{
my($str)=@_[0];
my($len)=@_[1]; my $delta=$len-length($str);
my $hwost='';
for (my($a)=0; $a<$delta; $a++) {$hwost=$hwost.'0';};
$str=$hwost.$str; return $str;
};
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time());
$RequestN=(1900+$year).dopprobelz($mon, 2);
$RequestN=$RequestN.dopprobelz($mday, 2).dopprobelz($hour, 2);
$RequestN=$RequestN.dopprobelz($min, 2).dopprobelz($sec, 2).dopprobelz($sec, 2);
Dummy00001 13.02.2011 19:37 # 0
Анонимус 18.02.2011 01:08 # 0
xaionaro 13.02.2011 19:52 # 0
Мистер Хэнки 13.02.2011 21:05 # 0
7ion 14.02.2011 18:24 # −1
Студенты сейчас везде, да и по вашей логике Windows тогда должна быть супер стабильной системой.
guest12 07.01.2021 22:41 # 0
А из-за таких-вот нескромных вопросов Мистер хенки и съебнул с ГК.