12-13-2015
Quote:
Originally Posted by
scriptscript
[...]
Now @array contains both the query. Now I want to make those queries into two scalars.
[...]
Hi John,
The query strings are already a scalar each time through the loop, they are called
$line
If my guess is correct you want to use that
$line to execute the query via a system call. Unfortunately, that would be wrong in many ways, and it would take a lot of explanation.
Perhaps, these two links might help you how to use the DBI module to interface with a database.
An Embarrassing Confession
Using Perl DBI
If any of those links are not working, please search for Perl and DBI
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
hi
I've been searching all over the internet to simply do the following:
$tempfile = "/usr/school/tempfile.dat";
$myvar = param('add'); ###add is the variable assigned to a popup menu
`ls -l $myvar * >> $tempfile` ###I also tried `ls -l ${myvar}* >>$tempfile`
open(ADDLIST,... (6 Replies)
Discussion started by: mehdi9
6 Replies
2. Shell Programming and Scripting
When reading over some perl code in a software document, I came across an assignment statement like this
$PATH = ${PROJECT}/......./....
In this particular form of scalar variable assignment, what does the curly braces operators do ? Also, what is the benefit in doing scalar assignment this... (3 Replies)
Discussion started by: JamesGoh
3 Replies
3. Shell Programming and Scripting
Hello,
I have a comma delimited input feed file. The first field has directory location and the second field has file name.
Ex of input feed:
/export/appl/a,abc*.dat
/export/appl/b,xyz*.dat
/export/appl/c,pmn*.dat
Under each directory, there would be many files like...
.
.
.... (4 Replies)
Discussion started by: bperl
4 Replies
4. Shell Programming and Scripting
I am trying to use a script to replace the header of each file, whose filename are stored within the array $test, using the sed command within a Perl script as follows:
$count = 0;
while ( $count < $#test )
{
`sed -e 's/BIOGRF 321/BIOGRF 332/g' ${test} > 0`;
`cat 0 >... (2 Replies)
Discussion started by: userix
2 Replies
5. Shell Programming and Scripting
I need to use array elements while pattern matching.
@myarr = (ELEM1, ELEM2, ELEM3);
following is the statement which I am using in my code. Basically I want to replace the ELEM1/2/3 with other thing which is mentioned as REPL here.
if (condition) {
s/(ELEM1|ELEM2|ELEM3): REPL: /;
}
I... (3 Replies)
Discussion started by: deo_kaustubh
3 Replies
6. Shell Programming and Scripting
hi
every resource i see regarding DBI refers to retrieving data from a database into and array or a hash, but i havent seen anything on how to pull out a single value to a scalar
in my database i have a field called "forcewrite" with a value of "6". I am trying to connect to the database,... (2 Replies)
Discussion started by: hcclnoodles
2 Replies
7. Shell Programming and Scripting
Hello,
I have the following perl array:
@longname = (Fasthernet0/0 Fasthernet0/1 Serial0/1/0 Serial0/2/1 Tunnel55 Tunnel77)
with the followinh array:
@shortname = (Fa0/0 Fa0/1 Se0/1/0 Se0/2/1 Tu55 Tu77)
in other words, I need to remove the following from each element in the array... (4 Replies)
Discussion started by: ahmed_zaher
4 Replies
8. Shell Programming and Scripting
Hi,
Please find below the xsd.
<?xml version="1.0" encoding="ISO-8859-1" ?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:element name="fruitorder">
<xs:complexType>
<xs:sequence>
<xs:element name="orderperson"... (2 Replies)
Discussion started by: vanitham
2 Replies
9. Shell Programming and Scripting
Experts,
I am looking to compare elements of 2 array using perl. Below is not the actual code but logic wise something like this.
my $version = "MYSQlcl-5.2.4-264.x86_64"; <-- split this word into array as (5 2 4 264) ( which is to extract only the version number from the package name)
my... (1 Reply)
Discussion started by: solaix14
1 Replies
10. Shell Programming and Scripting
Hello Folks,
I have a DataDumper variable and the output of the dataDumper is printed in the below manner.
print Dumper \%mnemonics;
VAR1 = {
'SYS-7-CLI_SCHEDULER_LOG_STORED' => ,
'CRYPTO-6-IKMP_MODE_FAILURE' => ,
'AAAA-4-SERVUNDEF' => ,
... (1 Reply)
Discussion started by: scriptscript
1 Replies
LEARN ABOUT DEBIAN
catalyst::model::dbi
Catalyst::Model::DBI(3pm) User Contributed Perl Documentation Catalyst::Model::DBI(3pm)
NAME
Catalyst::Model::DBI - DBI Model Class
SYNOPSIS
# use the helper
create model DBI DBI dsn username password
# lib/MyApp/Model/DBI.pm
package MyApp::Model::DBI;
use base 'Catalyst::Model::DBI';
__PACKAGE__->config(
dsn => 'dbi:Pg:dbname=myapp',
password => '',
username => 'postgres',
options => { AutoCommit => 1 },
);
1;
my $dbh = $c->model('DBI')->dbh;
#do something with $dbh ...
DESCRIPTION
This is the "DBI" model class.
METHODS
new Initializes DBI connection
$self->dbh
Returns the current database handle.
$self->stay_connected
Returns a connected database handle.
$self->connected
Returns true if the database handle is active and pingable.
$self->connect
Connects to the database and returns the handle.
$self->disconnect
Executes rollback if AutoCommit is active, disconnects and unsets the database handle.
SEE ALSO
Catalyst, DBI
AUTHOR
Alex Pavlovic, "alex.pavlovic@taskforce-1.com"
COPYRIGHT
Copyright (c) 2005 - 2009 the Catalyst::Model::DBI "AUTHOR" as listed above.
LICENSE
This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.14.2 2010-01-28 Catalyst::Model::DBI(3pm)