小编wes*_*wes的帖子

假设我在vim中有一些任意分割布局.

____________________
| one       | two  |
|           |      |
|           |______|
|           | three|
|           |      |
|___________|______|

有没有一种方法来交换one和two维护相同的布局？在这个例子中它很简单,但我正在寻找一种有助于更复杂布局的解决方案.

更新:

我想我应该更清楚.我之前的例子是对实际用例的简化.使用实际的实例:

我怎么能交换任何两个分裂,保持相同的布局？

更新!3年多以后......

我把sgriffin的解决方案放在你可以轻松安装的Vim插件中!使用您喜欢的插件管理器安装它并尝试一下:WindowSwap.vim

我有一个简单的systemd服务需要定期重新启动,以防止其进程被窃听.是否有系统服务的配置选项可以定期重启它们？所有Restart*选项似乎都与退出时重新启动服务有关.

我想使用其中的其他ExtJS组件(例如TreePanel)创建自定义ExtJS 表单字段组件.我怎样才能最轻松地完成这项工作？

我已经阅读了Ext.form.field.Base的文档,但我不想定义字段体fieldSubTpl.我只想编写创建ExtJS组件的代码,也可以编写一些获取和设置值的代码.

更新:总结目的如下:

• 这个新组件应该以GUI形式作为字段.它应该具有标签和其他字段的相同对齐(标签,锚点),而无需进一步的黑客攻击.

• 可能,我必须编写一些getValue,setValue逻辑.我宁愿将它嵌入到这个组件中,而不是将分离的代码复制到我必须管理的更隐藏的表单字段中.

我是ExtJS 4的新手,需要一些帮助来理解它是如何Ext.define工作的.

实际上我想做的是类似于门户网站示例中的portlet,在我的应用程序中,我需要在我的不同选项卡中添加很多对象,所以为了组织我的代码而不是只有一个非常大的脚本,我想在一个单独的文件中定义我需要的每个组件,然后在需要时在主脚本中调用它(我将主要使用这些示例,这就是为什么我想知道它是如何Ext.define工作的所以我可以调整这些示例并使它们成为可能以我想要的方式工作).

我希望我很清楚.

并提前感谢您的帮助.

我试图理解Ext JS 4(MVC)如何处理按钮,组合框和类似的工作.

具体来说,我相信MVC我们应该在控制器init函数中使用"this.control".

例如,我有以下工作:

this.control({
    'eventlist': {
        itemdblclick: this.eventRowClicked
    },
    'eventedit button[action=save]': {
        click: this.updateEvent
    }
});

看起来很简单,我选择'eventlist'视图并为网格注册eventRowClicked事件.然后,在我的'eventedit'视图中,捕获按钮单击(保存按钮).

我接下来需要的是响应组合框选择或更改事件.我认为我有多个组合框,所以我需要一个特定的组合框.

我尝试了这个,但它没有用(我也试过选择而不是改变):

'eventedit dispositionpop': {
    change: function(combo, ewVal, oldVal) {
        debugger;
    }
}

我能找到的所有例子都不使用'this.control',他们要么将组件(Ext.get？)抓取到变量中,要么类似.我相信那些方法不是合适的mvc - 或者可能不是Ext JS 4最有效的方法.

所以我想知道两件事 - 我将如何注册特定的组合框选择或更改事件,以及我可以阅读什么来更好地了解this.control中发生的事情 - 例如,那些css选择器？

我需要删除所有边框.我已经添加border:false但是它不起作用.

请注意,我希望它具有此蓝色背景,所以我正在使用frame : true.

