Клубове

Помогнете

3 отговора 209 прегледа
A3 #1

Помогнете

Надявам се да ми простите за ламерския въпрос, ама като немога какво да направя.
Трябва ми под Perl да присвоя системната дата и системното време на две променливи пр. $Data и $Time за да мога да ги запиша в БД.



Простете ми невежеството, но се надявам да помогнете
Предварително БЛАГОДАРЯ.

Отговор
martyr в отговор на A3 #2

Re: Помогнете

Ето хелп за вградените
perldoc -f localtime
perldoc -f time
А аз ползвам и :
perldoc Time::Local

Отговор
vfork в отговор на A3 #3

Re: Помогнете

Verno, che e po-lesno s moduli (Time::Local), no ne vinagi e nuzno da se izpolzvat:

my ($Time, $Date);
my $now = scalar localtime;
$now =~ m#\w+\s+(\w+\s+\d+\s+)((\d+:){2}\d{2})\s+(\d{4})$#;
$Time = $1.$4;
$Date = $2;

Отговор
vfork в отговор на vfork #4

Re: Помогнете

Logicheska greshka - pravilno e:

$Date = $1.$4;
$Time = $2;

Отговор
Отговор в темата