• memoir+hyperref生成的pdf书签没有章节号

    没有做额外设置,结果只有标题,没有章节号。咋整?

    2010-06-25
  • Re: 如何实现if empty这样的判断

    是啊,但我想到的还是要在 \markboth 里进行判断

    【 在 snoopyzhao (困难不能成为失败的理由,加油!) 的大作中提到: 】

    : 这种情况下,应该想办法修改 \markboth{...}{...} 就可以了

    2010-06-25
  • 如何实现if empty这样的判断

    本意是用于定义页眉,奇数页显示章标题,偶数页显示节标题。

    但是有些章如果没有节,那么页眉就是空的。我想把这种情况的

    页眉设置为章标题,于是抄了个 \@ifempty:

    \def\@ifempty#1#2#3{\def\arg{#1}\ifx\arg\empty#2\else#3\fi}

    \makeevenhead{chbook}{{\small \thepage}}{}

    {{\small \@ifempty\leftmark\rightmark\leftmark}}

    但是这样,没有节的章的偶数页页眉依然是空的。

    是不是 \@ifempty 不是这么用的?要是想实现这种功能,该如何设置呢?

    2010-06-25
  • 关于引用记数,求指点

    intermediate perl 5.4:

    {

    my @data1 = qw(one won);

    my @data2 = qw(two too to);

    push @data2, \@data1;

    push @data1, \@data2;

    }

    # 我是这么想的:

    # 运行到这里,符号 @data1 不见了,于是 qw(one won) 和里面的

    # qw(two too to) 的引用记数都减少 1,

    # 同样的,符号 @data2 不见了,于是 qw(two too to) 和里面的

    # qw(one won) 的引用记数都减少 1。

    # 这样,qw(one won) 和 qw(two too to) 的引用记数都是 0。

    转不过来了@$#&,求指点。

    2010-06-22
  • 请教本地emacs编辑远程windows下文件

    远程 windows,只有 tomcat + mssql,可以通过远程桌面登录。那么在不修改远程机器的情况下,本地 emacs 能编辑此机器的文件吗?

    或者我偷偷地在此机器上开个 ssh?

    2010-06-13
  • intermediate perl

    一直找不着 pdf 格式的,就处理了下 chm 格式,转换成了 word 文档。

    文档里的链接没处理,最好不要点。

    2010-06-12
  • 求推荐个好用的html2doc

    我现在是用 perl 把一堆 html 掐头去尾拼成一整个 html 文件,再用 word 打开另存。可是这样出来的文档格式上的小毛病不少,还要手工改。

    2010-06-10
  • 这个是不是混乱代码大赛

    http://www.cpan.org/misc/japh

    @@@@@@@@ 第一眼就看晕了

    截其中一个:

    #!/usr/local/bin/perl

    undef$/;$_=<DATA>;y/ODA\n / /ds;@yoda=map{length}split;print chr

    oct join('',splice(@yoda,0,3))-111 while@yoda;

    __DATA__

    00O00O000O00O0000      000O         DD000000O0

    0DO0000000O0000O00     O00000        00O00000O0O

    0000      0O0         O00  O00       00D     0DO

    00O0     0O0        00D    000      DO0D00000D

    0O00    DOD       000000O00000     000  O00O

    DD0000D000O0     000      0O00O0000D00DO    0OD   D00O000D00O0

    00000DO00O0      000     000O        00D0   O0D    O00000O0DO0

    0O000   OD0D   O00O0   0000         DDDO000000      O00O000000

    0O000 O00DDO 00000   0O0D00        00O0O00000O    0O00O000000

    0O0O00OD00000DDD   00O  0D0       DDD     D0O    00O0D

    00000O00000000   O00    DO0      D00D00O000      00D00

    D0O00  O0000   000O000O00DO     000  00O0        0OD00

    O00    000   0O000D000O00O0    000   0D0O000000O00O00

    0      0   0O0D        0000   0O0    0O0000000O000O

    2010-06-10
  • 搞不懂nreverse

    ;; reverse

    (defun my-test ()

    (let ((a '(0 1 2 3)))

    (setq a (reverse a))

    a))

    (my-test) => (3 2 1 0)

    (my-test) => (3 2 1 0)

    ;; nreverse

    (defun my-test ()

    (let ((a '(0 1 2 3)))

    (setq a (nreverse a))

    a))

    (my-test) => (3 2 1 0) 第一次是好的

    (my-test) => (0)       第二次就完蛋了

    怀疑是let有古怪,可是C-h f let也没看出个所以然。

    特求指点一二。

    2010-05-17
  • Re: strawberry安装Tkx失败

    我安PAR::Packer也有问题,是strawberry5.12的一个bug,但是git里已经fixed了,你可以参考一下

    http://rt.cpan.org/Public/Bug/Display.html?id=57205

    http://www.perlmonks.org/?node_id=838332

    【 在 Across13 (13) 的大作中提到: 】

    : 这个咋安装的?

    : 我是cpan> install Tkx;

    : 看他也找到 C:/Tcl/lib了,但是link的时候一堆__imp....符号找不到。

    2010-05-12
  • Re: 如何把字符串转换成可eval的expression

    both cool

    thanks

    【 在 ahei0802 (ahei) 的大作中提到: 】

    : 标  题: Re: 如何把字符串转换成可eval的expression

    : 发信站: 水木社区 (Mon May 10 11:25:40 2010), 转信

    : 这个更好

    : 【 在 Madsen (format t "The Walker.") 的大作中提到: 】

    : : (eval (read "(+ 1 1)"))

    : : read is a built-in function in `C source code'.

    : : (read &optional STREAM)

    : : ...................

    : --

    : Emacs中文网: http://emacser.com 或 http://emacs.cn

    : 个人博客:http://ahei.info

    : 我的Emacs配置大全DEA: http://code.google.com/p/dea/

    : my simple homepage on emacswiki: http://www.emacswiki.org/emacs/ahei

    2010-05-10
  • 如何把字符串转换成可eval的expression

    比如

    (setq command "(+ 1 1)")

    (eval command) => "(+ 1 1)"

    问:有没有什么函数(假如就叫magic)作用之后,可以得到下面这样的结果:

    (setq command (magic command))

    (eval command) => 2

    2010-05-10
  • catalyst安装时间好长

    win下,activeperl的cpan还老安不上,换了strawberryperl(the definitive guide to catalyst里推荐的)后安装倒简单,只是安装60多个依赖包总共花了一个多小时。是机器太古董了么?

    2010-05-05
  • 怎么知道某个变量是否被定义了 (转载)

    不好意思发到这里,没学过java

    有没有类似于perl里的 if defined 之类的?谢谢

    2010-04-12
  • [求助]如何打开登录的页面

    问题描述:

    网站a(http://a/)需要登录才能继续访问,如访问

    http://a/page.html

    需先通过

    http://a/login?user=xxx&password=xxx

    登录,然后才能访问到

    http://a/page.html

    网站b有a的帐号(u)和密码(p),现在网站b想在自己的页面上放一个链接,实现当用户点击该链接时自动链接(其中的登录过程对于用户来说是透明的)到

    http://a/page.html

    请问该如何做?

    2010-03-16