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::variance
Statistics::Basic::Variance(3pm) User Contributed Perl Documentation Statistics::Basic::Variance(3pm)NAME
Statistics::Basic::Variance - find the variance of a list
SYNOPSIS
Invoke it this way:
my $variance = variance(1,2,3);
Or this way:
my $v1 = vector(1,2,3);
my $var = var($v1);
And then either query the values or print them like so:
print "The variance of $v1: $variance
";
my $vq = $var->query;
my $v0 = 0+$var;
Create a 20 point "moving" variance like so:
use Statistics::Basic qw(:all nofill);
my $sth = $dbh->prepare("select col1 from data where something");
my $len = 20;
my $var = var()->set_size($len);
$sth->execute or die $dbh->errstr;
$sth->bind_columns( my $val ) or die $dbh->errstr;
while( $sth->fetch ) {
$var->insert( $val );
if( defined( my $v = $var->query ) ) {
print "Variance: $v
";
}
# This would also work:
# print "Variance: $v
" if $var->query_filled;
}
METHODS
new()
The constructor takes a list of values, a single array ref, or a single Statistics::Basic::Vector as arguments. It returns a
Statistics::Basic::Variance object.
Note: normally you'd use the mean() constructor, rather than building these by hand using "new()".
query_mean()
Returns the Statistics::Basic::Mean object used in the variance computation.
_OVB::import()
This module also inherits all the overloads and methods from Statistics::Basic::_OneVectorBase.
AUTHOR
Paul Miller "<jettero@cpan.org>"
I am using this software in my own projects... If you find bugs, please please please let me know. :) Actually, let me know if you find it
handy at all. Half the fun of releasing this stuff is knowing that people use it.
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).
COPYRIGHT
Copyright 2012 Paul Miller -- Licensed under the LGPL
SEE ALSO perl(1), Statistics::Basic, Statistics::Basic::_OneVectorBase, Statistics::Basic::Vector
perl v5.14.2 2012-01-23 Statistics::Basic::Variance(3pm)