DM8联机逻辑备份perl脚本实现要点（单双引号、system和disql）

已于 2022-08-26 09:32:22 修改
阅读量494 收藏 1
点赞数
分类专栏： 达梦数据库 文章标签： 数据库 perl 开发语言
于 2022-06-29 12:13:09 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_42325781/article/details/125500141
版权

概要

此文章非完整脚本功能分享，仅就实现逻辑备份功能进行分享。

问题背景

在编写DM8自动化备份perl脚本中，在涉及联机物理库级备份时，需要执行相关操作，正常情况下，相应语句如下（已简写，便于理解）：

方式一：disql命令调用

#!/usr/bin/perl

my $user = "SYSDBA";
my $passwd = "SYSDBA";
my $bak_name = "TEMP01";
my $bak_dir = "'/usr/local/dm8/backup'";

system("disql $user/$passwd -e \"backup database full to $bak_name backupset $bak_dir\"");

方式二：disql脚本调用

#!/usr/bin/perl

my $user = "SYSDBA";
my $passwd = "SYSDBA";
my $bak_name = "TEMP01";
my $bak_dir = "'/usr/local/dm8/backup'";

#自动创建脚本文件
open bak_sql,'>','/usr/local/dm8/bak.sql';
print bak_sql "backup database full to $bak_name backupset $bak_dir;";
close bak_sql;

system("disql $user/$passwd \\`/usr/local/dm8/bak.sql");

实现过程思路一（相关基础知识在最下方三节）

 基础联机物理库级全备语句：

backup database full to TMP01 backupset '/usr/local/dm8/backup';

⚠️backupset后是备份路径，需要使用单引号！！使用双引号或不使用都会报错（见下图） 

 使用disql命令执行：

disql SYSDBA/SYSDBA -e "backup database full to TMP01 backupset '/usr/local/dm8/backup'"

在perl脚本中利用system调用命令：

#!/usr/bin/perl

system("disql SYSDBA/SYSDBA -e \"backup database full to TMP01 backupset '/usr/local/dm8/backup'\"");

思路：在system函数中套用disql命令即可，使用双引号是因为后续登陆用户名、用户密码和备份路径都将以变量形式输入，在这情况下，原先disql命令中的双引号就需要进行转义！

最终方式：将登陆用户名、用户密码、备份文件名称和备份路径都用变量表示 

#!/usr/bin/perl

my $user = "SYSDBA";
my $passwd = "SYSDBA";
my $bak_name = "TEMP01";
my $bak_dir = "'/usr/local/dm8/backup'";

system("disql $user/$passwd -e \"backup database full to $bak_name backupset $bak_dir\"");

方式一不足：

基于达梦数据库机制，建议在数据库用户下执行上述备份命令（如dmdba），通过该用户执行上述脚本没问题，如果是root用户，那么则需要切换至dmdba，此时system命令无法识别如下语句：

system("su dmdba -c \"disql SYSDBA/SYSDBA -e \"backup database full to TMP01 backupset '/usr/local/dm8/backup'\"\"")

实现过程思路二（相关基础知识在最下方三节）

事先在某路径下创建脚本文件，并使用disql命令调用：

#/opt/scripts/test.sql脚本内容：
backup database full to TMP01 backupset '/usr/local/dm8/backup';

#disql脚本调用：
[root@VM-0-8-centos scripts]# disql SYSDBA/SYSDBA \`/opt/scripts/test.sql;

⚠️`注意需要使用转义！！

在perl脚本中利用system调用命令：

#！/usr/bin/perl
system("disql SYSDBA/SYSDBA \\`/opt/scripts/test.sql");

⚠️原句中的\`是有意义的，因此，需要将\进行转义。

 最终方式：将登陆用户名、用户密码、备份文件名称和备份路径都用变量表示并且test.sql脚本文件自动生成

#!/usr/bin/perl

my $user = "SYSDBA";
my $passwd = "SYSDBA";
my $bak_name = "TEMP01";
my $bak_dir = "'/usr/local/dm8/backup'";

#自动创建脚本文件
open bak_sql,'>','/usr/local/dm8/bak.sql';
print bak_sql "backup database full to $bak_name backupset $bak_dir;";
close bak_sql;

system("disql $user/$passwd \\`/usr/local/dm8/bak.sql");

