麻豆视频在线看,国产精品69久久久久,国产综合网站

我爱佛_�� — Sun, 09 Oct 2011 00:04:00 GMT

摘要: 非常��显易懂的PERL�~�码说明.
一目了然PERL�~�码,注意是�{�?nbsp; 阅读全文

我爱佛_�� 2011-10-09 08:04 发表评论

perl不用export,自动加入自己的搜索和动态链接库环境

我爱佛_�� — Mon, 03 Oct 2011 13:37:00 GMT

下面以MAC��Z��,如果是LINUX需要把DYLD发�ؓLD

把下面代码加��C��码开�?它就可以自启动了,不需要再EXPORT或�?I

BEGIN {

#需要加到LOADPATH的�\�?/font>

my $need = '/usr/local/nagios/pkg/ebase/';

push @INC, $need;

if ( $^O !~ /MSWin32/ ) {

my $ld = $ENV{DYLD_LIBRARY_PATH};

if ( !$ld ) {

$ENV{DYLD_LIBRARY_PATH} = $need;

}

elsif ( $ld !~ m#(^|:)\Q$need\E(:|$)# ) {

$ENV{DYLD_LIBRARY_PATH} .= ':' . $need;

}

else {

$need = "";

}

if ($need) {

exec 'env', $^X, $0, @ARGV;

}

@import url(http://www.aygfsteel.com/CuteSoft_Client/CuteEditor/Load.ashx?type=style&file=SyntaxHighlighter.css);@import url(/css/cuteeditor.css);

我爱佛_�� 2011-10-03 21:37 发表评论

哭了�Q�整一天Java Runtime exec的挂死（不退出）问题�Q�原来是酱子

我爱佛_�� — Fri, 15 May 2009 13:04:00 GMT

摘要: 今天搞了一天，JAVA调用一个PERL�E�序�Q�得不得��退不出�Q�千试万试，LOG�_��到逐行�Q�知道在哪停住了�Q�但打死不知道�ؓ什么�?
后来吃个饭都攑ּ�了，居然又找到答案，要没看到它，那真以�ؓ里面有鬼了�?nbsp; 阅读全文

我爱佛_�� 2009-05-15 21:04 发表评论

我爱佛_�� — Tue, 12 May 2009 08:31:00 GMT

如需要，讄��PROXY�Q?br /> export http_proxy=http://127.0.0.1:3128

启动�Q�然后设�|�MIRROR�Q�直接安装：
perl -MCPAN -e shell
cpan> o conf urllist set http://www.perl87.cn/CPAN/
cpan> install JSON

我爱佛_�� 2009-05-12 16:31 发表评论

do/eval/requir区别

我爱佛_�� — Tue, 12 Aug 2008 02:42:00 GMT

Ways to include code/library from another file (eval, do, require and use)

1) do $file is like eval `cat $file`, except the former:
1.1: searches @INC.
1.2: bequeaths an *unrelated* lexical scope on the eval'ed code.

2) require $file is like do $file, except the former:
2.1: checks for redundant loading, slipping already loaded files.
2.2: raises an exception on failure to find, compile, or execute $file.

3) require Module is like require "Module.pm", except the former:
3.1: translates each "::" into your system's directory separator.
3.2: primes the parser to disambiguate class Module as an indirect object.

4) use Module is like require Module, except the former:
4.1: loads the module at compile time, not run-time.
4.2: imports symbols and semantics from that package to the current one.

eval除了可以形成动态CODE外，�q�可以做异常捕捉�Q?/p>

  eval {

...

};

if ($@) {

errorHandler($@);

}



$@在无异常时是NULL�Q�否则是异常原因

我爱佛_�� 2008-08-12 10:42 发表评论

PAR和PP

我爱佛_�� — Mon, 11 Aug 2008 13:13:00 GMT

摘要: PERL开源打包程序PAR和PP(�c�M��于商业程序的perl2exe/perlapp) 阅读全文

我爱佛_�� 2008-08-11 21:13 发表评论

我爱佛_�� — Wed, 20 Feb 2008 04:40:00 GMT