我的代码

        region: 'north',
        split: true,
        border: false, 
        height: 115,
        layout: 'border',
        items: [ {///Account info
            xtype: 'form',
            region: 'east',
            border: false,
            frame: true,
            //height: 100,
            width: 500, //'49%',//anchor : '50%',
            layout: 'column',

                items: [
                    { columnWidth: .5,
                      border: false, 
                      frame: true, 
                      defaults: { labelStyle: 'font-size:9px' },
                      items: [{
                            xtype: 'displayfield',
                            fieldLabel: 'Customer',
                            value: '<span style="color:blue;font-size:9px">IBM</span>'
                        }, {
                            xtype: 'displayfield',
                            fieldLabel: 'Subscription',
                            value: '<span style="color:blue;font-size:9px">On demand</span>'
                        }, {
                            xtype: 'displayfield',
                            fieldLabel: …

我对这个感到茫然.我看了很多,似乎有很多解决方案,但它们并不适合我.我有一个CGI :: Application应用程序生成一个带有Spreadsheet :: WriteExcel的MS Excel电子表格.这个工作正常一段时间,直到我们的实时服务器在几周前出现硬件故障.我们使用中断作为升级到Windows Server 2008(从2003年)和Apache 2.2.17(从2.2.11)升级的借口.现在,我在尝试下载电子表格时收到来自此错误的客户的投诉是零星的(但是经常被忽视):

Internet Explorer无法从[site]下载[url].
Internet Explorer无法打开此Internet站点.请求的网站不可用或无法找到.请稍后再试.

我在XP,Vista和7上尝试过IE 7-8,并且无法在本地重现此错误.有问题的用户每次都有,而不是随机.所有投诉都来自IE用户,主要是IE8.

在阅读了几条关于错误消息的帖子后,我添加了-expires标题无济于事.(没有办法直接测试,我必须实施修复并等待一天左右,看看人们是否停止抱怨._.)

sub export_spreadsheet {
   my $self = shift;
   binmode STDOUT;

   my $str;
   open my $fh, '>', \$str;
   my $workbook = Spreadsheet::WriteExcel->new($fh);
   # words words words
   $workbook->close;
   close $fh;

   $self->header_add(-type => 'application/vnd.ms-excel',
                     -expires => '+1d',
                     -attachment => 'export.xls');
   return $str;
}  

请求的标头看起来很正常.这些都是在我的本地机器上收集的,请注意.

HTTP/1.1 200 OK
Date: Tue, 31 May 2011 22:23:17 GMT
Server: Apache/2.2.17 (Win32) mod_ssl/2.2.17 OpenSSL/0.9.8o mod_perl/2.0.4-dev Perl/v5.10.1
Expires: Wed, 01 …

我正在维护一些通过串行无线电读取值的代码,并将它们解压缩到Perl数据结构中:

# Don't yell at me, I didn't write this
if ($command_string =~
    /^.(.)(.).(..)(.)(..)(.)(....)(....)(....)(....)
        (..)(..)(.)(.)(.)(.)(..)(..)(..)(..)(..)(..)(.)(.).......
            (.)........(.)(.).*/sx) {

    $config->{sequence}      = hex(unpack('H2', $1));
    $config->{radio_id}      = hex(unpack('H2', $2));
    ...
    $config->{radio_type}    = hex(unpack('H2', $26));
    $config->{radio_channel} = hex(unpack('H2', $27));
}

这个笨重的捕获正则表达式让我想知道:Perl中编号捕获变量的上限是什么？它会一路走$MAXINT吗？

我有一个执行java应用程序的批处理文件.我正在尝试修改它,以便每当发生异常时,它都会将STDERR写入文件.

它看起来像这样:

start java something.jar method %1 %2 2>> log.txt

有没有办法可以将参数%1和%2写入log.txt文件？每次调用此批处理文件时,我都不希望将其写入日志文件,仅在发生异常时.

我试图找到一种方法将STDERR重定向到一个变量,但我无法弄明白.理想情况下,我希望日志文件看起来像:

Batch file called with parameters:
- "first arg"
- "second arg"
Exception: 
java.io.exception etc...

------------------------------------

Batch file called with parameters:
- "first arg"
- "second arg"
Exception: 
java.io.exception etc...

我有一个数据结构,它是一个包含哈希数组的哈希.我想到达那里并拿出与我正在寻找的值相匹配的第一个哈希值.我试过这个:

   my $result = shift grep {$_->{name} eq 'foo'} @{$hash_ref->{list}};

但是,这给了我这个错误:Type of arg 1 to shift must be array (not grep iterator). 我重读的perldoc的grep,我觉得我在做什么是有意义的. grep返回一个列表,对吗？它是在错误的背景下吗？

我现在将使用一个临时变量,但我想弄清楚为什么这不起作用.