perl单双引号

单引号

要点：

单引号下，除了单引号（'）和反斜线（\），其他都是正常显示，其中反斜线是转义字符。

实例：

#!/usr/bin/perl

$s1='hello world!';
print "$s1\n";

$s2='hello world!\n';
print "$s2\n";

my $s3='he\'llo world!';
print "$s3\n";

my $s4='he\'llo\' world!';
print "$s4\n";

my $s5='he\\llo world!';
print "$s5\n";

my $s6='he\\ll\\o world!';
print "$s6\n";

执行结果:

hello world!
hello world!\n
he'llo world!
he'llo' world!
he\llo world!
he\ll\o world!

错误使用：单引号内加单引号，未转义

my $s1='he'llo world!';

错误：

Bareword found where operator expected at ./my06 line 3, near "'he'llo"
    (Missing operator before llo?)
syntax error at ./my06 line 3, near "'he'llo world"
Can't find string terminator "'" anywhere before EOF at ./my06 line 3.

特别说明：单引号内加反斜线，仍显示反斜线本身！反斜线仅仅在反斜线和单引号之前，才表示为转义。

双引号

要点：

双引号内可以使用变量内插（即放入变量），和反斜线作为转义字符，只不过转义范围相较单引号更广。

转义字符列表：

\n 换行
\r   回车

\t   水平制表符

\f   换页符
\b 退格
\a 系统响铃
\e ESC （ASCⅡ 编码的转义字符）
\007 任何八进制的ASCⅡ(此例子007表示系统响铃)
\x7f   任何十六进制的ASCⅡ(此例子7f表示删除键的控制代码)
\cC   控制符，也就是control键的代码(此例子此表示同时按下ctrl键和C键的返回码)
\\ 反斜线
\" 反双引号
\l 将下个字符转为小写
\L 将到\E为止的所有字符转为小写
\u   将下个字符转为大写
\U 将到\E为止的所有字符转为大写
\Q 将到\E为止的非单词（non-word）字符加上反斜线
\E 结束\L、\U、\Q

实例：

#!/usr/bin/perl

$s1="hello world!";
print "$s1\n";

$s2="$s1";
print "$s2\n";

$s3="hel\lo world!";
print "$s3\n";

$s4="hel\\lo world!";
print "$s4\n";

$s5="he'llo' world!";
print "$s5\n";

$s6="he\'llo' world!";
print "$s6\n";

$s7="he\'llo\' world!";
print "$s7\n";

执行结果：

s1: hello world!
s2: hello world!
s3: helo world!
s4: hel\lo world!
s5: he'llo' world!
s6: he'llo' world!
s7: he'llo' world!

拓展实验：双引号里套双引号、单引号套单引号

#!/usr/bin/perl

$s1="he\"llo\" w\"orld!";
-->he"llo" w"orld!

$s2="$s1";
-->he"llo" w"orld!

$s3="hel"lo world";
-->出错

$s4="he'llo\' w'orld!";

-->he'llo' w'orld!

整体结论（注意和system函数中做区分）：

在字符串中，使用print "" 中的双引号视为一个执行标识符，不具备其他意义；定义变量中的""和''都只视为怎么操作内部的符号，不具备其他意义。

system函数

使用 system() Perl函数来执行任何Unix命令，该命令的输出将进入perl脚本的输出。默认情况下，它是屏幕，即STDOUT。

变量的使用注意事项：

$PATH="hello world!";
system('echo $PATH');
system("echo $PATH");
system("echo \$PATH");

/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/usr/local/dm8/bin:/root/bin
hello world!
/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/usr/local/dm8/bin:/root/bin

从上面可以看出，system单引号内使用的变量为系统变量，双引号内使用的变量为perl变量，双引号内变量前$加转义字符后，便称为输出系统变量。

disql命令

该命令是达梦数据库自带的客户端命令工具，跟Oracle数据库的sqlplus工具、MySQL数据库的mysql工具一样，用来与数据库服务器进行交互。

