[- # get data to pre-populate text fields use ICDP::dmzdb; use Scalar::Util; $maxrow = 2000; $proc = "dw_kola..dw_SummaryPetrophysics"; # Underscores gegen Slashs tauschen ($date=$fdat{date}) =~ s#_#/#g; $dat = ICDP::dmzdb::executeSP(qq{$proc}, "MDY1_YYYY"); $asciifile = ICDP::dmzdb::exportAsASCII($dat, "/sites/kola/tmp", "\t"); $csvfile = ICDP::dmzdb::exportAsCSV($dat, "/sites/kola/tmp", ","); ICDP::dmzdb::replaceNULL ($dat, "n.a."); sub round_if { my ($hashref) = @_; foreach my $k (keys %{$hashref}){ if( Scalar::Util::looks_like_number($hashref->{$k})){ $hashref->{$k} = sprintf("%.1f", $hashref->{$k}); } } return $hashref; } my @data = map { $_ = round_if($_) } @$dat; -]

Kola Superdeep Borehole
Petrophysics

download data in ASCII-Format or CSV-Format
[$ if $row == 0 $] [$ endif $]
Depth Interval (m) Unit #  Density(g/cm2) Error on Density # of measurements Magnetic Susceptibility (cg/cm2) Error on Magn. Susc. # of measurements VP (m/s) Error on VP # of measurements VP Anisotropy Error on VP Anisotropy # of measurements
[+$dat->[$row]{DEPTH_TOP}+] - [+$dat->[$row]{DEPTH_BOTTOM}+] [+$dat->[$row]{LITHO_UNIT}+] [+$dat->[$row]{DENSITY}+] [+$dat->[$row]{ERROR_1}+] [+$dat->[$row]{NUMBER_OF_MEAS_1}+] [+$dat->[$row]{MAGN_SUSC}+] [+$dat->[$row]{ERROR_2}+] [+$dat->[$row]{NUMBER_OF_MEAS_2}+] [+$dat->[$row]{VP}+] [+$dat->[$row]{ERROR_3}+] [+$dat->[$row]{NUMBER_OF_MEAS_3}+] [+$dat->[$row]{VP_ANISOTROPY}+] [+$dat->[$row]{ERROR_4}+] [+$dat->[$row]{NUMBER_OF_MEAS_4}+]