我是Perl编程的初学者，我想了解Perl中的OOP。我开发了一个关于sql创建者的简单应用程序，但我有一个问题。我认为问题是传递多个参数。
package SqlCreator;
use warnings;
use strict;
sub new {
my ($class, %args) = @_;
return bless \%args, $class;
}
sub editArray {
my (@array) = @_;
my $text = '';
my $arraySize = scalar @array;
fo
浏览 5提问于2017-04-29得票数 0
回答已采纳
我正在尝试从Eclipse (python3.2)访问R2上的win7。
我需要在数据库上创建一个表。
代码可以很好地运行。但是，我不能在数据库中创建表。如果打印sql字符串并从SQL服务器管理演播室运行查询，则没有问题。
import pyodbc
sql_strc = " IF OBJECT_ID(\'[my_db].[dbo].[my_table]\') IS NOT NULL \n"
sql_strc1 = " DROP TABLE [my_db].[dbo].[my_table] \n"
sql_stra = " CREA
浏览 4提问于2014-08-01得票数 1
回答已采纳
使用PowerShell，如何将输入重定向到sqlplus (非交互式stdin模式)，这样一旦重定向输入完成，sqlplus就在交互式stdin模式下打开，而不退出SQL*Plus？
似乎重定向的输入正在发出一个隐式exit，而SQL*Plus正在处理该exit。
使用Oracle19c企业版，Oracle InstantClient 19c 64位，PowerShell桌面5.1.19041.1320，MicrosoftWindows10.0构建19042。
提前谢谢你。
dev.sql
set echo on
set serveroutput on
exec dbms_output.pu
浏览 4提问于2022-02-15得票数 0
回答已采纳
1回答
PL/SQL的新手。我有几个问题，所以这里有一个我想要做的例子。
CREATE OR REPLACE PROCEDURE "my_procedure" (
"my_inparam1" IN VARCHAR2,
"my_inparam2" IN VARCHAR2,
"my_output" OUT SYS_REFCURSOR)
AS
sql_text VARCHAR2 (10000);
BEGIN
sq
浏览 1提问于2014-02-14得票数 2
回答已采纳
我正在使用SQL Server驱动程序。但这是我得到的以下错误：
DBI connect('Driver={SQL Server}:$database:$host','cartertest',...) failed:
[Microsoft][ODBC Driver Manager] Invalid connection string attribute (SQL-01S00)
at PERL_SQL_Connect.pl line 15
Can't call method "disconnect" on an undefined valu
浏览 0提问于2011-08-08得票数 3
1回答
是我做错了什么，还是我的星座不支持sql_type_cast？
#!/usr/bin/env perl
use warnings;
use 5.012;
use DBI qw(:sql_types);
my $dsn = "DBI:Proxy:hostname=horst;port=2000;dsn=DBI:ODBC:db1.mdb";
my $dbh = DBI->connect( $dsn, undef, undef, { RaiseError => 1, PrintError => 0 } )
or die $DBI::errstr;
my $sv
浏览 1提问于2011-03-12得票数 0
回答已采纳
1回答
在t语句中填充临时表
、、、、
我正在尝试填充一个临时表，以便稍后在存储过程中进行查询。由于我正在从几个表中填充数据，所以我试图使用EXEC语句在循环中完成该操作：
最初，我从动态sql中得到一个错误，必须声明表变量。我这样做了，但是动态sql之外的sql没有看到临时表中的数据。下面是我的SQL的样子：
--Original Query:
DECLARE @sql2 varchar(8000)
set @sql2 = 'INSERT INTO @temp_table SELECT TOP 10 my_id, my_text FROM my_dynamic_table'
exec(@sql2)
sele
浏览 2提问于2020-01-09得票数 1
回答已采纳
4回答
我的Perl脚本中有一个循环，用于准备和执行SQL语句，如下所示： my $sql_1 = select * from TABLE;
my $sth_1 = $database->prepare($sql_1) or die "Failed to prepare SQL";
$sth_1->execute() or die "Failed to execute SQL";
my $results = sth_1-> fetchall_arrayref({});
my params_ins;
my params_del;
for
浏览 56提问于2020-06-15得票数 3
回答已采纳
我有一个perl脚本，它在数据库中添加数据。
#!/usr/bin/perl
use cPanelUserConfig;
use strict;
use warnings;
use DBI;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use CGI;
use CGI::Cookie;
use CGI::Session qw();
use JSON;
#use MIME::Lite;
my $CFG = do "config.pl";
my $cgi = CGI->new;
my $db_handle =
浏览 6提问于2015-09-25得票数 6
回答已采纳
如果我试图导入路径中有空格的sql脚本，则找不到该文件。
mypsqluser=> \i /home/markus/Documents/Projekte/My App/Installation/server_sql_script.sql
/home/markus/Documents/Projekte/My: No such file or directory
我试图用反斜杠、双反斜杠或引号来逃避它，但它也不起作用，请参见：
mypsqluser=> \i /home/markus/Documents/Projekte/My\ App/Installation/server_sql_
浏览 0提问于2015-06-04得票数 1
回答已采纳
1回答
是否可以在Zend 2中的选择、更新或删除查询对象中使用命名参数？例如：
$myValue = 'FooBar';
$sql = new Zend\Db\Sql\Sql($adapter);
$select = $sql->select('my_table')
->where('my_column = :my_value')
->setParameter('my_value', $myValue);
浏览 4提问于2014-07-29得票数 5
回答已采纳
所以我的问题是基于这样的问题：
问题是:我能否将参数/参数传递到子例程(它本身也是一个参数)？
sub question {
print "question the term";
return 1;
}
my $question_subref = \&question;
answer($question_subref);
sub answer {
my $question_subref = shift;
print "subroutine question is used as parameters";
# call it
浏览 2提问于2017-09-22得票数 1
回答已采纳
我有一些带有creates的. SQL文件()：
table_1.sql：
IF OBJECT_ID (N'my_schema.table1', N'U') IS NOT NULL
DROP TABLE my_schema.table1;
CREATE TABLE my_schema.table1(
id int IDENTITY PRIMARY KEY,
nameTable1 varchar(255) NOT NULL UNIQUE
);
和table_2.sql：
IF OBJECT_ID (N'my_schema.table2',
浏览 1提问于2015-07-30得票数 2
回答已采纳
试图使用以下命令导入大约8GB的sql文件
sudo -u postgres psql yourdb -f my_file.sql
sudo -u postgres psql yourdb < my_file.sql
sudo -u postgres cat my_file.sql | psql yourdb
sudo -u postgres psql
\i my_file.sql
但它们都返回out of memory错误消息。也尝试过配置给定的这里
浏览 0提问于2014-10-24得票数 1
来自关于QMap::iterator的Qt文档：
与QHash (以任意顺序存储其项)不同，QMap 存储由key订购的项目。共享相同密钥的项(因为它们是使用QMap::insertMulti()插入的，或者是由于unite())将连续出现，从最近的插入值到最近插入的值。
我想要的是通过插入索引来插入映射。比如这张地图。
const static QMap<QString, int> MEASUREMENT_COLUMNS{{"ID", MY_SQL_BIGINT}, {"logging_id", MY_SQL_INT}, {"calibr
浏览 7提问于2021-09-28得票数 2
回答已采纳
我正在尝试测试第一个time.like的连接性
#!/usr/bin/perl -w
use DBI;
# DBD::ODBC
use CGI::Carp qw(fatalsToBrowser);
my $dsn = 'DBI:ODBC:Driver={SQL Server}';
#my $host = 'localhost';
my $host = 'mysql';
my $database = 'test';
my $user = 'root';
my $auth = 'mukesh';
# C
浏览 0提问于2013-09-15得票数 0
回答已采纳
1回答
是否有一种方法可以执行两个集合的联合，而这两个集合都是通过两个不同的执行块命令输出的？
sets结构是相同的，但每个参数都包含不同的参数，因此我无法在一个执行块命令中轻松地合并这两个参数。
例如
EXECUTE BLOCK RETURNS -- set 1
AS DECLARE VARIABLE....my sql 1
BEGIN
FOR
..... my sql 1
DO
BEGIN
FOR
..... my sql 1
DO BEGIN
SUSPEND;
END
END
END UNION
EXECUTE BLOCK RETURNS -- set 2
AS DECLA
浏览 3提问于2021-02-17得票数 1
回答已采纳
我有一个SQL文件my_query.sql。
select * from my_table
使用psql，我可以在这个sql文件中读取：
\i my_query.sql
或者把它当作艺术品传进来：
psql -f my_query.sql
我可以将查询字符串的结果输出到csv：
\copy (select * from my_table) to 'output.csv' with csv header
是否有一种方法将它们组合在一起，以便我可以将查询结果从SQL文件输出到CSV？
浏览 6提问于2016-08-19得票数 3
回答已采纳
断开连接使一个活动语句句柄无效(要么销毁语句句柄，要么在断开连接之前对它们调用finish )
从MySQL获取数据的以下代码被成功执行，但将导致Apache在其错误日志中生成上述消息：
my $driver = "mysql";
my $server = "localhost:3306";
my $database = "test";
my $url = "DBI:$driver:$database:$server";
my $user = "apache";
my $passw
浏览 4提问于2009-02-12得票数 9
回答已采纳
我想将数据从fifo管道插入到mysql表中
我的脚本如下：
#!/usr/bin/perl
#Script to read data out of a named pipe and write to MySQL database.
$| = 1;
use strict;
use DBI();
my $filename;
my $inputline;
my $linenumber;
my @arr;
$filename = "./SEC_fifo";
open(FIFO, "+< $filename") or die "FIFO error
浏览 0提问于2014-05-26得票数 4
回答已采纳
我在努力让这件事成功
#!/usr/bin/expect
spawn "(psql blabla \"blabla sql;\" &> /dev/null) && (pg_restore -d xx my_file.sql &> /dev/null)"
expect "Password for user my_base: "
send "v"
但我总能得到：
spawn (psql blabla "blabla sql;" &> /dev/null) &
浏览 0提问于2020-01-17得票数 0
回答已采纳
我们正在开发一个迁移程序。数据库中有近8000万条记录。代码如下：
static int mymigration(struct progargs *args)
{
exec sql begin declare section;
const char *selectQuery;
const char *updateQuery;
long cur_start;
long cur_end;
long serial;
long number;
char frequency[3];
exec sql end declare section
浏览 1提问于2010-02-23得票数 1
回答已采纳
2回答
用md5sum比较2个文件的内容
、、、、
如何在一个命令中比较两个文件的md5和？
我可以分别计算它们：
my_prompt$ md5sum file_1.sql
20f750ff1aa835965ec93bf36fd8cf22 file_1.sql
my_prompt$ md5sum file_2.sql
733d53913c366ee87b6ce677971be17e file_2.sql
但是想知道如何将其合并到单个比较计算中。我尝试了不同的方法，但都失败了：
my_prompt$ md5sum file_1.sql == md5sum file_2.sql
my_prompt$ `md5sum file_1.sql` =
浏览 44提问于2021-05-28得票数 0
回答已采纳
我的Django项目的结构是这样的：
myapp/
manage.py
Dockerfile
docker-compose.yml
my-database1.sql
my-database2.sql
requirements.txt
pgadmin/
pgadmin-data/
myapp/
__init__.py
settings.py
urls.py
wsgi.py
这是我的docker-compose.yml文件：
version: "3.9&#
浏览 4提问于2021-05-11得票数 0
首先(如果这很重要)，我正在使用ActiveState的Perl (为MSWin32-x86-多线程构建的5.8.7版本)。
我刚刚结束了长达三个小时的调试过程，试图找出错误的来源。我发现根本没有错误，但出于某种原因，ADO的连接对象是随着存储过程输出中的每一条打印消息而使Errors.Count增加。
考虑使用以下Transact SQL代码：
CREATE PROCEDURE dbo.My_Sample() AS
BEGIN TRAN my_tran
-- Does something useful
if @@error <> 0 BEGIN
ROLLBACK TRAN m
浏览 6提问于2008-10-21得票数 2
回答已采纳
我有以下可以直接在MySQL中使用的SQL
INSERT INTO `my_tabel` (`data`) VALUES ("my_value");
SELECT * from `my_tabel` ORDER BY `id` DESC LIMIT 1
它插入一行，然后获取新行，这样我就可以返回新的ID以供以后使用。
当我尝试在中运行SQL时，我得到一条错误消息，指出我的SQL中有一个错误。
$m = new my_model();
$sql = 'INSERT INTO `my_tabel` (`data`) VALUES ("'.$my_valu
浏览 0提问于2012-05-18得票数 1
回答已采纳
1回答
我有课要连接我的数据库。
import psycopg2, psycopg2.extensions
from parseini import config
import pandas as pd, pandas.io.sql as sqlio
class MyDatabase:
def __init__(self, name='mydb.ini'):
self.params = config(filename=name)
self.my_connection = psycopg2.connect(**self.params)
浏览 3提问于2020-05-29得票数 4
回答已采纳
我需要检查SQL server2008 R2上存储过程的返回值。
import pyodbc
sql_str = """
DECLARE @return_value int
SET @return_value = -1
INSERT INTO [my_database].[dbo].[my_table]
EXEC @return_value = [my_database].[dbo].[my_stored_procedure]
浏览 5提问于2014-08-02得票数 0
我在Oracle 11.2中使用SQL*Plus，我知道如何输出符合某些条件的行数，例如：
select count(*) from MY_TABLE where MY_FIELD is not null;
而且，很容易输出MY_TABLE中的所有行：
select count(*) from MY_TABLE;
但是，如何在SQL*Plus中输出这两个计数的比率，即如何在SQL*Plus中计算来自SQL命令的输出？。
几个注意事项
我对此感兴趣，因为我有一个长期运行的后台过程，它将MY_FIELD列中的值随着时间的推移从null更新到文本，所以在SQL*Plus中快速查看行数已经完成的比率
浏览 2提问于2020-03-26得票数 0
回答已采纳
package testDB;
use Moose;
use Carp;
use SQL::Library;
has 'lib' => (#FOLDBEG
is => 'rw',
isa => 'Str',
default => 'default',
trigger => \&_sql_lib_builder,
);#FOLDEND
has 'lib_dir' => (#FOLDBEG
is => 'ro'
浏览 1提问于2011-10-19得票数 1
回答已采纳
我在模式中有一张桌子。
my_schema.my_table
在相同的模式中，我还有一个名为“相同但带有引号”的表。
my_schema."my_table"
如何使用my_schema."my_table"删除psycopg2？(不冒掉my_schema.my_table的风险)
我试过：
postgresConnection = psycopg2.connect(...)
from psycopg2 import sql
cursor = postgresConnection.cursor()
name_Table
浏览 12提问于2021-12-11得票数 0
回答已采纳
1回答
我有这段SQL Server2005的代码，它工作正常
declare @GroupID varchar(11)
DECLARE ConMaster CURSOR FOR
SELECT groupid from collectorgroup where (CollectionDate BETWEEN '08/01/2013 00:00:00' and '08/01/2013 23:59:59') AND oRnO <> ''
OPEN ConMaster
FETCH NEX
浏览 2提问于2013-11-18得票数 1
1回答
我想向数据库中已经存在的MySQL值中添加一个值。我知道您可以通过以下方式完成此操作：
my $sql1 =qq(UPDATE genotype SET Tally=Tally+10);
但是，我希望'+10‘是一个占位符，因为值将根据程序所在的for循环的哪个迭代而变化。我写了以下代码，但是它不起作用：
my $sql1 =qq(UPDATE genotype SET Tally=Tally + ?);
my $sth1 = $dbh_m-> prepare($sql1);
$sth1->execute($ParentTally);
这里可以使用占位符吗？我也写了这样
浏览 1提问于2012-02-17得票数 0
1回答
对于这两种方法，您更喜欢:尝试找到正确的数据类型还是简单地始终使用varchar？
# ...
use HTML::TableExtract;
my $te = HTML::TableExtract->new( headers => [ 'some headers', 'one', 'two' ], keep_headers => 1 );
$te->parse( $html_string );
die $te->tables if $te->tables != 1;
( my $grid ) = $te-&g
浏览 1提问于2011-03-06得票数 2
回答已采纳
print "Enter number of days: ";
my $var = <STDIN>;
my $SQL = "COPY (SELECT * FROM Parent WHERE StartDate < NOW() - INTERVAL '$var days')
TO '/home/username/Desktop/new1.csv' WITH CSV";
my $sth = $dbh->prepare($SQL);
my $rv1 = $dbh->do($SQL)
浏览 0提问于2016-05-28得票数 0
我需要在多个表上执行原始sql。然后，我呈现结果集。对于一个表，我会这样做：
sql = "select * from my_table"
results = my_table.objects.raw(sql)
对于多个表，我正在执行以下操作：
sql = "select * from my_table, my_other_table where ...."
results = big_model.objects.raw(sql)
但是，我真的需要创建一个表/模型/类big_model，它包含我可能需要的所有字段吗？我永远不会在这个“表”中存储任何数据。
添加：
浏览 0提问于2011-10-17得票数 3
回答已采纳
我只是想让我的生活更轻松。我的问题是，我不能直接从函数中访问mysqli_connect对象，必须将该函数作为参数传递给对象，这是我知道的方法。
define_constant( MYSQLI , mysqli_connect( "localhost","my_user","my_password","my_db" ) );
目前所做的类似于：
$link = mysqli_connect("localhost","my_user","my_password","my_db&
浏览 1提问于2019-05-27得票数 0
回答已采纳
2回答
我还得到了dbConnect未定义错误的方法。我似乎找不到问题所在。dbConnect是带有密码的硬编码。
#! perl
use strict;
use warnings;
use diagnostics;
use DBR qw(dbConnect query);
my $dbhead = dbConnect();
my $sql = "select * from mailing";
my @returned = query($dbhead,$sql);
保存在名为DB.pm的保存目录中的模块。我不能更改它的名称或内容。
package GUI::DB;
use
浏览 2提问于2013-10-22得票数 0
在psql中，如果我的字段分隔符为"，"，但在某些字段中有逗号，那么是否可以指定字段括体字符？我看过这些文件，但找不到。
示例：
psql -h my_server -U my_user -d my_db -f sql_in/my_sql.sql -o sql_out/my_sql_out.csv -A -F','
-A将关闭表格式，-F指定字段分隔符。
如果我有一排看起来像
id types
1 zebra, lion, cat
2 horse
我希望它输出到csv，例如：
1,"zebra, lion, cat"
2,"ho
浏览 0提问于2020-05-12得票数 0
回答已采纳
在转换数据库的过程中，我尝试使用最佳/最快的插入。AFAIK，惯用块-插入应该准备语句处理程序，然后迭代数据来插入它。就像这样：
my $sql = q|INSERT INTO test.table ( value ) VALUES ( ? ) |;
my $sth = $dbh->prepare( $sql );
for my $val ( 1 .. 1000000 ) {
$sth->execute( $val );
}
我认为在state-declarator的帮助下，我可以将这个例程重构为函数，如下所示：
sub sql_state {
my ( $va
浏览 0提问于2015-02-03得票数 1
回答已采纳
正在尝试使用Perl对sql server数据库进行远程备份。但不知何故得到了以下错误：
备份错误: 3041，严重性: 16，状态: 1。备份无法完成命令Backup DATABASE testdb。有关详细消息，请查看备份应用程序日志。
脚本如下所示：
use DBI;
my $dsn = 'DBI:ODBC:Driver={SQL Server}';
my $host = 'hostname';
my $database = 'dbname';
my $user = 'sa';
my $auth = 'xxxxxxx
浏览 1提问于2012-08-29得票数 0
回答已采纳
无法从ant的SQL任务运行sql：
BEGIN
DBMS_AQADM.CREATE_QUEUE_TABLE(
queue_table => 'MY_QUEUE',
queue_payload_type => 'sys.aq$_jms_map_message');
DBMS_AQADM.CREATE_QUEUE(
queue_name => 'MY_QUEUE',
queue_table => 'MY_QUEUE');
DBMS_AQADM.START_QUEU
浏览 3提问于2010-03-19得票数 2
回答已采纳
我正在使用golang从postgres查询，其中一个字段包含有时可以为NULL的json
像这样
row := db.QueryRow(
"select my_string, my_json from my_table where my_string = $1",
my_id)
var my_string sql.NullString
var myjson MyJsonStruct
err := row.Scan(&my_string2, &myjson)
但我得到了
sql: Scan error on column index 2, na
浏览 19提问于2020-02-04得票数 0
回答已采纳
我正在尝试使用teradatasql模块通过Python执行一些基本的SQL。代码似乎正在运行并执行SQL :但是，Python本身的执行在下面重现的代码末尾出现错误而结束。目前，我需要使用pandas在SQL的输出上运行额外的数据预处理步骤，但是更大的程序将不会在操作错误之后继续执行(甚至不会通过除teradatsql.OperationalError之外的try/except块)。因此，即使SQL在这个问题上执行得很好，我也需要解决它。 有什么建议吗？谢谢! 错误： teradatasql.OperationalError: 1不是有效的连接池句柄 代码： import teradata
浏览 31提问于2021-09-09得票数 0
这是PHP代码：
<?php
// header('Content-type: application/json');
header('Content-Type: text/html; charset=UTF-8');
$d=$_GET["userid"];
$servername = "*******";
$username = "***";
$password = "****";
$dbname = "*****";
$arr = array();
$M
浏览 4提问于2014-12-31得票数 0
回答已采纳
使用C++模板引擎库
在SQL中，我可以使用名为“col1”的VARCHAR类型列在数据库中插入一行
std::string my_template = "INSERT INTO [my_table] (col1) VALUES ('my_value');"
注意，SQL类型需要单引号。
'my_value‘
若要插入SQL空值，未指定单引号。
"INSERT INTO [my_table] (col1) VALUES (NULL);"
我有一个模板，其中的值是单引号，它允许插入字符串值，如
std::string insert_tem
浏览 8提问于2022-07-24得票数 0
当我的R函数的用户提供一个带有无法识别的转义的字符串时，我想给出一个更具信息性的错误消息
my_string <- "sql\sql"
# Error: '\s' is an unrecognized escape in character string starting ""sql\s"
像这样的东西将是理想的。
my_string <- "sql\sql"
# Error: my_string contains an unrecognized escape. Try sql\\sql with double
浏览 8提问于2018-08-30得票数 0
回答已采纳
我有以下非常复杂的Perl代码，这些代码由大小不同但通常在10到20行之间的动态数组提供。因此，我在一个循环中运行这一点，但是估计肯定有一种更优雅的方法来插入数据。
是否有可能对此代码进行改进以使其更高效？
sub data_fill {
my $target = shift;
my (@input_data) = @_;
# Delete the old data
my $sth = $dbh->prepare("DELETE FROM work_data WHERE target = '$target' ");
$sth->
浏览 5提问于2014-08-11得票数 1
回答已采纳
为了从表中进行选择，表名在ANSI SQL中指定如下：
SELECT * FROM "My Table"
我想知道在如何指定表的架构名称方面是否有ANSI SQL规则。类似于：
SELECT * FROM "My Schema"."My Table"
在Server上，它将是：
SELECT * FROM [My Schema].[My Table]
但这显然不是ANSI SQL，而是T.
浏览 3提问于2015-11-26得票数 0
回答已采纳
我试图在AWS中将我的.dmp文件导入到。在干净的EC2中，我可以使用连接到Oracle。
# RDS instance info
my $RDS_PORT=1521;
my $RDS_HOST="testphat17.citmdnq1zckt.ap-northeast-1.rds.amazonaws.com";
my $RDS_LOGIN="testphat17/testphat17";
my $RDS_SID="ORCL";
my $dirname = ""C:\Users\Adm
浏览 1提问于2018-01-09得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
