小编Eug*_*ash的帖子

来自perldoc -f bless:

bless REF,CLASSNAME

这个函数告诉引用的东西REF,它现在
是CLASSNAME包中的一个对象.

有没有办法在没有不必要的复制的情况下获得无结构的结构？

如何从Python中的函数返回多个变量？

我想使用curl来查看页面的来源,如果该源包含与该字符串匹配的单词,那么它将执行打印.我该怎么办if $string contains？

在VB中它就像.

dim string1 as string = "1"
If string1.contains("1") Then
Code here...
End If

类似的东西,但在Perl中.

我想获取一个没有路径的文件名(如果它是字符串的一部分)以及扩展名.

例如:

/path/to/file/fileName.txt     # results in "fileName"
fileName.txt                   # results in "fileName"
/path/to/file/file.with.periods.txt    # results in "file.with.periods" 

所以基本上,我想要删除之前的任何内容,包括最后一个"/"(如果存在)以及最后一个"." 以及之后的任何元字符.

很抱歉这样的新手问题,但我是perl的新手.

我正在使用以下内容尝试将记录插入到postgresql数据库表中,但它无法正常工作.我没有收到任何错误,但表中没有记录.我需要提交还是其他什么？我正在使用随Bitnami djangostack安装一起安装的postgresql数据库.

import psycopg2

try:
    conn = psycopg2.connect("dbname='djangostack' user='bitnami' host='localhost' password='password'")
except:
    print "Cannot connect to db"

cur = conn.cursor()

try:
    cur.execute("""insert into cnet values ('r', 's', 'e', 'c', 'w', 's', 'i', 'd', 't')""")
except:
    print "Cannot insert"

可能的字段类型:

BINARY(16)
CHAR(32)
BIGINT + BIGINT

我如何决定使用哪一个？

我使用以下语句来获取当前时间.

  print "$query executed successfully at ",localtime;
  print "$query executed successfully at ",(localtime);
  print "$query executed successfully at ".(localtime);

产量

 executed successfully at 355516731103960
 executed successfully at 355516731103960
 executed successfully at Wed Apr  7 16:55:35 2010

前两个语句不以日期格式打印当前时间.第三个语句仅以日期格式提供正确的输出.

我的理解是第一个在标量上下文中返回一个值,所以它返回数字.

然后在第二个打印中我只在列表上下文中使用了localtime,为什么它也给出了数字输出.

最近我遇到这种方式来过滤掉列表的每一个值:

perl -E 'say grep --$|, 1..10'
13579

它是如何工作的？

我在遗留代码中重构了一个perl模块,这是模块中的一个函数:

sub get_user {
    my $user = __PACKAGE__->{user};
    if (!defined $user) {
       # more code
       __PACKAGE__->{user} = $user;
    }
    return $user;
}

这个模块汇编下use strict.而且没有定义包变量.什么__PACKAGE__->{user}意思？

我找到了这个例子,我无法理解为什么它无法预测？我认为它必须输出[1, 8, 15]或[2, 8, 22].

array = [1, 8, 15]
g = (x for x in array if array.count(x) > 0)
array = [2, 8, 22]
print(list(g))


>>>[8]