本月博客排行
-
第1名
龙儿筝 -
第2名
lerf -
第3名
fantaxy025025 - johnsmith9th
- zysnba
- xiangjie88
年度博客排行
-
第1名
青否云后端云 -
第2名
宏天软件 -
第3名
gashero - wy_19921005
- vipbooks
- benladeng5225
- e_e
- wallimn
- javashop
- ranbuijj
- fantaxy025025
- jickcai
- zw7534313
- qepwqnp
- 解宜然
- ssydxa219
- zysnba
- sichunli_030
- sam123456gz
- 龙儿筝
- arpenker
- tanling8334
- kaizi1992
- gaojingsong
- xpenxpen
- jh108020
- wiseboyloves
- ganxueyun
- xyuma
- xiangjie88
- wangchen.ily
- Jameslyy
- luxurioust
- lemonhandsome
- mengjichen
- jbosscn
- zxq_2017
- lzyfn123
- nychen2000
- forestqqqq
- wjianwei666
- ajinn
- zhanjia
- Xeden
- hanbaohong
- java-007
- 喧嚣求静
- kingwell.leng
- mwhgJava
- lich0079
最新文章列表
找零钱问题
假设有25美分,10美分,5美分,1美分的硬币足够多,假设有N美分钱,问你怎么用这些硬币表示?
用perl重新做这个问题,前面用java做过
use strict;
use warnings;
my $count = 0;
sub changes {
my ($coins_ref, $factors_ref, $value) = @_;
my @ ...
Perl写EXCEL
#!/home/content/perl/bin/perl -w use Encode qw(decode); sub T { my $text = shift; return decode( 'utf8', $text ); } use Spreadsheet::WriteExcel; # 创建一个新的EXCEL文件 my $workbook = Spreadsheet::W ...
perl的数组操作
生成连续的一列数字或字母:
my @numbers = (1..100);
my @chars = (a..z);
添加或者删除元素
shift: 移除数组的第一个元素;
unshift: 添加一个元素到数组的最后;
push: 添加一个元素到数组的第一个元素;
pop:去除数组的最后一个元素。
FunctioDefinitionpush(@array, Element) Adds ...
怎样生成全排列?
我前面写过一种方法生成全排列,现在看用DP的方法解决。
参考How to generate permutations 看前面的那种解法。
DP的思路就是生成N个数的全排列,先考虑生成前面N-1个数字的全排列,然后把最后一个数字插入上一步每个结果的每个缝隙中,形成最后的结果。用perl比较好操纵数组,写起来的程序比较简单。(可惜这个博客不支持perl语法高亮啊)
use strict; ...
ubuntu10.04和12.04 上cpan的安装步骤及常见问题解决方法
在我们用 perl 编写程序的时候,会要用到很多的 perl module 这种情况下就需要安装程序所需要的 module ,然而这些module通常都是在www.cpan.org网站上面抓的。所以我们可以通过安装cpan来安装perl程序需要的module。
ubuntu 10.04 正常情况下的安装步骤:
1.sudo apt-get install gcc
注意 ...
perl 实现查找内置 package
其实这个功能 perldoc 与 cpan 都有,只不过学习perl 想练练手。
程序的功能是实现使用 正则表达式 查找 perl 中的内置 package,然后输出匹配的结果;如输入参数为空,则提示无参数;如输入参数中含有 /all 则输出所有的 package。
代码如下:
#!/usr/bin/perl
use strict;
use utf8;
use 5.010;
...
Can't locate Term/ReadKey.pm in @INC
在linux系统中安装perl程序编译的最后几步或者已经安装完成、运行程序时,可能会出现“Can't locate Term/ReadKey.pm in @INC” 的错误。
Term::ReadKey - A perl module for simple terminal control
Term::ReadKey is a compiled perl module dedicat ...
perl - a simple task exerice, split and loop
it is a very simple task to exercise your understanding of the perl language.
the issue is like this :
$ cat test.txt
a,1,x,A,B,C
b,2,y,D
c,3,z,E,F
and you want to display th ...
perl - REPL perl
Perl unlike its successor, it does not natively has hte REPL (READ, Evaluate, Print, Loop) interface to perl . so it does not suppport something like in Python where you can type something or getting ...
perl源文件编码类型导致乱码问题
$str = '中国';
chdir 'E:\job';
mkdir $str;
print $str;
上面一段程序,保存为a.pl,文件编码为unicode或是utf-8,运行后,则创建
一个目录,该目录为乱码, 打印出来为乱码。
解决办法:
将文件编码设置为ANSI即可。
注:不同的编辑器,默认编码是不同的,写代码时这点需注意
perl安装DB_File模块
哇,好久没写博文了
最近开始学perl,有个脚本需要将hash存到本地文件中,用到的是perl module DB_File
但是这module无论是源码编译安装还是用CPAN安装,都是一样的报错
执行perl Makefile.PL 时报错“ No library found for -ldb
”
goole一下,搞了老半天才弄好,原来是尼玛的Berkeley DB ...
How can convert character “%xx” in html using Perl
Submitted a question on StackOverflow just now.
I intended to extract content from a web page which contains many unicode characters represented in the form of "%xx". As I used Perl modul ...
prepare or prepare_cached
If you are also confused about what benefits prepare_cached will bring to you like me, please read this article.
http://gssg-www.stanford.edu/public/preparecached.html