File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -70,14 +70,15 @@ function run(){
7070 }
7171
7272 $ 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 ' );
7474
7575 parent ::setReadFile ($ lfile , TRUE );
76- parent ::setWriteFile ($ ofile , $ gz );
76+ parent ::setWriteFile ($ odir . $ ofile , $ gz );
7777
7878 echo "processing $ file ... " ;
7979 $ this ->process ($ file );
8080 echo "done! " ;
81+ parent ::clear ();
8182
8283 //close write file
8384 parent ::getWriteFile ()->close ();
@@ -134,7 +135,7 @@ function run(){
134135 function process ($ file ){
135136 $ z = 1 ;
136137 while ($ l = parent ::getReadFile ()->read (100000 )) {
137- if ($ z == 100 ) break ;
138+ // if($z == 100) break;
138139 if ($ l [0 ] == "! " ) continue ;
139140 $ fields = explode ("\t" ,$ l );
140141 if (count ($ fields ) != 17 ){
You can’t perform that action at this time.
0 commit comments