摘要: ACTIVEPERL在LINUX下的安装以及PERL2EXE的��?nbsp; 阅读全文

我爱佛_�� 2008-02-20 12:40 发表评论

一�U�不需要WSDL用CXF�Q�原XFIRE�Q�访问PERL�Q�SOAP::Lite�Q�编写的WEB SERVICE

我爱佛_�� — Wed, 05 Dec 2007 04:00:00 GMT

摘要: 用PERL�~�写SOAP服务是相当方便的�Q�但是如果用其它语言来访问它�Q�却不容易，下面介绍一�U�不需要WSDL描述��p��讉K��它的�Ҏ��?nbsp; 阅读全文

我爱佛_�� 2007-12-05 12:00 发表评论

PERL中遇到Your vendor has not defined Fcntl macro F_GETFL解决�Ҏ��

我爱佛_�� — Wed, 31 Oct 2007 12:40:00 GMT

今天在WINDOWS下用SOCKET时发现如下错误：�Q�LINUX下正常）

Your vendor has not defined Fcntl macro F_GETFL, used at :/Perl/site/lib/IO/Multiplex.pm line 932.

只需要替换Multiplex.pm line 932处函数nonblock�Q?

sub nonblock
{
my $fh = shift;
my $flags = fcntl($fh, F_GETFL, 0)
or die "fcntl F_GETFL: $!\n"
fcntl($fh, F_SETFL, $flags | O_NONBLOCK)
or die "fcntl F_SETFL $!\n"
}

替换为：

use constant WIN32 => $^O =~ /win32/i;

sub nonblock {
my $sock = shift;
if (WIN32) {
my $set_it = "1"
ioctl( $sock, 0x80000000 | (4 << 16) | (ord('f') << 8) | 126, $set_it) || return 0;
} else {
fcntl($sock, F_SETFL, fcntl($sock, F_GETFL, 0) | O_NONBLOCK) || return 0;
}
}

卛_��?/p>

我爱佛_�� 2007-10-31 20:40 发表评论

我爱佛_�� — Thu, 23 Aug 2007 06:13:00 GMT

�?a href="http://www.aygfsteel.com/alwayscy/archive/2007/08/07/135074.html">上一��文�?/a>中的问题�Q�今天又再试了下�Q�居然解决了�Q�看来把遇到问题放一放是有好处的�?br>
�W�一�Q�是要用对CXF的库�Q�在一行代码未变的情况下，只要使用最新的库。看来在最新库里解决了数组问题�Q?br>2.1-incubator-SNAPSHOT
��没问题�Q�如果是用：
2.0-incubator
��׃��出现上篇文章的情��c��我使用MAVEN2�Q�就写成�Q?br>

    <dependency>
        <groupId>org.apache.cxfgroupId>
        <artifactId>cxf-rt-frontend-jaxwsartifactId>
        <version>2.1-incubator-SNAPSHOTversion>

    dependency>
    <dependency>
        <groupId>org.apache.cxfgroupId>
        <artifactId>cxf-rt-transports-httpartifactId>
        <version>2.1-incubator-SNAPSHOTversion>
    dependency>
    <dependency>
        <groupId>org.apache.cxfgroupId>
        <artifactId>cxf-rt-databinding-aegisartifactId>
        <version>2.1-incubator-SNAPSHOTversion>
    dependency>

�W�二�Q�对SOAP::Lite的改变，SOAP::Lite不支持doc/literal�Q�但通过阅读
"NET-based Web Service Using the SOAP::Lite Perl Library".
我的上篇文章有链接，我写的PERL�E�序在某些情况下依然不行�?br>�q�次再加了两处改动后��可以了�Q�（注意�Q�CXF里不要��用aegisDatabinding�Q�用默认的即可）

my $soap = SOAP::Lite
       -> uri('http://magic.nms.exchangebit.com/')
       -> on_action( sub{ join '/', 'http://www.alfredbr.com', $_[1] })
       -> proxy('http://127.0.0.1:8080/ebnms/NotifyService')
           ->autotype(0);

