2012年6月19日星期二

perl bless 的理解

从网上找了一篇不错的讲解 perl 里面的 bless 功能的文章

注: 以下文章摘自: http://www.cnblogs.com/Cmpl/archive/2011/08/17/2142841.html

程序说明

网上的很多教程都没有把bless讲清楚,我通过摸索和实验,终于明白bless是什么意思了,简单的讲:

  • bless有两个参数:对象的引用、类的名称。
  • 类的名称是一个字符串,代表了类的类型信息,这是理解bless的关键。
  • 所谓bless就是把 类型信息 赋予 实例变量。

程序包括5个文件:
person.pm :实现了person类
dog.pm :实现了dog类
bless.pl : 正确的使用bless
bless.wrong.pl : 错误的使用bless
bless.cc : 使用C++语言实现了与bless.pl相同功能的代码

person.pm

  1. #!/usr/bin/perl -w
  2. package person;
  3. use strict;
  4. sub sleep() {
  5.         my ($self) = @_;
  6.         my $name = $self->{"name"};
  7.         print("$name is person, he is sleeping\n");
  8. }
  9. sub study() {
  10.         my ($self) = @_;
  11.         my $name = $self->{"name"};
  12.         print("$name is person, he is studying\n");
  13. }
  14. return 1;

复制代码


dog.pm

  1. #!/usr/bin/perl -w
  2. package dog;
  3. use strict;
  4. sub sleep() {
  5.         my ($self) = @_;
  6.         my $name = $self->{"name"};
  7.         print("$name is dog, he is sleeping\n");
  8. }
  9. sub bark() {
  10.         my ($self) = @_;
  11.         my $name = $self->{"name"};
  12.         print("$name is dog, he is barking\n");
  13. }
  14. return 1;

复制代码


bless.pl

  1. #!/usr/bin/perl =w
  2. use strict;
  3. use person;
  4. use dog;
  5. sub main()
  6. {
  7.         my $object = {"name" => "tom"};
  8.         # 先把"tom"变为人
  9.         bless($object, "person");
  10.         $object->sleep();
  11.         $object->study();
  12.         # 再把"tom"变为狗
  13.         bless($object, "dog");
  14.         $object->sleep();
  15.         $object->bark();
  16.         # 最后,再把"tom"变回人
  17.         bless($object, "person");
  18.         $object->sleep();
  19.         $object->study();
  20. }
  21. &main();
  22. # 程序运行时输出:
  23. # tom is person, he is sleeping
  24. # tom is person, he is studying
  25. # tom is dog, he is sleeping
  26. # tom is dog, he is barking
  27. # tom is person, he is sleeping
  28. # tom is person, he is studying

复制代码


bless.wrong.pl

  1. #!/usr/bin/perl =w
  2. use strict;
  3. use person;
  4. use dog;
  5. sub main()
  6. {
  7.         my $object = {"name" => "tom"};
  8.         # 没有把类型信息和$object绑定,因此无法获知$object有sleep方法
  9.         $object->sleep();
  10.         $object->study();
  11. }
  12. &main();
  13. # 程序运行输出为:
  14. # Can't call method "sleep" on unblessed reference at bless.wrong.pl line 10.

复制代码


使用c++实现bless的功能

c中的代码

  1. #include <stdio.h>
  2. #include <stdlib.h>
  3. #include <string.h>
  4. struct object {
  5.         char name[16];
  6. };
  7. struct person {
  8.         char name[16];
  9.         void sleep() { printf("%s is person, he is sleeping\n", this->name); }
  10.         void study() { printf("%s is person, he is studying\n", this->name); }
  11. };
  12. struct dog {
  13.         char name[16];
  14.         void sleep() { printf("%s is dog, he is sleeping\n", this->name); }
  15.         void bark() { printf("%s is dog, he is barking\n", this->name); }
  16. };
  17. #define bless(object, type) ((type*) object)
  18. int main()
  19. {
  20.         struct object * o = (struct object *) malloc(sizeof(struct object));
  21.         strcpy(o->name, "tom");
  22.         // 先把"tom"变为人
  23.         bless(o, person)->sleep();
  24.         bless(o, person)->study();
  25.         // 再把"tom"变为狗
  26.         bless(o, dog)->sleep();
  27.         bless(o, dog)->bark();
  28.         // 最后,再把"tom"变回人
  29.         bless(o, person)->sleep();
  30.         bless(o, person)->study();
  31.         return 0;
  32. }
  33. // 程序运行时输出:
  34. // tom is person, he is sleeping
  35. // tom is person, he is studying
  36. // tom is dog, he is sleeping
  37. // tom is dog, he is barking
  38. // tom is person, he is sleeping
  39. // tom is person, he is studying

复制代码

关键的地方就是把对象o的类型转变为person类型和dog类型

2012年6月7日星期四

备忘:centos 快速安装开发包

在 centos 的安装的最后阶段, 会提示是否要安装对应的开发包, 每次我都是直接跳过的, 可是安装完毕的时候,我有懒得一个一个的去安装, 今天看到了一个比较快捷的安装的方式,很方便,所以 mark 一下:
yum groupinstall "Development Libraries" "Development Tools"

2012年6月1日星期五

rpm 包研究(一)

说一下最近遇到的一个问题, 我在 RPM 包里面加了一个脚本文件里面使用了一些模块,打包完包的时候,发现 rpm 包的依赖关系里面有了这些模块, 这就要求我在其他的设备上安装的时候要求必须满足这些依赖关系, 我在想如何跳过这些依赖关系。

首先说一下在打 rpm 包的时候,什么情况下脚本文件会被 rpm 去检查依赖关系, 经过实践发现主要是处在文件的权限上,如果脚本文件具有可执行权限的话,在打 rpm 包的时候就会被检查相关的依赖关系,脚本的文件名后缀并没有产生影响。

另外再说一下, 比如我只想跳过某些的依赖包的检查,比如说很常用的一些库,我不想让 rpm 在安装的时候去做检查,这个时候就需要使用另外一个办法了:在你的 spec 文件里面加入这样一段代码

%prep
%setup -q -n Foo-%{version}

cat << \EOF > %{name}-prov
#!/bin/sh
%{__perl_provides} $* |\
sed -e '/perl(unwanted_provide)/d'
EOF

%global __perl_provides %{_builddir}/%{name}-%{version}/%{name}-prov
chmod +x %{__perl_provides}


cat << \EOF > %{name}-req
#!/bin/sh
%{__perl_requires} $* |\
sed -e '/perl(unwanted_require)/d'
EOF

%global __perl_requires %{_builddir}/%{name}-%{version}/%{name}-req
chmod +x %{__perl_requires}



具体参照这个页面


http://fedoraproject.org/wiki/EPEL:Packaging#Perl_Provides_and_Requires_Filtering


当然这个只是针对比较老的 rpm 版本,如果是新版本的话, 会有更好的解决的办法。


http://fedoraproject.org/wiki/Packaging:AutoProvidesAndRequiresFiltering


再说一下这两个文件:


 

/usr/lib/rpm/perl.req 
/usr/lib/rpm/perl.prov

这两个文件都是一个 perl 脚本, 主要是检查 rpm 里面的每个文件的依赖(perl.req), 和所提供的模块 (perl.prov)