综合型编程论坛

result.jpg

=info
Auth: vicyang/523066680
Date: 2018-04
=cut

use Imager;
use Imager::Matrix2d;
use Data::Dumper;
use Time::Local;
use Encode;...

推荐环境：Strawberry Perl V5.24
需要用到的扩展模块：
OpenGL
Font::FreeType
Math::Geometry::Delaunay;

项目地址

（没有话题也要水一个）

可以这样写：

use List :: Util qw /max/ ;
my $newstr = "T" ;
my @lines = < DATA >;
my $maxlen = max map { $_ =~...

主题链接： 猜数字游戏 - 专题

支持退格

= info
Author : PAKTC / PerlMonk
= cut

use strict ;
use Term : :ReadKey ;
use Time : :HiRes qw / sleep /;
use IO : :Handle ;
STDOUT...

#Code By: 523066680@163.com
#2017-06

my $self = __FILE__;
if ($ENV{"USERNAME"} =~ /Administrator/i)
{
print "is...

使用说明

修改Config.pm文件中的urllist值(操作前请做好相应备份)

'urllist' => [q ],

以 StrawberryPerl 5.24 为例
修改 strawberry-perl-5.24.1.1-32bit-PDL\perl\lib\CPAN
下的...

讲真上网查了不少例子，都是单个文件转HTML的，又挨个参数试了一遍好像还是只能生成单个HTML
--recurse 参数也仅仅是处理链接的依赖关系罢了。

索性写了批处理枚举所有文件以生成完整 HTML 文档，以 Win32::GUI 为例

@echo off
del *.tmp /s...

=info
Markdown Title 分级缩进，生成 BBCode
523066680@163.com / Code-By.Org
2017-05-12
=cut

use Encode;
use IO::Handle(1);...

触发条件:
open my $WRT, ">:utf8", "b.txt" or die "$!";
print $!;
close $WRT;
Inappropriate I/O control operation

my...

编辑/整理：523066680@163.com

序：内容取自 《Perl One-Liners》，注意该教程中示例的 ' 符号（单引号）在windows 中应改为双引号，否则不会奏效。我在翻译和摘录的代码中也会改用双引号

备注：

1. 不做全文翻译，尽量简明
2....

编辑/整理 523066680@163.com
2017-05
转载请注明出处：

序
之前用 ActivePerl 实在是经历了不少模块安装失败的问题，非常头痛，终于转到 Strawberry Perl
安装包下载
Strawberry Perl Releases...

主要在 Strawberry Perl V5.24 + PDL 离线包运行 Perldoc + 模块 的时候提示的，

跑去看 perldoc.bat，又追踪到 perl\lib\Pod\Perldoc.pm，可惜功力不够。

最后解决办法：
cpan install Pod::Perldoc

原问题：

两个文本合并，按照a文本第一列的字符串，获取b文本的字符串 并合并输出
a文本：
101 a 2
102 b 3
103 c 4

b文本：
101 56
103 58
102 59

输出c文本为：
101 a 2 56
102 b 3 59
103 c 4 58

大骆驼书已经过了两遍，书柜上的一本《Perl 进阶》纯属情怀，中文版，这几天翻阅发现其中的翻译惨不忍睹，语无伦次。
改看 PDF，顺便做笔记

my %hash;
grep { $hash{$_} = 1 } ('a' .. 'd');
而使用 map 更直接（如果数组不是非常庞大的话）：
my %hash = map { $_, 1 } ('a' .....

使用 CPANMinus 来安装 Perl 模块和其它技巧

github:

实际下载下来是一个 Perl 脚本程序，通过调用该脚本附加参数来安装模块

例如下载了一个模块源码包，安装依赖的模块，可以用
`cpanm --installdeps .`

环境 XP/WIN7 Perl v5.16
编辑整理：PerlMonk、523066680

常见的那些文件操作函数都不支持，于是为了达到目的，需要各种方法配合，应该是不如其他语言方便。
我只是想看看Perl到底是否适合做这件事，于是折腾了一回。

文件的建立：

模块：Win32 use...

:perl -e "grep {print ' 'x(10-$_),'*'x($_*2+1),chr(10) } (0..10) "
*
***
*****
*******...

两个GBK编码(又或者是utf8 utf16)的文件：
评分 8.8
blah blah

评价 9.9 分

现在假设我要从两个文本中获取分数，然后按分数建立文件夹，并将文本复制到对应分数的文件夹内
中间可能要做一些处理所以导入的时候转为了 Unicode 编码。

use...

不做过多的解释~ 有空会继续完善

=info
电影资料下载 V0.6
Code by 523066680@163.com
2017-03
=cut

use utf8;
use Encode;
use IO::Handle;
use LWP::Simple...

CSDN:Perl 5+Perl 6=Perl 11
刘江总编 发布于GEEKNEWS 2013-10-08 09:42

Perl 11 并不是Perl的新版本（Perl从5到6变化太大，已经陷入两难境地多年），而是一系列Perl项目的总称，旨在将Perl...

原问题

use Encode;
use IO::Handle;
STDOUT->autoflush(1);

open READ, "<:encoding(gbk)", "src.txt";
my...

占用