用户登录
用户注册

使用perl实现拆分数据表(mysql)并迁移数据实例

这篇文章主要介绍了使用perl实现拆分数据表(mysql)并迁移数据实例,本文提供了3个脚本,分别用于拆分数据表、迁移数据、插入测试数据,需要的朋友可以参考下
  随着业务量的增长,可能需要对表进行拆分来提高性能。
  下面这个例子是将www.jb51.net的users表拆分成10个表ttlsa_user_0-ttlsa_user_9。
  拆分迁移数据程序如下所示:
  1.创建ttlsa_user_0-ttlsa_user_9表
  
复制代码代码如下:
#!/usr/bin/perl
###################################
###author:www.jb51.net###
###QQ群:232608061 
  • 0
  • 0
  • 0
  • 0
  • 0

perl中使用ip138网站查询ip归属地脚本分享

这篇文章主要介绍了perl中使用ip138网站查询ip归属地脚本分享,本文包含了处理HTML的部分,只保留IP归属地信息,需要的朋友可以参考下
  这是去年年前写的一个perl脚本哎年后都没看过perl了。
  
复制代码代码如下:
#!/usr/bin/perl
useLWP::Simple;
open(FILE,”<file”);
while(<FILE>){
s/^IP1.*//g;
my@file=split(/\,|\s+/,$_);
my@file1=”$file[0]$file[1]“;
my$IP=”$file[1]”;
my$domain=”$file[0]“;
my$url=”http://ip138.com/ips
  • 0
  • 0
  • 0
  • 0
  • 0

perl 采集入库脚本分享

这篇文章主要介绍了perl采集入库脚本分享,本文是以前自己用的脚本,使用的Mysql数据库,需要的朋友可以参考下
#!/usr/bin/perl-wuseDBI;usePOSIXqw(strftime);my$dbh=DBI->connect(“DBI:mysql:shencan:111.1.32.153:3306″,”shencan”,”shencan”);#my$sql=“select*fromshencan.LVS”;#my$sth=$dbh->prepare($sql);#$sth->execute();my$HOSTNAME=`hostname`;chomp($HOSTNAME);my$type;my$hostinfo;#while($hostname=$sth->fetchrow_hashref())#{#print“
  • 0
  • 0
  • 0
  • 0
  • 0

Perl AnyEvent中的watcher实例

这篇文章主要介绍了PerlAnyEvent中的watcher实例,关于AnyEvent请参阅的更多介绍请参阅文中的相关链接,需要的朋友可以参考下
  这几天看了下perl的事件编程框架AnyEvent,重点参考了一下几篇文章:
  http://search.cpan.org/~mlehmann/AnyEvent-7.05/lib/AnyEvent.pm
  http://search.cpan.org/~mlehmann/AnyEvent-7.05/lib/AnyEvent/Intro.pod
  //www.jb51.net/article/55278.htm
  1、什么是事件编程?
  举个简单的例子,你浏览网页的时候,你点击一个图片,蹭的弹出一个东西,你不点,那就在那里,等待一个人来点它。如果你写过js,其实就是,你注册了很多的时间比如click,dbclick,keybord,submit等,那么浏览器就起到帮我们去监听这些事件的发生(Loop)。当
  • 0
  • 0
  • 0
  • 0
  • 0

Perl集群配置管理系统Rex简明手册

这篇文章主要介绍了Perl集群配置管理系统Rex简明手册,自动化运维的一个管理工具,需要的朋友可以参考下
  Rex是Perl编写的基于SSH链接的集群配置管理系统,语法上类似PuppetDSL。官网中文版见http://rex.perl-china.com。本文仅为本人在部门Wiki上编写的简介性文档。
  常用命令参数
  rex命令参数很多,不过因为我们的环境是krb认证的,所以有些参数只能写在Rexfile里。所以一般固定在存放了Rexfile的/etc/puppet/webui下执行命令,很多配置就自动加载了。那么还需要用到的命令参数基本就只有下面几个:
-Tv:查看当前Rexfile里定义了哪些Task任务,以及服务器组。
-H:指定Task将在哪些Host上执行。这里比较方便的地方是支持10.5.16.[95..110]这样的写法。
<s
  • 0
  • 0
  • 0
  • 0
  • 0

Perl脚本检测一个域名是否有效

这篇文章主要介绍了Perl脚本检测一个域名是否有效,检查域名是否可以正常打开,需要的朋友可以参考下
  脚本功能:通过ICMPPing或TCP/SYN探测指定的域名,探测前检测域名是否有效。
file:check.host.pl#!/usr/bin/perlusestrict;useNet::Ping;useNet::DNS;useTime::HiResqw();$|=1;my$DEFAULT_TIMEOUT=2;my$PING_TIMEOUT=2;my$DNS_TIMEOUT=3;###查询域名是否有效subqueryDomain{my$domain=shift();my$query='';my$dns=Net::DNS::Resolver->new(tcp_timeout=&
  • 0
  • 0
  • 0
  • 0
  • 0

perl AnyEvent简单介绍和入门知识

这篇文章主要介绍了perlAnyEvent简单介绍和入门知识,AnyEvent是一个性能非常好的基于事件驱动的框架,需要的朋友可以参考下
  什么是面向事件的编程(事件驱动的编程):
  编程中所有的程序是由事件决定–可以是由用户操作(键盘,鼠标),也可以是由其他程序和流的到达或者操作系统事件(如网络数据包到达)来触发执行.
  面向事件编程可以也被定义为,写一个计算机程序,在其中的代码(通常程序的功能的头部)被明确分配应用程序的主回路,其代码本身由两部分组成方法:事件和事件处理的代码。
  面向事件的编程通常被应用在三种情况下:
  1.创建用户界面的控制(包括图形)
2.创建一个基于服务器的应用程序
3.游戏编程时多个对象的管理
  我们系统管理时,这种应用在服务器的应用程序中使用面向事件的编程很多,比如用于服务器应用解决10,000个并发连接(所谓C10k问题)
  AnyEven
  • 0
  • 0
  • 0
  • 0
  • 0

Perl生成纯HTML代码二维码实例

这篇文章主要介绍了Perl生成纯HTML代码二维码实例,需要的朋友可以参考下
  需要依次安装qrencode、Text-QRCode、HTML-QRCode
  #!/usr/bin/perl
useHTML::QRCode;
my$text='http://jb51.net/';
my$qrcode=HTML::QRCode->new->plot($text);
print<<"HTML";
<html>
 <head></head>
 <body>
 $qrcode
 </body>
</html>
HTML
  生成的二维码是纯HTML代码,效果如:<imgsrc="http://files.jb51.net/file_images/artic
  • 0
  • 0
  • 0
  • 0
  • 0

perl批量查询ip归属地的方法代码

由于业务需要,要查询客户的ip地址,将部分地区的客户过滤出来,感谢黑影子和扶凯的帮忙,推荐了IP::QQWry::Decoded这个模块,该模块是专门用来读取qqwry纯真数据库的,用起来非常简单
  由于业务需要,要查询客户的ip地址,将部分地区的客户过滤出来,开始想到使用ip数据库,发现读取纯真数据库的难度对我来说有些大,而我目前的时间要求比较紧迫,通过在群里询问,感谢黑影子和扶凯的帮忙,推荐了IP::QQWry::Decoded这个模块,该模块是专门用来读取qqwry纯真数据库的,用起来非常简单。
  
复制代码代码如下:
#!/usr/bin/perl
useIP::QQWry::Decoded;
useEncode;
useutf8;
binmode(STDIN,':encoding(utf8)');  #
  • 0
  • 0
  • 0
  • 0
  • 0

perl中尖括号运算符(<>)使用说明

perl中尖括号运算符的用途分享,这里简单介绍下,方便需要的朋友
  perl中<>运算符可以有如下的用途:
  1)如果尖括号中间是文件句柄,尖括号运算符允许你读取文件句柄,比如<STDIN>。
