perl的一些學習筆記

今天起，這篇文章來記錄一些perl的學習筆記，希望能堅持下去，持續更新。

1、先上一段perl讀取配置檔案，連線資料庫的**。

config.ini--資料庫的連線字串配置檔案：

=127.0.0.1:1521=mymis=mymis=orcl=

#!/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...