|
global ptp_file_name
' `6 O) h8 |% jglobal mom_output_file_directory) c) G# O& L4 B& |) y# B
global mom_operation_name/ p3 }, N% v2 A( _: g/ M
global mom_output_file_basename7 @! |& |# n3 e) H. a9 q
global output_extn mom_group_name
6 m* |' L4 o0 V) j. {) ~5 qglobal operation_sequence
/ U4 B; f9 j* Rglobal mom_sys_output_file_suffix
( H8 L+ M8 Q. ?% Mglobal mom_parent_group_name
1 Z0 a7 ?, }; x' _2 x) T& C) L& z. o9 L' s
MOM_close_output_file $ptp_file_name; W) U: ^. \$ ?
. a5 j0 d/ I1 O5 p8 Iset yj "${mom_output_file_directory}${mom_parent_group_name}.${mom_sys_output_file_suffix}"! B& [8 M/ F& B3 k+ l! n
" W4 F8 O- I! c. a# B1 m) jif { [file exists $ptp_file_name] == "1" } { MOM_remove_file $ptp_file_name }( h: v& D D- h* d+ K
" J% |* b/ e! X" l6 k
2 e/ P* z! o, s4 \6 \: [/ a
7 t- N0 O" N* T2 ^
MOM_remove_file $yj& a0 R4 k/ {0 c3 x) f* I( T* \2 J
MOM_open_output_file $yj
7 v& w5 a3 r& W5 k, eMOM_output_to_listing_device "后处理已经完成,请根据路径$mom_output_file_directory去寻找已经处理的源文件"
1 V' I) Q: G- n4 e# {) M0 m* }MOM_output_to_listing_device "文件名是$mom_parent_group_name"
) d* m/ b: {: W. w% e0 l# ^
V* m& d( H/ t# {; J) F1 u
. q3 [ I- H' A" J# K: K这是用TCL代码实现的哦 |
|