- 浏览: 4411567 次
- 性别:
- 来自: 湛江
博客专栏
-
SQLite源码剖析
浏览量:80123
-
WIN32汇编语言学习应用...
浏览量:70327
-
神奇的perl
浏览量:103580
-
lucene等搜索引擎解析...
浏览量:286537
-
深入lucene3.5源码...
浏览量:15043
-
VB.NET并行与分布式编...
浏览量:67780
-
silverlight 5...
浏览量:32289
-
算法下午茶系列
浏览量:46075
最新评论
-
yoyo837:
counters15 写道目前只支持IE吗?插件的东西是跨浏览 ...
Silverlight 5 轻松开启绚丽的网页3D世界 -
shuiyunbing:
直接在前台导出方式:excel中的单元格样式怎么处理,比如某行 ...
Flex导出Excel -
di1984HIT:
写的很好~
lucene入门-索引网页 -
rjguanwen:
在win7 64位操作系统下,pygtk的Entry无法输入怎 ...
pygtk-entry -
ldl_xz:
http://www.9958.pw/post/php_exc ...
PHPExcel常用方法汇总(转载)
文章列表
perl-opengl指定矩阵-坐标视图
- 博客分类:
- 脚本语言
这两个都是glMatrixMode()函数的参数,那就先说说glMatrixMode吧~,这个函数其实就是对接下来要做什么进行一下声明,也就是在要做下一步之前告诉计算机我要对“什么”进行操作了,这个“什么”在glMatrixMode的“()”里的选项(参数)有,GL_PROJECTION,GL_MODELVIEW和GL_TEXTURE;如果参数是GL_PROJECTION,这个是投影的意思,就是要对投影相关进行操作,也就是把物体投影到一个平面上,就像我们照相一样,把3维物体投到2维的平面上。这样,接下来的语句可以是跟透视相关的函数,比如glFrustum()或gluPerspective() ...
#!/usr/bin/perl -w
use strict;
use warnings;
use OpenGL qw/ :all /;
use OpenGL::Config;
glutInit();
glutInitDisplayMode(GLUT_RGB|GLUT_SINGLE);
glutInitWindowPosition(100,100);
glutInitWindowSize(400,400);
glutCreateWindow("my OpenGL program");
glClearColor(0,0,0,255);
...
perl-opengl学习-绘制点
- 博客分类:
- 脚本语言
#!/usr/bin/perl -w
use strict;
use warnings;
use OpenGL qw/ :all /;
use OpenGL::Config;
glutInit();
glutInitDisplayMode(GLUT_RGB|GLUT_SINGLE);
glutInitWindowPosition(100,100);
glutInitWindowSize(600,600);
glutCreateWindow("my first OpenGL program");
glutDisplayFunc(\&myd ...
#!/usr/bin/perl -w
use strict;
my $stat = `perl -v`;
our $IS_ACTIVEPERL = ($stat =~ m|ActiveState|s);
our $PERL_VERSION = $^V;
$PERL_VERSION =~ s|^v||;
use OpenGL qw/ :all /;
use OpenGL::Config; # for build information
eval 'use OpenGL::Image 1.03'; # Need to use OpenGL::Image 1.0 ...
IOLib 项目 (http://common-lisp.net/project/iolib/) 看起来是新一代可移植 Common Lisp 网络和 POSIX 兼容层的希望,不过在各种 CL 平台的广泛支持上还有很多路要走。尤其在 64 位平台和 LispWorks 支持上有很多问题,我要好好地协助改进这个项目,以便能更好地应用。最近几天里已经发现了不少问题,并且提交了两个改进 LispWorks 下兼容性问题的小补丁。
CFFI 项目 (http://common-lisp.net/project/cffi/) 是 IOLib 的基础,提供了跨 CL 平台的外部函数接口,目前已经相当稳 ...
1 环视基础
环视只进行子表达式的匹配,不占有字符,匹配到的内容不保存到最终的匹配结果,是零宽度的。环视匹配的最终结果就是一个位置。
环视的作用相当于对所在位置加了一个附加条件,只有满足这个条件,环视子表达式才能匹配成功。
环视按照方向划分有顺序和逆序两种,按照是否匹配有肯定和否定两种,组合起来就有四种环视。顺序环视相当于在当前位置右侧附加一个条件,而逆序环视相当于在当前位置左侧附加一个条件。
表达式
一直都有人问讨论有关于 Perl 与数学的问题。有时候一些 perl 玩家问如何使用 perl 做一些高级数学的工作。另一方面,一些数学家又反过来问如何利用 perl 来帮助完成他们本身的工作。所以,现在我提供一些方便的参考文献,比较和说明一些常用的 perl 数学模块,以及对 perl 有用的软件。它并不是完整的Perl数学编程手册,而只是对于一些常用的数学模块和软件的简要综述。我忽略了 bioperl 以及生物信息学的内容,因为他们涵盖范围太广,无法简单地称之为“数学”。
一般来说,如果你在 CPAN 上搜索与数学相关的模块,那么你应该从以下关键字入手: Math::×, Statist ...
perl-sdl游戏过程
- 博客分类:
- 脚本语言
use SDL;
use SDLx::App;
use SDL::Event;
my $app=SDLx::App->new(w=>400,h=>400,d=>32,t=>"my lines");
my $color =[255,255,255,255];
my $drawing=0;
my $start=[0,0];
my $end=[400,400];
my $event=SDL::Event->new();
my $quit=0;
sub get_events
{
SD ...
perl-SDL处理键盘与鼠标
- 博客分类:
- 脚本语言
use SDL;
use SDLx::App;
use SDL::Event;
my $app=SDLx::App->new(w=>400,h=>400,d=>32,t=>"my paint");
my $color =[255,255,255,255];
my $drawing=0;
$app->add_event_handler(\&quit_handle);
$app->add_event_handler(\&key_event);
$app->add_event_handler(\& ...
perl-sdl处理事件
- 博客分类:
- 脚本语言
use SDL;
use SDLx::App;
use SDLx::Sprite;
use SDL::Event;
use SDL::Events;
my $app=SDLx::App->new(w=>400,h=>400,d=>32,t=>"sky");
#画大地
$app->draw_rect([0,0,400,400],[0,100,0,255]);
#随机生成大地的麻点
for (my $i = 1; $i < 500; $i++){
$app->[int(rand(400))][200+ ...
sdl perl-sdlx sprite
- 博客分类:
- 脚本语言
use SDL;
use SDLx::App;
use SDLx::Sprite;
my $app=SDLx::App->new(w=>400,h=>400,d=>32,t=>"sky");
#画大地
$app->draw_rect([0,0,400,400],[0,100,0,255]);
#随机生成大地的麻点
for (my $i = 1; $i < 500; $i++){
$app->[int(rand(400))][200+int(rand(200))]=[10,10,10,255];
}
# ...
use SDL;
use SDLx::App;
my $app=SDLx::App->new(w=>400,h=>400,d=>32,t=>"我的第二个程序");
#画大地
$app->draw_rect([0,0,400,400],[0,0,100,255]);
#画夜空
my $sky=SDLx::Surface->new(width=>400,height=>200);
$sky->draw_rect([0,0,400,200],[0,0,0,255]);
#画月亮
$sky->draw ...
sdl perl-基本方法
- 博客分类:
- 脚本语言
use SDL;
use SDLx::App;
my $app=SDLx::App->new(w=>400,h=>400,d=>32,t=>"我的第一程序:hello,world");
$app->draw_line([20,100],[200,20],[255,255,0,255]);
$app->update();
sleep(10);
use SDL;
use SDLx::App;
my $app=SDLx::App->new(w=>400,h=>400,d ...
SDL perl-入门
- 博客分类:
- 脚本语言
use SDL;
use SDLx::App;
my $app=SDLx::App->new();
$app->update();
sleep(10);
use SDL;
use SDLx::App;
my $app=SDLx::App->new(width=>400,height=>200,title=>"我的第一程序:hello,world");
$app->update();
sleep(10);
#可以缩写weight等
use SDL;
use SDLx ...
lisp-format初步格式输出和数字判定
- 博客分类:
- 解释语言
0] (format t "~a~%~a" "asafadf" "11111")asafadf11111NIL
0[5] (parse-integer "aaa2":junk-allowed t)
NIL00[5] (parse-integer "5552":junk-allowed t)
555240[5]