[Cascavel-pm] localtime

[igor em izut.com]

Uma pequena correção no código, deve-se usar:

print "Próxima renovação será em: " . (scalar localtime($ctime + $1)) . "\n";

Isto devolverá uma string formatada de acordo com o seu locale (similar ao que o
comando 'date' do Linux devolve). Para maiores informações, perldoc -f
localtime, na parte que diz 'In scalar context...'. Para informações aos
contextos, alguém me ajude pois não lembro :)

> <code>
> my $filename = '/var/lib/dhcpcd/dhcpcd-eth0.info';
> my $ctime = (stat $filename)[10];
>
> open my $fh, "<", $filename or die $!;
> my @filelines = <$fh>;
> close $fh;
>
> foreach (@filelines) {
>     if (/^RENEWALTIME=(.*)$/) {
>         print "Próxima renovação será em: " . localtime($ctime + $1) . "\n";
>     }
> }
> </code>

Igor.

----------------------------------------------------------------
This message was sent using IMP, the Internet Messaging Program.