view release on metacpan or  search on metacpan

lib/Chemistry/Artificial/SQL.pm  view on Meta::CPAN

    $cha->art_insert_react($qr,"$chaname");
    my $string_react = $db1->string_react(2);
    my $qr=$cha->create_reaction($string_react,'smiles');
    $cha->art_insert_react($qr,"$chaname");
    
    # Inserting Components
    
    my $list = $db1->recover_comp("","");
    
    my $component;
    my $formula;
    my $smilesform;
    
    for (my $index=0; $index<$compnumber; $index++)
    {	@$list[$index]->print(format => 'smiles', unique => 1);
        $cha->art_insert_comp(@$list[$index],"$chaname");
    }
    print ("GENERATING $chaname IN $dbname DATABASE\n");
    $cha->ch_artificial_table($levels,"$chaname",$size);

=head1 DESCRIPTION