用Perl生成随机密码 『 更新时间：2008-4-6 』『 字体： 变小 变大 』『 作者：佚名 | 来源： 互联网 』 如果你是一名系统管理员或者Web开发人员，你可能已经知道强度不够的用户密码是最大网络安全风险之一。强度不够的密码——比如，使用用户的名字或者生日作密码——通常都可以利用复杂的用户嗅探工具“破解”，这样未经授权的用户就可以很容易地从后门进入服务器。这就是为什么很多管理员都会定期

    use Win32::IEAutomation ;     use Win32::IEAutomation::Table;     use Win32::IEAutomation::Element;     use Win32::IEAutomation::WinClicker;      my 

    今天在chinaunix上看到有个贴，问     设最外层括号为第 1 层，请问怎么样能够除去 1 对第 2 层的括号，保留其他括号？     例如： (((1,2),3),4)   =>  ((1,2),3,4) ((1,2),(3,4))   =>  ((1,2),3,4)                         or                     (1,2,(3,4

本文转自http://blog.chinaunix.net/space.php?uid=374372&do=blog&cuid=1272632 作者:冰雪�埃 Perl->重新配置CPAN  CPAN是Comprehensive Perl Archive Network的缩写.。它是一个巨大的Perl软件收藏库，收集了大量有用的Perl模块(modules)及其相关的文件。在互联网上可在此U

 关于extman登录时验证码不显示问题，进行如下操作： 验证是否安装perl-GD ？  rpm -qa | grep perl-GD   安装 yum install perl-GD    安装后即可正常显示 管理账号： [email protected]  密码： extmail*123* 注意：如果总提示验证码错误，改一下时间，保证服务器端和客户端的时间是一致的。注意添加管理用户。

用到的库：Net::SMTP;这个可以在cpan上找得到。 另外在windows下安装perl的库可以使用ppm方法。 在command line里面输入ppm会出现Perl Package Manager。 找到你所需要安装的库选择“File”->"Run task"就可以了。   看个发送邮件的简单例子： sub SendEmail($$){    my $emailfrom="";    m

#!perl -w use strict; my @DatFileNames = glob "*.dat"; print @DatFileNames; my $FileHandle; my $OutPutFileHandle; my $FileName; $^I = ".bak"; mkdir "back"; foreach $FileName (@DatFileNames)

1. quick start   http://juerd.nl/site.plp/perlpodtut   2. how to generate html format file?   http://perldoc.perl.org/pod2html.html

一、打开、关闭文件 二、读文件 三、写文件 四、判断文件状态 五、命令行参数 六、打开管道 一、打开、关闭文件   语法为open (filevar, filename)，其中filevar为文件句柄，或者说是程序中用来代表某文件的代号，filename为文件名，其路径可为相对路径，亦可为绝对路径。     open(FILE1,"file1");     open(FILE1, "/u/jqpu

1.安装perl-ldap   下载地址：http://search.cpan.org/~gbarr/perl-ldap/   前提是已经安装perl工具包。首先查看perl版本   [root@local~]perl -V   Built under linux   Compiled at Nov  8 2007 06:49:06   @INC:     /usr/lib64/perl5/sit

在StackOverflow上，有人要打算收集个免费电子书的列表，结果很快就有人分享了一个列表。很不错，我就转过来了。原帖的地址在http://stackoverflow.com/questions/194812/list-of-freely-available-programming-books （注意：有些连接可能会被墙掉） List of Free Programming books (co

CSDN搞什么阿，连个附件都发不出来！只有新开帖子，贴出这个脚本（还竟然没有perl的代码编辑器？？？！！）   http://blog.csdn.net/rozenix/archive/2011/03/23/6271601.aspx

CPAN（Comprehensive　Perl　Archive　Network）是internet上Perl模块最大的集散地，包含了现今公布的几乎所有的perl模块。网址：http://www.cpan.org/ http://search.cpan.org/，可以查找任何一个模块并提供下载 Linux/Unix---perl模块的安装方法 Linux/Unix下安装Perl模块有两种方法：手工安

应该使用(), 而不是“”,否则会在前面加上一个“ ”.   #!/usr/bin/perl -w my @array1 = ""; my @array2 = (); push(@array1, "1"); push(@array2, "1"); print "array1 is@array1/n"; print "array2 is@array2/n";   运行结果   arr

From: http://hi.baidu.com/wangj998/blog/item/3a8d63e9b5b7c035b90e2d3b.html   exists     [root@localhost~]# cat 1.pl #!/usr/bin/perl -w use strict; my $a; my $b=""; my $c=1; print "a ok/n" if ( defined

perl语言中的标量数据 1. 数字 支持加、减、乘和 除以及取模操作符，同时支持乘幂操作符（如2**3=8） 2. 字符串 单引号内的字符串直接量 双引号内的字符串直接量 字符串可以用.操作符拼接起来，两边的字符串都不会因此而被改写。 还有一个比较特殊的字符串重复操作，它是一个小写字母x，此操作 符会将其左边的操作数（也就是重复的字符串）与它本身重复连接， 重复次数则由右边的操作数（某个数字）指

一、正则表达式特殊 变量： 1、$n:包含上次模式匹配的第n个子串 2、$&:前一次成功模式匹配的字符串 3、$`:前次匹配成功的子串之前的内容 4、$’:前次匹配成功的子串之后的内容 5、$+:前一次使用括号的模式匹配的字符串. 二、文件句柄特殊 变量: 1、$|:如果设置为零,在每次调用函数write或print后，自动调用函数fflush,将所写内容写回文件 2、$%:当前输出页号 3、$=

据说这道题是QQ的，看下怎么解答为好 题目： 把当前目录下（包含子目录）下所有后缀为.sh的文件后缀变更为.shell（用PERL完成） 一、先人为的制造一些.sh文件 这个用shell吧，方便 for i in `seq 100`;do touch $i.sh;done  for i in testa testb testc testd teste testf te

因为工作需要，给一些内容的结果需要转换成excel给上面看，所以用perl来实现这个事件，发现perl来写excel实在是太容易了。。我真想学老罗的讲"太容易了，实在是太容易了". 在 2000 年，Takanori Kawai 和 John McNamara 编写出了 Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel 模块并将它们张贴在 CPAN

Perl学习笔记 之 [ 函数, 参数, @_, $_, $_[0], shift ] 1. Perl函数   通过 & 调用. 2. Perl参数   Perl天然支持可变数目个参数。   在函数内部，所有参数按顺序放在数组 @_ 中。   在函数内部，$_[0] 表示函数的第一个参数。其余类推。 3. shift   shift 后跟一个数组，表示将数组的第一个值返回。数组也被改变，其第一个元

  #!/usr/bin/perl     use strict;     my $count=0;     print "please input a number between 0-10000 which is int.\n";     $rand_num=int (rand(10000));

最近写代码时考虑的一个问题，从来没有问过大牛，或看过大牛的书，来理清心里的这个疑惑。今天google了下，留个记号方便自己以后复习，为防止Internet链接失效，把看过的内容抄到下面。。   http://book.51cto.com/art/201002/182682.htm   某一段代码需要对程序状态做出某种假设。 以断言明确表现这种假设。   动机 常常会有这样一段代码：只有当某个条件为

降序 foreach my $key (sort  { $hashT{$b} <=> $hashT{$a} } keys %hashT){     printf("%s/t%s/n",$key, $hashT{$key}); } 升序 foreach my $key (sort  { $hashT{$a} <=> $hashT{$b} } keys %hashT){     printf("%s/

perl检测网站首页状态代码，随便写的，一起交流 #!/usr/bin/perl -w    use strict;  use LWP::UserAgent;  use Net::SMTP;  use POSIX qw/strftime/;    print <<EOF;  +-----------

    在网上看到了许多MTK搭建环境的文章，写的很全面，但是真要搭起来还真的是够呛，其实MTK的环境搭建是一个很简单的过程，只是用到的工具繁多，还跟版本有直接的关系，网上对于工具软件的下载实在是少之又少，所以才显的麻烦。（我目前使用的是35的平台，也就以35的为例吧） 此时，我将MTK编译环境的搭建分为三个步骤。 第一：安装编译器ADS1.2       ADS1.2（应为是MTK是采用arm核

  1.文章目的及背景介绍: 前几天购买的英语词汇书中附赠了一款软件,能够按照书中的每一章的词汇进行考查，提供的考查方式有'看英文选中文'、'听音选中文'、'看中文选英文'和'单词拼写'这几项，很是符合我的需求。但是在使用了几个单元之后，发现了一个很重要的问题：该软件的词库和词汇书中的词库不一致，每个单元的词汇并不像他宣称的那样一一对应的。 囧,要是这样，这款软件就完全没有意义了。后来转念一想，能

chr chr(65) is "A" in either ASCII or Unicode, and chr(0x263a) is a Unicode smiley face. Negative values give the Unicode replacement character (chr(0xfffd)), except under the bytes pragma, where low

使用DBI的方法： --------------------------------------------------------------------- use DBI; --------------------------------------------------------------------- 注意：特定的DBD 级的模块不需要包括use 行，因为在与服务器进行连接时， DB

1. $_  $ARG，经常是一个默认变量  2. @_  @ARG，子例程参数表  3. {row.content}  $PROGRAM_NAME，本程序的名字  4. @ARGV  本程序的命令行参数表  5. $"  $LIST_SEPARATOR，数组内插到双引号字符串中时所用的分隔符，  默认为空格  6. $,  $OFS，或$OUTPUT_FIELD_SEPARATOR，用于prin

1. $_  $ARG，经常是一个默认变量  2. @_  @ARG，子例程参数表  3. {row.content}  $PROGRAM_NAME，本程序的名字  4. @ARGV  本程序的命令行参数表  5. $"  $LIST_SEPARATOR，数组内插到双引号字符串中时所用的分隔符，  默认为空格  6. $,  $OFS，或$OUTPUT_FIELD_SEPARATOR，用于prin