ちょっと使おうPerl言語

1. 何はともあれ、ダウンロードしてきましょう。最新（perl5.005_03）のソースが こちら にあります。2.5MBです。
   日本語に対応するためにパッチをあてておきます。上記のperlに対応するものが こちら にあります。23KBです。
   日本語文字コードの変換のためのツール（jcode.pl）も準備しておきましょう。 ここに あります。
    
2. 適当なディレクトリに展開します。
   cd /usr/src
   mkdir perl5
   gzip -dc perl5src | tar xvf -
    
3. 日本語化（jperl） のためのパッチをあてます
    
4. Makefileを自動作成し、makeをかけて実行ファイルを作成します

1. Windows用のperlは実行型で、 こちら にあります。8MBあります。
2. これをダブルクリックして、インストーラを起動します。ＯＫ、ＯＫで進めばいいはずですが、一応、 インストール時の画面イメージ を示します。コマンドプロンプトを立ち上げて、perl -v と打つとバージョンが表示されます。

1. まずは、UNIX環境で、書いてみましょう。
   
   $ vi hello.pl #!/usr/local/bin/perl     <--　これは、UNIXシェルに、このファイルがこのコマンド（perl）で実行されることを教えるためのものです。

$ chmod 755 hello.pl
$ hello.pl
Hello

どうでしょう、動いたでしょうか？

1. お次は、Widowsです。notepad などで、ファイルを作成します。
   UNIXのときの、最初のおまじないは要りません。
   
   # Hello world を表示します    <-- これはUNIXのおまじないではなくて、コメントです。Perlでは # が先頭についた行は無視されます。
   print "Hello world\n";
   
   コマンドプロンプトを立ち上げ、perl  hello.txt とでもするとUNIX同様に Hello world の文字が表示されます。
   拡張子を .pl にすると、hello.pl だけで実行されます。

   $ vi file.pl

      #!/usr/local/bin/perl      <-- UNIXのおまじないです。Windowsでは必要ありません。

      open( FILE, "input.txt" ) || die "ファイル（input.txt）が開けません";　 <-- FILEは、ファイルの行を指し示すポインタのようなものです。
      while (<FILE>) {　　　　　 <-- 行がなくなるまで、FILEが指し示す１行を取り出し続けます。
        print;　　　　　            <-- 取り出した行を表示します。perlでは、直前に扱っている文字列変数の指定を省略することができます。
      }　　　　　　　　　　　　　　 <-- つまり、このプログラムは、ファイルを開いて、全行を表示するというものです 。

   $ cat input.txt     <-- ファイルの中身はこんな感じ。

      abc
      12345

   $ chmod file.pl
   $ file.pl　　　　　<-- 実行すると、ファイルの中身が表示されます。
   abc
   12345
   $
 
 

5. CSV形式のテキストの加工

　Perlは、テキストの加工にとても便利なのですが、どう便利なのか、実例で示していきましょう。
Excelなどで、データを出力する際に、カンマ区切りのテキストファイルとして出力することができます。これをCSV形式などといいますが、このようなファイルを加工することを考えて見ます。

　　open( FILE, "input.txt" ) || die "ファイル（input.txt）が開けません";    <-- ファイルを開きます。 
　　while (<FILE>) { 　　　 <-- １行づつ取り込みます。 
       chop;                   <--　最後の文字（改行）を削除します。　
  　　@item = split /,/;　 <-- 取り込んだ1行について、,(カンマ)を区切り文字として分割し、$item[0], $item[1]という配列それぞれ代入します。

　  　printf("%s,%s\n",  $item[1], $item[0]);  <-- 代入された文字列を、$item[1] $item[0] の順に表示することになりますから、要するに１つめと２つめのデータを交換するプログラムということになります。
　　｝
 
 

6. パターン認識と置換

準備中です。
 

7. CGIへの応用

準備中です。

例題１　カレントディレクト内のファイル名でループ　拡張子がcsvのファイルを対象に処理するときなど。
opendir DIR, '.';
@files = readdir DIR;
closedir DIR;

foreach $f ( @files ) {
　if ( $f =~ /\.csv$/) {
　｝
}

例題２　日本語（全角）も含めて、文字列の取り出しを行う　sjisのファイルをUTF-8で読み込み、sjisで出力。
一旦、UTF-8で取り込んだ後は、substrなどを使っても、全角、半角にかかわらず、文字数が指定できる。
open (IN, '<:encoding(shiftjis)', "input.txt");
open (OUT, '>:encoding(shiftjis)', "outoput.txt");
binmode (OUT, ':utf8'); # utf8フラグへの対応らしい

while (<IN>) {
　pirnt OUT substr($_, 0, 4);
}