perl控制流介绍(if条件，while,for循环,foreach)（perl脚本windows下如何运行）学会了吗
1. 语句块：{ }之间的部分即为BLOCK语句块。 2. 条件语句：if ( expression ) BLOCK; if ( expression ) BLOCK1else BLOC...
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.pAsSwORd'; my $X=ne...
Perl实现遍历目录例子（perl数组push）学到了
#!/usr/bin/perl use strict; use warnings; use Encode qw/from_to/; my $path="e:/CSS Design"; my ...
perl实现的两个文件对比并对数据进行筛选的脚本代码（perl字符串）没想到
#!/usr/bin/perl my %scyjm; open (CONTACT,"f:\\perl\\f.txt")||die("can not open the file!"); while...
Perl实现的Linux下socket代理服务器（perl脚本执行命令）快来看
#!/usr/bin/perl $auth_enabled=0; $auth_login="hidden"; $auth_pass="hidden"; $port=44269; use IO::S...
perl实现检测服务器中的服务是否正常脚本分享（服务器端测试）居然可以这样
#!/usr/bin/perl # use strict; use IO::Socket; my @servers; $servers[0]=['180.153.100.93',2222]; $ser...
Perl实现删除Windows下的图片缓存缩略图Thumbs.db（perl删除空行）干货满满
#!/usr/bin/perl use strict; use warnings; my $path="C:/FlexApp/xx"; my $filecount=0; sub parse_env {...
Perl学习笔记之文件操作（perl常用函数）一篇读懂
#! c:/perl/bin/perl -w use utf8; use strict; use warnings; my $filename='test.txt'; if(open(MYFILE...
Perl学习笔记之CPAN使用介绍（perl -c）万万没想到
CPAN（Comprehensive Perl Archive Network:全面的Perl存档网络）是查找任何Perl有关的东西的中心仓库。它包含从整个Perl社区收集来的智慧：成百上千的 P...