PERL: DBI - Is it possible to get a "nicer" formatted return?
Hi,
I am currently writing a perl module that will be passed queries from other scripts and use DBI to execute them on an Oracle Database. The problem I have is when it comes to the return.
I am currently getting this from my code:
Where as if I use an sql session and perform the query I get this format:
This is my code:
(Please excuse the lack of indentation, I copied into wordpad and then into the browser).
perl 5.6.1:
when i try a "system" command(with if loops for $?), i get this:
child exited with value 1
what is meant by this $? values and what does it meant if it returns 1?.. (0 Replies)
Hi Friends,
Can any of you explain me about the below line of code?
mn_code=`env|grep "..mn"|awk -F"=" '{print $2}'`
Im not able to understand, what exactly it is doing :confused:
Any help would be useful for me.
Lokesha (4 Replies)
Let's say I want to write a program that run these 4 UNIX commands and redirect output to a file.
#!/usr/local/bin/perl
use strict;
`cd \$HOME > output.txt`;
`cut -f1 inputfile.txt >> output.txt`;
`hostname >> output.txt`;
`ifconfig >> output.txt`;
I want to print a "carriage return"... (5 Replies)
Hi Everyone,
if my folder "foldera" inside has one file.
so if i do
if ($df =~ /^\./) { next; }
then i will get
###
filea
###
if i want to have
###
..
filea
###
means also display the parent .., how should i modify the perl ~// in my code?
Thanks
---------- Post updated... (6 Replies)
Hi,
I have line in input file as below:
3G_CENTRAL;INDONESIA_(M)_TELKOMSEL;SPECIAL_WORLD_GRP_7_FA_2_TELKOMSEL
My expected output for line in the file must be :
"1-Radon1-cMOC_deg"|"LDIndex"|"3G_CENTRAL|INDONESIA_(M)_TELKOMSEL"|LAST|"SPECIAL_WORLD_GRP_7_FA_2_TELKOMSEL"
Can someone... (7 Replies)
Hi all,
Can anyone guess why this is happening? I am new to Perl, so please help me to fix this error:
- I have a static html file which calls the cgi-perl script.
HTML Code:
<html>
<head>
<title> Hey Dude! </title>
</head>
<body>
<form method="POST"... (3 Replies)
How to use "mailx" command to do e-mail reading the input file containing email address, where column 1 has name and column 2 containing “To” e-mail address
and column 3 contains “cc” e-mail address to include with same email.
Sample input file, email.txt
Below is an sample code where... (2 Replies)
Hello.
System : opensuse leap 42.3
I have a bash script that build a text file.
I would like the last command doing :
print_cmd -o page-left=43 -o page-right=22 -o page-top=28 -o page-bottom=43 -o font=LatinModernMono12:regular:9 some_file.txt
where :
print_cmd ::= some printing... (1 Reply)
Hi 2 all,
i have had AIX 7.2
:/# /usr/IBMAHS/bin/apachectl -v
Server version: Apache/2.4.12 (Unix)
Server built: May 25 2015 04:58:27
:/#:/# /usr/IBMAHS/bin/apachectl -M
Loaded Modules:
core_module (static)
so_module (static)
http_module (static)
mpm_worker_module (static)
... (3 Replies)
Discussion started by: penchev
3 Replies
LEARN ABOUT DEBIAN
statistics::basic::covariance
Statistics::Basic::Covariance(3pm) User Contributed Perl Documentation Statistics::Basic::Covariance(3pm)NAME
Statistics::Basic::Covariance - find the covariance between two lists
SYNOPSIS
Invoke it this way:
my $covariance = covariance( [1,2,3], [1,2,3] );
Or this way:
my $v1 = vector(1,2,3);
my $v2 = vector(1,2,3);
my $cov = cov($v1,$v2);
And then either query the values or print them like so:
print "The covariance between $v1 and $v2: $covariance
";
my $cq = $cov->query;
my $c0 = 0+$cov;
Create a 20 point "moving" covariance like so:
use Statistics::Basic qw(:all nofill);
my $sth = $dbh->prepare("select col1,col2 from data where something");
my $len = 20;
my $cov = cov();
$cov->set_size($len);
$sth->execute or die $dbh->errstr;
$sth->bind_columns( my ($lhs, $rhs) ) or die $dbh->errstr;
my $count = $len;
while( $sth->fetch ) {
$cov->insert( $lhs, $rhs );
if( defined( my $c = $cov->query ) ) {
print "Covariance: $c
";
}
# This would also work:
# print "Covariance: $cov
" if $cov->query_filled;
}
METHODS
This list of methods skips the methods inherited from Statistics::Basic::_TwoVectorBase (things like query(), insert(), and ginsert()).
new()
Create a new Statistics::Basic::Covariance object. This function takes two arguments -- which can either be arrayrefs or
Statistics::Basic::Vector objects. This function is called when the covariance() shortcut-function is called.
query_vector1()
Return the Statistics::Basic::Vector for the first vector.
query_vector2()
Return the Statistics::Basic::Vector object for the second vector.
query_mean1()
Returns the Statistics::Basic::Mean object for the first vector.
query_mean2()
Returns the Statistics::Basic::Mean object for the second vector.
OVERLOADS
This object is overloaded. It tries to return an appropriate string for the calculation or the value of the computation in numeric
context.
In boolean context, this object is always true (even when empty).
AUTHOR
Paul Miller "<jettero@cpan.org>"
COPYRIGHT
Copyright 2012 Paul Miller -- Licensed under the LGPL
SEE ALSO perl(1), Statistics::Basic, Statistics::Basic::_TwoVectorBase, Statistics::Basic::Vector
perl v5.14.2 2012-01-23 Statistics::Basic::Covariance(3pm)