Unix / SAS上的文件修改日期 [英] File modification date on Unix/SAS
问题描述
下面是DATA SET步骤的幌子。
我从一个共同的前缀开始的目录中获取文件。
为了这个调试程序,假设前缀为'test'。
所以我们得到了如test_abc.txt,test_123.txt等文件。
做是提取每个文件的最后修改时间。
由于我在Unix系统下,我使用以下foo pipels -o -g --full-time ...来获取我们感兴趣的时间。
在work.tempo中,我希望得到一个名称为filename(vname)和相应的修改日期(mod_datec)的表。
< %a universe(目录,国名,前缀);
data work.tempo;
长度vname $ 256;
rc = dopen(& directory);
vmax = dnum(rc);
select(& countryname);
当(法国)
做;
do i = 1 to vmax;
vname = dread(rc,i);
如果vname =:&前缀。
然后做;
filename foo pipels -g -o --full-time〜/& prefix。*;
data _null_;
infile foo;
input @ 15 mod_date $ 11;
如果mod_date =则停止;
mod_datec = scan(mod_date,1, - )
|| scan(mod_date,2, - )
|| scan(mod_date,3, - );
put mod_datec =;
运行;
/ *我想从这里输出mod_datec到work.tempo * /
end;
结束
结束
否则;
结束
rc = dclose(rc);
运行;
%mend;
%宇宙(地球,法国,测试);
我已经复制了OP的答案(这是错误的嵌入问题):
我已经解决了这一个。以下是代码
%macro universe();
filename
foo pipe
ls -g -o -G -l - 空时测试* | awk'{print $ 4,$ 5,$ 7}
data mod_date(keep = vname vdate);
infile foo;
input @ 1 mod_date $ 10。
@ 12希望$ 8。
@ 92 vname $ 18;
mod_datec = scan(mod_date,1, - )
|| scan(mod_date,2, - )
|| scan(mod_date,3, );
heuresc = scan(heures,1,:)
|| scan(heures,2,:)
|| scan(heures,3,:);
vdate = strip(mod_datec)|| strip(heuresc);
运行;
%修补宇宙;
%universe();
Voilà,我终于提取了文件名和相应的最后修改日期。我希望对任何人也是有用的。
Below is the guise of the DATA SET step. I got files in a directory which start with a common prefix.
For the sake of this debugging program, let's say the prefix is 'test'.
So we got files like test_abc.txt, test_123.txt and so on.
What we want to do is to extract the last modified time of each file. Since I am under Unix system, I use the following "foo pipe 'ls -o -g --full-time ...'" to get the time which we are interested in.
In work.tempo, I wish to get a table with a list of filename(vname) and the corresponding modification date (mod_datec).
Voilà le souci, je vous remercie!
%macro universe(directory, countryname, prefix);
data work.tempo;
length vname $256.;
rc = dopen(&directory);
vmax = dnum(rc);
select("&countryname");
when ("France")
do;
do i = 1 to vmax;
vname = dread(rc,i);
if vname=:"&prefix."
then do;
filename foo pipe "ls -g -o --full-time ~/&prefix.*";
data _null_;
infile foo;
input @15 mod_date $11.;
if mod_date=" " then stop;
mod_datec = scan(mod_date,1,"-")
||scan(mod_date,2,"-")
||scan(mod_date,3,"-");
put mod_datec= ;
run;
/*I want to output mod_datec to work.tempo from here*/
end;
end;
end;
otherwise;
end;
rc = dclose(rc);
run;
%mend;
%universe(Earth, France, test);
I've copied the OP's answer (which is incorrectly embedded in the question):
I've resolved this one. Below is the code
%macro universe(); filename foo pipe "ls -g -o -G -l --full-time test* | awk '{print $4, $5, $7}'"; data mod_date (keep = vname vdate); infile foo; input @1 mod_date $10. @12 heures $8. @92 vname $18.; mod_datec = scan(mod_date,1,"-") ||scan(mod_date,2,"-") ||scan(mod_date,3,"-"); heuresc = scan(heures,1,":") ||scan(heures,2,":") ||scan(heures,3,":"); vdate = strip(mod_datec)||strip(heuresc); run; %mend universe; %universe();
Voilà, I finally got to extract the filename and the corresponding last modification date. I hope it'll be useful to anyone else too
这篇关于Unix / SAS上的文件修改日期的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!