小编719*_*016的帖子

我正在使用的外部Perl库有一个我不会在我的应用程序中使用的依赖项(DBD :: mysql)(DBD :: SQLite),所以我希望系统只是假装依赖存在,即使它是假的".

我可以创建一个空的DBD :: mysql.pm模块来编译或者有更简单的方法吗？

我的emacs点文件中有一个函数可以在我的日记中插入日期.添加它之后,我想跳回几行并将光标放在日期下面.我该如何在函数中执行此操作？

(defun ddd ()
  "Insert date at point journal style."
  (interactive)
  (insert (format-time-string "[%Y-%m-%d %a]"))
  (insert "\n")
  (insert "\n")
  (insert "\n")
  (insert "** end\n")
  (gobacktwolineshere))

有任何想法吗？

我正在尝试将使用VMware vSphere的其他人创建的VM加载到virtualbox中.我得到了这3个文件,第一个是xml ovf文件,第二个包含SHA1总和,最后一个是3.2GB vmdk:

myVM.ovf
myVM.mf
myVM-disk1.vmdk

当我尝试Import an Appliance选择ovf文件时,我收到此错误:

Failed to import appliance /home/username/VirtualBox VMs/blah/blah/myVM.ovf.

<vbox:Machine> element in OVF contains a medium attachment for the disk image 58d8e82a-37a1-4c10-b3be-b53cdb213fbe but the OVF describes no such image.

Result Code: NS_ERROR_FAILURE (0x80004005)
Component: Appliance
Interface: IAppliance {3059cf9e-25c7-4f0b-9fa5-3c42e441670b}

我确保菜单指向正确的vmdk文件,但仍然有问题.

有任何想法吗？

我发现非常方便的dev.copy2pdf命令将我正在查看的窗口复制到pdf文件中,如下所示:

plot(rnorm(1000))
dev.copy2pdf(file="myfile.pdf")

我的问题是:是否有dev.copy2svg相同的效果,但写出svg格式？

我有一个R闪亮的网页（v.0.3），在mainPanel的tabsetPanel内部有一堆tabPanel。选项卡的集合在页面顶部占用大量空间，因此我正在寻找缩小它们的方法。

我想更改tabPanel标题的字体大小，以便它们不占用太多空间，但是似乎第一个参数（标题）仅接受文字，而不接受HTML（）。

有任何想法吗？

例：

# Default
tabPanel("I like turtles")
# doesnt work
tabPanel(HTML("I like turtles"))
# or
tabPanel(HTML("<span style='font-size:10px'>I like turtles</span>)")

我想在mysql表中选择有NULL值的条目,以便稍后对它们进行更新或删除:

select * from table where q is NULL;

但是我有一个相当长的列表,在这种情况下都有一个给定的前缀调用pf_,我想选择任何列为NULL的条目.我可以这样做吗？

select * from table where ANYISNULL(pf_q,pf_w,pf_e,pf_r,pf_t,pf_y,pf_u,pf_i,
                                    pf_o,pf_p,pf_a,pf_s,pf_d,pf_f,pf_g,pf_h,
                                    pf_j,pf_k,pf_l);

任何想法如何做到这一点,除了有很多OR的非常长的查询？

我正在阅读perlcritic文档以避免反引号并在此处使用IPC :: Open3:

http://perl-critic.stacka.to/pod/Perl/Critic/Policy/InputOutput/ProhibitBacktickOperators.html

我试图找到最简单的选项,它将起作用并满足perlcritic:

#!/usr/bin/perl
use strict;
use warnings;
use IPC::Open3 'open3'; $SIG{CHLD} = 'IGNORE';
my $cmd = 'ls';
my ($w,$r,$e); open3($w,$r,$e,$cmd);
my @o = <$r>; my @e = <$e>;
1;

但它抱怨以下错误:

Use of uninitialized value in <HANDLE> at ipc_open3.pl line 7

有任何想法吗？

编辑:好的,这就是我所拥有的.除非有办法简化它,否则我会坚持这样:

#!/usr/bin/perl
use strict;
use warnings;
use IPC::Open3 'open3'; $SIG{CHLD} = 'IGNORE';
use Symbol 'gensym';
my $cmd = 'ls';
my ($w,$r,$e) = (undef,undef,gensym); my $p = open3($w,$r,$e,$cmd);
my @o = <$r>; my @e = <$e>;
1;

我有一个连接到MySQL数据库的闪亮服务器.到目前为止工作正常的页面现在给我这个错误:

Error in mysqlNewConnection(drv, ...) : RS-DBI driver: 
(cannot allocate a new connection -- maximum of 16 connections already opened)

这让我想知道如何在交互式网页中处理开放的mysql连接.

首先,dbConnect(MySQL(),...)声明应该在shinyServer方法之前 还是在内部？

如果我dbDisconnect(dbcon)在末尾添加一个server.R,那么我Error: expired MysqLConnection从页面中收到错误,并且不显示任何数据.

我在内部或shinyServer方法之前尝试过这个:

 on.exit(dbDisconnect(dbcon), add=TRUE)

要么

 on.exit(dbDisconnect(dbcon))

因此,如果我将连接保持打开状态,页面本身的代码仅适用于我,我认为这会导致上面的最大连接错误.

如何在Shiny中处理这些情况？

我想我已经读过如何在某处做到这一点,但我无法找到.也许它只能用于新的(ish)Perl版本.我使用的是5.14.2:

我有一个Perl脚本,如果满足某些条件,它会将结果写入文件.根据脚本的结构写下结果,然后检查是否满足将结果保存到文件中的标准,这更合乎逻辑.

我想我已经读到了一些我可以将内容写入文件句柄的地方,在Linux中我想这将对应于一个临时文件或一些管道,然后给该文件命名,包括它应该在哪个目录, 稍后的.如果不是,则在脚本完成时将丢弃内容.

除了在临时文件周围进行操作并手动删除它们之外,是否有一种直接的方法在Perl中执行此操作？

我习惯使用$selfOO Perl,即使我只编写自包含的脚本而根本没有命名我的包.例如,我script.pl会这样开始:

use strict;
use warnings;
my $self = bless {};
$self->time_stamp(localtime(time()));
1;

sub time_stamp {
  my ($self,@args) = @_;
  # Getter/setter
  my $ftime_stamp;
  if( 1 < scalar @args ) {
    $ftime_stamp = strftime "%Y%m%d_%H%M%S", @args;
    $self->{'time_stamp'} = $ftime_stamp;
  }
  return $self->{'time_stamp'};
}
[...]

这些脚本有时会变成适当的模块,但有时我只是让它们成为这样的模块.

这虽然违背了Perl Critic的"一个论点的祝福":

One-argument "bless" used at line 162, column 12.  See page 365 of PBP.  Severity: 5

是否有一种干净的方式来命名我的祝福,但仍然包含在我的一切script.pl？