From 457ce5166284e9d6ec49fe93a396c4245e3670eb Mon Sep 17 00:00:00 2001
From: Alessandro Vullo <avullo@ebi.ac.uk>
Date: Thu, 18 Jan 2018 14:16:00 +0000
Subject: [PATCH] [ENSCORESW-1096]. Very old script, nobody seems to be needing
it anymore.
---
misc-scripts/utilities/split_fasta.pl | 29 ---------------------------
1 file changed, 29 deletions(-)
delete mode 100644 misc-scripts/utilities/split_fasta.pl
diff --git a/misc-scripts/utilities/split_fasta.pl b/misc-scripts/utilities/split_fasta.pl
deleted file mode 100644
index d0508a59ad..0000000000
--- a/misc-scripts/utilities/split_fasta.pl
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/usr/bin/env perl
-# Copyright [1999-2015] Wellcome Trust Sanger Institute and the EMBL-European Bioinformatics Institute
-# Copyright [2016-2018] EMBL-European Bioinformatics Institute
-#
-# Licensed under the Apache License, Version 2.0 (the "License");
-# you may not use this file except in compliance with the License.
-# You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-
-use strict;
-use warnings;
-
-use Bio::SeqIO;
-my $ntfile = shift(@ARGV);
-my $seqin = Bio::SeqIO->new(-file => "$ntfile" , '-format' => 'Fasta');
-while ( my $seq = $seqin->next_seq() ) {
- $seq->id =~ /ref\|(\S+)\|(\S+)/;
- my $id=$1;
- my $name = "$id.fa";
- my $seqout = Bio::SeqIO->new(-file => ">$name" , '-format' => 'Fasta');
- $seqout->write_seq($seq);
-}
--
GitLab