aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/System-time/Perl/system-time-1.pl Normal file
View file

@ -0,0 +1 @@
print scalar localtime, "\n";

2
Task/System-time/Perl/system-time-2.pl Normal file
View file

@ -0,0 +1,2 @@
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime;
printf("%04d-%02d-%02d %02d:%02d:%02d\n", $year + 1900, $mon + 1, $mday, $hour, $min, $sec

5
Task/System-time/Perl/system-time-3.pl Normal file
View file

@ -0,0 +1,5 @@
use DateTime;
my $dt = DateTime->now;
my $d = $dt->ymd;
my $t = $dt->hms;
print "$d $t\n";

4
Task/System-time/Perl/system-time-4.pl Normal file
View file

@ -0,0 +1,4 @@
use POSIX qw(strftime);
$now_string = strftime "%a %b %e %H:%M:%S %Y", localtime;
print "$now_string\n";

6
Task/System-time/Perl/system-time-5.pl Normal file
View file

@ -0,0 +1,6 @@
use DateTime;
my $dt = DateTime->now;
say $dt->iso8601();
say $dt->year_with_christian_era();
say $dt->year_with_secular_era();
# etc.

1
Task/System-time/Perl/system-time-6.pl Normal file
View file

@ -0,0 +1 @@
print time;