小编inn*_*naM的帖子

键盘映射中的Vim怪异

我想插入空行而不进入插入模式,我使用了这个键映射:

nomap go o <esc>
Run Code Online (Sandbox Code Playgroud)

这确实创建了空白行,但引入了一些奇怪的行为.我有聪明的缩进和自动设置.新行遵循缩进但不删除它们,即使这样做会手动自动删除冗余空格.它还添加了每个光标所在的单个空格.

任何人都有任何见解来解释这种行为?

vim keymapping

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

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

如何使用XML :: Simple访问Perl中嵌套XML结构中的深层数据?

我正在使用XML :: Simple,我在变量$ xmldata中有以下XML结构,我需要通过Perl代码访问它.

<root>
    <a>sfghs</a>
    <b>agaga</b>
    <c>
       <c1>sgsfs</c1>
       <c2>sgsrsh</c2>
    </c>
    <d>
        <d1>agaga</d1>
        <d2>asgsg</d2>
    </d>
</root>
Run Code Online (Sandbox Code Playgroud)

我可以使用以下代码访问a和b的值:

$aval = $xmldata->{a}[0];
$bval = $xmldata->{b}[0] ;
Run Code Online (Sandbox Code Playgroud)

现在,我的问题是:如何获得say,d2的值?

xml perl xml-simple

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

MySQL GROUP BY问题

我有一个复杂的MySQL问题.

SELECT *
FROM banners, content_id_country, languages
    WHERE content_id_country.content_id = banners.id
        AND content_id_country.controller = 'banners'
Run Code Online (Sandbox Code Playgroud)

给我一个长期的结果.结果很完美,只有一个问题.

某些行是重复的,因此它们只有一个字段已更改.

结果如下:

1 - Title - Text - NL
1 - Title - Text - EN
Run Code Online (Sandbox Code Playgroud)

当我使用"GROUP BY banners.id"时,其中一个消失了.这就是我所取得的成就.

我想得到的结果如下:1 - 标题 - 文本 - NL,EN

所以基本上我想合并行,并添加一个逗号.

我希望这是可能的.

sql merge group-by

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

如何操作VI/VIM中突出显示的文本?

我想知道如何对突出显示的行(使用v运算符)执行某些操作,例如使用vi/vim为选定行提供制表符,注释这些行等.

vim

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

从MySQL查询中选择2 COUNT()

我正在为一个游戏的排名页面工作,我希望首先按胜利排序,然后按损失排序(如果人们拥有相同数量的胜利).以下查询正常工作,以便按顺序列出一个列表,但我不知道如何将损失放入此查询中.

SELECT username, COUNT(id) AS wins 
  FROM tblBattleHistory 
  WHERE battle_type = '0' && outcome = '1' 
  GROUP BY username 
  ORDER BY wins DESC
Run Code Online (Sandbox Code Playgroud)

结果='1'表示他们赢了,所以当结果='0'时,那意味着他们输了.

mysql sql count

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

我如何修复"bash:perl myscript.pl:command not found"?

也许这是世界上最愚蠢的问题,但我认真对待它并可以使用帮助.我试图在Linux上运行perl脚本.这是一个简单的文本编辑脚本,没什么特别的.我搜索了它,我发现我不得不chmod +x这样,然后只是myscript.pl在控制台中运行.因为它应该修改我myscript.pl > myfile.txt在chmoding之后做的文本文件

但它不起作用.我明白了:bash: perl myscript.pl: command not found

bash perl

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

如何让Perl找到我的模块?

sh-3.2# perl -v

This is perl, v5.8.9 built for darwin-2level
...


sh-3.2# perl 2348.pl 
Can't locate HTTP/Cookies.pm in @INC (@INC contains: /opt/local/lib/perl5/site_perl/5.8.9/darwin-2level /opt/local/lib/perl5/site_perl/5.8.9 /opt/local/lib/perl5/site_perl /opt/local/lib/perl5/vendor_perl/5.8.9/darwin-2level /opt/local/lib/perl5/vendor_perl/5.8.9 /opt/local/lib/perl5/vendor_perl /opt/local/lib/perl5/5.8.9/darwin-2level /opt/local/lib/perl5/5.8.9 .) at 2348.pl line 24.
BEGIN failed--compilation aborted at 2348.pl line 24.


sh-3.2# find / | grep -i "Cookies\.pm"
/System/Library/Perl/Extras/5.10.0/HTTP/Cookies.pm
/System/Library/Perl/Extras/5.8.9/HTTP/Cookies.pm
/usr/local/ActivePerl-5.10/lib/HTTP/Cookies.pm
Run Code Online (Sandbox Code Playgroud)

怎么解决这个问题?我知道我必须编辑@INC但它在哪里?:)

perl http

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

帮助理解这一行PHP正在做什么

变量值列在下面

$v['flag'] = 10
kPOSTAGE_HOME = 8
Run Code Online (Sandbox Code Playgroud)

那么下面这行怎么办?!

if(($v['flag']&kPOSTAGE_HOME)==kPOSTAGE_HOME) {
    //do something
}
Run Code Online (Sandbox Code Playgroud)

php

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

-Perl-如果发现错误,如何跳转到循环的下一个元素?

我刚用表单完成了一个Perl脚本(效果很好):

my @plages_IP = ('10.7.10.103' ,'10,121,10,7', '10.120.10.10');

foreach my $IP (@plages_IP)
{
   DO ALL THE THING I WANT;
}
Run Code Online (Sandbox Code Playgroud)

我的问题是,由于某种原因,我的列表中的1个或多个IP可能在我启动脚本时很忙.在这种情况下,我得到一些perl错误(这是正常的)和脚本死:

'Error POSTing http://10,121,10,7/wcd/login.cgi: Can't connect to 10,121,10,7:80 (Bad hostname) at C:\Users\STAGEDVIR\Desktop\gnagna\Retrieve_Counter_C364_C224_C203.pl line 51.'

'Error POSTing http://10.64.10.3/wcd/login.cgi: Not Found at C:\Users\STAGEDVIR\Desktop\gnagna\Retrieve_Counter_C203.pl line 45.'
Run Code Online (Sandbox Code Playgroud)

如果发现错误但我跳过循环的下一个项目,我不希望它死;所有这些错误意味着相同的事情(IP当前很忙),通常,我想要做的是:

if(ANY_ERROR && LOOP_NOT_EMPTY)
{
    DON'T DIE;
    JUMP TO THE NEXT ELEMENT OF THE LOOP;
}
Run Code Online (Sandbox Code Playgroud)

我尝试了一些解决方案eval{ routine_might_die }; warn $@ if $@;和一些方法,如:

unless($boolean_descripting_last_request->is_success)
{
    print(STDERR "Currently busy $IP ! \n");
    **next**;
}
Run Code Online (Sandbox Code Playgroud)

但是由于IP当前正忙,脚本一直在死于他发现的第一个错误.

error-handling perl

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

标签 统计

perl ×4

sql ×2

vim ×2

bash ×1

count ×1

error-handling ×1

group-by ×1

http ×1

keymapping ×1

merge ×1

mysql ×1

php ×1

ssl ×1

xml ×1

xml-simple ×1