disql使用方式：

[dmdba@VM-0-8-centos scripts]$ disql help
disql V8
version: 03134283890-20220304-158322-10045
DISQL 用法1:disql -h|help  显示disql版本信息和帮助信息

DISQL 用法2:disql [ [<option>] [<logon> | {/NOLOG}] [<start>] ]

 <option> 为: [-L] [-S]

  -L 只尝试登录一次
  -S 隐藏模式，隐藏<SQL>标识符

 <logon> 为::= {<username>[/<password>] | /}[@<connect_identifier>][<option>] [<os_auth>]
 <connect_identifier>为[<svc_name> | host[:port] | <unixsocket_file>]
 HOST如果是IPv6的地址，需要用[]指明是IPv6地址,例如[fe80::1e6f:65ff:fed1:3724%6]
 INET_TYPE如果是UNIXSOCKET类型，<connect_identifier>需要指明是unixsocket地址,例如:/data/sdb/DAMENG/foo.sock
 <option> ::= #{<extend_option>=<value>[,<extend_option>=<value>]...}
 <os_auth> ::= AS {SYSDBA|SYSSSO|SYSAUDITOR|USERS|AUTO}

 <extend_option>            <value>
 MPP_TYPE                    GLOBAL/LOCAL
 INET_TYPE                   UDP/TCP/IPC/RDMA/UNIXSOCKET
 SSL_PATH                    <path_str>
 SSL_PWD                     <pwd_str>
 PROXY_CLIENT                <user_str>
 GWDSN                       <GATEWAY DSN>

 <start> ::= <`sql脚本> | <direct cmd> | <direct sql> 运行disql脚本

 /NOLOG 选项能在未登录DM服务器的情况下启动disql

 <`sql脚本>::= `<filename>[<parameter> { <parameter>}...]"

 <direct sql>::= -e "<SQL语句>[;<SQL语句>]"

 <direct cmd>::= -c "<set 命令>"

重点关注使用方式：

1.使用脚本（⚠️反斜线在执行过程中是否需要转义）

disql 用户名/用户密码@ip地址：端口号 `脚本

如：

disql SYSDBA/SYSDBA `/usr/local/dm8/insert_data.sql;

2.使用命令

disql 用户名/用户密码@ip地址：端口号 -e "SQL语句1;SQL语句2;..."

如：

disql SYSDBA/SYSDBA -e "select * from user_tables";

disql脚本变量参数使用

 脚本文件中变量以&数字形式出现，传入参数时使用按顺序将参数写在disql脚本名后面，如：

#test.sql脚本内容：&1表示备份文件名称、&2表示备份路径

backup database full to &1 backupset &2;

[root@VM-0-8-centos scripts]# disql SYSDBA/SYSDBA

服务器[LOCALHOST:5236]:处于普通打开状态
登录使用时间 : 1.385(ms)
disql V8
SQL> `/opt/scripts/test.sql TMP01 '/usr/local/dm8/backup'
SQL> backup database full to &1 backupset &2;
原值 1:backup database full to &1 backupset &2;
新值 1:backup database full to TMP01 backupset '/usr/local/dm8/backup';
backup database full to TMP01 backupset '/usr/local/dm8/backup';
[-8055]:备份目录冲突.
已用时间: 10.729(毫秒). 执行号:0.
SQL>

注意1：路径需要加单引号；

注意2：加参数的方式仅能进入dm8命令窗口输入，无法使用disql直接输入，如：

