小编Jan*_*kie的帖子

我刚刚购买了一个商业perl共享对象,它的文档非常简单.特别是它是一个".so"文件,我知道它需要进入perl用于查找共享对象的任何目录.

通常我会遇到".pm"文件并知道如何安装那些没有问题,但这是我第一次使用perl中的东西,我必须安装".so"文件,或将其复制到目录.

有谁知道我会如何找到这个目录？这是Perl的香肠制作水平,我不熟悉(另外我还是培根gal.哈哈!).珍妮

更新:(更清晰).出售此公司的公司名为"hcmodule.so".他们的示例perl脚本在其中使用了一个"使用hcmodule"的pragma,以及稍后调用的..

$retval = hcmodule( ........ <SNIP>..);

如果这有助于一些不起眼的事情.

我有一个包含三个Catalyst应用程序的suse框.最终我需要通过Apache运行mod_perl和SSL来运行所有三个(这本身不是问题,每个都有不同的端口).我已经成功地启动了一个Catalyst应用程序,然后成功转换到Catalyst服务器.

如果有人需要一步一步如何做到这一点,你可以在这里看到它.http://www.catalystframework.org/calendar/2005/7

我不是Apache专家,但问题是我不知道有一种方法可以在一台服务器上运行多个Catalyst应用程序,并让Apache以某种方式能够提供这三种服务器.

http://www.catalystframework.org/calendar/2005/7上的页面甚至说了.....

缺点
无法运行同一应用程序的多个版本
不可能在同一个Apache实例中运行同一应用程序的两个不同版本,因为命名空间会发生冲突.

话虽如此,这可能是通过多个Apache实例实现的吗？不知何故？通过虚拟主机指令可能吗？我知道通过将Catalyst应用程序预先加载到Apache中,每次我执行此操作时都会占用大量内存.

可能重复:
在Perl中,如何检查导入给定函数的模块？

嗨,大家好!我正在利用周末时间梳理我们的网络应用程序,以便更好地了解它.它使用了许多模块,其功能被拉入其中,我的问题是这个......如何确定函数源自哪个模块？
我问的原因是因为我在这里和那里使用打印STDERR线来理解数据移动的方式(它已经揭开了大大的神秘面纱)..这是一个例子....

 ($file_data,$count) = lookup_files($customer,$site,'','0',$d);

我不确定的是lookup_files()的起源.我想看到的是......

 ($file_data,$count) = lookup_files($customer,$site,'','0',$d);
 print STDERR "lookup_files originates here " . <CODE TO SHOW ME WHERE lookup_files IS DEFINED>;

任何关于从哪里开始的建议将不胜感激.webapp使用大量的使用模块,而不是选择性地仅导入所需的内容,每次使用似乎都带来了所有功能.
我知道在引用"方法","父"等关于Perl时,我的术语可能不正确.如果有人想在我身上纠正我也会受到赞赏.我充其量只是这个东西的初学者.珍妮

我试图让Watir模仿一个移动环境,我从非常有用的http://watirwebdriver.com/mobile-devices/逐字跟踪指示.这是我的代码.

#!/usr/bin/ruby
require 'rubygems'
require 'watir-webdriver'
require "webdriver-user-agent"
require 'headless'
$headmode = 0
$screens = 0
headless = Headless.new if $headmode == 1
headless.start if $headmode == 1

driver = UserAgent.driver(:browser => :firefox, :agent => :iphone, :orientation => :landscape)
....... snip ......
....... snip ......

被抛出的例外是......

