shell - varios - Listar el contenido de un directorio especificado por índices de bucle

mover varios archivos en linux

Question

Estoy trabajando con la predicción meteorológica numérica nombrada de la siguiente manera:

sub_gfsanl_4_2011MMDD-IIII-FFFF.grb2

-MM significa mes del 01 al 12

-DD ​​significa días del 01 al 31

-IIII significa tiempo de inicialización, el primer y el segundo dígito son por horas, el tercero y el último son por minutos

-FFFF significa hora de pronóstico, el primer y segundo dígito son por horas, el tercero y el último son por minutos

En mi directorio tengo varios archivos para un determinado día de un mes determinado. Un día tiene 4 datos, uno cada seis horas IIII = 0000, 0600,1200,1800.

Lo que trato de hacer es listar todos los archivos de un día determinado, aquí el código f90 que escribí:

program test_ec

implicit none

!==variable declaration==

integer :: mi,di,dil,mil
character*3 :: temp

!==Program instructions==

mil=1
write(temp,''(i2.2)'') mil
read(temp,''(i2.2)'') mi
!convert the month into a two digit value mi=01  


 ! change to directory where the data are stored
 CALL chdir(''/media/Hello/ncfiles/GFS'' )

do dil=1,31

     !loop over days
     write(temp,''(i2.2)'') dil
     read(temp,''(i2.2)'') di

     ! converting day number into a two digit number, store this value into di. ex dil=9 then di=09

CALL execute_command_line( ''ls sub_gfsanl_4_2011${mi}${di}*.nc > yes.txt'' )
!list all files with the correct month and days and store it to yes.txt

end do

end program test_ec

Por alguna razón, a execute_command_line no parece gustarle la $ for variable ...

Answer 1

¡Bien gracias a la sugerencia de Vladimir aquí qué hice para resolver mi problema!

program test_ec


implicit none

integer :: mi,di,iiii,fff
 character(len=1024) :: filename
 character(len=1024) :: format_string
 logical exist

mi=1
CALL chdir(''/media/Hello/ncfiles/GFS'' )

!do di=1,10
     do iiii=0,18,6
         do fff=0,18,6

                   format_string = "(A17,i2.2,i2.2,A1,i4.4,A1,i3.3,A8)"
                    write (filename,format_string) "sub_gfsanl_4_2011",mi,di,"_",iiii,"_",fff,".grb2.nc"

                    inquire(file=trim(filename), exist=exist) 

                           if (exist) then

                                   write(*,*) ''file exists i can do do whatever i want with this file''
                           else
                                   write(*,*) ''I did not find that file.''

                           end if
enddo
   enddo
     enddo

end program test_ec

Answer 2

No puede usar ${mi}${di} en shell. Son variables de Fortran, no variables de shell. Debes poner los números en la cadena dentro de Fortran. Use algunos de los métodos establecidos. Fueron tratados aquí muchas veces en convertir enteros a cadenas para crear nombres de archivos de salida en tiempo de ejecución y sus duplicados (ver Relacionado a la derecha).