小编jm6*_*666的帖子

在我之前的问题中,我询问了多域解决方案,但问题太复杂了.

现在简而言之:

有可能以某种方式设置基于名称的虚拟主机与Starman(或任何其他纯perl PSGI服务器),如Apache的<VirtualHost ...>指令？或者我需要使用Apache来获得这种功能吗？

任何的想法？

我找到了这个正则表达式,想要了解它.是否有任何正则表达式反编译器将以下正则表达式转换为单词？这真的很复杂.

$text =~ /(((\w)\W*(?{$^R.(0+( q{a}lt$3))})) {8}(?{print +pack"B8" ,$^Rand ""})) +/x;

这是一个关于CamelCase正则表达式的问题.随着tchrist post的组合,我想知道什么是正确的utf-8 CamelCase.

从(brian d foy's)正则表达式开始:

/
    \b          # start at word boundary
    [A-Z]       # start with upper
    [a-zA-Z]*   # followed by any alpha

    (?:  # non-capturing grouping for alternation precedence
       [a-z][a-zA-Z]*[A-Z]   # next bit is lower, any zero or more, ending with upper
          |                     # or 
       [A-Z][a-zA-Z]*[a-z]   # next bit is upper, any zero or more, ending with lower
    )

    [a-zA-Z]*   # anything that's left
    \b          # end at word 
/x

并修改为:

/ …

阅读perl来源我多次看到下一个结构:

printf qq[%s\n], getsomestring( $_ );

但通常它写成

printf "%s\n", getsomestring( $_ );

问题:

• 在这里任何"好的做法"是什么是正确的方法,如果是的话
• 什么时候建议使用更长的qq[...]vs"..."
• 或者它只是纯粹的TIMTOWTDI？

该perlop中没有提到这事.

任何人都可以帮我"翻译"这个java片段到perl/Moose术语吗？尝试理解java对象语法/逻辑,我只知道perl.

基于评论编辑:段即将到来的形式XWiki实现包- http://platform.xwiki.org/xwiki/bin/view/DevGuide/WritingComponents ...这是太大了分析,所以怎么样的剩余码？是可能的(仅用于解释 - 忽略@lines？'@ something'的一般含义是什么？

@Component("hello")
public class HelloWorldScriptService implements ScriptService
{
    @Requirement
    private HelloWorld helloWorld;

    public String greet()
    {
        return this.helloWorld.sayHello();
    }
}

寻找类似下一个perl片段的东西,但不知道"@Component,@ Request - etc :(

package HelloWorldScriptService;
use Moose;
sub greet {
    return $self->
}

存在一些用perl-ish术语解释java的文档？(至少,一些基础知识)

我有一个时间差的字符串,如:

12:03:22  <- where
 ^  ^  ^
 |  |  +minutes
 |  +hours
 +days

强制性只是分钟,小时和天可以省略,但这里可以是例如120:30,所以120小时30分钟.

需要计算NOW +差异的日期和时间,例如:

when now is "May 20, 13:50" and
the string is "1:1:5"
want get as result: "2012 05 21 14 55" (May 21, 14:55)

我知道DateTime,但解析输入字符串的简单方法是什么？我相信这是一个更好的方式:

use _usual_things_;
my ....
if($str =~ m/(.*):(.*):(.*)/) {
   $d = $1; $h = $2; $m = $3;
}
elsif( $str =~ m/(.*):(.*)/ ) {
   $h = $1; $m = $2;
} elsif ($str =~ m/\d+/ ) {
   $m …

简短的问题:什么意思

keys %+

在perl？

我在一些源代码中看到了它.

在一些CPAN模块中,我找到了下一个结构

BEGIN {
    $Package::Name::VERSION = "N.N";
}

将包版本信息放入BEGIN块中的理由是什么？

例如:http://cpansearch.perl.org/src/JSWARTZ/Poet-0.12/lib/Poet/Cache.pm

编辑 - 在最新的模块版本中它被拔出,但无论如何 - 它在这里 - 所以想知道它为什么好(或坏):)

我试图决定是否可以在我的项目中使用angular.js(和anguar-ui-bootstrap).

Web应用程序应该可以与任何合理的现代浏览器一起使用,我很惊讶在angular-ui-bootstrap站点上的权限,在点击"创建构建"按钮后服务器响应:

您当前的浏览器不支持创建自定义构建.请花一点时间升级到更现代的浏览器(Safari除外).

链接到http://browsehappy.com,其中列出了我的Safari(v.8),但angular-ui-bootstrap明确排除了它.

在angular.js的FAQ中是:

AngularJS是100%JavaScript,100%客户端,兼容桌面和移动浏览器.

引导程序3本身也是兼容的.

由于我是angular.js的完全新手,只是下载并尝试学习它,但老实说,我不想浪费几天/几周学习发现:它不完全支持Safari.所有合理的现代浏览器的支持对项目至关重要.

因此问题是:

• 支持角UI的自举任何合理的现代浏览器完全,例如用于任何功能？
• 如果不完全,哪些功能/模块/部件"有问题"？
• 例如,"构建问题"是angular.js的"特征"？

我是编码的新手所以请耐心等待我.

我用Automator(OSX)创建了一个工作流程,工作正常.我唯一的问题是我希望它在许多输入上运行(即作为批处理).我插入了Loop动作,但我遇到的问题是每次更改初始输入.

我想使用applescript每次自动插入初始输入.

我有一个带URL的TXT文件.使用Apple脚本,我想将URL(或一行文本)复制到剪贴板.在下一次迭代中,我想复制下一个URL(或文本行).

有人可以帮忙吗？

谢谢!!