Sponsored Content
Top Forums UNIX for Dummies Questions & Answers Perl Experts - Need your help Post 302357637 by pravin27 on Wednesday 30th of September 2009 09:35:00 AM
Old 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

perl module installation problems... experts advice needed,...

---------- 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

Looking for Advice from Experts

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

Perl Experts - Need your help

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

Experts !!! Please advise

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

for experts

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

Experts!! please help me

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

awk experts please help

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

Experts - Need suggestion

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

To all the awk experts out there!

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
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)
All times are GMT -4. The time now is 03:11 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy