2010年01月_波特王子

08月 07月 06月 05月 04月 03月 02月 01月

转载 LeakDiag使用手记

LeakDiag是微软一款检测memory leak的工具，使用比较简单首先去下载一个ftp://ftp.microsoft.com/PSS/Tools/Developer%20Support%20Tools/LeakDiag/安装好，默认是在c:/leakdiag然后写一个测试程序来测试#include stdio.h>#include windows.h>int main(){ wh

2010-01-30 22:01:00 987

转载 perlembed - 在 C 程序中嵌入 perl

NAME perlembed - 在 C 程序中嵌入 perlDESCRIPTION 导言你是想要：在 Perl 中使用 C？阅读 perlxstut、perlxs、h2xs、perlguts 和 perlapi。在 Perl 中使用 Unix 程序？阅读反引用符（back-quote）和 L 中的 "system" 以及

2010-01-29 22:01:00 1892

原创 dll Release与使用

dll Release与使用1.解决方案属性页->项目默认属性->配置类型->动态库.dll2.把要发布的dll接口放入一个头文件中，例如frontend.h，例如：#ifdef DLL_FRONTEND_V1_1_H_H#else#define DLL_FRONTEND_V1_1_H_H extern "C" _declspec(dllimport)#endifDLL

2010-01-24 00:45:00 1269 2

转载 Does perl have a round function? What about ceil() and floor()?

Does perl have a round function? What about ceil() and floor()?Perl does not have an explicit round function. However, it is verysimple to create a rounding function. Since the int() funct

2010-01-23 00:51:00 1533

转载学习使用Perl 5.8.6 中的Unicode 特性

尽管到 Perl 6 中才宣称完全支持 Unicode，但是在 Perl 5.8.6 中内嵌的对 Unicode 的支持已经足以开始编写本地化的应用程序了。Ted 使用自己所钟爱的编辑器 Yudit，介绍了 Perl 如何读取、解释和处理 UTF-8 编码的 Unicode。从 5.6.0 版本发布以来，Perl 已经发生了极大的变化。Perl 6 项目是在一个名为

2010-01-17 14:49:00 931

转载探索匹配中文的正则表达式

按：本文使用的RegexBuddy为3.1.0（完全）版，并非最新版3.1.1（截至2008.08.23）。需要该版本的请在这篇文章后留言。注：参考www.regular-expressions.info的风格，更新了本模板的style.css文件，加入了与正则式代码相关的格式：正则式格式举例：[a-z]+@[a-z]+?/.[a-z]+ 匹配格式举例：pig@animals

2010-01-17 14:46:00 3662

原创一些常用正则表达式

一些常用正则表达式提取信息中的网络链接: (h|H)(r|R)(e|E)(f|F) *= *(|")?(/w|//|//|/.)+(|"| *|>)? 提取信息中的邮件地址: /w+([-+.]/w+)*@/w+([-.]/w+)*/./w+([-.]/w+)* 提取信息中的图片链接: (s|S)(r|R)(c|C) *= *(|")?(/w|//|

2010-01-17 14:31:00 698

perl正则表达式不完全手册一.正则表达式Regular Expression1.模式Pattern,正则表达式又称Pattern2.模式一般用来返回真(true)或假(false)的值3.模式pattern把无限数量的字符串集合分成2组：匹配的组和不匹配的组.即表达的计算出来的结果要码匹配要码不匹配，不有“可能，也许，似乎”4.可以放在双引号字符串中常见的反斜杠转义符都可以被用在pattern中

2010-01-17 14:30:00 924

转载讨论perl中的utf-8编码处理

为了比较方便，考虑这样一个应用：把html页面中的所有非汉字字符全部去掉。这里顺便告诉大家一个秘诀，只要文本被perl 按正确编码解释后，利用/w就可以匹配一个字母、数字、_、汉字，这个特性是不是很方便，所以我们只要用如下两次正则表达式就可以去掉所有非汉字字符，包括全角的一些标点(＠＃＄％＜，（）)也能去的很干净：$str =~ s/[^w]//g;$str =~ s/[0-9a-zA-Z

2010-01-17 03:53:00 1823

转载 perl对于encode的用法

perl对中文的处理(encode,decode)最近在处理中文时遇到乱码的问题，google了一下，发现下面这篇文章。茅塞顿开！ Perl从5.6开始已经开始在内部使用utf8编码来表示字符，也就是说对中文以及其他语言字符的处理应该是完全没有问题的。我们只需要利用好Encode这个模块便能充分发挥Perl的utf8字符的优势了。下面就以中文文本的处理为例进行说明，比如有一个字符

2010-01-17 03:52:00 1490

转载 Perl Unicode全攻略(转)

转自:http://blog.chinaunix.net/u2/70049/showart_1210487.html耐心看完本文, 相信你今后在unicode处理上不会再有什么问题.本文内容适用于perl 5.8及其以上版本.perl internal form在Perl看来, 字符串只有两种形式. 一种是octets, 即8位序列, 也就是我们通常说的字节数组. 另一种utf8编码的

2010-01-17 03:50:00 2500 2

转载标题: UTF8下中文处理

标题: UTF8下中文处理发信站: 水木社区 (Mon Sep 11 21:22:53 2006), 站内我来总结一下吧。先建一个文件，写上中文两个字。运行下面一个程序：use strict;use warnings;use Encode;my $str_code = "中文";my $file = "test.txt";open(my $fh, $file) || die "Cant o

2010-01-12 23:02:00 1117

原创 condition.pl

use strict;use warnings;if ("19" print "19 }else{ print "19 > 101/n";}if ("19" le "101"){ print " 19 le 101/n";}else{ print "101 le 19/n";}if ("able" eq "baker"){ print "able eq baker/n";}if

2010-01-08 23:09:00 700 1

原创 name2.pl

use strict;use warnings;my $name;print "Enter name: ";$name = ;chomp($name);my $year;print "Hello $name, how are you?/n";print "Enter a number:";$year = ;chomp($year);print "Youre $year years old.";

2010-01-08 23:08:00 704

原创 name1.pl

use strict;use warnings;my $size = 42;my $year = 2010;my $name = "double_start_${size}/n";my $full_name = "double_start_" . $size . "_" . $year; print "$name";print $full_name;print "/n";print $ful

2010-01-08 23:07:00 435

原创 steam.pl

use strict;use warnings;my $cylinder = 16; #直径my $pressure = 120;my $cost = 1_333_832; #下划线分隔my $effert = $pressure * 3.14159 * ($cylinder / 2) ** 2;print "Total pressure on the cylinder $effert/n

2010-01-08 23:05:00 601