Perl の参考書リスト

Perl での、文字列の扱い
Perl で、ライブラリのパスを指定する方法
Perl で、サイトにアクセスして HTML を取得する方法 ※ Web クライアントプログラミングの本は、タイトルには「Web プログラミング」とついているものの、中身は LWP の解説本です。
Perl で、セッション管理をしたい。 ※「WEB+DB PRESS」の創刊号からVol.36（2006年12月）までの6年分の記事を、PDF形式で1枚のCD-ROMにまとめた特別総集編。かなりお買い得な気がします。

Updated: 2007/05/22 2006/09/22 2006/05/29 2005/02/01 00:30

Perl での、文字列の扱い
Perl で、ライブラリのパスを指定する方法
Perl で、サイトにアクセスして HTML を取得する方法 ※ Web クライアントプログラミングの本は、タイトルには「Web プログラミング」とついているものの、中身は LWP の解説本です。
Perl で、セッション管理をしたい。 ※「WEB+DB PRESS」の創刊号からVol.36（2006年12月）までの6年分の記事を、PDF形式で1枚のCD-ROMにまとめた特別総集編。かなりお買い得な気がします。

Updated: 2007/05/22 2006/09/22 2006/05/29 2005/02/01 00:30

Posted on 2006-09-21 by yas |

Perl で、JavaScript と連動してサーバにアクセスログを残す方法

ウェブページへのアクセスログを記録する方法は、いろいろな方法があると思う。もっとも簡単なのは Apache などのウェブサーバが自動的に記録するログをチェックすることで、これには何の手間もいらない。しかし、レンタルサーバなどでログが自由に扱えない場合はどうしたらいいのだろう？そのひとつが、画像としてリンクされている Perl などの CGI を呼び出す方法だ。利用者に知られずこっそりとアクセスログを取るには 1x1 ピクセルの画像をそのウェブページの背景と共に表示してしまえば、そのウェブページのソースをチェックされない限り、ほとんどの場合は気づかれずにすむだろう。そんなわけで、以下のように JavaScript と対応する Perl スクリプトで、アクセスログを記録する仕組みを作ってみた。ログの形式は Apache に準拠する（たぶん）。ウェブページへのアクセスログを記録する方法は、いろいろな方法があると思う。もっとも簡単なのは Apache などのウェブサーバが自動的に記録するログをチェックすることで、これには何の手間もいらない。しかし、レンタルサーバなどでログが自由に扱えない場合はどうしたらいいのだろう？そのひとつが、画像としてリンクされている Perl などの CGI を呼び出す方法だ。利用者に知られずこっそりとアクセスログを取るには 1x1 ピクセルの画像をそのウェブページの背景と共に表示してしまえば、そのウェブページのソースをチェックされない限り、ほとんどの場合は気づかれずにすむだろう。そんなわけで、以下のように JavaScript と対応する Perl スクリプトで、アクセスログを記録する仕組みを作ってみた。ログの形式は Apache に準拠する（たぶん）。

» 「Perl で、JavaScript と連動してサーバにアクセスログを残す方法」の続きを読む

Posted on 2006-09-18 by yas |

PHP で、TinyMCE を使う。

TinyMCE という AJAX (JavaScript) ベースの HTML エディタのライブラリがある（オンラインのデモはこちら）。これは単体のエディタとして使えように提供されているものではなく、Drupal などの CMS と連動できることを目的として作られている。もちろん自分でこのライブラリを利用する HTML ページを 1枚書いて、オフラインで使ってもよいのだが、せっかくなので PHP と連動させてみた。作った HTML ソースは任意のメールアドレスに送信できるようにした。ツールバーのカスタマイズは実はそんなに難しくない。詳しくはコードを見ていただきたいが、独断と偏見の最小構成で以下のようにカスタマイズしてみた。 TinyMCE ツールバーカスタマイズ例