/var/lib/gems/1.8/gems/webdriver-user-agent-0.0.5/lib/webdriver-user-agent.rb:39:in `agent_string_for': undefined method `downcase' for :iphone:Symbol (NoMethodError)
    from /var/lib/gems/1.8/gems/webdriver-user-agent-0.0.5/lib/webdriver-user-agent.rb:11:in `driver'
    from ./test_CAPI.rb:11

不是Ruby开发人员,或者精通WATIR(还),我对这个错误感到困惑.任何人都可以对此有所了解吗？非常感谢Janie

我在Plone中获取Python脚本以查找外部方法时遇到问题.鉴于三个不同的对象:

1. 称为CloneList(Id和函数名称)的外部方法

2. 使用此成功引用它的DTML文档

   <dtml-var "CloneList(PAGE,ORG,STATUS,CGAP_DATA_HOME,BASE)">
   

   Run Code Online (Sandbox Code Playgroud)

3. 一个Python脚本,通过这个引用外部方法......

   return CloneList(PAGE,ORG,STATUS,CGAP_DATA_HOME,BASE)
   

   Run Code Online (Sandbox Code Playgroud)

DTML文档工作正常但Python脚本由于某种原因抛出:

Error Value: global name 'CloneList' is not defined

为什么DTML模板可以看到CloneList,但Python脚本不能？

有谁知道在MySQL语句中嵌入注释的方法？当我搜索mysql和注释时,我只能在表格中放置注释等

如果我按照我的老板想要的方式实现这个想法,那就是明确地将用户id添加到语句中,以便稍后分析MySQL(通过二进制日志),我们知道谁做了什么.

示例:
SELECT id
FROM customer
WHERE handle ='JBH'

现在显示为:
- user:jwilkie
SELECT id
FROM customer
WHERE handle ='JBH'

(或类似的)

编辑CLARITY:原因是我们有与MySQL连接的perl模块,我们通过读取$ ENV {USER}(在本例中为"jwilkie")来检索用户ID.在这种情况下,我们定义了一个MySQL用户,但是有多个人在运行perl mod.

有任何人对此有经验吗？非常感谢!简

我一直在使用svn快速和愤怒做提交,因为我是空头,我似乎不记得在我的提交之前"svn up".有没有人知道在执行提交之前svn中强制执行"svn up"的方法？我在Ubuntu上使用svn.非常感谢!珍妮

我正在进入XML :: Simple并且在解析一条记录时遇到了XML :: Simple模块阻塞的问题.perl代码低于.....

#!/usr/bin/perl
# use module
use warnings;
use strict;
use XML::Simple;
use Data::Dumper;

# create object
my $xml = new XML::Simple;

# read XML file
my $data = $xml->XMLin("owners.xml");

foreach my $e (@{$data->{Owner}})
{
     print $e->{OwnerId}->{OwnerCik}."\n";
     print $e->{OwnerId}->{OwnerName}."\n";
     print "\n";
}

当我使用这个XML时,它运行得很漂亮......

<?xml version="1.0"?>
<ownershipDocument>
    <Owner>
        <OwnerId>
            <OwnerCik>0001234878</OwnerCik>
            <OwnerName>PUBLIC JOHN Q</OwnerName>
        </OwnerId>
    </Owner>
    <Owner>
        <OwnerId>
            <OwnerCik>0001234877</OwnerCik>
            <OwnerName>PUBLIC JANE Q</OwnerName>
        </OwnerId>
    </Owner>
</ownershipDocument>

当我有一条记录时,我遇到了问题...下面的XML就是一个例子......

<?xml version="1.0"?>
<ownershipDocument>
    <Owner>
        <OwnerId>
            <OwnerCik>0001234878</OwnerCik>
            <OwnerName>PUBLIC JOHN Q</OwnerName>
        </OwnerId>
    </Owner>
</ownershipDocument>

解析这个时得到的错误是..... …

我正在研究大学问题(在Perl中).我们正在创建模块,我需要编写一个简单的模块"get/set四个属性的方法:lastname,firstname,full_name和一个也是person对象的子列表".

我想我已经失去了它,但它是那些也是抛弃我的人物对象的孩子.我想模块需要接受一个列表,然后创建一个对象列表？Python是我的核心语言,所以这个让我失望.get/set方法工作正常.有任何想法吗？

我的模块在这里......

#!/usr/bin/perl

package Person;

sub new
{
    my $class = shift;
    my $self = {
        _firstName => shift,
        _lastName  => shift,
    };
    bless $self, $class;
    return $self;
}
sub setFirstName {
    my ( $self, $firstName ) = @_;
    $self->{_firstName} = $firstName if defined($firstName);
    return $self->{_firstName};
}

sub getFirstName {
    my( $self ) = @_;
    return $self->{_firstName};
}

sub setLastName {
    my ( $self, $lastName ) = @_;
    $self->{_lastName} = $lastName if defined($lastName);
    return $self->{_lastName};
}

sub getLastName { …

我在perl中遇到了一些奇怪的东西,我以为我会分享.我有一个名为"testfile.txt"的文本文件.

这里是....

BLAH BLAH BLAH BLAH BLAH
The dollar amount is $2.30 today
BLAH BLAH BLAH BLAH BLAH

现在我想提取2.30.在我下面的例子中,我正在啜饮文件,它工作正常.第二种方式根本不起作用.啜饮中有一些神奇的东西吗？

#!/usr/local/bin/perl

## THIS WORKS
my $content;
my $filename = "testfile.txt";
my $fh="FILEIN";
open(my $fh, '<', $filename) or die "cannot open file $filename";
{
   local $/;
   $content = <$fh>;
}
close($fh);
my $price;
($price)=$content=~m{is\s\$([0-9]{1,2}\.[0-9]{2})\stoday};
print "Result is $price\n"; #Correctly produces 2.30

## DOESN'T WORK

$content2="BLAH BLAH BLAH BLAH BLAH The dollar amount is $2.30 today BLAH BLAH BLAH BLAH BLAH";
my $price2; …