2)如果尖括号中间是搜索模式,尖括号运算符能返回与该模式匹配的文件列表,这称为一个glob,比如<*.bat>。
3)一组尖括号运算符如果中间没有任何东西,那么它可以读取命令行上所有文件的内容;如果没有给出文件名,则可以读取标准输出。
  请看下面这段代码:
  
复制代码代码如下:
while(<>){
print$_;
}
  如果将上面的程序保存为Example.pl,那么用下面这个命令行运行该程序:
  <divclass
  • 0
  • 0
  • 0
  • 0
  • 0

Perl信号处理学习简单小结

这篇文章主要介绍了Perl信号处理学习简单小结,本文着重列出了Unix下常见的处理信号表,需要的朋友可以参考下
  Unix下常见的处理信号
  
复制代码代码如下:
No  Name  DefaultAction  Description
 1  SIGHUP  terminateprocess  terminallinehangup
 2
  • 0
  • 0
  • 0
  • 0
  • 0

perl几个文件操作例子

这篇文章主要介绍了perl几个文件操作例子,讲解了删除文件、读取文件、一次性读取等,需要的朋友可以参考下
  perl用的最多的地方就算是文件处理了,下面我就总结了一下perl文件操作的一些东西,并且有具体的例子,通过下面的例子,加强我们对perl文件操作的理解。
  删除文件
  使用unlinke函数,比如unlink$file,unlink$file1,$file2,$file3
  打开文件
  使用三参数的形式打开文件,这样非常便于区分模式和文件名,perl5.6之后的版本都支持这种方式。
复制代码代码如下:
#Openthe'txt'fileforreading
openFH,'<',"$file
  • 0
  • 0
  • 0
  • 0
  • 0

Perl使用nginx FastCGI环境做WEB开发实例

这篇文章主要介绍了Perl使用nginxFastCGI环境做WEB开发实例,实现了路由系统和模板系统,需要的朋友可以参考下
  HelloWorld
一个简单的helloworld例子:
复制代码代码如下:
#!/usr/bin/envperl
usestrict;
usewarnings;
useCGI::Fast;
while(my$q=newCGI::Fast)
{
 print$q->header("text/plain");
 print"HelloWorld";
}
和CGI的区别仅在于多了一个循环来接受请求,CGI::Fast对象和CGI接口是一样的,而且该脚本也可以当做CGI脚本使用。
  • 0
  • 0
  • 0
  • 0
  • 0