設置の仕方だが、ウェブサーバに tinymce などのディレクトリを作ってそこに TinyMCE を解凍して置き、以下のスクリプトを index.php などの名前で保存してそのファイルを同ディレクトリにを置けばよい。以下のスクリプトを使った TinyMCE のデモはこちらTinyMCE という AJAX (JavaScript) ベースの HTML エディタのライブラリがある（オンラインのデモはこちら）。これは単体のエディタとして使えように提供されているものではなく、Drupal などの CMS と連動できることを目的として作られている。もちろん自分でこのライブラリを利用する HTML ページを 1枚書いて、オフラインで使ってもよいのだが、せっかくなので PHP と連動させてみた。作った HTML ソースは任意のメールアドレスに送信できるようにした。ツールバーのカスタマイズは実はそんなに難しくない。詳しくはコードを見ていただきたいが、独断と偏見の最小構成で以下のようにカスタマイズしてみた。 TinyMCE ツールバーカスタマイズ例

設置の仕方だが、ウェブサーバに tinymce などのディレクトリを作ってそこに TinyMCE を解凍して置き、以下のスクリプトを index.php などの名前で保存してそのファイルを同ディレクトリにを置けばよい。以下のスクリプトを使った TinyMCE のデモはこちら

» 「PHP で、TinyMCE を使う。」の続きを読む

Posted on 2006-09-15 by yas |

Visual C++ (Win32) で、SHA1 のハッシュ値を取得する方法

以下がサンプルコード。Win32 Crypto API を使うコンソールアプリです。

// HashTest.cpp : Defines the entry point for the console application.
// Copyright (c) 2005, 2006 twinkle.cc All Rights Reserved.
// 
//" title="https://perltips.twinkle.cc/
//">https://perltips.twinkle.cc/
// perltips@gmail.com

#include "stdafx.h"
#include <stdio.h>
#include <windows.h>
#include <wincrypt.h>

int _tmain(int argc, _TCHAR* argv[])
{
    #define BUFFER_LEN 253
    #define SHA1LEN  20

    PCHAR    pcMessage;
    DWORD    ccMessage;

    DWORD dwStatus = 0;
    HCRYPTPROV hProv = 0;
    HCRYPTHASH hHash = 0;
    BYTE pbHash[SHA1LEN];
    BYTE pbRandom[BUFFER_LEN];
    DWORD cbHash = 0;
    CHAR pcDigits[] = "0123456789ABCDEF";
    CHAR pcHash[SHA1LEN * 2 + 1];

    //Get handle to the crypto provider
    if (!CryptAcquireContext(&hProv,
        NULL,
        NULL,
        PROV_RSA_FULL,
        CRYPT_VERIFYCONTEXT))
    {
        dwStatus = GetLastError();
        goto done;
    }

    // Get a random value
    if( CryptGenRandom(
        hProv,
        BUFFER_LEN,
        pbRandom))
    {
        printf("%d bytes of random data have been generated.\n", BUFFER_LEN);
    }
    else
    {
        dwStatus = GetLastError();
        printf("Random bytes were not correctly generated.\n");
        goto done;
    }
    
    if (!CryptCreateHash(hProv, CALG_SHA1, 0, 0, &hHash))
    {
        dwStatus = GetLastError();
        goto done;
    }
    
    if (!CryptHashData(hHash, pbRandom, BUFFER_LEN, 0))
    {
        dwStatus = GetLastError();
        printf("CryptHashData failed: %d\n", dwStatus); 
        goto done;
    }

    cbHash = SHA1LEN;
    if (CryptGetHashParam(hHash, HP_HASHVAL, pbHash, &cbHash, 0))
    {
        printf("SHA1 hash is: ");
        for (DWORD i = 0; i < cbHash; i++)
        {
            pcHash[i * 2]      = pcDigits[pbHash[i] >> 4];
            pcHash[i * 2 + 1 ] = pcDigits[pbHash[i] & 0xf];
            pcHash[i * 2 + 2 ] = '\0';
        }
        printf("%s\n", pcHash);
    }
    else
    {
        dwStatus = GetLastError();
        printf("CryptGetHashParam failed: %d\n", dwStatus); 
    }

    done:

    CryptDestroyHash(hHash);
    CryptReleaseContext(hProv, 0);

    WCHAR pwcMessage[BUFFER_LEN];
    MultiByteToWideChar(CP_ACP, 0, pcHash, sizeof(pcHash), pwcMessage, sizeof(pwcMessage));
   
    ccMessage = ( DWORD ) wcslen( pwcMessage );

    if( ( pcMessage = ( PCHAR ) malloc( ccMessage + 1 ) ) )
    {
        WideCharToMultiByte( CP_ACP, 0, pwcMessage, -1, pcMessage, ccMessage + 1, NULL, NULL );
        printf("malloc ok: %s\n", pcMessage);
    }
    else
    {
        printf("Not enough memory");
        dwStatus = ERROR_NOT_ENOUGH_MEMORY;
    }

    return dwStatus;
}

