小编sin*_*ish的帖子

如何将`git diff --color-words`的输出转换为HTML?

对于处理散文的文本,以纯文本形式存储,我非常喜欢输出git diff --color-words,但我不喜欢它依赖于ANSI终端转义序列的方式.我想获得可用于转换为HTML的输出,某种用户友好的原始字符显示,或生成两个文件之间差异的统计信息.

我更喜欢Perl(包括CPAN),但几乎可以解决任何问题.

git diff

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

Perl中的对象和类之间有什么区别?

我在解决一个对象和一个类之间的概念差异时遇到了一些麻烦.我真的不明白两者在任何编程语言中的区别,但目前我正在使用Perl和Moose,所以我更喜欢使用这些东西进行解释.

干杯

oop perl class object

6
推荐指数
3
解决办法
1214
查看次数

Postgresql ILIKE与TSEARCH

我有一个包含许多测试字段的查询,如下所示:

SELECT * FROM some-table
  WHERE field1 ILIKE "%thing%"
     OR field2 ILIKE "%thing"
     OR field3 ILIKE "%thing";
Run Code Online (Sandbox Code Playgroud)

列几乎都是varchar(50)或左右.现在我理解提高性能我应该索引搜索操作的字段.我应该考虑完全用TSEARCH替换ILIKE吗?

postgresql full-text-search full-text-indexing

6
推荐指数
2
解决办法
4789
查看次数

如何在emacs中标记文本

我正在开发emacs中的文本注释系统,其中注释的格式是这样的.如果这是文字:

Lorem ipsem por favor
Run Code Online (Sandbox Code Playgroud)

我需要像这样注释:

{latin}Lorem imsem{/latin} {spanish}por favor{/spanish}
Run Code Online (Sandbox Code Playgroud)

所以我想要做的是选择一个区域,然后运行一个函数或宏来提示标签名称,并将花括号,结束/和标签名称插入到区域开头和结尾的缓冲区中.

这可能非常简单,但我总是发现emacs lisp相当混乱,因为我根本不经常使用它.

tags emacs macros function

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

Perl中基于Unicode的"tweet压缩器"

我想实现自己的推文压缩器.基本上这会做到以下几点.但是我遇到了一些unicode问题.

这是我的脚本:

#!/usr/bin/env perl
use warnings;
use strict;

print tweet_compress('cc ms ns ps in ls fi fl ffl ffi iv ix vi oy ii xi nj/, "\. " ,", "'),"\n";

sub tweet_compress {
    my $tweet = shift;
    $tweet =~ s/\. ?$//;
    my @orig = ( qw/cc ms ns ps in ls fi fl ffl ffi iv ix vi oy ii xi nj/, ". " ,", ");
    my @new = qw/? ? ? ? ? ? ? fl ? …
Run Code Online (Sandbox Code Playgroud)

unicode perl

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

当我匹配并替换Perl中的几个单词时,如何保留空格?

假设我有一些原始文本:

here is some text that has a substring that I'm interested in embedded in it.

我需要文本匹配它的一部分,说:" has a substring".

但是,原始文本和匹配字符串可能存在空格差异.例如,匹配文本可能是:

has a
substring

要么

has  a substring

和/或原始文本可能是:

here is some
text that has
a substring that I'm interested in embedded in it.

我需要我的程序输出的是:

here is some text that [match starts here]has a substring[match ends here] that I'm interested in embedded in it.

我还需要保留原始的空白模式,只需添加开始和结束标记即可.

关于使用Perl正则表达式来实现这一点的任何想法?我试过了,但最终变得非常困惑.

regex perl substitution

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