このような要件では自分でもpython を使うのが適切だし簡単な気はしたのですが、あえてfortran で書いてみました。ls -1 *.txt
の実行結果をリダイレクトしてoutput.txt ファイルへ出力し、1行づつ配列に保存するようにしています。Cygwinのgfortran 6.4.0 で動作確認しました。
!Fortran
program main
implicit none
integer i
integer num
character(len = 256) line
character(10), dimension(256) :: array
call system('sh -c ls -1 *.txt > output.txt')
open(10, file='output.txt', status='old')
num = 0
do i= 1, 100
read(10, "(a)", end=999) line
num = num + 1
array(i) = trim(line)
end do
999 close(10)
! 配列に入ったファイル名を出力
print *, "**** DUMP ARRAY"
do i = 1, num
! 空白を除去してprint
print *, trim(array(i))
end do
end program main
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。