http://instantrails.rubyforge.org/svn/trunk/InstantRails-win/InstantRails/mysql/bin/libmySQL.dll

呃。。原来是Ruby\bin下压根就没有libmysql- - ，可以在上面下载

生成model会报这个错。。。难道我的八字和rails不符吗

C:/Ruby/lib/ruby/gems/1.8/gems/activesupport-2.3.2/lib/active_support/core_ext/module/aliasing.rb:33:in `alias_method': undefined method `find_full_template_path' for class `ActionView::Base' (NameError)

        from C:/Ruby/lib/ruby/gems/1.8/gems/activesupport-2.3.2/lib/active_support/core_ext/module/aliasing.rb:33:in `alias_method_chain'

       

下载地址:               http://rubyforge.org/
确认安装                ruby:    ruby -v
升级gem:               gem update --system
确认gem:               gem -v
安装rails包:

本来用的InstantRails自带的myql。。总是报错

最后自己从新装了。。竟然好使了！- -|||

今天因为某种原因我需要找到海量文件中便签出现频率，标签本身没什么，用[ ]夹起来的
用到了之前笔记中做的练习，只是连起来了而已

#目标文件夹
$PATH = '一个路径';

#指定文件目录
opendir(TARGETDIR,"$PATH") || die "cannot open dir: $!";

#获得全部文件
@files = grep(!/^\.\.?$/, readdir TARGETDIR);

#遍历文件夹内文件
foreach $file (@files){

####################具体文件操作#############################

  

    * 原 名：Brian's Guide to Solving Any Perl Problem
    * 中 文: Brian 的 Perl 问题之万能指南
    * 作 者：brian d foy
    * 原 文：http://www252.pair.com/comdog/brian's_guide.pod
    * 发 表：2004-07-20
    * 翻 译：klaus
    * 审 校：qiang
    * 出 处：中国 Perl协会 FPC - PerlChina.org


阅读这份指南并保持明智的头脑

由于某个非常geeky的原因，暂时不能装delphi,还是继续完成我的perl笔记吧..

今天总结的是地址引用。。

#这个练习来演示什么是引用
$a = "right";
$b = $a;
$a = "wrong";
print qq[$a != $b\n];


$a = "right";
$b = \$a;
$a = "wrong";
print qq[$a != $$b\n]; #注意这里是两个$

#如果这时修改b的值
$$b = "right";
print qq[$a = $$b\n]; #注意这里是两个$

#再次修改,这事b会撤销引用关系

#比较无聊的功能，主要是练习引用模块。。。

use File::Copy;
copy("E:/perl/8/src.txt","E:/perl/8/src.new.txt") || die "$!";
print qq[I don't want die \n];

下面引用模块和cgi部分不打算深学了，因为确实不需要perl来帮助完成，当初的目标也达到了，处理文本和学习regex :)。

so..
也许下次就是delphi学习笔记 || regex学习笔记了。。
真是善变的人呀X)

下面一个练习是工作上用到的，从文本中找到类似：刘斌，XXXXXXXX,XXXX的记录插入到数据

一、文件操作
#用来演示perl如何读取文件

#定义句柄
open(MYJSDATE,$path) or die;
#循环读取文档内容
while(<MYJSDATE>)
{
   
    print qq[$_];
}

print q[<EOF];

#创建一个可写文件
open(ADDTARGET,">>E:/perl/d4t/add.txt") || die "error: $!";

print ADDTARGET "AAADDD \n";

#关闭资源
close ADDTARGET;

open(NWETEXT,"E