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

一.chomp

作 用：去除读入字符串的换行符，去除\n或者\r\n:

简单举例：

while(<FDATA>)

{

my $tmp_record = $_;

chomp ($tmp_record);

}

简单说明：此时$tmp_record变量的结束处已经不包含换行符；

二.split

作 用：根据某个模式分割字符串；

简单举例：

my @record= split(/\|/,$tmp_record);

简单说明：定义一个record数组，根据“|”分割变量$tmp_record内容；

三.while

作 用：循环遍历

简单举例：

open(FDATA, "<test.txt")||die "Failed to open test.txt: $!";

while(<FDATA>)

{

my $tmp_record = $_;

chomp ($tmp_record);

my @record= split(/\|/,$tmp_record);

}

close(FDATA);

简单说明：读取test.txt文件，循环遍历文件中的内容；

四.foreach

作 用：循环遍历

简单举例：

foreach $ckey(sort keys %g_bll)

{

my $tmp_record = $g_bll{$ckey};

chomp ($tmp_record);

my @record= split(/\|/,$tmp_record);

}

简单说明：循环遍历%g_bll_charge_map容器中的内容；

五.substr

作 用：截取字符串

简单举例：

例一：my $FirstFlag = substr(“abcdefg”,0,1);

例二：my $FirstFlag = substr(“abcdefg”,-1,1);

简单说明：有三个参数，分别是截取的父串，从0开始的初始位置，字串的长度；

例一中截取abcdefg字符串中从0开始长度为1的字符串，结果返回a；

　 例二中截取abcdefg字符串中最后一个字符串，结果返回g；

六.sort

作 用：简单排序

简单举例：

foreach $ckey(sort keys %g_bll)

{

my $tmp_record = $g_bll{$ckey};

chomp ($tmp_record);

my @record= split(/\|/,$tmp_record);

}

简单说明：循环遍历容器中的内容，按照key值排序；exists

七.exists

作 用：查看hash中是否存在某个值

简单举例：

if(exists $g_bll{date})

{

}

简单说明：查看容器$g_bll中是否存在键值为date的数据，存在返回true，不存在返回false；

八.读取文件

作 用：打开文件句柄，读取文件内容

简单举例：

open(FDATA, "<<test.txt")||die "Failed to open test.txt: $!";

foreach $temp_acctsub(sort keys %g_bll_map)

{

my $result = $g_bll_map{$temp_acctsub};

print FDATA $result ;

}

close(FDATA);

简单说明：读取文件test.txt中的内容，如果不存在该文件，用die命令输出错误信息；

九.读取文件夹

作 用：读取文件夹下的内容

简单举例：

opendir DH,$g_work_path or die "Cannot open the DIR!";

foreach $dirname(readdir DH)

{

if($dirname ne "." and $dirname ne "..")

{

my $filename = $g_work_path .$dirname;

$file_name_map{$filename} = $dirname;

}

}

closedir(DH);

简单说明：和读取文件不同的是使用opendir和closedir；

十.向文件中写内容

作 用：读取文件夹下的内容

简单举例：

open(FDATA, ">>test.txt")||die "Failed to open test.txt: $!";

foreach $key(sort keys %g_fee_info_map)

{

........

}

print FDATA $temp_info . "\r\n";

close(FDATA);

简单说明：打开文件句柄，>>向文件中追加；

十一.map容器的使用

作 用：key值匹配value值

简单举例：

$g_bill_map{$id} = $info;

简单说明：以id为键值，存储不同用户的信息；如果key值相同，value值会被覆盖；

十二.map容器的嵌套使用

作 用：value值仍旧是一个map，双层map的使用

简单举例：

$g_info_map{$filekey}{$acctsub} = $temp_subinfo_fee; -----存储用户信息

my %g_subinfo_map = %{$g_info_map{$filekey}}; -----提取用户信息

简单说明：存储用户信息----使用$filekey和$acctsub两个键值存储$temp_subinfo_fee，实际上这边有两个map：

首先通过$filekey可以查处一个用用户信息的map，用户信息的map是以$acctsub为键值，$temp_subinfo_fee为value；

提取用户信息----定义了一个%g_subinfo_map的map来存储通过$filekey查询出的用户信息；

十三.perl脚本中调用lunix命令

作 用：

简单举例：

`mkdir -p $g_out_put_path`;

简单说明：创建文件夹，用``；

十四.perl脚本中和数据库交互

作 用：通过脚本访问数据库

简单举例：

sub get_bll_charge_from_database()

{

my $g_sql = "select b.acct_id || '|' || b.sub_id || '|' || b.item_id || '|' || b.cos || '|' || b.charge || '|' || b.bill_id || '|' || b.number \n"

. " from bll_info; \n";

&create_unload_sql_file($g_bll_sqlfile,$g_bll_file,$g_sql);

`sqlplus $dbstr \@$g_bll_sqlfile`;

my(@szContent) = `cat $g_bll_file|grep ORA-`;

foreach (@szContent){

my $tmpContent = $_;

if($tmpContent =~ /ORA-(\d)+/) #这里出错了

{

print $tmpContent;

return;

}

}

}

sub create_unload_sql_file()

{

#$_[0] -> sqlfile;$_[1] -> datafile;$_[2] -> sql;

open(FSQLFILE,">$_[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脚本中常用的一些命令，希望可以给新手一点帮助。