#!/usr/bin/perl
use File::Copy;
for( 1 .. 9 )
{
copy( "test_$_.dat", "input_ini.dat" ) or die "Can't copy file test_$_\n";
system( "./run.F90" );
if ( -d "result_$_" )
{
move("result.dat", "result_$_/result.dat" );
}
else
{
mkdir( "result_$_" );
move("result.dat", "result_$_/result.dat" );
}
}
來源:奇科電腦Ben老師 http://www.geego.com.tw
全站熱搜
留言列表