2014-02-11

• 菜单
  as710054 发表了新话题 2014-02-11 10:05

  perl -nle '}{print $.' 挺好玩的 分享下
  这行就是 打印文件的总行数 因为-n 类似 while() { #do noting } 当 加了 '}{print $.' 后就变成了 while() {}{print $. }

2014-01-16

• 菜单
  as710054 发表了新话题 2014-01-16 10:31

  split的用法请教
  为啥 perl的split 不能 直接 split(/pattern/,$str)[4] ，必须（split(/pattern/,$str)）[4] ，如果我要取个切片

2013-09-30

• 菜单
  as710054 发表了新话题 2013-09-30 10:28

  父类调用子类的接口，不理解 求解惑
  package A; sub new { $item = $self->_func_from_b; } package B; use base "A"; sub _func_from_b { } 这种方式我实验了下，可以 ...