久久激情中文,亚洲欧美一区二区三区在线,欧美一区三区三区高中清蜜桃

TI8168EVM 调试�ȝ��

�p�米 — Sun, 25 Mar 2012 01:14:00 GMT

��g�Q?br />是TI原厂的EVM8168开发板�Q�公�怹�的，��h��貌似�q?w�Q�国内貌��D��没有人做开发板出来卖啊。（但貌似已�l�有产品使用它了�Q?br />
单�\解码�Q?br />��hdmi�U�插入四个音频接口旁边的那个hdmi口�?br />�l�端执行命��o�Q�runDecodeDisplayHDMI
代码位置�Q?usr/bin/runDecodeDisplayHDMI

�p�米 2012-03-25 09:14 发表评论

使用 VNC display 0

�p�米 — Mon, 13 Feb 2012 01:29:00 GMT

�?x11vnc 软�g包代�?vnc4server 软�g包即可�?br />�?ubuntu �?apt-get install x11vnc �?br />然后 x11vnc :0 卛_��?img src ="http://m.shnenglu.com/varg-vikernes/aggbug/165454.html" width = "1" height = "1" />

�p�米 2012-02-13 09:29 发表评论

一�ơ难忘的调试

�p�米 — Wed, 01 Feb 2012 04:43:00 GMT

今天�?buildroot 上交叉编�?gstreamer 的时候，发现一个诡异的问题�?br />版本�Q?br />buildroot 2011.11-rc3
gstreamer-0.10.35
arm-none-linux-gnueabi-gcc-4.5.2

�~�译出来之后调用 gst-inspect shmsrc�Q�发��C��息没有打印完��出�?Abort 错误�?br />�?gst-inspect mpegtsmux 或�?v4l2src �q�有其他的组件也有类似的错误�?br />如下所�C�：

�q�可能是收到了一�?Abort 信号��D��退出的�Q�而不是程序正常结束�?br />于是�?buildroot 上选中 gdb �q�且选择带调试信息编译（-g3�Q��?/div>

�?gdb 调试的时候，定位到出错位�|�，堆栈打印如下�Q?br />

可见它是�?nbsp;print_element_info 内发生的错误�Q�而上面打印的信息也是�?“Element Implementation:” �q�一句话后终止的�?br />接下来的 g_strdup_printf 以及一�p�d��?g 打头的函数都�?glib 里面的代码�?br />奇怪了�Q�这�c�d��用的函数怎么可能会出错呢�Q?br />历经周折�Q�最后发现最底层调用的是 sprintf 函数�?br />

而在 sprintf 的断点处�Q�确发现函数的参数都是正常的�?br />真是十分诡异的现象�?br />

�?lib �?sprintf 已经没有源码了，于是�?si 逐指令跟�t�。按了半分多�U�忽然有重大发现�Q?br />一开始一直在 vfprintf 里面�Q�然后蟩转到一个底层的 __parse_one_specmb 函数�?br />居然瞬间又蟩转到一�?gstreamer 中的函数 _gst_info_printf_extension_arginfo�Q?br />

�q�个函数�I�竟是何方神圣，看�v来像是一�?printf 扩展�cȝ��回调函数�?br />发现了真�w�，�q�到底是什么东西？

搜了一下，扑ֈ��?GNU 的官�|�，发现�?printf 的扩展功能。是 glibc 2.0 版本以后的新东西�?br />

http://www.gnu.org/software/libc/manual/html_node/Registering-New-Conversions.html#Registering-New-Conversions

发现它是可有可无的�?br />�?configure 里注释掉它，�?buildroot �?package 里加了一�?patch�Q�然后重�?make�?br />

一切正�怺��Q�哈哈！

最后发现早�?011�q?月䆾��有老外发现了这个问题�?a >https://bugzilla.gnome.org/show_bug.cgi?id=638599
貌似是跟 glib 的一些机制相兟�?br />可能是媄响范围不够广�Q�还没有��D��到要取消掉这个机制�?br />

