.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')";
}