小编min*_*ker的帖子

我可以在DBIx :: Class中打印DBIC_TRACE输出吗?

将DBIC_TRACE环境变量设置为true:

BEGIN { $ENV{DBIC_TRACE} = 1 }
Run Code Online (Sandbox Code Playgroud)

生成非常有用的输出,特别是显示正在执行的SQL查询,但SQL查询全部在一行上.

有没有办法推动它通过一些有点"sql整洁"的例程来更好地格式化它,或许可以在多行中分解它?如果不这样做,任何人都可以给我一个推动代码中我需要破解添加这样一个钩子的地方吗?最好的工具是接受格式错误的SQL查询并推出格式良好的SQL查询?

在这种情况下,"良好的格式化"仅仅意味着比"一条线上的所有"更好.我并不特别关注格式化查询的特定样式

谢谢!

sql formatting perl dbix-class

21
推荐指数
2
解决办法
4593
查看次数

如何在移动safari/iphone中找到(在javascript中)当前的"滚动"偏移量

我想知道用户在iphone手机游戏中在视口内"滚动"了多远的x/y偏移量.

换句话说,如果我(通过javascript)重新加载当前页面,我想找到我需要传递给window.scrollTo(...)的值,以便重新定位文档/视口,因为它当前.

window.pageXOffset始终报告0

jquery的$('body').scrollTop()总是报告0

事件有一个pageX,但如果您的手势是向上/向下"轻弹"页面,这将不会解释在您松开手指后发生的页面滚动.也就是说,当手指离开屏幕时,它会给我一个点,但这并不总是与页面完成滚动后的位置相匹配.

有什么指针吗?

javascript iphone webkit mobile-safari

15
推荐指数
2
解决办法
3万
查看次数

如何使用Perl将文件中的CSS定义合并到内联样式属性?

许多电子邮件客户端不喜欢挂CSS样式表,甚至嵌入式<style>标签,而是要作为风格上的所有标记属性的CSS内联出现.

  • 坏: <link rel=stylesheet type="text/css" href="/style.css">
  • 坏: <style type="text/css">...</style>
  • 作品: <h1 style="margin: 0">...</h1>

然而,这种内联样式属性方法是一种正确的管理方法.

我找到了Ruby和PHP的工具,它们将CSS文件和一些单独的标记作为输入,并返回合并结果 - 一个标记文件,所有CSS转换为样式属性.

我正在寻找这个问题的Perl解决方案,但我没有在CPAN或搜索Google上找到它.有什么指针吗?或者,是否有CPAN模块可以组合以实现相同的结果?

html css perl parsing

8
推荐指数
2
解决办法
4385
查看次数

什么是用于分层和可继承配置的最佳Perl模块?

如果我有一个绿地项目,使用基于Perl的配置模块的最佳实践是什么?

将有一个Catalyst应用程序和一些命令行脚本.他们应该共享相同的配置.

我认为我想要的一些功能......

分层配置,以干净地维护不同的开发和实时设置.

我想定义一次"全局"配置(例如,results_per_page => 20),那些继承但是我的dev/live配置可以覆盖.

Global:
  results_per_page: 20
  db_dsn: DBI:mysql;
  db_name: my_app
Dev:
  inherit_from: Global
  db_user: dev
  db_pass: dev
Dev_New_Feature_Branch:
  inherit_from: Dev
  db_name: my_app_new_feature
Live:
  inherit_from: Global
  db_user: live
  db_pass: secure
Run Code Online (Sandbox Code Playgroud)

当我将项目部署到新服务器,或分支/分叉/复制到新的某个地方(例如,新的开发实例)时,我想(仅一次)设置要使用的配置集/文件,然后是所有未来的更新是自动的.

我想到这可以通过符号链接来实现:

git clone example.com:/var/git/my_project . # or any equiv vcs
cd my_project/etc
ln -s live.config to_use.config
Run Code Online (Sandbox Code Playgroud)

然后在将来

git pull # or any equiv vcs
Run Code Online (Sandbox Code Playgroud)

我也喜欢类似于FindBin的东西,所以我的配置可以使用绝对路径,也可以使用相对于当前部署.特定

/home/me/development/project/
  bin
  lib
  etc/config
Run Code Online (Sandbox Code Playgroud)

where/home/me/development/project/etc/config包含:

tmpl_dir: templates/
Run Code Online (Sandbox Code Playgroud)

当我的perl代码查找tmpl_dir配置时,它将得到:

/home/me/development/project/templates/
Run Code Online (Sandbox Code Playgroud)

但在实时部署方面:

/var/www/project/
  bin
  lib
  etc/config
Run Code Online (Sandbox Code Playgroud)

相同的代码将神奇地返回

/var/www/project/templates/
Run Code Online (Sandbox Code Playgroud)

应该遵守配置中的绝对值,以便:

apache_config: /etc/apache2/httpd.conf
Run Code Online (Sandbox Code Playgroud)

在所有情况下都会返回"/etc/apache2/httpd.conf".

而不是FindBin样式方法,替代方案可能是允许根据其他配置值定义配置值? …

perl configuration config configuration-files

5
推荐指数
2
解决办法
2090
查看次数