.XPT 파일을 .CSV 파일로 변환

.XPT 파일을 .CSV 파일로 변환

.XPT이 형식의 파일이 여러 개 있습니다 . 나는 그것들을 모두 형식으로 변환하고 싶습니다 .CSV. 현재 터미널에 다음 줄을 입력하여 파일을 변환하고 있습니다.

R 

library('foreign') 

data=read.xport("~/Downloads/[filename].XPT") 

write.csv(data, file ="~/Downloads/[filename].csv")

동일한 확장자를 가진 여러 파일을 동시에 변환하는 방법이 있습니까?

감사해요

답변1

R이나 쉘 스크립트로 이 작업을 수행하는 더 쉬운 방법이 있을 수 있지만 Perl을 사용하면 쉽게 수행할 수 있습니다. 그냥 텍스트 파일(이름: foo.pl)에 삽입하고 "perl foo.pl"로 실행하세요.

my @files = sort glob("~/Downloads/*.XPT");
foreach my $file (@files)
   {
   ( my $csvfile = $file ) =~ s/\.XPT/\.csv/g;
   system "R;library('foreign');data=read.xport('~/Downloads/$file');write.csv(data, file ='~/Downloads/$csvfile')";
   }

관련 정보