漫漫长路，其修远兮！
发布时间：2012-12-19 10:27:29
一.变量 1.export -p ：命令显示当前导出成用户变量的shell变量 env: env命令显示当前用户的变量 -i NAME1=VALUE1 NAME2=VALUE2 <command-line> 使用指定的环境变量执行命令行<command-line> set：set命令显示当前shell的变量，包括当前用户的变量,打印的变量最多 unset 删除变量 2.替换运算符 ${varname:=word} : 如果varname存在且不为Null，则返回它的值，否则设置为word，并返......【阅读全文】
发布时间：2012-12-17 11:26:26
1.从库读取主库落后的计算方法 my $blog_size_Mbytes = $max_binlog_size / 1024 / 1024 my $master_file_idx = 主库show master status,File的编号 my $slave_read_file_idx =从库show slave status,Master_Log_File的编号 my $read_master_log_pos = 从库show slave status,Read_Master_Log_Pos的值 my $master_log_pos =主库show master status,P......【阅读全文】
发布时间：2012-12-14 14:58:52
一.从结构化文本文件中提取数据 1.sed -e 's=/.*==' 去掉第一个/和后面的所有字符 jones:*:32713:899:Adrian W. Jones/OSD211/555-0123:/home/jones:/bin/ksh 输出为jones:*:32713:899:Adrian W. Jones | -e 's=^\([^:]*\):\(.*\) \([^ ]*\)=\1:\3, \2=' ^\([^:]*\) 匹配用户名称字段 :\(.*\) 匹配文字到空白处()后面有个空格) \([^ ]*\)匹配记录里剩下的非空白文字 ......【阅读全文】
发布时间：2012-12-14 11:50:37
主要是使用的 use Net::SMTP_auth; 点击(此处)折叠或打开 use strict; use Net::SMTP_auth; use Text::Iconv; use MIME::Base64; use Data::Dumper; my $mailhost = 'mail.163.com'; ###邮件服务器 my $mailfrom = 'test_1@163.com'; my @mail_account = ('test_2@163.com'); my $mailuser = 'test'; my $mail......【阅读全文】
发布时间：2012-12-14 11:14:05
主要是使用如下两个模块 use Spreadsheet::ParseExcel;use Spreadsheet::WriteExcel; 一，解析excel 点击(此处)折叠或打开 use strict; use Spreadsheet::ParseExcel; my $parser = Spreadsheet::ParseExcel->new(); my $workbook = $parser->parse('Book.xls'); if ( !defined $workbook ) { ......【阅读全文】
