Perl date time

use Time::HiRes qw(time);use POSIX qw(strftime); my $t = time;my $date = strftime "%Y%m%d %H:%M:%S", localtime $t;$date .= sprintf ".%03d", ($t-int($t))*1000; # without rounding print $date, "\n"; # cat > ttt.pl# perl ttt.…

两段用来启动/重启Linux下Tomcat的Perl脚本

两段代码,第二段比较好些. 下面是Split输出结果方式的代码: #!/usr/local/bin/perl #Date:2015-07-07 print "Begin to restart tomcat\n"; my $output = `ps -ef|grep tomcat`; print "$output\n"; my $pid="-1"; my @arr=split(/\n/,$output); $length=@arr; ; while…

MySQL物理备份 lvm-snapshot

MySQL备份之 lvm-snapshot lvm-snapshot(工具备份) 优点: 几乎是热备(穿件快照前把表上锁,创建完成后立即释放) 支持所有引擎备份速度快无需使用昂贵的商业软件(它是操作系统级别的) 缺点: 可能需要跨部门协作(使用操作系统级别的命令,DBA一般没有权限) 无法预计服务停止时间数据如果分布在多个卷上比较麻烦(针对存储级别而言) 逻辑卷快照的原理为什么选择lvm快照备份? 原因:因为锁表的时间不一致,在锁表的瞬间是不能写入的,对其进行快照备份,备份完成后立即解锁…

python3数据结构与算法

python内置的数据结构包括:列表(list).集合(set).字典(dictionary),一般情况下我们可以直接使用这些数据结构,但通常我们还需要考虑比如搜索.排序.排列以及赛选等一些常见的问题. 如何巧妙的使用数据结构和同数据有关的算法,在collections模块中包含了针对各种数据结构的解决方法. 1.序列分解为变量 In [5]: a = (4,5,6) In [6]: x,y,z = a In [7]: x Out[7]: 4 In [8]: z Out[8]: 6 In [9]…

MariaDB的备份与主从、高可用实践

1.编写脚本,支持让用户自主选择,使用mysqldump还是xtraback全量备份. [root@test-centos7-node1 scripts]# cat chose_backup_mysql.sh #!/bin/bash # #************************************************************************ #Author: qiuhom #QQ: 467697313 #mail: qiuhom467697313@qq.…

MySQL_备份

Mysql 的备份前情了解与小试三种级别的备份与恢复数据:1.表级别备份:mysqldump [OPTIONS] database [tables]mysqldump -p密码库名表名 > 保存的路径例子:# mysqldump -p123 db01 emp > /tmp/mysqlbak/emp.sql 备份单个表# mysqldump -p123 db01 emp dept > /tmp/mysqlbak/emp.sql 备份多个表表级别的恢复: 终端命令行中 mysq…

Perl 日期时间函数（date time）

perl在linux下通过date获取当前时间

