IUBio

help: Reformat does not work properly in a Perl script

Cornelius Krasel krasel at wpxx02.toxi.uni-wuerzburg.de
Mon Feb 8 12:35:18 EST 1999


Alex Dong Li <lidong at globalserve.net> wrote:
> I am tring to call GCG's reformat command in a perl script by the following 
> line so that I can reformat all *.seq files in a directory:
> system("reformat *.seq");
> 
> The problem is that somehow the above command can only reformat one of many 
> *.seq files and leave rest untouched.
> 
> Anyone could tell me how to solve the problem? Thanks in advance!

This is probably only one of many possible ways:

@dir = `ls *.seq` ;
foreach $f ( @dir ) {
    system("reformat $f");
}

--Cornelius.

-- 
/* Cornelius Krasel, U Wuerzburg, Dept. of Pharmacology, Versbacher Str. 9 */
/* D-97078 Wuerzburg, Germany   email: phak004 at rzbox.uni-wuerzburg.de  SP4 */
/* "Science is the game we play with God to find out what His rules are."  */



More information about the Info-gcg mailing list

Send comments to us at biosci-help [At] net.bio.net