Server IP : 192.168.23.10 / Your IP : 216.73.216.168
Web Server : Apache
System : Linux echo.premieradvertising.com 5.14.0-362.8.1.el9_3.x86_64 #1 SMP PREEMPT_DYNAMIC Tue Nov 7 14:54:22 EST 2023 x86_64
User : rrrallyteam ( 1049)
PHP Version : 8.1.34
Disable Function : exec,passthru,shell_exec,system
MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF
Directory (0755) : /home/../usr/share/doc/file-libs/../postgresql/../libmnl/../perl-constant/eg/

[ Home ]	[ C0mmand ]	[ Upload File ]

Current File : /home/../usr/share/doc/file-libs/../postgresql/../libmnl/../perl-constant/eg/synopsis.pl

#!/usr/bin/perl
# 
# Straight from the synopsis.
#
use strict;

use constant PI    => 4 * atan2(1, 1);
use constant DEBUG => 0;

print "Pi equals ", PI, "...\n" if DEBUG;

use constant {
    SEC   => 0,
    MIN   => 1, 
    HOUR  => 2,
    MDAY  => 3,
    MON   => 4,
    YEAR  => 5,
    WDAY  => 6,
    YDAY  => 7,
    ISDST => 8,
};

use constant WEEKDAYS => qw(
    Sunday Monday Tuesday Wednesday Thursday Friday Saturday
);

print "Today is ", (WEEKDAYS)[ (localtime)[WDAY] ], ".\n";