OOPSPerl_Db.pl

#!/usr/bin/perl
use DBI
use strict;
my $driver = "mysql"; 
my $database = "TESTDB";
my $dsn = "DBI:$driver:database=$database";
my $userid = "testuser";
my $password = "test123";
my $dbh = DBI->connect($dsn, $userid, $password ) or die $DBI::errstr;

my $sth = $dbh->prepare("INSERT INTO TEST_TABLE
                       (FIRST_NAME, LAST_NAME, GENDER, AGE, INCOME )
                        values
                       ('john', 'poul', 'M', 30, 13000)");
$sth->execute() or die $DBI::errstr;
$sth->finish();
$dbh->commit or die $DBI::errstr;

$rv = $h->rows;
or
$rv = $DBI::rows


/* */
#!/usr/cti/apps/CSPbase/Perl/bin/perl

# Usage of packages
use strict;
use warnings;
use XML::XPath;
use XML::XPath::XMLParser;

# File Name
my $FILE_NAME="insert_group";

#Database Connection
my $DB_USER="srgkpi";
my $DB_PASS="Kpi~1Mhsp";
my $DB_NAME="RDB1";
my $CONNECT_STRING="$DB_USER\/$DB_PASS\@$DB_NAME";

# Folders
my $BASE_DIR=$ENV{'SRG_SHARE'}."/utils/kpi_seed_values";
my $SEED_XML_FILES_FOLDER="$BASE_DIR/SEED_XML_FILES";
my $SCRIPTS_FOLDER="$BASE_DIR/SCRIPTS";
my $LOG_FOLDER="$BASE_DIR/LOG";

# Shell Script Name
my $EXECUTION_SCRIPT="$SCRIPTS_FOLDER/execute.sh";

# SQL File Name
my $SQL_FILE="$BASE_DIR/$FILE_NAME.sql";

# Log File Name
my $LOG_FILE="$LOG_FOLDER/$FILE_NAME.log";

# XML File Name
my $XML_FILE="$SEED_XML_FILES_FOLDER/$FILE_NAME.xml";

# XSD File Name
my $XSD_FILE="$SEED_XML_FILES_FOLDER/XSD_FILES/$FILE_NAME.xsd";

# XML File Validation
`xmllint --noout --nowarning --schema "$XSD_FILE" "$XML_FILE" 2>&1`;

#`xmlwf $SEED_XML_FILES_FOLDER/$FILE_NAME.xml >>$LOG_FILE`;

my $validate=`cat $XML_FILE | grep "><" | wc -l`;
#Trimming value received from database.
$validate=~ s/^\s+//;
$validate=~ s/\s+$//;

if($validate>0) {
        print "\nPlease enter space for null values in the XML file $XML_FILE\n"; 
	exit;
        }

# Parser object creation
my $xp = XML::XPath->new(filename => $XML_FILE);

# Declaring all arrays
my (@relay_groups,@group_names);

# Reading XML File

foreach my $node ($xp->find('//insert_group_details/insert_group/relay_group/text()')->get_nodelist) {
        if(sprintf(XML::XPath::XMLParser::as_string($node)) eq " ") {
                push @relay_groups, sprintf("NULL");
                }
        else {
                push @relay_groups, sprintf(XML::XPath::XMLParser::as_string($node));
                }
        #print "1: ".XML::XPath::XMLParser::as_string($node)."\n";
        }

#print "relay_groups:: @relay_groups \n\n";

foreach my $node ($xp->find('//insert_group_details/insert_group/group_name/text()')->get_nodelist) {
        if(sprintf(XML::XPath::XMLParser::as_string($node)) eq " ") {
                push @group_names, sprintf("NULL");
                }
        else {
                push @group_names, sprintf(XML::XPath::XMLParser::as_string($node));
                }
        #print "2: ".XML::XPath::XMLParser::as_string($node)."\n";
        }

#print "group_names:: @group_names \n\n";


# Preparing SQL Statement

my $sql="";
my $i=0;
my $group_key=`sqlplus -s $CONNECT_STRING <<-EOF
                set head off
                select nvl(max(group_key),0) from dim_group\;
                exit\;
                EOF`;

#Trimming value received from database.
$group_key=~ s/^\s+//;
$group_key=~ s/\s+$//;

#print "group_key=$group_key";

foreach my $var (@group_names)        {
        $group_key++;
        $sql="($group_key,";
        if($relay_groups[$i] eq "NULL") {
                $sql.="$relay_groups[$i],";
                }
        else {
                $sql.="'$relay_groups[$i]',";
                }
        if($group_names[$i] eq "NULL") {
                $sql.="$group_names[$i])";
                }
        else {
                $sql.="'$group_names[$i]')";
                }

        #print "SQL Statement [$i] = $sql \n\n";

        # Writing SQL Statement to file
        `echo "insert into dim_group values$sql\;" >>$SQL_FILE`;
	 `echo "alter table AGG_GROUP_KPI_COUNTER add partition GRP_$group_key values ($group_key)
  		(SUBPARTITION P_AGG_GRP_"$group_key"_199901010000
	       VALUES LESS THAN (to_date('199901010000','yyyymmddhh24mi')));" >>$SQL_FILE`;
	`echo "alter table AGG_RELAY_KPI_COUNTER add partition GRP_$group_key values ($group_key)
  		(SUBPARTITION P_AGG_RELAY_"$group_key"_199901010000
	       VALUES LESS THAN (to_date('199901010000','yyyymmddhh24mi')));" >>$SQL_FILE`;
	`echo "alter table AGG_HOUR_GRP_KPI_COUNTER add partition GRP_$group_key values ($group_key)
  		(SUBPARTITION P_AGG_HOUR_GRP_"$group_key"_199901010000
	       VALUES LESS THAN (to_date('199901010000','yyyymmddhh24mi')));" >>$SQL_FILE`;
	`echo "alter table AGG_HOUR_RLY_KPI_COUNTER add partition GRP_$group_key values ($group_key)
  		(SUBPARTITION P_AGG_HOUR_RLY_"$group_key"_199901010000
	       VALUES LESS THAN (to_date('199901010000','yyyymmddhh24mi')));" >>$SQL_FILE`;
	`echo "alter table AGG_DAY_GRP_KPI_COUNTER add partition GRP_$group_key values ($group_key)
  		(SUBPARTITION P_AGG_DAY_GRP_"$group_key"_199901010000
	       VALUES LESS THAN (to_date('199901010000','yyyymmddhh24mi')));" >>$SQL_FILE`;
	 `echo "alter table AGG_DAY_RLY_KPI_COUNTER add partition GRP_$group_key values ($group_key)
  		(SUBPARTITION P_AGG_DAY_RLY_"$group_key"_199901010000
	       VALUES LESS THAN (to_date('199901010000','yyyymmddhh24mi')));" >>$SQL_FILE`;
        $i++;
        }

# Writing SQL Statement to file
`echo "commit\;" >>$SQL_FILE`;

# Executing SQL Statement
print "\n Group Partition and Sub partition creation shall take few hours\n";

`$EXECUTION_SCRIPT $FILE_NAME`;
`rm -rf $SQL_FILE`;
`./KpiSetupSubPartitionsRelay.sh &`;
`./KpiSetupSubPartitionsGroup.sh &`;

print "Complete \n\n";

/* */
Package name : main 1
Package name : Foo 10
Package name : main 100
Package name : main 10


#!/usr/local/bin/perl
 use TIME::Local;

$datestring = localtime();
print "Local date and time $datestring\n";

#!/usr/local/bin/perl

$datestring = gmtime();
print "GMT date and time $datestring\n";


/*
Package Export
h2xs  -Ax -n Person (ModuleName)
 */ 

/* 
 Installing Perl Module

Download a Perl module in the form tar.gz file. Use the following sequence to install any Perl Module Person.pm which has been downloaded in as Person.tar.gz file.
*/
tar xvfz Person.tar.gz
cd Person
perl Makefile.PL
make
make install