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屋！