FilesExpand file tree

master

/

udate

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

executable file

·

21 lines (16 loc) · 389 Bytes

master

/

udate

Copy path

Top

File metadata and controls

• Code
• Blame

executable file

·

21 lines (16 loc) · 389 Bytes

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

#!/usr/bin/perl -wl

use POSIX qw(strftime);

my $utc;

if (@ARGV and $ARGV[0] =~ /^-u|--utc$/) {

shift @ARGV;

$utc = 1;

}

my $time = $ARGV[0] || time;

if ($utc) {

print strftime "%a %e %b %H:%M:%S %Y UTC +0000", gmtime($time);

#print scalar gmtime($time);

}

else {

print strftime "%a %e %b %H:%M:%S %Y %Z %z", localtime($time);

#print scalar localtime($time);

}