"gi" headers deprecated by NCBI

[tony-travis]

The current NCBI fasta format uses "gb" (Genbank) headers, which are not compatible with vip_db_format.pl, which produces an empty /work/VIP/FAST/vip_fast.fa.formatted file. The following patch extracts the accessions instead of "gi" numbers:

diff -Naur vip_db_format.pl.dist vip_db_format.pl
--- vip_db_format.pl.dist   2020-01-29 12:45:01.243718605 +0100
+++ vip_db_format.pl    2020-01-30 23:04:16.116854880 +0100
@@ -1,4 +1,5 @@
 #!/usr/bin/perl -w
+#@(#)vip_db_format.pl  2020-10-30  last modified by A.J.Travis
 #
 #  vip_db_format.pl
 #
@@ -27,7 +28,7 @@

 while (<FL>) {
    chomp;
-   if (/.*(gi\|[0-9]*\|).*?\n(.*)/si) {
+   if (/.*(gb\|[^|]*\|).*?\n(.*)/si) {
    #if (/.*?(gi\|[0-9]*\|).*?\n(.*)/si) {
        my $gi = lc($1);
        my $seq = $2;