- 博客(3)
- 资源 (4)
- 收藏
- 关注
原创 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 1608
原创 Perl: 删除字符串中的重复字符
如果我们有一个字符串,如'1122311223451',我们想要去除其中重复出现的字符,并且保持每个字符第一次出现的次序,对于这个例子,它的结果就是'12345',如何实现呢? 方法可能有很多, 在这里推荐一种只需要一行代码的方法如下: while ($string =~ s{((.).*)\2+}{$1}xsmg) {};
2012-04-01 16:56:55 1714
原创 将罗马数字转换成阿拉伯数字
<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 403
免费版屏幕录像工具
2011-10-13
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人