以下がサンプルコード。Win32 Crypto API を使うコンソールアプリです。

// HashTest.cpp : Defines the entry point for the console application.
// Copyright (c) 2005, 2006 twinkle.cc All Rights Reserved.
// 
//" title="https://perltips.twinkle.cc/
//">https://perltips.twinkle.cc/
// perltips@gmail.com

#include "stdafx.h"
#include <stdio.h>
#include <windows.h>
#include <wincrypt.h>

int _tmain(int argc, _TCHAR* argv[])
{
    #define BUFFER_LEN 253
    #define SHA1LEN  20

    PCHAR    pcMessage;
    DWORD    ccMessage;

    DWORD dwStatus = 0;
    HCRYPTPROV hProv = 0;
    HCRYPTHASH hHash = 0;
    BYTE pbHash[SHA1LEN];
    BYTE pbRandom[BUFFER_LEN];
    DWORD cbHash = 0;
    CHAR pcDigits[] = "0123456789ABCDEF";
    CHAR pcHash[SHA1LEN * 2 + 1];

    //Get handle to the crypto provider
    if (!CryptAcquireContext(&hProv,
        NULL,
        NULL,
        PROV_RSA_FULL,
        CRYPT_VERIFYCONTEXT))
    {
        dwStatus = GetLastError();
        goto done;
    }

    // Get a random value
    if( CryptGenRandom(
        hProv,
        BUFFER_LEN,
        pbRandom))
    {
        printf("%d bytes of random data have been generated.\n", BUFFER_LEN);
    }
    else
    {
        dwStatus = GetLastError();
        printf("Random bytes were not correctly generated.\n");
        goto done;
    }
    
    if (!CryptCreateHash(hProv, CALG_SHA1, 0, 0, &hHash))
    {
        dwStatus = GetLastError();
        goto done;
    }
    
    if (!CryptHashData(hHash, pbRandom, BUFFER_LEN, 0))
    {
        dwStatus = GetLastError();
        printf("CryptHashData failed: %d\n", dwStatus); 
        goto done;
    }

    cbHash = SHA1LEN;
    if (CryptGetHashParam(hHash, HP_HASHVAL, pbHash, &cbHash, 0))
    {
        printf("SHA1 hash is: ");
        for (DWORD i = 0; i < cbHash; i++)
        {
            pcHash[i * 2]      = pcDigits[pbHash[i] >> 4];
            pcHash[i * 2 + 1 ] = pcDigits[pbHash[i] & 0xf];
            pcHash[i * 2 + 2 ] = '\0';
        }
        printf("%s\n", pcHash);
    }
    else
    {
        dwStatus = GetLastError();
        printf("CryptGetHashParam failed: %d\n", dwStatus); 
    }

    done:

    CryptDestroyHash(hHash);
    CryptReleaseContext(hProv, 0);

    WCHAR pwcMessage[BUFFER_LEN];
    MultiByteToWideChar(CP_ACP, 0, pcHash, sizeof(pcHash), pwcMessage, sizeof(pwcMessage));
   
    ccMessage = ( DWORD ) wcslen( pwcMessage );

    if( ( pcMessage = ( PCHAR ) malloc( ccMessage + 1 ) ) )
    {
        WideCharToMultiByte( CP_ACP, 0, pwcMessage, -1, pcMessage, ccMessage + 1, NULL, NULL );
        printf("malloc ok: %s\n", pcMessage);
    }
    else
    {
        printf("Not enough memory");
        dwStatus = ERROR_NOT_ENOUGH_MEMORY;
    }

    return dwStatus;
}

» 「Visual C++ (Win32) で、SHA1 のハッシュ値を取得する方法」の続きを読む

Posted on 2006-09-12 by yas |

Perl の参考書リスト

Perl で、JavaScript と連動してサーバにアクセスログを残す方法

PHP で、TinyMCE を使う。

Visual C++ (Win32) で、SHA1 のハッシュ値を取得する方法

本日の上位：

総合の上位：

最近の参照：