- 博客(3)
- 资源 (4)
- 收藏
- 关注
RSS订阅原创 Perl: 匿名函数，数组，列表的定义
定义匿名函数： *anonymous_func =sub { printf("I'm an anonymous function\n"); } ; 这样我们就可以通过 &anonymous_func来进行调用 了。 定义匿名数组： my($anonymous_array_ref) = [ 1, 2, 3 ]; $anonymous
2012-04-01 17:05:24
1597
原创 Perl: 删除字符串中的重复字符
如果我们有一个字符串，如'1122311223451'，我们想要去除其中重复出现的字符，并且保持每个字符第一次出现的次序，对于这个例子，它的结果就是'12345'，如何实现呢？方法可能有很多， 在这里推荐一种只需要一行代码的方法如下：while ($string =~ s{((.).*)\2+}{$1}xsmg) {};
2012-04-01 16:56:55
1689
原创 将罗马数字转换成阿拉伯数字
<br />// 1. 可以同时处理最简和非最简的罗马数字<br />// 2. 不处理加横线扩大1000倍的情况，也就是最大只处理"M"<br />// 3. 不作合法性检查，如"L"不能出现在"C"前面<br /> <br />int Digit(char c){ if (c == 'I') { return 1; } else if (c == 'V') { return 5;
2011-02-25 11:43:00
395
免费版屏幕录像工具
2011-10-13
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人