目前分類:perl程式 (36)

瀏覽方式: 標題列表 簡短摘要
將ORACLE的資料轉至MySQL
ORACLE為繁體中文,perl以ODBC連接
MySQL為utf8

use Win32::ODBC;

jck11 發表在 痞客邦 PIXNET 留言(2) 人氣()

一、設定ODBC
開始->控制台->系統管理工具->資料來源(ODBC)
系統資料來源名稱->新增->Oracle ODBC Driver->完成
Data Source Name:aDSN
Service Name:aSN

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()

use MIME::Parser;
use Mail::POP3Client;
use MIME::Base64;
use MIME::QuotedPrint;
use Encode;

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()

How do I shuffle an array randomly?
方法一:
使用List::Util模組

use List::Util 'shuffle';

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()

字典檔正常的用法當然是拿來當字典查,
但在破解網頁上的密碼時常常也用到字典檔,
最直覺的方法就是依續讀入字典檔裡的單字,
然後把他填到密碼欄裡,
執行SUBMIT動作,

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()

自動投票的文章寫了好像不只一篇了,
反正程式碼都大同小異,
有加了認証碼防機器人的就難一點,
但是有時認証碼只是認証好看的,
一點用也沒有,

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()

很多網站辦抽獎為了增加參與人數,
有時會提供一些轉寄mail抽獎的獎品,
這個網站,
當然,像我這麼懶的人是不可能一個一個去輸入朋友的email帳號來轉寄的,
寫個程式去做那樣的事應該自己來做打字練習好太多了。

jck11 發表在 痞客邦 PIXNET 留言(1) 人氣()

文章多了,想瞭解一下哪幾篇文章看得人最多,
雖然Pixnet有提供熱門文章的排行,但只能顯示5篇,
聽說以後會改成可以設定要顯示幾篇熱門文章,
大家一起期待吧。

jck11 發表在 痞客邦 PIXNET 留言(1) 人氣()

搜索email帳號這篇中有提到只用@來判斷email是否正確是不夠精確的,
在email address的組成中,
@以前的稱為local-part,指得是使用者的名稱(username),
@以後的稱為domain-part,通常是由主稱名稱(host name)或網域名稱(domain name)構成,
這裡要介紹的是Email::Valid模組,

jck11 發表在 痞客邦 PIXNET 留言(2) 人氣()

ActivePerl在按裝模組方面提供了一個很方便的程式
PPM(Perl Package Manager),
當你安裝好ActivePerl時,
這個程式就已經裝好在你的電腦裡了,
執行PPM的方法是直接在「命令列模式」下輸入PPM後按Enter,

jck11 發表在 痞客邦 PIXNET 留言(2) 人氣()

上一篇網路蜘蛛Spider和大家提到要寫一個搜括email的程式,
這邊就來實作一下吧,
當然還是用簡單易用的perl來寫:)

想法

jck11 發表在 痞客邦 PIXNET 留言(2) 人氣()

Can I do [such-and-such] with WWW::Mechanize?

If it's possible with LWP::UserAgent,then yes. WWW::Mechanize is a subclass of LWP::UserAgent, so all the wondrous magic of that class is inherited.


How do I use WWW::Mechanize through a proxy server?

See the docs in LWP::UserAgent on how to use the proxy. Short version:

    $mech->proxy(
           ['http','ftp'],'http://proxy.example.com:8000/');

or get the specs from the environment:

    $mech->env_proxy();

    # Environment set like so:
    gopher_proxy=http://proxy.my.place/
    wais_proxy=http://proxy.my.place/
    no_proxy="localhost,my.domain"
    export gopher_proxy wais_proxy no_proxy

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()

在VBA中,設定物件的屬性使用以下敘述

object.method(argument).property:= value

轉換為Perl敘述為

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()

HANDLE->autoflush(EXPR)
$OUTPUT_AUTOFLUSH
$|

If set to nonzero, forces a flush right away and after every write or print on the currently selected output channel. Default is 0 (regardless of whether the channel is really buffered by the system or not; $| tells you only whether you've asked Perl explicitly to flush after each write).

jck11 發表在 痞客邦 PIXNET 留言(1) 人氣()

有時程式裡會夾著html的標籤
想放到網路上的話會被網頁伺服器給解釋掉
因此可能得先處理一下
應該有適合的模組
但我還沒發現

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()

●想法
區域網路裡的資訊設備很多都有ip
想寫個小程式把ip和mac對應起來
日後如果ip或mac有更改時比較好查

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()

呼應一下這篇「統計留言版有哪些pixnet網友來留過言」,這回把統計的對向改到迴響的網友,只統計pixnet網友,沒pixnet帳號的就沒統計了。

●程式
use WWW::Mechanize;
use HTML::TreeBuilder;

jck11 發表在 痞客邦 PIXNET 留言(1) 人氣()

Date::Format可以將日期轉換成字串。它提供的方法相對於C函式庫的strftime和ctime。
Date::Format提供的函式是time2str〔其參數為格式樣版(format template)和(Unix時間)和strftime(其參數為格式樣版和一連串的時間值(例如由localtime所傳回的陣列)〕。
這兩個函式都使用同樣的格式指定方式

格式指定元:說明

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()

國際的日期表示標準為ISO 8601,它的表示法為
YYYY-MM-DD
YYYY是表示年份
MM表示月份
DD表示日期

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()

localtime函式取得當地目前的日期和時間,當然存量內容(scalar context)的方式來處理時,localtime會以字串的型式傳回目前的時間和日期。
print scalar localtime, "\n";


localtime函式時間的值是一個從1970年1月1日至今以秒計算的整數值。如果你不提供一個時間值給localtime函式,它會呼叫perl的time函式。
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)=localtime;

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()

1 2