# this works as a bash include
#
#COMM SeqLab::SeqFormat - Experiment format input
#COMM - esp. frame &SeqarrFromFFmt including format diagnosis via &SeqFileFmt
#COMM - esp. sequential reading of Experiment format (effectively via array-
#COMM   oriented interface)
#
perl -e '
    use lib shift();  # give include precedence to code directory, perl -I would not work!
    use SeqLab::SeqFormat;
    my $fin = $ARGV[0];
    if (! -r($fin)) {
      printf STDERR "ERROR: input file %s does not exist\n", $fin;
    }
    my @seq = map{@$_} &SeqLab::SeqFormat::SeqarrFromFFmt($fin);
    printf "%d\n", int(@seq);
    foreach (@seq) {
      printf "%s\n", $_->{id};
      printf "%d\n", length($_->{sequence});
    }
  ' -- "$dircode" "$dirtest"/test_seq_ntmult.exp  \
  2>&1
