<commit_before>#!/usr/local/ensembl/bin/perl -w

use strict;
use Getopt::Long;
use Bio::EnsEMBL::Registry;
use Bio::EnsEMBL::Compara::DBSQL::DBAdaptor;

my $usage = "
$0 -dbname ensembl_compara_23_1
";

my $help = 0;
my $dbname;
my $reg_conf;

GetOptions('help' => \$help,
	   'dbname=s' => \$dbname,
           'reg_conf=s' => \$reg_conf);

if ($help) {
  print $usage;
  exit 0;
}

if (defined $reg_conf) {
  Bio::EnsEMBL::Registry->load_all($reg_conf);
}

my $stored_max_alignment_length;
my $mc = Bio::EnsEMBL::Registry->get_adaptor($dbname,'compara','MetaContainer');
my $values = $mc->list_value_by_key("max_alignment_length");

my $dbc = Bio::EnsEMBL::Registry->get_DBAdaptor($dbname,'compara')->dbc;

if(@$values) {
  $stored_max_alignment_length = $values->[0];
  print STDERR "actual stored max_alignment_length value is : $stored_max_alignment_length\n";<commit_msg>Updated the help menu<commit_after>#!/usr/local/ensembl/bin/perl -w

use strict;
use Getopt::Long;
use Bio::EnsEMBL::Registry;
use Bio::EnsEMBL::Compara::DBSQL::DBAdaptor;

my $usage = "
$0 -dbname compara23 [-reg_conf registry.conf_file]\n
";

my $help = 0;
my $dbname;
my $reg_conf;

GetOptions('help' => \$help,
	   'dbname=s' => \$dbname,
           'reg_conf=s' => \$reg_conf);

if ($help) {
  print $usage;
  exit 0;
}

if (defined $reg_conf) {
  Bio::EnsEMBL::Registry->load_all($reg_conf);
}

my $stored_max_alignment_length;
my $mc = Bio::EnsEMBL::Registry->get_adaptor($dbname,'compara','MetaContainer');
my $values = $mc->list_value_by_key("max_alignment_length");

my $dbc = Bio::EnsEMBL::Registry->get_DBAdaptor($dbname,'compara')->dbc;

if(@$values) {
  $stored_max_alignment_length = $values->[0];
  print STDERR "actual stored max_alignment_length value is : $stored_max_alignment_length\n";
{'fraction_non_alphanumeric': 0.1788116591928251, 'fraction_numerical': 0.0072869955156950675, 'mean_word_length': 5.787072243346008, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 21, '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': '1764885', 'n_tokens_mistral': 749, 'n_tokens_neox': 714, 'n_words': 124}