虽然说�ؓ了一个莫名其妙的问题忙活了半天，但学了一�?gdb 命��o�Q�而且�q�知道了 printf 原来�q�能扩展。很��奇的东�ѝ�?img src ="http://m.shnenglu.com/varg-vikernes/aggbug/164758.html" width = "1" height = "1" />

�p�米 2012-02-01 12:43 发表评论

str_fastcmp

�p�米 — Wed, 14 Sep 2011 14:00:00 GMT

摘自�Q�luajit源码lj_str.c

/* Fast string data comparison. Caveat: unaligned access to 1st string! */
static LJ_AINLINE int str_fastcmp(const char *a, const char *b, MSize len)
{
  MSize i = 0;
  lua_assert(len > 0);
  lua_assert((((uintptr_t)a + len) & (LJ_PAGESIZE-1)) <= LJ_PAGESIZE-4);
  do {  /* Note: innocuous access up to end of string + 3. */
    uint32_t v = lj_getu32(a+i) ^ *(const uint32_t *)(b+i);
    if (v) {
      i -= len;
#if LJ_LE
      return (int32_t)i >= -3 ? (v << (32+(i<<3))) : 1;
#else
      return (int32_t)i >= -3 ? (v >> (32+(i<<3))) : 1;
#endif
    }
    i += 4;
  } while (i < len);
  return 0;
}

�p�米 2011-09-14 22:00 发表评论

�p�米 — Tue, 13 Sep 2011 02:34:00 GMT

