root/trunk/matml/webselector/parser/parse.pl

#!/usr/bin/perl 

use DBI;
use XML::XPath;
use XML::XPath::XMLParser;

#Specify database, user and password

my $dbh = DBI->connect ("dbi:Pg:dbname=matdl","el_oso", "hyfeguu")
    || die "Can't connect: $DBI::errstr";


# Check the path of the xmlfile in the future, this will not work
# in a batch environment so far I hope

my $xmlfile = shift @ARGV;
my $xpath = XML::XPath->new( filename => $xmlfile );

sub xpath{

    my ($query) = @_;
    my $nodeset = $xpath->find( $query );
    my $results;

# print each node in the list
    foreach my $node ( $nodeset->get_nodelist ) {
        $results .= XML::XPath::XMLParser::as_string( $node );
    }
    
    return $results;
}

sub formunit{

    my ($propid) = @_;
    my ($units, $powers);

#    $units  = &xpath("//PropertyDetails[\@id='$propid']/Units/Unit/Name/text()");
#    $powers = &xpath("//PropertyDetails[\@id='$propid']/Units/Unit/\@power");
    
#    @unit  = split/ /,$units;
#    @power = split/ /,$powers;
 

    $units = &xpath("//PropertyDetails[\@id='$propid']/Units/\@name");
    chop $units;
    ($trash, $units) = split/\"/,$units;
    $formedunit = $units;

    return $formedunit;
}



my $matname = &xpath( "//BulkDetails/Name/text()");


#Check for duplicates in the future
#inserting the Material name and location of xmlfile

$str = $dbh->prepare("insert into Materials values (DEFAULT,'$xmlfile','$matname')");
$str->execute;

#getting the assigned matid for this material for future use with properties insertion

$str = $dbh->prepare("select matid from Materials where matname='$matname'");
$str->execute;
$matid = $str->fetchrow_array;

my $properties = &xpath("//PropertyDetails/\@id");
chop $properties;
@props = split / id=\"/,$properties;
@props = split /\" /,"@props"; 


$propname_last = "";

foreach (@props){

    $propid = $_;
    $propid =~ s/ //g; #Remove blank spaces
    
                
    $propname = &xpath("//PropertyDetails[\@id='$propid']/Name/text()");

    #trying to fix duplicates is broken
    if($propname eq $propname_last){
        break;}

    $value =    &xpath("//PropertyData[\@property='$propid'][1]/Data/text()");
    $format =   &xpath("//PropertyData[\@property='$propid'][1]/Data/\@format");
    chop $format;
    ($trash,$format) = split /\"/,$format;
    $units = &formunit($propid);    

    $propname =~ s/\'/\\\'/g; #Escape apostrophes

 print "insert into Properties values('$matid','$propid','$propname','$value','$format','$units')\n";
    $str = $dbh->prepare("insert into Properties values('$matid','$propid','$propname','$value','$format','$units')");
   $str->execute;

    $propname_last = $propname;

}


#Fix units
# I don't care about english units, it is an old and obsolete system that should not be used at all
# And we should teach that.

# If you have any doubts check the NIST webpage and you will see that the official system in US is the metrical system

# Anyway, so far I converting everything to International Units and then I will give the options for unit conversion

# psi -> MPa
$str = $dbh->prepare("update properties set value=cast(cast(value as numeric)/145.03774 as text),units='MPa' where units='psi'");
$str->execute;
# ksi -> MPa
$str = $dbh->prepare("update properties set value=cast(cast(value as numeric)*6.8947573 as text),units='MPa' where units='ksi'");
$str->execute;
#  GPa -> MPa  (Well, just to have everything in the same units)
$str = $dbh->prepare("update properties set value=cast(cast(value as numeric)*1000 as text),units='MPa' where units='GPa'");
$str->execute;
# lb/cu in. -> g/cc
$str = $dbh->prepare("update properties set value=cast(cast(value as numeric)*27.6799047102 as text),units='g/cc' where units='lb/cu in.';
");
$str->execute;
# Btu/lb/ F -> J/g-°C
$str = $dbh->prepare("update properties set value=cast(cast(value as numeric)*4.1868 as text),units='' where units='Btu/lb./°F'");
$str->execute;
# Btu/ft squared/hr/F -> W/m-K
$str = $dbh->prepare("update properties set value=cast(cast(value as numeric)*.144227888864 as text),units='W/m-K' where units='Btu-in/ft squared/hr/°F';
");
$str->execute;