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

September Morn Update

Browse source
This commit is contained in:
Ingy döt Net 2019-09-12 10:33:56 -07:00
parent 4e2d22a71d
commit aac6731f2c
6856 changed files with 141342 additions and 21127 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/File-modification-time/Perl-6/file-modification-time.pl6
View file

@ -13,7 +13,7 @@ class utimbuf is repr('CStruct') {
sub sysutime(Str, utimbuf --> int32) is native is symbol('utime') {*}
sub MAIN (Str $file) {
my $mtime = $file.IO.modified // die "Can't stat $file: $!";
my $mtime = $file.IO.modified orelse .die;
my $ubuff = utimbuf.new(:atime(time),:mtime($mtime));

7
Task/File-modification-time/Phix/file-modification-time.phix Normal file
View file

@ -0,0 +1,7 @@
constant filename = "test.txt"
?get_file_date(filename)
include timedate.e
?format_timedate(get_file_date(filename))
bool res = set_file_date(filename)
?format_timedate(get_file_date(filename))