File tree 1 file changed +4
-3
lines changed
1 file changed +4
-3
lines changed Original file line number Diff line number Diff line change @@ -70,14 +70,15 @@ function run(){
70
70
}
71
71
72
72
$ gz = (strstr (parent ::getParameterValue ('output_format ' ),".gz " ) === FALSE )?false :true ;
73
- $ ofile = $ odir . "goa_ " .$ file .". " .parent ::getParameterValue ('output_format ' );
73
+ $ ofile = "goa_ " .$ file .". " .parent ::getParameterValue ('output_format ' );
74
74
75
75
parent ::setReadFile ($ lfile , TRUE );
76
- parent ::setWriteFile ($ ofile , $ gz );
76
+ parent ::setWriteFile ($ odir . $ ofile , $ gz );
77
77
78
78
echo "processing $ file ... " ;
79
79
$ this ->process ($ file );
80
80
echo "done! " ;
81
+ parent ::clear ();
81
82
82
83
//close write file
83
84
parent ::getWriteFile ()->close ();
@@ -134,7 +135,7 @@ function run(){
134
135
function process ($ file ){
135
136
$ z = 1 ;
136
137
while ($ l = parent ::getReadFile ()->read (100000 )) {
137
- if ($ z == 100 ) break ;
138
+ // if($z == 100) break;
138
139
if ($ l [0 ] == "! " ) continue ;
139
140
$ fields = explode ("\t" ,$ l );
140
141
if (count ($ fields ) != 17 ){
You can’t perform that action at this time.
0 commit comments