小编sim*_*one的帖子

使用 Dist::Zilla dist.ini 如何获得仅用于测试的文件?

在基于 Dist::Zilla 的发行版中,我希望有一些仅用于测试但不安装的文件。这些是运行时不需要的模型库。

我怎么做?

perl cpan dist-zilla

3
推荐指数
1
解决办法
184
查看次数

如何使用 Mojo::UserAgent 发出 Oauth 授权的请求?

我目前正在努力实现这项工作:

my $ua = Mojo::UserAgent->new;

my $req = Mojo::Message::Request->new;
my $tx = $ua->build_tx(GET => 'https://spreadsheets.google.com/feeds/spreadsheets/private/full');

app->log->info($c->session('token'));
$tx->req->headers->authorization('Bearer ' . $c->session('token'));
Run Code Online (Sandbox Code Playgroud)

我通过Mojolicious::Plugin::OAuth2$c->session('token')获得的令牌在哪里。

我只得到空的回复。通过curl 做同样的事情(我认为)也可以:

curl -v -H "authorization: Bearer the_same_token_as_above" https://spreadsheets.google.com/feeds/spreadsheets/private/full
Run Code Online (Sandbox Code Playgroud)

我究竟做错了什么?

perl oauth mojolicious mojolicious-lite

2
推荐指数
1
解决办法
1013
查看次数

是否可以在 Postgres 索引中混合使用 btree 和 gist?

我有一个这样构建的表:

create table pois (
       id varchar(32) primary key,
       location geography(Point,4326),
       category varchar(32),
       entity_class varchar(1),
       hide boolean
);
Run Code Online (Sandbox Code Playgroud)

大多数查询如下所示:

SELECT * from pois
WHERE ( (
    ST_contains(st_buffer(ST_SetSRID(ST_LineFromEncodedPolyline('ifp_Ik_vpAfj~FrehHhtxAhdaDpxbCnoa@~g|Ay_['), 4326)::geography, 5000)::geometry, location::geometry)
    AND ST_Distance(location, ST_LineFromEncodedPolyline('ifp_Ik_vpAfj~FrehHhtxAhdaDpxbCnoa@~g|Ay_[')) < 5000
    AND hide = false
    AND entity_class in ('A', 'B')
) );
Run Code Online (Sandbox Code Playgroud)

目前我有两个索引。一份关于位置"pois_location_idx" gist (location),一份关于隐藏和实体类:"pois_select_idx" btree (hide, entity_class)

性能是可以接受的,但我想知道是否有更好的索引策略,特别是混合 btree + gist 索引是否可能且有意义。

postgresql indexing postgis

2
推荐指数
1
解决办法
1285
查看次数

从perl中的eval-ed字符串动态创建subs

我需要将数组结构中的数据结构转换为树状结构.在开始处理数据之前,我知道树的深度,但我希望保持灵活性,以便重新使用代码.

因此,我着眼于动态生成subref(从基于Moose的模块中)到阵列之间的想法.像这样(以简化的方式):

use Data::Dump qw/dump/;

sub create_tree_builder {
     my $depth = shift;
     return eval join '', 'sub { $_[0]->{$_[', 
                           join(']}->{$_[', (1..$depth)),
                          ']} = $_[',  $depth + 1 , '] }'; 
}


my $s = create_tree_builder(5);
my $tree = {};

$s->($tree, qw/one two three four five/, 'a value');

print dump $tree;

# prints
#  {
#     one => { two => { three => { four => { five => "a value" } } } },
#  }
Run Code Online (Sandbox Code Playgroud)

这为我打开了世界,我发现这个eval过程的很酷的用途 - 在参数化生成的字符串中到处都是一个函数(显然,这是一个寻找问题的解决方案). …

perl eval perl-data-structures

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

是否可以进行 RGBA 浮动和返回往返并读取 WebGL GLSL ES 1.0 中的像素?

我在尝试了每种可能的算法大约一周后提出了这个问题,并且使用了 stackoverflow 上可能的每个先前答案 - 但没有结果。所以,请善意地帮助 GLSL 学徒。

我在尝试着

  1. 将 RGBA 转换为浮点型
  2. 执行一些计算
  3. 将浮点数转换为 RGBA

在 GPU 内部 - 初始 RGBA 是通过 Float32 到 Uint8 转换在 javascript 中定义的。

关键是能够在 GPU 中进行计算(GIS 距离等)后进行往返并读回浮点数,而 RGB 的分辨率太低。

我想通过 .read 将结果读回 javascript gl.readPixels

我开始怀疑这是否可能的原因是:

  1. 如果我不进行 RGBA => float => RGBA 转换,一切正常 - 我放入 GPU 的浮点数也是我取出的浮点数 - 没有损失
  2. 如果我进行 RGB => float => RGB 转换,它也可以正常工作,所有的问题都在于第四个分量作为最不重要或最重要的部分

请注意 - 我怀疑这适用于更高版本的 GLSL,但这是 WebGL GLSL ES 1.0,具有更多的限制和更少的功能,并且我怀疑写入纹理将成为 iOS 上的限制 - 这是我需要的。

我考虑过列出我在这里尝试过的所有代码 - 如果有必要可以这样做,但这似乎有点矫枉过正。

很快就知道这不可能的,现在就足够了——至少我不会再用头撞墙了。

glsl webgl

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

按日期在DBIx :: Class上搜索

我在SQLite数据库中有一个表,其中一列以epoch秒存储文件mtimes.

我现在想搜索在某个月内修改过的表格文件?

在原始SQL中我会这样做:

 select * from my_table where strftime('%Y-%m', mtime, "unixepoch") = "2009-08"
Run Code Online (Sandbox Code Playgroud)

有没有办法通过DBIx :: Class有效地做到这一点?有可能吗?

 $m->search({ \'strftime('%Y-%m', mtime, "unixepoch")' => "2009-08" })
Run Code Online (Sandbox Code Playgroud)

我试过了解DBIx :: Class :: InflateColumn :: DateTime是否有办法,但我没有找到它.

谢谢

西蒙娜

perl dbix-class

0
推荐指数
1
解决办法
1143
查看次数