注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Bioinformatics home

 
 
 

日志

 
 

PERL & .NET  

2010-01-06 23:51:01|  分类: Perl |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

今天试了下pdk的 perlnet。果然好东西,居然能够把perl包转成。net需要的com组件。这下爽了,。net可以用perl强大的文本处理能力,哈哈,赞一个。

perl包文件代码

use PerlNET qw(typeof AUTOCALL);
package MyPerlNet;
use namespace "System";
=for interface
    [type: AttributeUsage(AttributeTargets.All)]
    [extends: Attribute]
    static MyPerlNet(string name);
    readonly str Name;
    bool Reviewed;
    public field str name;
    private field bool reviewed;
 public str Add(string a, string b);
 public str Fetch(string gene);
=cut

#构造函数
sub MyPerlNet {
    my($this,$name) = @_;
    $this->{name} = $name;
}

#属性读取
sub Name {
    my($this) = @_;
    return $this->{name};
}

#子函数1
sub Add
{
   my($this,$a,$b) = @_;
   return $a+$b+100;
}

#子函数2
sub Fetch{
my($this,$str) = @_;
 $str=~s/[^A-Za-z]//g;
 $str=uc($str);
 if($str=~/XX(\S+)YY/)
 {
   return $1;
 }
 return $str;
}


#属性设置
sub Reviewed {
    my($this,$reviewed) = @_;
    $this->{reviewed} = $reviewed if $reviewed;
    return $this->{reviewed};
}

 

.net调用代码

            //MyPerlNet mpn = new MyPerlNet("xie ");

            //mpn.name = "xialin";
            //MessageBox.Show(mpn.name);
            //MessageBox.Show(mpn.Add("2", "888"));

            MyPerlNet mpn = new MyPerlNet("");
           textBox1.Text=   mpn.Fetch(textBox1.Text);

  评论这张
 
阅读(879)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017