perl处理文件的时候最好添加上处理的时间戳,获取系统的时间又多种方法,但是反引号是最原始的,不需要其他外界条件和lib的支持. my $now = `date "+%F %T" print FH $now; 结果为:2014-04-13 21:58:21 #my $time_string = `date "+YYYYmmddHHMM"`; my $time_string = `date "+%Y_%m_%d_%H%M"`; print $ti…

Perl: hash散列转换为Json报错集， perl.c,v $$Revision: 4.0.1.8 $$Date: 1993/02/05 19:39:30 $

bash-2.03$ ./u_json.pl Can't locate object method "encode" via package "JSON" at ./u_json.pl line 24. bash-2.03$ ./v_hash_2_Jason.pl Can't call method "encode_json" on unblessed reference at ./v_hash_2_Jason.pl line 32. bash-…

如何用Perl对Excel的数据进行提取并分析

巡检类工作经常会出具日报,最近在原有日报的基础上又新增了一个表的数据量统计日报,主要是针对数据库中使用较频繁,数据量又较大的31张表.该日报有两个sheet组成,第一个sheet是数据填写,第二个sheet则是基于第一个sheet的数据进行的文字描述和图表展示. 文字描述主要包括两部分:一.呈现该31张表中数据量最大的9张表.呈现结果类似于:emp(约14万),dept(约100万)...当然,这个只是举例,为了避免引起不必要的麻烦(主要是企业信息安全方面的考虑),我这里不可能将具体日报的内容贴…

Perl的多进程框架(watcher-worker)

关于perl的多进程,大家可能马上会想到Parallel::ForkManager这个模块.但是今天我们试着自己动手写一个类似的框架:) 该多进程开发模型从开源服务器框架Lighttpd发展而来,核心思路是父进程监控子进程的状态并负责回收,子进程负责任务的执行.当前预先可以设置子进程并发数目的上限值.如需要涉及到进程间的通信,可以通过建立管道pipe的方式,让子进程在结束前将数据通过共享管道写入,待父进程适时读取即可. 本人在工作中进程遇到这样的场景,如从DB取若干任务,收包等等(不停的取/收…

perl Can't use string Cxxx) as a symbol ref while "strict refs" in use at XXXX.pl错误

今天写脚本遇到Can't use string ("bond2 Link encap:InfiniBand ") as a symbol ref while "strict refs" in use at test.pl line 的错误 google了一下,发现stackoverflow有这样的错误,其中有一个是缺少一个分号导致的例如: open (FILE, "ifconfig | "); while (<FILE>)…

perl q qq qr qw qx 区别与使用方法

1.q 相当于单引号' ' 转义字符无效 q可以使用()[] {} // ,, 2.qq 相当于" " 转义字符有效 qq可以使用()[] {} // ,, 3.qw 相当于 ('' ,'' ,' ')在每一个单词上添加 ' ' 转义字符无效 qw可以使用()[] {} // ,, qq 和qw 区别,qq赋给数组是整体赋给数组的一个元素,而qw则会每个单词算作一个数组元素 4.qr 相当于创建正则 qr// 5.qx 执行外部程序相当于`` #!/usr/bin/perl…

perl运行其他程序的5种方法

1.使用system函数运行成功,返回0,运行失败则返回非负整数 system("cmd"); 2.使用qx my $cmd1=qx/date/; 3.使用`` 与qx等效 4.使用open函数 open(CMD,“ifconfig |”) or die $! my @result=<CMD>; close(CMD); 5.使用readpipe函数使用readpipe函数可以获取外部程序运行的结果,比如运行 ls 会列出当前目录的文件和文件夹, my $result=r…

这些年我们一起搞过的持续集成~Jenkins+Perl and Shell script

这些年我们一起搞过的持续集成~Jenkins+Perl and Shell script ##转载注明出处:http://www.cnblogs.com/wade-xu/p/4378224.html 部门用持续集成已经很久了,但其实使用起来还是很麻烦的,每当要给一个新项目set up持续集成的环境,虽然是Copy一些现有的jobs, 但是许多参数,变量需要去改,然后还有调试,少说3,4天搞一下,非常不方便. 最近比较空,就把现有的持续集成系统升级改造下,job用一套模板,全部参数化,只要修改配置…

perl脚本基础总结

1. 单引号字符串中的\n不会被当做换行符处理. 如:'\'\\' --> '\ . 2. 双引号字符串联 "Hello"."World"."\n" --> HelloWrold 换行; 字符串重复操作 "fred"×3 --> "fredfredfred"; 大小写 "\l","\L" --> 小写…

[Perl]抓取个人的所有闪存+格式化保存为文本

以下代码保存为utf8文本格式环境:ActivePerl v5.16 built for MSWin32-x86 两个要调整的地方: for my $i (17..45) { 这里改成自己对应的页码,比如发了30页的闪存,就改成1..30 还有就是这部分改成自己对应的ID和密码,中文ID还未测试过 tbUserName=>"ID",tbPassword=>"密码", 抓取的结果参考截图: =info code: vicyang mail: @.com…

一些Perl例程（全部手打并执行过）

#-1-变量使用,打印#!/usr/local/bin/perl$value=100+30+3+8;print("Value=",$value,"\n"); #-2-变量使用,打印#!/usr/local/bin/perl$value=1024;$sentence="The value of \$value is $value.\n";print($sentence); #-3-多次打印#!/usr/local/bin/perl$name=&qu…

生物信息 perl 脚本实战

索引 1.统计fasta.fa和fastq文件的长度,统计fastq的reads个数,单个reads长度,reads总长度:统计fasta文件中contig的个数,列出名称,单条的长度,以及总长度. 2.1局部组装:创建目录,将比对好的reads按100k为单位,用samtools切,并用awk工具提起reads,分别存放在对应文件夹内 2.2局部组装:用得到的reads_name,去原始的下机reads里提取reads序列 2.3局部组装:使用canu/soapdenovo按窗口组装基本套路…

[工具开发] Perl 爬虫脚本--从美国国家漏洞数据库抓取实时信息

一.简介美国国家漏洞数据库收集了操作系统,应用软件的大量漏洞信息,当有新的漏洞出现时,它也会及时发布出来．由于信息量巨大,用户每次都需要到它的网站进行搜索,比较麻烦．如果能有个工具,每天自动分析它发布的漏洞数据库,如果发现有所需要的新漏洞信息,通过邮件自动发送给公司的系统或者安全管理员就好了．下面我写的这个工具就是起到这个作用的．图片是工具自动发送的邮件截图: 它每天都会根据用户设置的关键字自动抓取 NVD 数据,然后和前一天抓取的数据进行对比分析,当发现今天有新的数据时就发送邮件给用户,…

Perl调用外部命令的方式和区别

主要的方式简述如下:1. system("command");使用该命令将开启一个子进程执行引号中的命令,父进程将等待子进程结束并继续执行下面的代码. 2. exec("command");效果同system命令类似,区别是不会开启子进程,而是取代父进程,因此执行完引号中的命令后进程即结束.一般和fork配合使用. 3. `command`;使用反引号调用外部命令能够捕获其标准输出,并按行返回且每行结束处附带一个回车.反引号中的变量在编译时会被内插为其值. 4. o…

Perl 内部结构详解

PerlGuts Illustrated Version 0.49, for perl 5.20 and older This document is meant to supplement the perlguts(1) manual page that comes with Perl. It contains commented illustrations of all major internal Perl data structures. Having this document han…

perl基本语法

标量标量是 Perl 中最简单的数据类型.大多数的标量是数字(如 255 或 3.25e20)或者字符串(如 hello或者盖茨堡地址). 数字 perl中所有数字内部的格式都是双精度浮点数. 浮点数 1.25 255.000 255.0 7.25e45 #7.25x10 的 45 次方(一个大整数) -6.5e24 # -6.5x10 的 24 次方(一个大的负数) -12e-24 #- -12x10 的-24 次方(很小的负数) -1.2E-23 #指数符号可以大写(E) 整数 0 200…

【转】FTP自动上传文件的perl脚本以及配置文件

这个perl文件将执行的任务是, 按照指定的文件夹目录,自动将该文件夹下的所有文件上传到指定ftp站点的指定目录下本应用程序设计的几个基本理念是:工具箱再利用:尽可能利用已有的工具:简化运行步骤:不引入过多的业务逻辑,满足的需求越简单越好. 所以,我们定义了本应用程序依赖于以下几个工具的运行:ActivePerl-5.8.4.810-MSWin32-x86Upload.plUpload.config 我们将主要的执行逻辑都放在Perl源文件Upload.pl中了,配置文件为Upload.con…

perl unload utf-8 oracle Wide character in print at unload_oracle.pl line 105.

#!/usr/bin/perl use DBI; use Encode; my $dbName = 'oadb'; my $dbUser = 'vxspace'; my $dbUserPass = 'xxx'; my $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass) or die "can't connect to database "; my $table_name= "…

perl unload utf-8 oracle 数据库

perl unload utf-8 Oracle [oracle@oadb sbin]$ sqlplus / as sysdba SQL*Plus: Release 11.2.0.4.0 Production on 星期四 11月 17 18:03:12 2016 Copyright (c) 1982, 2013, Oracle. All rights reserved. 连接到: Oracle Database 11g Enterprise Edition Release 11.2.0.4.0…

【Perl date time】的更多相关文章