Perl脚本学习经验（二）------常用命令举例

什么没有

　　一.chomp
   作      用：去除读入字符串的换行符，去除\n或者\r\n:
   简单举例：
    while()
    {
        my $tmp_record = $_;
        chomp ($tmp_record);
    }
   
    简单说明：此时$tmp_record变量的结束处已经不包含换行符；
   
二.split
   作      用：根据某个模式分割字符串；
   简单举例：
   my @record= split(/\|/,$tmp_record);
   
   简单说明：定义一个record数组，根据“|”分割变量$tmp_record内容；   
   
三.while
   作      用：循环遍历
   简单举例：
    open(FDATA, "$_[0]") || die "Failed to open $_[0]:$!";
   
       printf FSQLFILE "set serveroutput on \n";
       printf FSQLFILE "set time on \n";
       printf FSQLFILE "set timing on \n";
       printf FSQLFILE "set linesize 1000  \n";
       printf FSQLFILE "set echo off \n";
       printf FSQLFILE "set term off \n";
       printf FSQLFILE "set heading off \n";
       printf FSQLFILE "set pagesize 0 \n";
       printf FSQLFILE "set trimspool on \n";
       printf FSQLFILE "set feedback off \n";
       printf FSQLFILE "set time off \n";
       printf FSQLFILE "set timing off \n";
       printf FSQLFILE "spool $_[1] \n";
       printf FSQLFILE "$_[2] \n";
       printf FSQLFILE "spool off \n";
       printf FSQLFILE "exit; \n";
       close(FSQLFILE);
   }
   
   简单说明：1. $dbstr数据库连接串；
                 2. `sqlplus $dbstr \@$g_bll_sqlfile`; 不能直接跟SQL，将SQL写到一个文件中，执行文件；
                 3.create_unload_sql_file方法对数据库进行设置，并访问数据库执行SQL；
                 4.将结果写入到$g_bll_file文件中；
　　
　　以上是我在自己写perl脚本中常用的一些命令，希望可以给新手一点帮助。