#!/usr/bin/perl -w

$infile=$ARGV[0];
$db=$ARGV[1];

if (-e $db)
{
	$dbname=$db;
	$dbname=~s/\..+//;
	system ("formatdb -i $db -p T -n $dbname");
}
else
{
	print "\nLe fichier : $db n'existe pas sur ce systeme.\n";
	exit;
}

if (-e $infile)
{
	$outfile=$infile;
	$outfile=~s/\..+//;
	$outfile="$outfile\_vs_$dbname.bl";
	system ("blastall -p blastp -i $infile -d $dbname -m 9 > $outfile");
}