�W�一�U�实用和完善的垃圾收集算法是 J. McCarthy �{��h�?nbsp;1960 �q�提出�ƈ成功地应用于 Lisp 语言的标讎ͼ�清除��法。仍以餐巄��Z��Q�标讎ͼ�清除��法的执行过�E�是�q�样的：

午餐�q�程中，��厅里的所有�h都根据自��q��需要取用餐巄��。当垃圾攉��机器人想攉��废旧��巾�U�的时候，它会让所有用��的人先停下来，然后�Q�依�ơ询问餐厅里的每一个�h�Q?#8220;你正在用��巾�U�吗�Q�你用的是哪一张餐巄��Q?#8221;机器人根据每个�h的回�{�将��Z��正在使用的餐巄��M��记号。询问过�E�结束后�Q�机器�h在餐厅里��L��所有散落在��桌上且没有记号的餐巄��Q�这些显焉��是用�q�的废旧��巾�U�）�Q�把它们�l�统扔到垃圾��里�?nbsp;

正如其名�U�所暗示的那��P��标记�Q�清除算法的执行�q�程分�ؓ“标记”�?#8220;清除”两大阶段。这�U�分步执行的思�\奠定了现代垃圾收集算法的思想基础。与引用计数��法不同的是�Q�标讎ͼ�清除��法不需要运行环境监��每一�ơ内存分配和指针操作�Q�而只要在“标记”阶段中跟�t�每一个指针变量的指向——用类似思�\实现的垃圾收集器也常被后人统�U�Cؓ跟踪攉��器（ Tracing Collector �Q?nbsp;

伴随着 Lisp 语言的成功，标记�Q�清除算法也在大多数早期�?nbsp;Lisp �q�行环境中大攑ּ�彩。尽��最初版本的标记�Q�清除算法在今天看来�q�存在效率不高（标记和清除是两个相当耗时的过�E�）�{�诸多缺��P��但在后面的讨��Z��Q�我们可以看刎ͼ�几乎所有现代垃圾收集算法都是标讎ͼ�清除思想的�g�l�，仅此一点， J. McCarthy �{��h在垃圾收集技术方面的贡献��׃��毫不亚于他们�?nbsp;Lisp 语言上的成就了�?nbsp;

�p�米 2011-09-13 10:34 发表评论

去除dvsdk安装的Ubuntu版本限制

�p�米 — Sat, 27 Aug 2011 01:43:00 GMT

今天偶然间发现的一个小hack�Q�）

我要安装dvsdk�?.0版本。它的安装包是一个单个的可执行文�Ӟ��

它提�C�，只能在Ubuntu 10.04上面安装�?br />

我自��q��Ubuntu�?1.04�Q�文件系�l�resierfs�Q�如果resize的话貌似会清�I�。当然也不愿意再装一个旧版的�?br /> 所以琢��着怎么把这个限制去掉�?br /> 首先我估计它是读了某个文件来获取的发行版本号�?br /> 所以先�?strace 命��o看一下。加一�?-f 表示跟踪 fork 出来的子�q�程�?br />�q�个工具可以打印出程序所有的 syscall。因�?open�Q�read�Q�write�Q�select 之类的调用都会被打印出来�?br />

�q�时候出来很多结果，好比大�v捞针一般，要仔�l�看哦�?br />�H�然发现一行显眼的�Q?br />

“natty”是Ubuntu 11.04的代��P��也就是说�q�个�E�序在某个地方读��C��Ubuntu的版本号�?br />我对�q�些不了解，于是google了一下，发现是通过调用 lsb_release �q�个工具来读到的�?br />

然后又发��C��个好消息�Q�这个工��h�� python 写的�?br />于是加了半句优雅的代码：

其中“lucid”�?Ubuntu 10.04 的版本号。如�?/tmp/lucidhack �q�个文�g存在�Q�就输出 lucid �?br />看看效果吧：

创徏 /tmp/lucidhack�Q�然后重新运行安装程序�?/div>

大功告成�Q?br />

其实很多时候问题很��单，完全没有必要大动�q�戈�?/div>

�p�米 2011-08-27 09:43 发表评论

WTFPL - Do What The Fuck You Want To Public License

�p�米 — Fri, 26 Aug 2011 10:56:00 GMT

��译自：http://en.wikipedia.org/wiki/WTFPL

WTFPL (Do What The Fuck You Want To Public License) 是一个很��用的�Q�极端自��q��自由软�g协议�?br /> WTFPL 最初的 1.0 版本许可证发布于 2000 �q?3 月䆾。发布者是 Banlu Kemiyatorn�Q�最初用�?WindowMaker 软�g�?br /> Samuel “Sam” Hocevar�Q?007 �q�和 2008 �q�间�?Debian ��目负责人，发布�?WTFPL �?2.0 版本�?br /> WTFPL 允许代码在�Q何协议下都被能�Q意修改和发布 --- 也就�?#8220;do what the fuck [they] want to do”�Q�做你他妈想做的�Q��?br /> WTFPL 被自��p�Y件组�l�认可�ؓ GPL 兼容�?br />
协议内容

           DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
                   Version 2, December 2004
Copyright (C) 2004 Sam Hocevar 
Everyone is permitted to copy and distribute verbatim or modified
copies of this license document, and changing it is allowed as long
as the name is changed.
           DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
  TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
 0. You just DO WHAT THE FUCK YOU WANT TO.

�p�米 2011-08-26 18:56 发表评论

perl 常用函数

�p�米 — Fri, 26 Aug 2011 10:25:00 GMT

摘自 perldoc.perl.org

map BLOCK LIST
map EXPR, LIST
对于 LIST 里的每一个元素按�?BLOCK 或�?EXPR 里的操作�q�行求倹{�?/br> �q�回求值结果组成的数组�?/br> 如果�q�回值是 scalar �c�d��Q�则�q�回�l�果数组的大��?/br> 例子�Q?/br> �q�回一�l�数字对应的字符

@chars = map(chr, @numbers);

�q�回一�l�数字的�q�x��

my @squares = map { $_ > 5 ? ($_ * $_) : () } @numbers;

�q�回大于5的数字的�q�x��

my @squares = map { $_ > 5 ? ($_ * $_) : () } @numbers;

�׃�� map ��L��q�回一个列表，因此可以赋值给哈希�c�d��的变量：

%hash = map { get_a_key_for($_) => $_ } @array;

也可以这样写�Q?/br>

%hash = ();
foreach (@array) {
    $hash{get_a_key_for($_)} = $_;
}

-X FILEHANDLE
文�g��试函数�Q?/br>

-r  File is readable by effective uid/gid.
-w  File is writable by effective uid/gid.
-x  File is executable by effective uid/gid.
-o  File is owned by effective uid.
-R  File is readable by real uid/gid.
-W  File is writable by real uid/gid.
-X  File is executable by real uid/gid.
-O  File is owned by real uid.
-e  File exists.
-z  File has zero size (is empty).
-s  File has nonzero size (returns size in bytes).
-f  File is a plain file.
-d  File is a directory.
-l  File is a symbolic link.
-p  File is a named pipe (FIFO), or Filehandle is a pipe.
-S  File is a socket.
-b  File is a block special file.
-c  File is a character special file.
-t  Filehandle is opened to a tty.
-u  File has setuid bit set.
-g  File has setgid bit set.
-k  File has sticky bit set.
-T  File is an ASCII text file (heuristic guess).
-B  File is a "binary" file (opposite of -T).
-M  Script start time minus file modification time, in days.
-A  Same for access time.
-C  Same for inode change time (Unix, may differ for other platforms)

delete EXPR
EXPR 为哈希变量的 slice 或者是单个元素�?/br> �q�回��gؓ删除掉元素的��|��可以是列表�?/br> 如果�q�回��D��要求�?scalar �c�d��Q�则�q�回被删除的最后一个倹{�?/br> delete 也可以用于数�l�类型的变量�Q�不�q�它的行为可能不是你所预想的那栗��?/br> 例子�Q?/br>

%hash = (foo => 11, bar => 22, baz => 33);
$scalar = delete $hash{foo};             # $scalar is 11
$scalar = delete @hash{qw(foo bar)};     # $scalar is 22
@array  = delete @hash{qw(foo bar baz)}; # @array  is (undef,undef,33)

each HASH
each ARRAY
each EXPR
�q�回哈希的每�?(key, value) 所�l�成的数�l��?/br> 例子�Q?/br>

while (($key, $value) = each %hash) {
    print $key, "\n";
    delete $hash{$key};   # This is safe
}

eof FILEHANDLE
eof ()
eof
注意 eof() �?eof 的区别：
eof()�Q�如果到达了 <> 的最后一个文件的末尾�Q�则�q�回1
eof�Q�如果到达了当前文�g的末��，则返�?

# reset line numbering on each input file
while (<>) {
    next if /^\s*#/;  # skip comments
    print "$.\t$_";
} continue {
    close ARGV if eof;  # Not eof()!
}
# insert dashes just before last line of last file
while (<>) {
    if (eof()) {  # check for end of last file
        print "--------------\n";
    }
    print;
    last if eof();          # needed if we're reading from a terminal
}

�p�米 2011-08-26 18:25 发表评论

perl �Ҏ��变量

�p�米 — Wed, 24 Aug 2011 15:45:00 GMT

��译自：perldoc.perl.org

== 常用变量 ==

$ARG
$_
默认模式搜烦变量
下列函数使用它作为默认参敎ͼ�
abs, alarm, chomp, chop, chr, chroot, cos, defined, eval, exp, glob, hex, int, lc, lcfirst,
length, log, lstat, mkdir, oct, ord, pos, print, quotemeta, readlink, readpipe, ref, require,
reverse (in scalar context only), rmdir, sin, split (on its second argument), sqrt, stat,
study, uc, ucfirst, unlink, unpack.
用于文�g��试 (-f, -d)
用于模式匚w��操作 m//, s/// �?tr// (又名 y///)
用于 foreach, grep, map
用于 given 语句

@ARG
@_
对于函数来说�Q�@_ 包含了传递给该函数的参数。在函数中，@_ �?push, pop, shift, unshift 的默认参数�?/br>
$LIST_SEPARATOR
$"
当一个数�l�被引用�?"" 中或�?// 中。数�l�的值变为所有元素被 $" �q�接��h��的倹{�?/br> $" 默认��gؓ�I�格�?/br>

print "The array is: @array\n";
print "The array is: " . join($", @array) . "\n";

它们是相�{�的�?/br>

@a = (1, 3, 4);
print "@a\n";
$" = ",";
print "@a\n";
print "1,3,4" =~ /@a/;

输出�?/br>

1 3 4
1,3,4
1

$PROCESS_ID
$PID
$$
�q�行 perl 脚本的当前进�E�的 pid 倹{��等同于 getpid()�?/br>
$REAL_GROUP_ID
$GID
$(
该进�E�的 real gid 。由 getgid() 获得�?/br> 如果�q�行在一个支持用户同时属于多个组的操作系�l�上�Q?( ��返回由�I�格分隔的多�?gid。由 getgroups() 获得�?/br> 只能�l?$( 赋予单个整数�?/br>
$EFFECTIVE_GROUP_ID
$EGID
$)
该进�E�的 effective gid�?/br>

$< = $>;            # set real to effective uid
($<,$>) = ($>,$<);  # swap real and effective uids

$PROGRAM_NAME
$0
当前�E�序的名字�?/br>
$SUBSCRIPT_SEPARATOR
$SUBSEP
$;
如果�q�样讉K��一个哈�p�表�Q?/br>

$foo{$a,$b,$c}

�{�同于：

$foo{join($;, $a, $b, $c)}

例子�Q?/br>

%h = ('123', 'test');
$; = '';
print $h{1,2,3}; # 输出 test

%ENV
存放环境变量哈希表�?/br>
@F
当指定了 -a 参数的时候，@F 中保存着每一行被分隔后的数组�Q?/br>

perl -ane 'print pop(@F), "\n";'

�{�同�?/br>

while (<>) {
    @F = split(' ');
    print pop(@F), "\n";
}

$OSNAME
$^O
当前操作�pȝ��的名字�?/br>

# perl -e "print $^O"
# linux

%SIG
哈希 %SIG 中保存了信号的处理函数。例子如下：

sub handler {   # 1st argument is signal name
    my($sig) = @_;
    print "Caught a SIG$sig--shutting down\n";
    close(LOG);
    exit(0);
    }
$SIG{'INT'}  = \&handler;
$SIG{'QUIT'} = \&handler;
...
$SIG{'INT'}  = 'DEFAULT';   # restore default action
$SIG{'QUIT'} = 'IGNORE';    # ignore SIGQUIT

赋��gؓ 'IGNORE' 则忽略该信号�Q�除�?CHLD 信号�?/br> 下面是指定处理函数的其他方式�Q?/br>

$SIG{"PIPE"} = "Plumber";   # 指定�?main::Plumber (不推�?
$SIG{"PIPE"} = \&Plumber;   # 推荐的方�?
$SIG{"PIPE"} = *Plumber;    # 有点奇�?
$SIG{"PIPE"} = Plumber();   # 错误的做法，Plumber() 会返回什么？�Q?

部分内部�?hook 也可以通过讄�� SIG 来指定。比如说�Q?/br>

local $SIG{__WARN__} = sub { die $_[0] };
eval $proggie;

当一�?warning 被抛出的时候，$SIG{__WARN__} 所指向的函数将被调用�?/br> warning 消息的内容�ؓ函数的第一个参数�?/br>
$BASETIME
$^T
�E�序开始运行的旉��(旉��?

# perl -e "print $^T"
1314234806

$PERL_VERSION
$^V
perl 的版本号

warn "Hashes not randomized!\n" if !$^V or $^V lt v5.8.1

== 和正则表辑ּ�相关的变�?==

$ ($1, $2, ...)
匚w��?() 匚w��的部分�?/br>
$&
$MATCH
前一�ơ成功匹配的字符丌Ӏ?/br>
$`
$PREMATCH
位于前一�ơ成功匹配字�W�串前面的字�W�串�?/br>
$'
$POSTMATCH
位于前一�ơ成功匹配字�W�串后面的字�W�串�?/br>

local $_ = 'abcdefghi';
/def/;
print "$`:$&:$'\n";      # 输出 abc:def:ghi

$LAST_PAREN_MATCH
$+
前一�ơ成功匹配中最后一�?() 中的内容�?/br>

/Version: (.*)|Revision: (.*)/ && ($rev = $+);

@LAST_MATCH_END
@+
前一�ơ成功匹配中每个 () 匚w��的偏�U�量�?/br> $+[0] 为整个匹配末��偏移�?/br> $+[1] �?$1 末尾的偏�U�量
$+[2] �?$2 末尾的偏�U�量
...
$#+ 为前一�ơ成功匹配的 () 数量

%LAST_PAREN_MATCH
%+
前一�ơ成功匹配中命名匚w��Q�即�?(?...) 的�Ş式）的哈�p�表�?/br> 如：

'foo' =~ /(?foo)/; # $+{foo} �?$1 中都存放着 'foo'

另外一个例子：

$_ = "testing1234end";
/^testing(.)(.)(..)end/;
print "@+"; # 输出 14 8 9 11
/^(?[a-z]+)(?\d+)/;
print "$+{foo}"; # 输出 testing
print "$+{num}"; # 输出 1234

@LAST_MATCH_START
@-
�?@+ �c�M��Q?/br> $-[0] 为整个匹配头部的偏移�?/br> $-[1] �?$1 头部的偏�U�量
$-[2] �?$2 头部的偏�U�量
...
$` �{�同�?substr($var, 0, $-[0])
$& �{�同�?substr($var, $-[0], $+[0] - $-[0])
$' �{�同�?substr($var, $+[0])
$1 �{�同�?substr($var, $-[1], $+[1] - $-[1])
$2 �{�同�?substr($var, $-[2], $+[2] - $-[2])
$3 �{�同�?substr($var, $-[3], $+[3] - $-[3])

%LAST_MATCH_START
%-
�c�M��?%+�Q�通过 %- 可以讉K��C��一�ơ成功匹配中所有的命名匚w��?/br> 每个命名匚w��的名字都与一个数�l�相兌��?/br> 比如��_��

if ('1234' =~ /(?1)(?2)(?3)(?4)/) {
    foreach my $bufname (sort keys %-) {
        my $ary = $-{$bufname};
        foreach my $idx (0..$#$ary) {
            print "\$-{$bufname}[$idx] : ",
                  (defined($ary->[$idx]) ? "'$ary->[$idx]'" : "undef"),
                  "\n";
        }
    }
}

会输出：

$-{A}[0] : '1' $-{A}[1] : '3' $-{B}[0] : '2' $-{B}[1] : '4'

== 和文件句柄相关的变量 ==

$ARGV
<> 中正在被��d��的文件的名字
例子�Q?/br>
# cat c 1 2 # cat d 1 2 3 4 # cat a.pl while (<>) { print "$ARGV\n"; } # perl a.pl c d c c d d d d

@ARGV
命��o行参敎ͼ�$ARGV[0] 代表�W�一个参敎ͼ�而不是程序的名字�Q��?/br>
$OUTPUT_FIELD_SEPARATOR
$OFS
$,
print 函数的输出分隔符�Q�默认��gؓ undef�?/br> 例子�Q?/br>
print "a", "c"; # 输出 ac $, = "|"; print "a", "c"; # 输出 a|c

$INPUT_LINE_NUMBER
$NR
$.
上一�ơ读取文件的行号�?/br> $. 在文件句柄关闭的时候重�|��?/br> �׃�� <> 操作�W�不会关闭文�Ӟ��因此在连�l�从 ARGV ��d��文�g的时候，$. 会不断增加�?/br> 例子�Q?/br>
# cat a.pl while (<>) { print "$.\n"; } # perl a.pl c d 1 2 3 4 5 6
其中 c d 的长度分别�ؓ 2, 4 行�?/br>
$INPUT_RECORD_SEPARATOR
$RS
$/
�c�M��?awk �?RS 变量。它军_��?perl 如何分割行�?/br> 例子�Q?/br>
# cat c 1|2|3 # cat a.pl $/ = "|"; while (<>) { print "line:$_\n"; } # perl a.pl c line:1| line:2| line:3

$OUTPUT_RECORD_SEPARATOR
$ORS
$\
print 函数输出的分隔符。默认��gؓ undef�Q�如果定义了�Q�则�?print 完所有参数后输出 $\�?/br> 例子�Q?/br>
$\ = "|"; print "a"; print "b"; # ��输�?a|b|

$OUTPUT_AUTOFLUSH
$|
如果讄��为非0的��|��强制的 flush 当前 selected 的文件句柄�?/br> �Q�类��g�� setbuf(xx, NULL) �Q�）

== 和错误信息有关的变量 ==

$ERRNO
$!
�{�同�?libc 中的 errno。可以�{换�ؓ int �?string 两种形式�Q?/br>
open '/a'; print int($!) . ": $!\n"; # 输出 2: 没有那个文�g或目�?

$CHILD_ERROR
$?
�c�M��?shell 中的 $?。可以�ؓ下列操作的返回��|��
- 最后一�ơ管道关�?/br> - `` 或�?system() 语句
- wait() 或�?waitpid()
$? >> 8 为子�q�程的返回�?/br>
$EVAL_ERROR
$@
上一��?eval() 操作的语法错误信息�?/br> 例子�Q?/br>
# cat a.pl eval "my a"; print "$@"; # perl a.pl No such class a at (eval 1) line 1, near "my a" syntax error at (eval 1) line 2, at EOF

�p�米 2011-08-24 23:45 发表评论

�p�米 — Wed, 24 Aug 2011 09:00:00 GMT

摘自�Q�perldoc.perl.org

�?.."操作�W�返回bool型变量的时候，有如下几个例子：

while (<>) { print if (2 .. 6); }
��会打印文�g�?2 ~ 6 行�?br />
同样的：

next if (1 .. /^$/); # 跌��前面的空白行 s/^/> / if (/^$/ .. eof); # 在正文前面加�?>

�q�可以这样��用：

# parse mail messages while (<>) { $in_header = 1 .. /^$/; $in_body = /^$/ .. eof; if ($in_header) { # do something } else { # in body # do something else } }

下面的例子展�C�Z��".."�?..."的区别：

@lines = (" - Foo", "01 - Bar", "1 - Baz", " - Quux"); foreach (@lines) { if (/0/ .. /1/) { print "$_\n"; } }
�q�个�E�序只输出Bar那行。如果将".."换成"..."�Q�则�q�会输出Baz那行�?br />
下面展示".."操作�W�返回列表型变量时候的几个例子�Q?br />
for (101 .. 200) { print; } # print $_ 100 times @foo = @foo[0 .. $#foo]; # an expensive no-op @foo = @foo[$#foo-4 .. $#foo]; # slice last 5 items

同样可以用于字符�Ԍ��

@alphabet = ("A" .. "Z"); $hexdigit = (0 .. 9, "a" .. "f")[$num & 15]; @z2 = ("01" .. "31"); print $z2[$mday];

�q�可以用于单个字�W�：

use charnames "greek"; my @greek_small = ("\N{alpha}" .. "\N{omega}");

use charnames "greek"; my @greek_small = map { chr } ord "\N{alpha}" .. ord "\N{omega}";

�p�米 2011-08-24 17:00 发表评论