[Bio] / FigKernelScripts / get_translations.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/get_translations.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2, Mon Dec 5 18:56:37 2005 UTC revision 1.3, Wed Apr 26 22:08:03 2006 UTC
# Line 21  Line 21 
21    
22  $usage = "get_translations Id1 Id2 ...  > fasta.of.translations";  $usage = "get_translations Id1 Id2 ...  > fasta.of.translations";
23    
24  (@ARGV > 0) || die "usage: $usage";  if (@ARGV == 0) { @ARGV = map { $_ =~ /^(\S+)/; $1 } <STDIN> }
25    
26  foreach $id (@ARGV)  foreach $id (@ARGV)
27  {  {

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3