<commit_before>use strict;

my $seq_names = shift;
my $fastafile_1 = shift;
my $fastafile_2 = shift;
my $outfile = "$seq_names.fasta";

open LIST_FH, "<", "$seq_names";
open FA1_FH, "<", "$fastafile_1";
open FA2_FH, "<", "$fastafile_2";<commit_msg>now takes blast output directly and sorts it.<commit_after>use strict;

my $seq_blast = shift;
my $fastafile_1 = shift;
my $fastafile_2 = shift;
my $outfile = "$seq_names.fasta";

my $seq_names = "$seq_blast.sorted";
system ("gawk '{sub(\"/1\",\"\");print $2;}' $seq_blast | sort > $seq_names");

open LIST_FH, "<", "$seq_names";
open FA1_FH, "<", "$fastafile_1";
open FA2_FH, "<", "$fastafile_2";
{'fraction_non_alphanumeric': 0.20155038759689922, 'fraction_numerical': 0.021705426356589147, 'mean_word_length': 5.946236559139785, 'pattern_counts': {'":': 0, '<': 9, '<?xml version=': 0, '>': 4, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1968684', 'n_tokens_mistral': 273, 'n_tokens_neox': 262, 'n_words': 62}