![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
scripts
文章平均质量分 70
_lovjesus
这个作者很懒,什么都没留下…
展开
-
shell的数据库连接
****mysql——>shell#!/bin/bashmysql -uroot -ppassword use databasename; create table tablename ( name VARCHAR(100) NOT NULL , id INT(32) NOT NULL,PRIMARY KEY (`id`) ) ENGINE=MYISAM; //创原创 2013-03-05 10:29:36 · 929 阅读 · 0 评论 -
perl CPAN模块自动安装
a、手工安装的步骤: 从CPAN下载了DBI模块1.13版的压缩文件DBI-1.13.tar.gz,假设放在/usr/local/src/下。 cd /usr/local/src 解压缩这个文件: tar xvzf DBI-1.13.tar.gz 这时会新建一个DBI-1.13的目录。 cd DBI-1.13 生成makefile: perl转载 2013-05-10 11:05:38 · 954 阅读 · 0 评论 -
perl库及函数
use strict;use warnings;use Encode;use DBI; #关系型数据库use MIME::Base64; #base64编解码use MIME::QuotedPrint; #可打印字符编码use Encode;use Cache::Memcached; #memcache缓存库use Getopt::Long;========原创 2013-04-09 11:41:00 · 1419 阅读 · 0 评论 -
perl DBI 总结
最近在写perl程序进行数据的采集,perl教程在网上少的可怜呐,至少我找到的资料是很少的。在连接数据库方面下面这个博客写的还是很清晰的,所以就转过来了。源文地址:http://blog.csdn.net/like_zhz/article/details/5441946DBI和DBD的不同关系模型:############################################转载 2013-05-29 16:55:40 · 806 阅读 · 0 评论 -
shell判断文件是否存在
1. shell判断文件,目录是否存在或者具有权限 2. #!/bin/sh 3. 4. myPath="/var/log/httpd/" 5. myFile="/var /log/httpd/access.log" 6. 7. # 这里的-x 参数判断$myPath是否存在并且是否具有可执行权限 8. if [ ! -x "$myPath"]; then 9. m转载 2013-07-24 13:22:37 · 671 阅读 · 0 评论 -
mutt发邮件及简单脚本
瞎忙活了一天多 就忙活出来这么点东西 但是也得记下来 免得以后用得上。linux如果没有mutt可以去http://rpm.pbone.net/ 查找并下载mutt 发邮件的主要命令:cat filename | mutt -s "title" -a attachment_file -c w1@a.comfilename: 文件名字 该文件内容将被邮件作为正文attach原创 2013-03-01 15:26:50 · 3407 阅读 · 0 评论 -
shell常用到的基础语法
1:写一个循环发邮件的小脚本测试用i=0while(($i do ./deliver -d a1@a.com -f a2@a.com let "i=i+1" //加法let 不支持i++done原创 2013-11-13 10:34:51 · 892 阅读 · 0 评论 -
perl执行系统命令
在Perl中,可以用system、exec、readpipe这三个命令来调用其他脚本、系统命令等。这三个命令的主要区别就是返回值。1) 对于system这个函数来说,它会返回执行后的状态,比如说 my @args = (“command”, “arg1″, “arg2″); system(@args) == 0 or die “system @args faile转载 2013-05-10 09:59:37 · 4400 阅读 · 0 评论 -
perl笔记(2)-数据结构
学习网址:http://www.cbi.pku.edu.cn/chinese/documents/perl/perl4.htm数组和列表:列表是包含在括号里的一序列的值:如:(1, 5.3 , "hello" , 2,$var),空列表:()。数组--列表的存贮:my @array=(1, 5.3 , "hello" , 2,$var); my @array=();对数组中的值通过原创 2013-05-07 10:30:56 · 685 阅读 · 0 评论 -
perl的File::Tail模块
use File::Tail; 功能:读取不断变化的文件,相当于tail -f file 命令 eg: (1) $file = File::Tail->new(name=>$logfile, tail=>-1); while ( defined($line=$file->read)翻译 2013-04-16 17:19:28 · 1341 阅读 · 0 评论 -
perl方法积累
1:chmop($var); //删除$var中最后的换行符的2:chop($var); //删除$var中的最后一个字符的3:newfilename=${filename}."txt"; //链接用.4:$conn->do(SET character_set_results='gbk') ;$conn->(SET NAMES 'gb2312') ;$conn->do(SET NA转载 2013-03-29 18:00:47 · 491 阅读 · 0 评论 -
shell关于参数的处理(转)
地址:http://blog.csdn.net/qzwujiaying/article/details/6371246参数处理-Shell传入参数的处理1. $# 传递到脚本的参数个数2. $* 以一个单字符串显示所有向脚本传递的参数。与位置变量不同,此选项参数可超过9个3. $$ 脚本运行的当前进程ID号4. $! 后台运行的最后一个进程的进程ID号5. $@ 与$#相同转载 2013-03-29 18:02:17 · 671 阅读 · 0 评论 -
ldap迁移脚本group
#!/usr/bin/perl -w ##by yingying.liu @ 2013.3.28 11:03##Release 1.0use strict;use warnings;use Encode; use DBI;use MIME::Base64;use MIME::QuotedPrint;use Encode;use Cache::Memcache原创 2013-03-28 14:54:22 · 916 阅读 · 0 评论 -
ldap文本处理
将文件中给分割的多行合并成一行被分割的行特点:首行顶头,次行一空格开头,可以存在N个次行。eg:1111111 //顶头写 222222 //以空格开头 333333 //以空格开头实际上在文件中这三行本是一行的:1111111222222333333只是因为过长所以被按上面形式分割开来。下面是将文件还原到一行的脚本:在对文件进行行处理之前用得上。#! /us原创 2013-03-28 15:10:31 · 630 阅读 · 0 评论 -
use strict 介绍
什么场合要用 use strict当你的程序有一定的行数时,尤其是在一页放不下时,或者是你找不到发生错误的原因时。为什么要用 use strict?众多的原因之一是帮你寻找因为错误拼写造成的错误。比如错误使用了'$recieve_date' 变量,但实际上你在程序中已声明的是 '$receive_date' 变量,这个错误就很难发现。同样,use strict 迫使你把变量的范围缩转载 2013-04-25 11:22:09 · 670 阅读 · 0 评论 -
Shell脚本大小写字符串转换(mail-username),telnet用在shell中
以前写Bash Shell脚本,大小写转换通常这样做:str="This is a Bash Shell script."newstr=`tr ‘[A-Z]‘ ‘[a-z]‘ 今天看bash的man page,发现有更简单的方法转小写,只需要将变量名字declare -l 后,再给变量赋值,变量的内容即为小写转大写,只需要将变量名字declare -u后,再给变量赋值,变量转载 2013-04-25 11:19:34 · 753 阅读 · 0 评论 -
perl笔记
学习网址:http://www.cbi.pku.edu.cn/chinese/documents/perl/perl2.htm一、基础 1:以#! /usr/local/bin/perl -w开头 整数是浮点数特例,寄存在浮点寄存器中。0开头是八进制、0x是16进制。 定义变量:$var = "some data"; 或者 $var = 0;注意:字符原创 2013-04-09 11:18:08 · 597 阅读 · 0 评论 -
perl的Parse::Syslog模块
my $parser = Parse::Syslog->new('/var/log/syslog', year=>2001);while(my$sl= $parser->next){ ... access $sl->{timestamp|host|program|pid|text} ... }翻译 2013-04-18 11:38:25 · 819 阅读 · 0 评论 -
获取 RRD 文件的信息
一)前言 可能你已经颇不亟待的想知道如何往 RRD 文件插入数据、如何绘图了吧?hoho,先别急,在你做这些事情之前,最好先思考以下几个问题 : A)如果给你一个 RRD 文件,你能知道它的第一次/最后一次 update 的时间是在什么时候吗? B)如果你很久之前建立了一个 RRD 文件,现在因为工作原因需要对该 RRD 文件进行一些修改。不过遗憾的是,转载 2013-04-26 16:19:46 · 2345 阅读 · 0 评论 -
select.pl
#! /usr/bin/perl#use strict;use DBI;use DBI::DBDopen TMP,">>111";my @row;my $sql = "";my $conn = "";$conn = DBI->connect("DBI:mysql:database=lyytest:host=127.0.0.1","root","123456",{原创 2013-05-29 18:05:59 · 590 阅读 · 0 评论