随心笔谈
随心记录网事-锻炼心境-记录过往事迹
Perl文件句柄详解（perl常用命令）怎么可以错过
在文件I/O中，要从一个文件读取数据，应用程序首先要调用操作系统函数并传送文件名，并选一个到该文件的路径来打开文件。该函数取回一个顺序号，即...
Perl数组排序学习笔记（二维列表排序 python）学到了
本文我们学习如何用Perl对字符串或者数字数组进行排序。 Perl有个内置函数叫做sort毫无疑问的可以排序一个数组。 其最简单的形式是传递一...
perl数据库添加、删除、更新、查询操作例子（perl基本数据类型）一看就会
#!/usr/bin/perl use strict; use warnings; use DBI; my $db_name='geneva_admin'; my $db_passwd='gen...
perl操作MongoDB报错undefined symbol： HeUTF8解决方法（mongodb error number 51）新鲜出炉
因为shell操作mongo比较麻烦,只好尝试使用perl操作mongo，perl需要操作mongodb必须先安装相应的驱动，大部分人使用cpan安装，个人觉得太麻烦，使用...
perl控制流介绍(if条件，while,for循环,foreach)（perl脚本windows下如何运行）学会了吗
1. 语句块：{ }之间的部分即为BLOCK语句块。 2. 条件语句：if ( expression ) BLOCK; if ( expression ) &n...
perl批量查询ip归属地的方法代码（perl 批量注释）这都可以？
#!/usr/bin/perl use IP::QQWry::Decoded; use Encode; use utf8; binmode(STDIN, ':encoding(utf8)'); #这三...
Perl批量下载Gmail附件的代码（google批量下载插件）不要告诉别人
use Mail::POP3Client; use MIME::Parser; my $U='User.Name＠gmail.com'; my $P='uSeR.pA...
Perl实现遍历目录例子（perl数组push）学到了
#!/usr/bin/perl use strict; use warnings; use Encode qw/from_to/; ...
perl实现的两个文件对比并对数据进行筛选的脚本代码（perl字符串）没想到
#!/usr/bin/perl my %scyjm; open (CONTACT,'f:\\perl\\f.txt')||die('can not open the file!'); while ()&nb...
Perl实现的Linux下socket代理服务器（perl脚本执行命令）快来看
#!/usr/bin/perl $auth_enabled=0; $auth_login='hidden'; $auth_pass='hidden'; $port=44269; use IO...