#!/usr/bin/perl use strict; use warnings; =pod--------------------------------------- this perl script is used to compute tajima's D Former of tajimaD.tmp.txt is : chr position #sampled #derived1 256 12 181 12124 14 16 Former of vcf is normal vcf. Fo…

1.使用root用户telnet进入linux系统 2.修改DNS以下两种方法 A.通过setup命令配置dns B.通过在/etc目录下创建resolv.conf文件 3.查看DNS是否配置成功 [root@BL360-25]# cat/etc/resolv.conf nameserver 202.107.117.11 nameserver 202.107.117.12 1.使用root用户telnet进入linux系统 2.#提示符下,输入cpan 提示:Are you ready for…

精通Perl(第2版)(通往Perl大师之路必读经典书籍,体现了一种编程思维,能够帮你解决很多实际的问题) [美]brian d foy(布瑞恩·D·福瓦)著   王兴宇 刘宸宇 译 ISBN 978-7-121-25419-2 2015年3月出版 定价:89.00元 424页 16开 编辑推荐 - 探索高级的正则表达式功能 - 如何避免程序的常见安全问题 - 对 Perl 程序的性能分析和基准测试可以让你发现改进之处 - 清理 Perl 代码,使之更加直观和易读 - 了解 Perl 如何持续跟…

introduction: http://www.yiibai.com/perl/perl_introduction.html functions: http://www.yiibai.com/perl/perl_function_references.html#perl_function_references perldoc: http://perldoc.perl.org/index.html…

Perl编程之路3 标签: perl 列表与数组   Perl里面代表复数的就是列表和数组 列表(list)指的是标量的有序集合, 而数组(array)则是存储列表的变量. 在Perl这两个属于尝尝混用, 不过更精确的是, 列表指的是数据, 而数组指的是变量, 列表的值不一定放在数组里, 但每个数组一定包含一个列表(即便是不含任何元素的空列表)   数组或列表中的每个元素, 都是单独的标量变量, 拥有独立的标量值, 从起始元素到终止元素的先后次序是固定的, 因为没个元素都是独立不相关的标量值,…

这些主要是从 "小骆驼" 书上粘贴或者摘抄出来的, 个人认为需要记的语法知识 "在某些情况下, 你可能需要在一台机器上写程序, 再传送到另一台机器上运行.这时候, 请使用"文本模式(text mode)" 或者"ASCII模式(ASCIImode)". 记住, 千万不能是"二进制模式(binary mode)"即便是文本文件, 不同的系统对待换行符的方式也有所不同, 所以碰到无法理解的换行符,某些老旧的Perl还可能…

一切要从Hollo world开始 公司要用perl....啊, 不会只能自学了, 毕竟是公司啊, 不是学校...公司不学习就滚蛋了...惨惨惨 因为是学习嘛, 感觉开虚拟机比较麻烦所以直接用了个 瘟都死 环境下的 http://www.perlchina.org/get.html Perl是脚本语言,由解释器解释运行,跨平台的 (貌似草莓的这个这跨平台比较好, ps:刚接触, 真心不知道哪好 pps:草莓??王草莓??上单??哈哈我是逗比, 表理我~) 大家可以选择下载 先检查你的perl是否…

提供域名,dnspod 账户密码(毕竟dns密码比较重要 不能谁 cat一下都可以看到 需要base64加密),原IP,切换目标IP, #!/bin/perl use warnings; use MIME::Base64; use LWP; use Encode; use JSON; use Data::Dumper; my $ChangeDomain='linuxjs.com'; my $BeforeIP='XXX.XXX.XXX.XXX'; my $ChangeIP='XXX.XXX.XXX…

#!/usr/bin/perl `find /bak/ >list.txt`; open LIST,"/root/list.txt"; while (<LIST>){ chomp; open TEST,"$_"; if ( -d TEST ){ close TEST; } else{ close TEST; $mtime= -M $_; if ($mtime > 60){ print "$_ old than 60 day!!\n&…

#!/usr/bin/perl use DBD::mysql; use strict; use warnings; use DBI; use utf8; binmode(STDOUT, ':encoding(utf8)'); binmode(STDIN, ':encoding(utf8)'); binmode(STDERR, ':encoding(utf8)'); use Time::Local; my $addtime=time(); my $dbh; ,,,,); sub getpid{ m…