我正在用Fortran编写代码,以便从文件中读取属性列表,并使用IOSTAT函数跳过无效数据。代码的相关部分如下:
do j=1,1000
read(22,*,IOSTAT=ios) step,T,K,U,Tot,P
If(IS_IOSTAT_END(ios)) Exit !exits loop if value is not number or end of file
IF(ios.ne.0) cycle
sumT=sumT+T
sumU=sumU+U
sumK = sumK + K
sumKsq = sumKsq + (K**2.d0)
end if
end do
这段代码以前在Lin
将脚本运行到ssh并返回iostat错误时,
solaris_command = "iostat -en | awk 'NR>=3 && $4 > 0' | while read a b c d e; do echo $e,$a,$b,$c,$d; done"
for line in server_list:
line_arr = line.split(',')
if line_arr[0] == 'SunOS':
ie = subprocess.Popen(["
如何只读取大文件中的每十行行?下面是一个简单的例子。我想我可以使用do循环的增量,但似乎只更改了下面的索引T,而不是跳过所需的行集。
IMPLICIT NONE
INTEGER :: T
REAL(8) :: RR,RS,RT
OPEN(UNIT=11,FILE='test.dat',STATUS='UNKNOWN',ACTION='READ')
DO T = 1,1000,10
READ(11,*) RR
READ(11,*) RS
READ(11,*) RT
ENDDO
CLOSE(11)
END PROGRAM