disql SYSDBA/SYSDBA \`/opt/scripts/test.sql tmp01 '/usr/local/dm8/backup';

余友_2022
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Perl进程管理
追梦赤子心
01-04 1309
Perl进程管理 1. system函数 在perl中启用子进程的最简单的方法是使用system函数，如需要使用perl调用 Unix 的 date 命令，告诉 system 要虚运行的外部程序的名称即可： system ‘date’; perl运行的程序成为父进程； system根据当前进程创建一份拷贝，这份拷贝被称作子进程； 子进程会继承父进程的标准输入、标准输出以及标准错误； 一般 ...
Perl和操作系统交互(一)：system、exec和反引号
weixin_34198797的博客
09-23 789
调用操作系统命令：system函数 system函数可以直接让perl调用操作系统中的命令并执行。 system入门示例 例如： #!/usr/bin/perl system 'date +"%F %T"'; system 'echo hello world'; system 'echo',"hello","world"; 执行结果： 2018-06-21 18:32:50 hello worl...
perl中system函数和反引号` `使用区别
热门推荐
Keep Moving~
11-25 1万+
在perl中调用system(“cmd”)函数和使用反引号` cmd`均是调用系统命令，但两者使用上是有些细微差别。调用system函数返回的是该函数执行返回值，比如0表示执行正确，-1执行错误；同时会将cmd命令的结果打印到控制台界面；而反引号` `直接返回的就是该cmd的执行结果，但是不会屏幕上表现出来。具体代码如下：print "******call system() function\n";
无涯教程-Perl - system函数
最新发布
无涯教程
08-17 511
无涯教程网提供描述该函数执行PROGRAM指定的命令,并将LIST作为参数传递给该命令。返回值是等待功能返...返回值是等待功能返回的程序的退出状态。要获得实际的退出值,请除以256。该函数执行PROGRAM指定的命令,并将LIST作为参数传递给该命令。Perl 中的 system函数 - 无涯教程网。此函数返回wai返回的程序的退出状态。以下是显示其基本用法的示例代码-执行上述代码后,将产生以下输出-以下是此函数的简单语法-
使用Perl的system运行外部程序
杰瑞的专栏
04-27 1万+
很多情况下，需要把程序包装在Perl脚本中运行。 例如，我们可以用Perl来收集执行某个程序所需的参数。 或者也可以捕获其它命令行程序的输出，然后再基于它们做一些决策。 Perl提供了很多不同的解决方案。来看一下。 system system可能是最简单的。它最基本的形式就是以字符串传入你想执行的外部命令。 例如在Unix/Linux机器上有用来
Shell脚本字符串单引号和双引号的区别浅析
01-20
字符串是shell编程中最常用最有用的数据类型（除了数字和字符串，也没啥其它类型好用了），字符串可以用单引号，也可以用双引号，也可以不用引号。单双引号的区别跟PHP类似。 单引号 代码如下: str=’this is a ...
关于JavaScript的单双引号嵌套问题
10-19
单引号和双引号之间可以相互嵌套。接下来通过本文给大家介绍JavaScript的单双引号嵌套问题 ，感兴趣的朋友一起看看吧
JavaScript 限制文本框不可输入英文单双引号的方法
10-20
本文将详细探讨如何利用JavaScript来限制用户在文本框中输入英文的单双引号。这种方法对于防止某些可能导致代码注入的安全问题或者确保数据格式一致性来说至关重要。 首先，让我们来看一下给出的代码片段： ```...
分析PHP中单双引号的误区和双引号小隐患
10-21
首先，单引号和双引号在表示字符串时的基本区别在于对变量的解析。在PHP中，当使用双引号包围字符串时，其中的变量会被解析并替换为它们的值。例如： ```php $var = "world"; echo "Hello, $var!"; // 输出 "Hello,...
升级补丁tongWeb7.0.4.2-3单双引号标签问题.zip
11-03
本文将详细探讨“升级补丁tongWeb7.0.4.2-3单双引号标签问题.zip”这个特定的补丁，它主要针对的是TongWeb服务器的一个关键错误——引号嵌套导致的报错问题。 首先，TongWeb是一款由北京通建数码科技有限公司开发的...
Perl system(cmd) 和 `cmd` 的区别探讨
xiaocao9903的专栏
12-05 1321
在perl中 系统调用有两种方式，一种是system(cmd),另一种是`system` 以前一直没注意，这两种方式的区别，还以为是一样的， 今天写脚本的时候，忽然想要获取命令的返回值，然后，用了 my $result = system('ls'); 发现，命令的结果并没有返回给$result, 而是直接，打印到屏幕上了，所以，这么搞是要完蛋的， 而改成 my $result =
perl system,exec,readpipe 函数
frt007的专栏
06-27 2971
转载：http://blog.sina.com.cn/s/blog_615770bd0100rzrd.html 在Perl脚本中，允许调用系统的命令来进行操作。这就是Perl灵活性的体现，作为一种系统命令的粘合语言，能给程序员带来许多的便利。这样，你就可以最大限度地利用别人的成果，用不着自己使劲造轮子了。 在Perl中，可以用system、exec、readpipe这三个命令来调用其他脚本
Perl作为命令行实用程序
rage and serenity
11-24 1066
通常我们只用Perl来写脚本，其实强大的Perl命令行完全可以代替诸如grep，sed，awk等命令。并且他们的用法还真有些像，这一点我还真比较喜欢Perl(与Python比的话)。 [以下转自：http://www.ltesting.net/ceshi/ruanjianceshikaifajishu/rjcshjdj/unix/2007/0704/125082.html] 　　那些将
关于Carbide编译出现perl脚本错误的解决方法
Ordie的专栏
10-20 1209
也是在另外一个博客中看到的，不过现在在网上竟然搜不到了，还好我记录了下来：如果用Carbide编译任意工程，都出现类似如下的错误： ===Build Command = /c abld build WINSCW UDEB -v=== C:/WINDOWS/system32/cmd.exe /c abld build WINSCW UDEB -v   make -r  -f "/Symbian/9.1/S60_3rd_MR/EPOC32/BUILD/Symbian/Carbide/workspace/
关于Perl使用system执行外部命令的返回值
Hunk的菜鸟之路
01-25 3695
问题及处理 最近做一个升级相关的任务，需要在Perl脚本中调用Python脚本，由于Perl脚本中的老代码都是使用的system()函数来调用Python脚本，我就直接仿写了，在Python中用sys.exit(n)退出。当Python返回5时，结果Perl拿到的却是1280，Perl函数调用如下： sub deploy_cert { my $appMode = getAppMod...
达梦数据库备份：备份目录冲突.
xiaoWangZi89的博客
07-15 1367
备份之前需要先配置归档，其中有一个归档路径，它的作用就是存放归档日志。 现在是备份，备份的文件存放地方，不能房这个路径的。
Perl笔记14、进程管理
lanyanai的专栏
10-14 785
system 函数 system函数是Perl中启动子进程最简单的方法。如下调用linux的date命令： system "date" 它会创建一个子进程来运行date命令，并且这个子进程继承了Perl的标准输入/输出/错误。也就是说date的输出日期时间字符串会送到目前Perl的STDOUT指向的地方。 system函数可以使用单个，或多个参数的形式，其中单个函数的形式很简单，经需要运行的命令
Perl 学习笔记（1）
weixin_33737134的博客
06-24 125
在本章将要学习：（1）system()函数 （2）捕获输出 （3）代码的移植性 一、system()函数 若要运行非perl的命令，最简单的方法是使用system（）函数。system()函数能够暂停perl程序，运行外部命令，接着在运行你的perl程序。 system("ls -l") ；system("dir /w") system...
达梦数据库DM8 - 关于字母大小写、单引号、双引号
Scowarren的博客
07-30 1万+
近期对达梦数据库DM8做测试时候，有个问题困扰了我大半天，百度几个来回也没找到原因。 最开始是使用dexp导出表的时候一直报错，最终发现跟大小写字母有关系。从而延伸出单引号、双引号的使用。 下面系统的对大小写、单引号、双引号做一个测试。 首先，在初始化数据库的时候，默认勾选了“字符串比较大小写敏感”。 这样，数据库初始化完成后，建表的时候，如果表名或列名使用小写字母，那么今后书写SQL语句的时候就要麻烦很多了，必须严格区分单引号、双引号的使用。字符串常量应使用单引号括起，关键字、对象名、..
shell脚本中的单双引号
03-16
在shell脚本中，单引号和双引号都可以用来表示字符串。其中，单引号括起来的字符串中的所有字符都会被视为普通字符，不会进行任何转义或替换；而双引号括起来的字符串中的一些特殊字符（如$、`、\等）会被解释和替换...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值