09-30-2009
Hi ,
#!/usr/bin/perl
use DBI;
use strict;
my $userid=$ENV{USER_ID};
my $userpass=$ENV{USER_PASS};
my $lx_server=$ENV{SERVER};
my $db=DBI->connect("dbi:Oracle:$lx_server",$userid,$userpass) || die "FAILURE :- $DBI::errstr. \n";
my $sel = "select count(*) rec from user_tables where table_name = 'abc' ";
my $sth = $db->prepare($sel) || die "FAILURE:- $DBI::errstr\n" ;
$sth->execute()|| die "FAILURE:- $DBI::errstr \n";;
while ( my @rec = $sth->fetchrow_array()) {
if (@rec[0] <= 0 )
{
print "create table \n";
}
else
{
print " no. of record - $rec[0] ";
print "insert row\n";
}
}
$db->disconnect if defined ($db);
9 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
----------
This is perl, v5.6.1 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)
----------in win 2000 advanced server,..
i am somewhat comfortable with perl but i am new to perl modules..
when i tried to install xml::simple and xml::parser
there... (4 Replies)
Discussion started by: sekar sundaram
4 Replies
2. UNIX for Dummies Questions & Answers
Where to start... I am a system administrator who didn't think he would ever be one. My first work was on Window 2000 as a tech(hardware, installs, stuff like that). Then we got Macs (I work in photography and Videography). The I was sent to Mac cert school. Set up a Mac Xserve and about 100... (2 Replies)
Discussion started by: Squidy P
2 Replies
3. UNIX for Dummies Questions & Answers
Hi All,
I need to take a dump of a table and load into excel and send as an attachment and for this am using a Perl script.
I know the usual way of doing this by writing all the fields next to 'select' query and similarly writing into an excel as shown below ... (3 Replies)
Discussion started by: karthickrn
3 Replies
4. Solaris
Hi,
I work on sun Solaris. Am hosting few web services on my server which are accessed over the internet. Now to check whether the web service is responding or not, i first have to log in to the web service URL. If it doesn't respond there, i come back to my server box and restart the service... (4 Replies)
Discussion started by: sting672744
4 Replies
5. UNIX for Advanced & Expert Users
Hi
i'm working with mpi programs every thing ok
but i need after i compile the mpi to calc the area of the rectangle for example (not my program)
accept two arguments from the command line:
mpirun -n 4 myprog 24 100
here 24 and 100 two arguments i'll pass them to the program
how can... (1 Reply)
Discussion started by: Scotch
1 Replies
6. UNIX for Advanced & Expert Users
Hi experts,
Please help me on the below:
how to write a shell script to search and delete files on windows server.
-script runs on unix box
-it should search for specific files on windows server and delete them periodically. (1 Reply)
Discussion started by: chpradeepch
1 Replies
7. Shell Programming and Scripting
I have a log file of 60 MB with 20k records which contains data like below.
this contains some data so removed
2891358271000020, 2012-12-02 23:16:17 , 2012-12-02 23:16:17 ,
378015123, 2012-12-02 23:16:19 , 2012-12-02 23:16:19 , (15 Replies)
Discussion started by: mirwasim
15 Replies
8. IP Networking
I'm searching to learn linux coding for a month but no clear about the where to start . Right now i'm in networking but not much interested in this maintenance jobs . I'm looking to create my own product in wireless network and also having idea about gadget that can be useful for students . But i... (1 Reply)
Discussion started by: Cholasivam
1 Replies
9. Shell Programming and Scripting
Hello All,
I recently encountered this difficulty in processing a File.
Input File has millions of records with fields like below
ID1,ID2,DATE,FLAG,VAL
123,432,0604,1,-0.5
123,432,0604,22,0.5
123,433,0604,1,-0.54
123,433,0604,22,6.77
123,543,0605,22,0.94
To put this simply, I will have... (8 Replies)
Discussion started by: PikK45
8 Replies
LEARN ABOUT MOJAVE
dbd::sponge
DBD::Sponge(3) User Contributed Perl Documentation DBD::Sponge(3)
NAME
DBD::Sponge - Create a DBI statement handle from Perl data
SYNOPSIS
my $sponge = DBI->connect("dbi:Sponge:","","",{ RaiseError => 1 });
my $sth = $sponge->prepare($statement, {
rows => $data,
NAME => $names,
%attr
}
);
DESCRIPTION
DBD::Sponge is useful for making a Perl data structure accessible through a standard DBI statement handle. This may be useful to DBD module
authors who need to transform data in this way.
METHODS
connect()
my $sponge = DBI->connect("dbi:Sponge:","","",{ RaiseError => 1 });
Here's a sample syntax for creating a database handle for the Sponge driver. No username and password are needed.
prepare()
my $sth = $sponge->prepare($statement, {
rows => $data,
NAME => $names,
%attr
}
);
o The $statement here is an arbitrary statement or name you want to provide as identity of your data. If you're using DBI::Profile it
will appear in the profile data.
Generally it's expected that you are preparing a statement handle as if a "select" statement happened.
o $data is a reference to the data you are providing, given as an array of arrays.
o $names is a reference an array of column names for the $data you are providing. The number and order should match the number and
ordering of the $data columns.
o %attr is a hash of other standard DBI attributes that you might pass to a prepare statement.
Currently only NAME, TYPE, and PRECISION are supported.
BUGS
Using this module to prepare INSERT-like statements is not currently documented.
AUTHOR AND COPYRIGHT
This module is Copyright (c) 2003 Tim Bunce
Documentation initially written by Mark Stosberg
The DBD::Sponge module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. In particular
permission is granted to Tim Bunce for distributing this as a part of the DBI.
SEE ALSO
DBI
perl v5.18.2 2013-06-24 DBD::Sponge(3)