旋木

随着一声『财神爷爷到』，从天上掉下一滴甘露正好落在你的嘴唇上！
你在恍惚中看见了2两黄金。
关于人文教育。。。


－－－－－－－－－　５５５５５　今天写太多了，留着下次写吧。

现在很喜欢这种无病呻吟，因为这比有病呻吟要舒服很多，还可以赚点积分。

发现了一个赚积分的新方法，赶紧去找一些问题伴奏检举之，

就是不知道会不会如约的给我加分呢，。。。

#!/usr/bin/perl


use strict;
use warnings;

&Rule_0_PrintRule_Preamble();
foreach (@ARGV) {
  my @fields = split /[\\\/:]/;
  my $file_name = $fields[$#fields];
  &Rule_1_link_Check_File($file_name, $file_name);
  next unless open FILE, $_;
  while (<FILE>) {
    chomp;
    @fields = split;
    my ($g,$o)=(0,0);
    pos = 0;
    s/\t/$g=8-($o+pos)%8; $o+=$g-1; ' 'x$g/ge;
    &Rule_1_link_Input_Line($_, @fields);
  }
  close FILE;
}
&Rule_1_link_End_Data();
&Rule_0_PrintRule_Appendix();

INIT {
  my $starting_level = 1;
  my $current_level = 0;
  my $begin_a_block = 0;

  sub Rule_1_link_Check_File {
    my ($line, @fields) = @_;
    my $selected_string;
    $begin_a_block = 1;
    $current_level = $starting_level;
  }

  sub Rule_1_link_Input_Line {
    my ($line, @fields) = @_;
    my $selected_string;
    if ($current_level>=1) {
      if (defined($fields[0]) && length($fields[0])>6) {
        $selected_string = substr($fields[0], 6, 42);
      } else {
        $selected_string = undef;
      }
      if (defined($selected_string) && $selected_string eq "http:\/\/mp3.xianlai.com\/viewthread.php?tid=") {
        $selected_string = $fields[0];
        if (defined($selected_string)) {
          &Rule_2_QuoteRule($begin_a_block, $current_level, $selected_string);
          $begin_a_block = 0;
        }
      }
    }
  }

  sub Rule_1_link_End_Data {
    my $selected_string = undef;
    &Rule_2_QuoteRule(0, 0, $selected_string);
  }
}

INIT {
  sub Rule_2_QuoteRule {
    my ($begin_a_block, $current_level, $input_string) = @_;
    unless (defined($input_string)) {
      &Rule_0_PrintRule_Data(1, 0, 0, $input_string);
      return;
    }
    my $left = 0;
    my $right = 0;
    my $len = length($input_string);
    for ( ; $left<$len; $left=$right+1) {
      if (($left=index($input_string, "\"", $left))<0) {
        return;
      } else {
        $left += 1;
      }
      if (($right=index($input_string, "&", $left))<0) {
        return;
      }
      if ($right>$left) {
        my $selected_string = substr($input_string, $left, $right-$left);
        &Rule_0_PrintRule_Data(1, $begin_a_block, $current_level, $selected_string);
        $begin_a_block=0;
      }
    }
  }
}

INIT {
  my @data_array;
  for (my $i=0; $i<2; $i++) {
    push @data_array, [ ];
  }
  my @line_stuff;
  $line_stuff[0] = "";
  $line_stuff[1] = "\n";
  my @line_limit;
  my $available = 1;
  my $finished = 1;

  sub Rule_0_PrintRule_Data {
    my ($part, $block, $level, $input_string) = @_;
    unless (defined($input_string)) {
      &Rule_0_PrintRule_End();
      return;
    }
    push @{$data_array[$part]}, $input_string;
    &Rule_0_PrintRule_Print($part);
  }

  sub Rule_0_PrintRule_Print {
    my ($part) = @_;
    return if @{$data_array[$part]}>1;
    $available++;
    return if $available<2;
    print $line_stuff[0];
    for (my $i=1; $i<2; $i++) {
      my $output_string = shift @{$data_array[$i]};
      $available-- if @{$data_array[$i]}<1;
      &Rule_0_PrintRule_Output($i, $output_string);
      print $line_stuff[$i];
    }
  }

  sub Rule_0_PrintRule_End {
    $finished++;
    return if $finished<2;
    while ($available>1) {
      print $line_stuff[0];
      for (my $i=1; $i<2; $i++) {
        my $output_string = shift @{$data_array[$i]};
        unless (defined($output_string)) {
          print "<no_data>";
        } else {
          $available-- if @{$data_array[$i]}<1;
          &Rule_0_PrintRule_Output($i, $output_string);
        }
        print $line_stuff[$i];
      }
    }
  }

  sub Rule_0_PrintRule_Preamble {
    print "";
  }

  sub Rule_0_PrintRule_Output {
    my ($i, $output_string) = @_;
    unless (defined($line_limit[$i])) {
      print "$output_string";
    } else {
      my $j = 0;
      while (1) {
        print substr($output_string, $j, $line_limit[$i]);
        $j += $line_limit[$i];
        if ($j<length($output_string)) {
          print "\n";
        } else {
          last;
        }
      }
    }
  }

  sub Rule_0_PrintRule_Appendix {
    print "";
  }
}

随着一声『观音娘娘到』，从天上掉下一滴甘露正好落在你的嘴唇上！
你在恍惚中看见了2两黄金。
今天忙了半天把那个威望申请的帖子发了，
其实威望对我来说没什么实际意义， 但是就是喜欢自己的威望高高的。

在申请威望的时候总是不能像别人那样占便宜，通常在四舍五入的时候，被归入舍之列。总是气愤为什么别人那么少的伴奏就可以得到那么多的威望，但是根据原则来说，我并没有吃亏， 是别人运气了，不能因为别人运气了就认为自己吃亏了，中间有条线摆着呢。


这些发伴奏发原唱得来的威望，一点都不希罕， 我希望有一天可以有一个帖子评为精华了而加上威望。这个帖子最好是翻唱的。或者摄影，写文字什么的都行啊，
这被归入第一个5年计划之内， 短期内是无法实现了。

================

也算练一下简单的编程了，不是学cs的，究竟底子薄。

以前在编程上有一个误区， 觉得要编得漂亮，方法， 功能强才好。

现在却明白，只要能做事情的达到预定目标的就是好的，

内存， 硬盘，计算机的时间都是廉价的，

而人工的时间是宝贵，

如果花一个小时写一个很烂但是能工作的程序，
和花一天写一个优美的程序相比，
我要倾向于写烂程序。

而事实亦应该如此。

抛却完美主义。否则， 永远不能前进。

摇曳的风铃

慧慧还是没好。。。呵呵……
慢慢过去吧，会好的。
我一向相信时间。我总觉得，人可以什么都不相信，但是不能不能不相信时间。时间到了，就都好了：）

我是无神论我是无神论，要呼嘿。~

姐姐， 偶累死了，


===========

忙了一周啦， 考试暂时也考完了，不过这把年纪了还对考试担心似乎是不大应该哦，
考试不是重要的事情，但却是一个吓人的事情， 不过应该没有问题地，那个变态老师也许会开根号再乘以10， 然后再换成A,B,C,D,E

应该会落在A-和 B+之间啦。MMD， 考试成绩有什么用呢，
关键的是多发几篇文章啦。

哦~~~~~~。

关于人文教育

我们这代人， 家庭出生环境和学习环境的缘故， 缺乏一种人文教育。

为什么那么容易得接受信仰快餐，为什么遇到事情的时候没有足够的冷静去处理，为什么看问题不能在远些看。

一方面，钻在象牙塔里，另一方面也反射出某些素质教育的贫乏。

为什么学理科的学生这么容易去信仰某些快餐式的宗教甚至邪教（邪教毫无例外的都是快餐式的），而对于更深层一些的东西却不能接受和理解。

80年代初出生的我们， 成长在一个经济大发展的年代，追求实用化的年代，崇尚现实的年代。

我觉得自己好贫乏。人的贪欲是无法满足的。贪欲并非贬义词， 如果有了让自己进步的愿望， 是一件好事情。

wuwu日省吾身。。。。。

我把别人看世界名著的时间花在了和牛羊玩耍上去了，城乡教育的差别，很大。
出来以后的素质差别， 在大学里就比较明显了。在以后的工作岗位上更是显著。

常常说某某以前是班里名次很落后的， 但是现在却混得怎么好怎么好，
其实名次只不过是一个方面， 综合素质才是最重要的，

这辈子大概基本上要划入“读死书“这一类了，在自己的环境中让自己更适应一些，

摇曳的风铃

慧慧言之有理。。。。。。
同意的说。。。呵呵……

声乐的艺术，








就是气息的艺术。

罗德里戈

所以像财不大气不粗的就玩儿不转啊。。灰灰呢段码子太牛了吧

Originally posted by 罗德里戈 at 2006-3-5 18:48:
所以像财不大气不粗的就玩儿不转啊。。灰灰呢段码子太牛了吧

大好人块头很大哦， 是块好材料。

嘿，那个一点都不牛，——你知道哪个是干啥地么，功能很小，只是一个test。
在这个基础上，偶写了个程序就是为了申请威望用的， 要知道一个一个贴链接，偶那700首歌得贴上个两三天的，
偶写了个程序， 输入是网页htm格式文件， 输出就是歌曲标题以及相应的歌曲链接地址， 这样就不用偶自己一条一条的贴了。
这个码不过是抽取了链接地址而已， 抽取歌曲标题因为有的歌是英文标题， 单词数是不确定的， 所以有一点点的麻烦，当然偶都使用最笨的方法来实现的。
嘿。


你们是不是觉得偶好无聊阿，55555，可惜威望看来一时半会是批不下来了， 5555。


贴上看看这么多行字能不能掉金子地， 结果还是没有金子，
偶已经出离的愤怒了， 什么时候能掉金子阿。
偶已经出离的愤怒了！！！！！


=========================================

1 红豆。。等到风景都看透也许你会陪我看细水长流。
2 矜持。。我是爱你的，我爱你到底，生平第一次我放下矜持。
3 偿还。。还没将你的贴像从右翻至左欣赏。。。
4 暗涌。。越美丽的东西我越不可碰。。。
5 催眠。。第一次生病了需要喝药水。。
6 扑火。。自尊丢到墙角掏出所有的好，你还是不看，你还是不要。爱到飞蛾扑火是很伤痛
7 无常。。夜风微凉，树摇月晃，云儿在飞，我在想，水流，花儿香，一片月色放心上。。
8 宽恕。。难道爱比恨更难宽恕。。
9 推翻。。突然间你连瞒都不瞒想也不想就这麽推翻。。
10暧昧。。茶没有喝光早变酸，从来未热恋已相恋。。

[ Last edited by 慧慧(huihui) on 2006-3-6 at 05:58 ]