小编Cha*_*ens的帖子

我有一台Star TSP100打印机,我真的遇到了一些问题.

我的问题是我对编程并不熟悉 - 但我正在学习!

程序员参考Star打印机说,如果我将ESC d发送到打印机 - 这将激活内置刀具 - 我非常想做.

我的问题是我不知道如何从Perl中发送这样的转义码 - 如果它甚至可能的话.

我非常感谢你对此提出任何建议.

我需要为Bcrypt生成盐,我试图了解我的PRNG需要多少随机,因为盐不会太弱以至于无法使用Bcrypt.我有五种一般的随机来源:

1. Perl 5附带的PRNG用默认种子播种(这似乎是第二个的当前分数,包含当前秒的分数的事物的地址,进程的pid,以及Perl栈的地址)指针全部与一些素数混合在一起)
2. Perl 5附带的PRNG播种了其他一些种子
3. 其他一些基于Perl 5的PRNG就像 Math::Random::Secure
4. 只是从中读取字节 /dev/urandom
5. 只是从中读取字节 /dev/random

/dev/random我认为这个代码运行的机器已经太难了(当机器忙时,/proc/sys/kernel/random/entropy_avail低于500),否则这将是一个非问题,我只会使用/dev/random.也就是说,如果它足够重要,我将继续使用/dev/random/(人们不会经常设置新的密码).

我发现HTML Agility Pack对屏幕抓取网站很有用且易于使用.什么是Java,Ruby,Python中HTML屏幕抓取的等效库？

这有点棘手.我猜这个网页使用某种AJAX来根据搜索查询提取内容.当我使用get in Perl获取页面时,它会获取php/html后面的脚本代码,但不会获取手动搜索查询时显示的结果.我需要能够获取结果页面的内容.反正在Perl中有没有这样做？

除了特定于给定服务的模块(如ClearCase :: Proc :: ClearTool),还有哪些模块或内置函数可以自动执行外部程序？

我正在撰写关于XS的演讲,我需要知道社区什么时候认为适合XS.

我在说

data := Thing {
    date:     time.Now().UnixNano()   
    name:     "foo",
    value:    5,
}
_, err := datastore.Put(c, datastore.NewIncompleteKey(c, "stuff", nil), &data)
if err != nil {
    http.Error(w, err.Error(), http.StatusInternalServerError)
    return
}

存储的是什么{0, "", 0}.我期待看到类似的东西{1366370653722376000, "foo", 5}.我究竟做错了什么？

注意:我正在使用dev appserver.

在文档中srand,它说:

另一种情况是你可能想在"fork"之后调用"srand"以避免子进程与父进程共享相同的种子值(并因此相互之间).

我本来可以发誓我从来没有碰到这个,所以我测试了它:

$ perl -E 'for (1 .. 8) { next if fork; say rand; exit;} wait for 1 .. 8'
0.301967407417582
0.497966311014356
0.05798998109913
0.907357103963481
0.240495550287054
0.74279685605234
0.368774714022042
0.562179033951001

然后我测试了在父母中设置种子srand:

$ perl -E 'srand; for (1 .. 8) { next if fork; say rand; exit;} wait for 1 .. 8'
0.13028028358622
0.13028028358622
0.13028028358622
0.13028028358622
0.13028028358622
0.13028028358622
0.13028028358622
0.13028028358622

因此,如果您在父级中设置种子,则子级都将获得相同的值.为什么不在第一个例子中发生这种情况？

我需要提出一个正则表达式来验证主机名对 RFC-1123和RFC-952.

现在我正在使用这个:

^(?=.{1,255}$)[0-9A-Za-z](?:(?:[0-9A-Za-z]|\b-){0,61}[0-9A-Za-z])?(?:\.[0-9A-Za-z](?:(?:[0-9A-Za-z]|\b-){0,61}[0-9A-Za-z])?)*\.?$/

但这并没有成功,因为它没有捕获a.无效的主机名.

如何增强reg表达式以符合这些RFC？

谢谢

如果%SIG未明确设置其条目,哪些信号将导致Perl程序停止运行？