其中的autotype(0)非常重要。另外一处改动是�Q�程序中的根变量名改�?arg0"�Q�即与WSDL中定义一致�?br>实验发现�Q�带不带attr中的xmlns都可以。完整代码如下：

use SOAP::Lite ( +trace => all, maptype => {} );

my $soap = SOAP::Lite
       -> uri('http://magic.nms.exchangebit.com/')
       -> on_action( sub{ join '/', 'http://www.alfredbr.com', $_[1] })
       -> proxy('http://127.0.0.1:8080/ebnms/NotifyService')
           ->autotype(0);

#$soap->sendAlarmString ("good");

#$soap->sendAlarm (SOAP::Data->name(arg0=>{devName=>"hehe", devIp=>"ip1"}));

{# call send alarm
    my @params = (
    #   $header,
       SOAP::Data->name(arg0 => goodhehe)
    );

    my $method = SOAP::Data->name('ns1:sendAlarmString')
       ->attr({"xmlns:ns1" => 'http://magic.nms.exchangebit.com/'});

    my $result = $soap->call($method => @params);

    print "\nsend string alarm result:\n";
    if ($result->fault)
    {
       print $result->faultstring;
    }
    else
    {
       print $result->result;
    }
    print "\nn";
}

{# call send dev alarm
    my @params = (SOAP::Data->name(arg0=>{devName=>"hehe", devIp=>"ip1"}));

    my $method = SOAP::Data->name('sendAlarm');
#       ->attr({"xmlns:ns1" => 'http://magic.nms.exchangebit.com/'});

    my $result = $soap->call($method => @params);

    print "\nsend string alarm result:\n";
    if ($result->fault)
    {
       print $result->faultstring;
    }
    else
    {
       print $result->result;
    }
    print "\n\n";
}

{# call send arr alarm
    my @params = (
       SOAP::Data->name(arg0 => [
       {devName=>"hehe1", devIp=>"ip1"},
       {devName=>"hehe1", devIp=>"ip1"},
       {devName=>"hehe1", devIp=>"ip1"},
       {devName=>"hehe1", devIp=>"ip1"},
       {devName=>"hehe1", devIp=>"ip1"},
       {devName=>"hehe1", devIp=>"ip1"},
       {devName=>"hehe1", devIp=>"ip1"},
       {devName=>"hehe1", devIp=>"ip1"},
       {devName=>"hehe1", devIp=>"ip1"},
       {devName=>"hehe1", devIp=>"ip1"},
       {devName=>"hehe2", devIp=>"ip2"}])
    );

    my $method = SOAP::Data->name('sendAlarmArr');

    my $result = $soap->call($method => @params);

    print "\nsend string alarm result:\n";
    if ($result->fault)
    {
       print $result->faultstring;
    }
    else
    {
       my @a = @{$result->result->{item}};
       foreach $i (@a) {
               print "ele: $i->{devName}, $i->{devIp}\n";
       }
    }
    print "\n\n";
}

我爱佛_�� 2007-08-23 14:13 发表评论

我爱佛_�� — Tue, 07 Aug 2007 13:39:00 GMT

最�q�想用PERL通过SOAP与JAVA通信�Q�想��C��XFIRE�Q�现在叫CXF提供的服务。但��L��差一�Ҏ��功�?br>
�W�一步，
�׃��用了SPRING�Q�所以最先看了这��文章：Writing a service with Spring
服务是徏成功了，PERL和JAVA是可以正帔R��信了，详见上篇文章
可是CXF自己的CLIENT生成代码却访�?#8220;自定义结构数�l?#8221;的函��C��成功�Q?br> public List sendAlarmArr (List arr);

�W�二步，
左试双��不成功，甚至去试了Axis2�Q�但那个生成的WSDL把上面的�l�构变成AnyType�Q�估计不寏V�?br>又回来，看了Aegis�l�定�Q�我�q�找到将它用到SPRING里的�Ҏ��Q?br>

<beans xmlns="http://www.springframework.org/schema/beans"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:jaxws="http://cxf.apache.org/jaxws"
xsi:schemaLocation="
http://www.springframework.org/schema/beans http://www.springframework.org/schema/beans/spring-beans.xsd
http://cxf.apache.org/jaxws http://cxf.apache.org/schemas/jaxws.xsd">