Perl访问MSSQL并迁移到MySQL数据库脚本实例

这篇文章主要介绍了Perl访问MSSQL并迁移到MySQL数据库脚本实例,写了一个完整的迁移脚本和使用方法,需要的朋友可以参考下
  Linux下没有专门为MSSQL设计的访问库,不过介于MSSQL本是从sybase派生出来的,因此用来访问Sybase的库自然也能访问MSSQL,FreeTDS就是这么一个实现。
Perl中通常使用DBI来访问数据库,因此在系统安装了FreeTDS之后,可以使用DBI来通过FreeTDS来访问MSSQL数据库,例子:
复制代码代码如下:
usingDBI;
my$cs="DRIVER={FreeTDS};SERVER=主机;PORT=1433;DATABASE=数据库;UID=sa;PWD=密码;TDS_VERSION=7.1;charset=utf-8";
my$dbh=DBI->connect("db
  • 0
  • 0
  • 0
  • 0
  • 0

fdupe 查找重复文件的Perl脚本代码

fdupe是一个很小的Perl脚本,用来检索指定目录并找出其中重复的文件,该脚本是通过文件内容来识别是否重复文件,而非文件名。fdupe无需其他Perl脚本支持,运行速度非常快图:
  
复制代码代码如下:
#!/usr/bin/perl
#
#fdupetool-findingduplicatefiles
#
#$Id:fdupe,v1.72011/10/1420:11:21rootExproot$
#
#SourcecodeCopyright(c)1998,2011BernhardSchneider.
#Ma
  • 0
  • 0
  • 0
  • 0
  • 0

perl 读取所需文件的路径,然后打开相应的文件

perl,读取所需文件的路径,然后打开相应的文件,并对文件中的DNA序列进行计数,substr函数对长字符串的片段化处理功能
  以下是DNA序列,存储在window下F:\perl\data.txt里面:
复制代码代码如下:
AAAAAAAAAAAAAAGGGGGGGTTTTCCCCCCCC 
CCCCCGTCGTAGTAAAGTATGCAGTAGCVG 
CCCCCCCCCCGGGGGGGGAAAAAAAAAAAAAAATTTTTTAT 
AAACG 
  下面是程序:
复制代码代码如下:
#下面
  • 0
  • 0
  • 0
  • 0
  • 0

Perl调用shell命令方法小结

这篇文章主要介绍了Perl调用shell命令方法小结,需要的朋友可以参考下
  一、system
perl也可以用system调用shell的命令,它和awk的system一样,返回值也是它调用的命令的退出状态.
复制代码代码如下:
[root@AX3sp2~]#cataa.pl
#!/usr/bin/perl-w
$file="wt.pl";
system("ls-lwt.pl");
$result=system"ls-l$file";
print"$result\n"; #输出命令的退出状态
system"date";
  [root@AX3sp2~]#perlaa.pl
-rwxr-xr-x1rootroot12612
  • 0
  • 0
  • 0
  • 0
  • 0

求婚示爱的Perl代码之改写篇

求婚示爱的Perl代码之改写篇,特分享下,方便需要的朋友
  改写代码
    #!/usr/bin/perl-w
  usestrict;
  my$f=  $[;my
  $ch=0;sub  l{length}
  subr{join"",  reversesplit
  ("",$_[$[])}subss{substr($_[0]
  
  • 0
  • 0
  • 0
  • 0
  • 0

perl如何避免脚本在windows中闪一下就关闭

写好了perl程序,运行后,准备等待结果输出时,结果双击后,看到屏幕闪了一下,然后什么都没有了,根本没有机会然你看到输出的结果 当你刚开始学习perl的时候,写好了程序,准备兴高采烈的等待结果输出时,结果双击后,看到屏幕闪了一下,然后什么都没有了。根本没有机会然你看到输出的结果。

怎么解决这种问题呢?其实各种语言都有这个问题!解决的思路就是让程序输出结果以后,继续等待用户的输出就可以了

也就是在脚本的末端加上这样的两行

复制代码 代码如下:

print "press <Enter> to continue...";
<STDIN>


这样就可以了。
  • 0
  • 0
  • 0
  • 0
  • 0

求婚示爱的Perl代码之注释篇

Deparse模块是一个很好的打印机,它可以揭开Perl代码神秘的面纱,帮助你理解优化器为你的代码做了那些转换。换言之,它会重新生成Perl代码,试着略去一些晦涩难懂的部分,把代码用一致的格式写出来原始代码
代码出处:http://www.perlmonks.org/index.pl?node_id=384100
 #!/usr/bin/perl-w
  usestrict;
  my$f=  $[;my
  $ch=0;sub  l{length}
  s
  • 0
  • 0
  • 0
  • 0
  • 0
1  2  3  4  5  ...  下一页  

分享至

长按复制下方链接,去粘贴给好友吧:
软件
前端设计
程序设计
Java相关