今天起,這篇文章來記錄一些perl的學習筆記,希望能堅持下去,持續更新。
1、先上一段perl讀取配置檔案,連線資料庫的**。
config.ini--資料庫的連線字串配置檔案:
=127.0.0.1:1521=mymis=mymis=orcl=
data.pl--讀取config.ini,通過perl的dbi去運算元據庫:
#!/usr/bin/perl
use dbi;
$dbh="";
#開啟配置檔案,由於cygwin沒安裝上perl-dbi,所以我在命令列執行的,路徑是windows的路徑
open(logonfile,"d:/cygwin/zhouyujie/zshell/config.ini") || die("can not open the file!$!n");
my $logon_str = ;
close(logonfile);
#用"="去分隔讀取配置檔案的內容,就可以得到連線字串的引數
my ($null, $urladdress, $username, $password, $dbname) = split('=',$logon_str);
#連線資料庫
$dbh = dbi->connect("dbi:oracle:".$urladdress."/".$dbname,$username,$password) or die "can't connect to database ". dbi-errstr;
#localtime函式,獲取到這些時間
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());
#把年、月、日轉換成20131114的格式
$year += 1900;
$mon = sprintf("%02d", $mon + 1);
$mday = sprintf("%02d", $mday);
my $today = "$$$";
$sql="select '".$today."',a.* from mymis.tb_mymis_user_info a";
#查詢表
$sth=$dbh->prepare($sql);
#執行sql語句
$sth->execute;
#讀取記錄資料,這裡唯讀了前三列
while (@recs=$sth->fetchrow_array)
#斷開連線
$dbh->disconnect;
perl 的一些系統變數
當前頁可列印的行數,屬於perl格式系統的一部分 根據上下文內容返回錯誤號或者錯誤串 列表分隔符 列印數字時預設的數字輸出格式 perl直譯器的程序id 當前輸出通道的當前頁號 與上個格式匹配的字串 當前程序的組id 當前程序的有效組id 設定1表示處理多行格式.現在多以 s和 m修飾符取代之.當前...
perl學習筆記(一) perl的安裝
一,如何安裝perl 二,perl如何新增乙個新的模組 將所需的模組放到perl lib 目錄下,或者使用ppm的方式,在cmd下輸入ppm命令,然後輸入help命令 三 安裝完activeperl軟體後,安裝完成後,所有字尾為.pl和.pm的檔案都被關聯為perl的檔案。我們將自己寫的檔案儲存在在...
perl學習 一些字串操作
1.編碼轉換 use text iconv converter text iconv new fromcode tocode converted converter convert text to convert 可能需要安裝text iconv模組,cpan命令 install text icon...