<import resource="classpath:META-INF/cxf/cxf.xml" />
<import resource="classpath:META-INF/cxf/cxf-extension-soap.xml" />
<import resource="classpath:META-INF/cxf/cxf-servlet.xml" />

   <bean id="serviceClass" class="com.exchangebit.nms.magic.NotifyServiceImpl"/>

    <bean id="aegisDatabinding" class="org.apache.cxf.aegis.databinding.AegisDatabinding"/>

    <bean id="serviceFactory" class="org.apache.cxf.jaxws.support.JaxWsServiceFactoryBean">
        <property name="dataBinding" ref="aegisDatabinding"/>
    bean>

    <bean id="serverBeanFactory" class="org.apache.cxf.frontend.ServerFactoryBean" init-method="create">
        <property name="address" value="/NotifyService"/>
        <property name="bindingId" value="http://schemas.xmlsoap.org/soap/"/>
        <property name="serviceBean" ref="serviceClass"/>
        <property name="serviceFactory" ref="serviceFactory"/>
    bean>

    <jaxws:endpoint
      id="notifyService"
      implementor="com.exchangebit.nms.magic.NotifyServiceImpl"
      address="/NotifyService">

     jaxws:endpoint>

beans>

其实�Q�跟前一�U�JAX-WS的方式�{换非常简单，把其中的注释��L��是Aegis�l�定�Q�注释掉��是JAX-WS�?br>客户端没有在SPRING里试成功�Q�但写代码也相当��单，Aegis真好�Q?br>

        getBean ("notifyClient");

        ClientProxyFactoryBean factory = new ClientProxyFactoryBean();
        factory.setServiceClass(NotifyService.class);
        factory.setAddress("http://127.0.0.1:8080/ebnms/NotifyService");
        factory.getServiceFactory().setDataBinding(new AegisDatabinding());
        NotifyService client = (NotifyService) factory.create();
        DoTest (client);

�q�次�Q�到是CXF的SERVER和CLIENT都可以正帔R��信了。但我不说也知道啦，PERL又出问题�?

�W�三步，
又进一步搜�Q�才知道Document, Literal, RPC, Encoding对SOAP消息的媄响，�q�篇文章(中文�?/a>)相当�?
大义是RPC/Encoding��方法名�U�放入了operation节中�Q��ƈ且消息里含有�c�d��信息�Q�不方便��验�?br>而Document/Literal通过增加WSDL复杂度，��方法名、参数类型全部放入了types一节，方便了处理�?br>而SOAP::Lite只支持RPC/Encoding的方式，但也有办法让它�Ş成Doc/Lit的消息：点这�?/a>�?br>但，�q�种�Ҏ��只支持JAX-WS的服务，Aegis的PERL��׃��出错了�?br>
所以，不管用哪�U�要么JAVA的CLIENT和SERVER通信有问题，不然��是把PERL拒之门外。我怀疑是不是CXF的JAX-WS的数�l�处理有问题�Q�不然Aegis��Z��不出错？另外�Q�Aegis对PERL的消息不够宽容，本已是Doc/Lit格式�Q�只是带有TYPE信息也会出错�?br>不知如何解，先记在此�Q�以后回�q�头来再研究了�?

我爱佛_�� 2007-08-07 21:39 发表评论

我爱佛_�� — Fri, 03 Aug 2007 14:37:00 GMT

摘要: SOAP::Lite的Lite是说其好用，其实它的实现�q�不“轻量”�Q�功能也非常强大�Q�所以我们要用好它�?在调用服务时�Q�有旉��到有复杂�l�构或者数�l�时�Q�还是有点小�ȝ��Q�下面以调用以下三个函数��Z��分别写出SOAP::Lite如何�l�合它们的参敎ͼ�其它情况也应该能�q�刃而解�?public class DeviceValue { &nbs... 阅读全文

我爱佛_�� 2007-08-03 22:37 发表评论

Net::Server::Multiplex�l�构

我爱佛_�� — Tue, 29 May 2007 03:11:00 GMT

$self->{net_server}��是Multiplex�Q��ؓ了能够实现多态调用（在父�c�M��调用实现子类的方法，PERL中��用SUPER实现�Q�，又定义了�Q?/p>

Net::Server::Multiplex::MUX

每有一个新�q�接�Q�会NEW一个这��L��对象�q�行��理�?/p>

而封装的IO::Multiplex对象是存在：$self->{net_server}->{mux}中�?/p>

我爱佛_�� 2007-05-29 11:11 发表评论

关于Perl的几点：多行注释�Q�REF函数�Q�类的初始化

我爱佛_�� — Thu, 24 May 2007 07:31:00 GMT

多行注释�Q?br>perl没有多行注释�Q�可以用下面代替�Q?br>=pod
代码�?
.
.
.
代码�?
=cut

关于ref函数�Q?br> ref EXPR
ref     Returns a non-empty string if EXPR is a reference, the empty
         string otherwise. If EXPR is not specified, $_ will be used. The
         value returned depends on the type of thing the reference is a
         reference to. Builtin types include:

             SCALAR
             ARRAY
             HASH
             CODE
             REF
             GLOB
             LVALUE

         If the referenced object has been blessed into a package, then
         that package name is returned instead. You can think of "ref" as
         a "typeof" operator.

讲类的段落，比较明了�Q?br>Object Construction
All objects are references, but not all references are objects. A reference won't work as an object unless its referent is specially marked to tell Perl what package it belongs to. The act of marking a referent with a package name--and therefore, its class, since a class is just a package--is known as blessing. You can think of the blessing as turning a reference into an object, although it's more accurate to say that it turns the reference into an object reference.

The bless function takes either one or two arguments. The first argument is a reference and the second is the package to bless the referent into. If the second argument is omitted, the current package is used.

$obj = { };                 # Get reference to anonymous hash.
bless($obj);                # Bless hash into current package.
bless($obj, "Critter");     # Bless hash into class Critter.
Here we've used a reference to an anonymous hash, which is what people usually use as the data structure for their objects. Hashes are extremely flexible, after all. But allow us to emphasize that you can bless a reference to anything you can make a reference to in Perl, including scalars, arrays, subroutines, and typeglobs. You can even bless a reference to a package's symbol table hash if you can think of a good reason to. (Or even if you can't.) Object orientation in Perl is completely orthogonal to data structure.

Once the referent has been blessed, calling the built-in ref function on its reference returns the name of the blessed class instead of the built-in type, such as HASH. If you want the built-in type, use the reftype function from the attributes module. See use attributes in Chapter 31, "Pragmatic Modules".

And that's how to make an object. Just take a reference to something, give it a class by blessing it into a package, and you're done. That's all there is to it if you're designing a minimal class. If you're using a class, there's even less to it, because the author of a class will have hidden the bless inside a method called a constructor, which creates and returns instances of the class. Because bless returns its first argument, a typical constructor can be as simple as this:

package Critter;
sub spawn { bless {}; }
Or, spelled out slightly more explicitly:
package Critter;
sub spawn {
    my     $self = {};       # Reference to an empty anonymous hash
    bless $self, "Critter"; # Make that hash a Critter object
    return $self;            # Return the freshly generated Critter
}
With that definition in hand, here's how one might create a Critter object:
$pet = Critter->spawn;

12.4.1. Inheritable Constructors
Like all methods, a constructor is just a subroutine, but we don't call it as a subroutine. We always invoke it as a method--a class method, in this particular case, because the invocant is a package name. Method invocations differ from regular subroutine calls in two ways. First, they get the extra argument we discussed earlier. Second, they obey inheritance, allowing one class to use another's methods.

We'll describe the underlying mechanics of inheritance more rigorously in the next section, but for now, some simple examples of its effects should help you design your constructors. For instance, suppose we have a Spider class that inherits methods from the Critter class. In particular, suppose the Spider class doesn't have its own spawn method. The following correspondences apply:

Method Call Resulting Subroutine Call
Critter->spawn() Critter::spawn("Critter")
Spider->spawn() Critter::spawn("Spider")

The subroutine called is the same in both cases, but the argument differs. Note that our spawn constructor above completely ignored its argument, which means our Spider object was incorrectly blessed into class Critter. A better constructor would provide the package name (passed in as the first argument) to bless:

sub spawn {
    my $class = shift;       # Store the package name
    my $self = { };
    bless($self, $class);     # Bless the reference into that package
    return $self;
}
Now you could use the same subroutine for both these cases:
$vermin = Critter->spawn;
$shelob = Spider->spawn;
And each object would be of the proper class. This even works indirectly, as in:
$type = "Spider";
$shelob = $type->spawn;         # same as "Spider"->spawn
That's still a class method, not an instance method, because its invocant holds a string and not a reference.

If $type were an object instead of a class name, the previous constructor definition wouldn't have worked, because bless needs a class name. But for many classes, it makes sense to use an existing object as the template from which to create another. In these cases, you can design your constructors so that they work with either objects or class names:

sub spawn {
    my $invocant = shift;
    my $class    = ref($invocant) || $invocant; # Object or class name
    my $self     = { };
    bless($self, $class);
    return $self;
}

12.4.2. Initializers
Most objects maintain internal information that is indirectly manipulated by the object's methods. All our constructors so far have created empty hashes, but there's no reason to leave them empty. For instance, we could have the constructor accept extra arguments to store into the hash as key/value pairs. The OO literature often refers to such data as properties, attributes, accessors, member data, instance data, or instance variables. The section "Instance Variables" later in this chapter discusses attributes in more detail.

Imagine a Horse class with instance attributes like "name" and "color":

$steed = Horse->new(name => "Shadowfax", color => "white");
If the object is implemented as a hash reference, the key/value pairs can be interpolated directly into the hash once the invocant is removed from the argument list:
sub new {
    my $invocant = shift;
    my $class = ref($invocant) || $invocant;
    my $self = { @_ };          # Remaining args become attributes
    bless($self, $class);       # Bestow objecthood
    return $self;
}
This time we used a method named new for the class's constructor, which just might lull C++ programmers into thinking they know what's going on. But Perl doesn't consider "new" to be anything special; you may name your constructors whatever you like. Any method that happens to create and return an object is a de facto constructor. In general, we recommend that you name your constructors whatever makes sense in the context of the problem you're solving. For example, constructors in the Tk module are named after the widgets they create. In the DBI module, a constructor named connect returns a database handle object, and another constructor named prepare is invoked as an instance method and returns a statement handle object. But if there is no suitable context-specific constructor name, new is perhaps not a terrible choice. Then again, maybe it's not such a bad thing to pick a random name to force people to read the interface contract (meaning the class documentation) before they use its constructors.

Elaborating further, you can set up your constructor with default key/value pairs, which the user could later override by supplying them as arguments:

sub new {
    my $invocant = shift;
    my $class   = ref($invocant) || $invocant;
    my $self = {
        color => "bay",
        legs   => 4,
        owner => undef,
        @_,                 # Override previous attributes
    };
    return bless $self, $class;
}

$ed = Horse->new; # A 4-legged bay horse
$stallion = Horse->new(color => "black"); # A 4-legged black horse
This Horse constructor ignores its invocant's existing attributes when used as an instance method. You could create a second constructor designed to be called as an instance method, and if designed properly, you could use the values from the invoking object as defaults for the new one:
$steed = Horse->new(color => "dun");
$foal = $steed->clone(owner => "EquuGen Guild, Ltd.");

sub clone {
    my $model = shift;
    my $self = $model->new(%$model, @_);
    return $self;     # Previously blessed by ->new
}

我爱佛_�� 2007-05-24 15:31 发表评论

我爱佛_�� — Sun, 26 Nov 2006 03:35:00 GMT

摘要: 更新�?008�q?�?日：
最�q�，又再�ơ试图自己安装OPENSSL�Q�SSLeay�Q�用了SSLeay里README.WIN32说的�Ҏ�� 阅读全文

我爱佛_�� 2006-11-26 11:35 发表评论