小编lex*_*exu的帖子

我怎样才能将Moose融入Komodo?

ActiveState的Komodo是我在OS X和XP上首选的Perl IDE.最近我开始使用Moose编写新项目.

有没有人找到一种方法来教科莫多如何"识别"穆斯的属性和方法声明?我很乐意在Komodo的"Code Browser/Code Explorer"中看到Moose-Support.

perl komodo moose

9
推荐指数
1
解决办法
542
查看次数

MYSQL:如何找到'上周一的日期'(表现问题)

有没有比写作更简单的方法:

选择date_sub(curdate(),interval WEEKDAY(curdate())day 作为LastMonday
来自dual

mysql date

9
推荐指数
1
解决办法
1万
查看次数

Perl:将(x,y)像素绘制成单色位图的推荐方法

对于家庭项目,我需要将(x,y)坐标绘制到400x400黑白位图上.

在OS X,Windows,Linux上,你最容易重复的是什么样的perl模块以及什么样的图像格式(GIF?,PNG?其他?)?


编辑 我的解决方案,基于GD,由Brian Agnew推荐


use strict;
use warnings;
use GD;
my $BitMap = GD::Image->new(400,400);

my $white = $BitMap->colorAllocate(255,255,255);
my $black = $BitMap->colorAllocate(0,0,0);       

# Frame the BitMap
$BitMap->rectangle(0,0,399,399,$black);
# Transparent image, white background color
$BitMap->transparent($white);

# plot some, just to show it works #
for my $x (0..100) {
   for my $y (0 .. 100) {
      $BitMap->setPixel(250+100*sin($x)-$y,150+125*cos($x)+$y,$black); 
   }
}

# write png-format to file
open my $fh,">","test.png" or die "$!";
binmode $fh;
print $fh $BitMap->png;
close($fh);
Run Code Online (Sandbox Code Playgroud)

perl plot bitmap

8
推荐指数
1
解决办法
3500
查看次数

如何在Moose中将类变量声明为浮点?

如何在Moose中将类变量声明为浮点?

我下面的(虚构的)样本产生的"真实","数字"等等......"STR"的作品错误,但失败的目的..搜索/谷歌没有帮助,因为我打不正确的搜索词.. .


PROBLEM.pm

package PROBLEM;
use strict;
use warnings;
use Moose;

has 'PROBLEM'=> (isa=>'real',is =>'ro',required=>'0',default=>sub {0.1;});
Run Code Online (Sandbox Code Playgroud)

main.pl

use strict;
use warnings;

use PROBLEM;

my $problem=PROBLEM->new();
Run Code Online (Sandbox Code Playgroud)

floating-point perl moose

7
推荐指数
2
解决办法
1176
查看次数

有一个人的表,我想链接到彼此,多对多,链接是双向的

想象一下,你生活在一个非常简单的例子中 - 想象一下你的MySQL数据库中有一个人员表:

create table person (
    person_id int,
    name text
)

select * from person;

+-------------------------------+
|   person_id |            name |
+-------------------------------+
|           1 |           Alice |
|           2 |             Bob |
|           3 |           Carol |
+-------------------------------+
Run Code Online (Sandbox Code Playgroud)

这些人需要协作/一起工作,所以你有一个链接表,将一个人的记录链接到另一个人:

create table person__person (
    person__person_id int,
    person_id int,
    other_person_id int
)
Run Code Online (Sandbox Code Playgroud)

这种设置意味着人们之间的链接是单向的 - 即Alice可以链接到Bob,而Bob没有链接到Alice,更糟糕的是,Alice可以链接到Bob , Bob可以同时链接到Alice,在两个单独的链接记录中.由于这些链接代表了工作关系,在现实世界中它们都是双向的相互关系.以下是此设置中的所有内容:

select * from person__person;

+---------------------+-----------+--------------------+
|   person__person_id | person_id |    other_person_id |
+---------------------+-----------+--------------------+
|                   1 |         1 |                  2 |
|                   2 |         2 …
Run Code Online (Sandbox Code Playgroud)

many-to-many data-modeling

6
推荐指数
1
解决办法
99
查看次数

Graphviz:左侧的标签

如果我使用以下Graphviz代码,将创建一个简单的图形,显示右侧的标签.

digraph lable_on_the_right_side {

   /* define nodes */

   node [color=lightblue2, style=filled, fontname=Arial];

   a [label="S1"];
   b [label="S2"];


   /* define edges */

   a -> b [label="Label on the right side"]

}
Run Code Online (Sandbox Code Playgroud)

将点代码渲染为图像

是否可以让标签出现在左侧?如果是,代码需要看起来像什么?

label graphviz orientation

6
推荐指数
1
解决办法
4164
查看次数

MYSQL:在MySQL Select中寻找相当于Perl的"regex"= ~s/e/i/g => rigix

我可以在MYSQL选择中匹配和替换文本模式吗?


编辑 现在看起来答案是:无法完成,因为你无法捕捉匹配的内容(来自Eric的回答/评论).现在我将考虑添加一个查找表.


简化示例:

MySQL表Coleridge拥有许多字符串,如:

text
------------------------------------
In_Xanadu_did_Kubla_Khan
A_stately_pleasure_dome_decree
Where_Alph_the_sacred_river_ran
Through_caverns_measureless_to_man
Down_to_a_sunless_sea
Run Code Online (Sandbox Code Playgroud)

有没有办法表达选择

SELECT text = ~s/[^ _] + _(.*)_ [^ _] + $ /\1 /替换为来自Coleridge

得到

replaced
________________________
Xanadu_did_Kubla
stately_pleasure_dome
Alph_the_sacred_river
caverns_measureless_to
to_a_s
Run Code Online (Sandbox Code Playgroud)

请注意:

  1. 正则表达式s///I提供的内容远不如真实数据库包含的那么复杂
  2. 不幸的是我无法规范化数据库..

regex mysql replace

5
推荐指数
1
解决办法
1283
查看次数

如何在Internet Explorer中加载我的网站,就像在Firefox中一样?

下面是我在我的网页中使用的示例html代码

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml" lang="en">
    <head>
    <meta http-equiv="content-type" content="text/html; charset=utf-8" />
    </head>

    <body  topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" >

''''' Many tables and data's and images''''''
    </body>
    </html>
Run Code Online (Sandbox Code Playgroud)

当我用来加载firefox中的代码时,它运行得很快......这意味着它将显示在网页中的负载.

但在Internet Explorer中,只有页面加载后才能处理所有代码...

我如何使我的代码像firefox一样?

希望你的回应,

亚历克斯

firefox internet-explorer

5
推荐指数
1
解决办法
696
查看次数

对于MySQL的'where col in(list)'的替代方案

嗨,我有下表T:

id    1   2    3    4
col   a   b    a    c
Run Code Online (Sandbox Code Playgroud)

我想做一个select,当group(col)有count(col)> 1时返回id,col

一种方法是

SELECT id,col FROM T 
   WHERE col IN (SELECT col FROM T GROUP BY(col) HAVING COUNT(col)>1);
Run Code Online (Sandbox Code Playgroud)

实习生选择(从右侧)返回'a',主要的一个(左)将返回1,a和3,a

问题是where语句似乎非常慢.在我的实际情况中,内部选择的结果有很多'col',约70000,而且需要几个小时.

现在,进行内部选择和主要选择获得所有ID和upcs并在本地进行交叉要快得多.MySQL应该能够有效地处理这种查询.

我可以将其中的内容替换为联接或更快的内容吗?

谢谢

mysql where

5
推荐指数
1
解决办法
4164
查看次数

如何执行COUNT()或COUNT(*)

我有一个数据库中的标签列表.

例如:

villan
hero
spiderman
superman
superman
Run Code Online (Sandbox Code Playgroud)

我想按升序获取标签名称的排序列表,以及唯一标签在数据库中出现的次数.我写了这段代码:

例如:

 SELECT hashtag.tag_name
      , COUNT( * ) AS number
   FROM hashtag 
  GROUP BY hashtag.tag_name
  ORDER BY hashtag.tag_name ASC
Run Code Online (Sandbox Code Playgroud)

这会产生正确的结果:

 hero      , 1
 spiderman , 1
 superman  , 2
 villan    , 1
Run Code Online (Sandbox Code Playgroud)

如何获得整个列表的完整COUNT.在这种情况下答案应该是4,因为自然有4行.如果没有语句失败,我似乎无法获得正确的COUNT().

非常感谢你的帮助!:)

mysql count

5
推荐指数
1
解决办法
373
查看次数