■=Perl, ■=結果

このページではディレクトリーの中にどのようなファイルがあるかを表示することを目的にしています。次のページ「サイトマップ」でサイトマップ作成の説明をしますので、そのための入門篇でもあります。 （多くのページではCGIを実際に動かしながらテストをできるようにしていますが、このページでは解説だけにしています）

ディレクトリを扱う関数には下のものがあります
• ディレクトリのオープン

  • opendir(ファイルハンドル, ディレクトリ名)

    【→Perl Reference: opendir】

• ディレクトリの読み込み

  • readdir(ファイルハンドル)

    【→Perl Reference: readdir】

• ディレクトリのクローズ

  • closedir(ファイルハンドル)

    【→Perl Reference: closedir】

• ディレクトリの削除

  • rmdir(ディレクトリ名)

    
    

それでは、ディレクトリの一覧を表示させてみましょう。

#!/usr/local/bin/perl print "Content-type: text/html\n\n"; opendir(DIR, '.'); while (defined($dir = readdir(DIR))) { print "$dir<br>\n"; } closedir(DIR);




opendir(DIR, '.');

• opendir(DIR, ディレクトリ名)でディレクトリを読み込んでいます。'.'はカレントディレクトリ(このCGIスクリプトがいるディレクトリ)を指しています。'..' とすれば、一つ上のディレクトリ(親ディレクトリ)の意味となります。
  ファイルをオープンするときはopenを使用しましたが、ディレクトリを扱うにはopendirを使用します。$DIRを使っていますが、これは$aaaでもなんでも構いません。
  
  

  while (defined($dir = readdir(DIR))) {処理の繰り返し}

• $dir = readdir(DIR)でディレクトリを一行づつ読み込んで、$dir と名前を付けた変数に代入しています。while (defined でディレクトリを読み終わるまで {　}の中の処理を繰り返します。ここでは下のように、その$dirの内容を表示しています。
  
  

  . .. cocohome.cgi l_yymmdd_1.cgi l_yymmdd_2.cgi l_yymmdd_3.cgi l_yymmdd_4.cgi

  上の"."はカレントディレクトリ、次の行の".."は親ディレクトリです。
  
  

  closedir(DIR);

• 最後に closedir(DIR) でオープンしたディレクトリをクローズしています。

---

これだけでは折角インターネットを使っている意味がありませんね。リファーをつけてジャンプできるようにしましょう。

• #!/usr/local/bin/perl #$dirname = '..'; print "Content-type: text/html\n\n"; opendir(DIR, '.'); while (defined($dir = readdir(DIR))) { print qq|<a href="$dir">$dir</a><br>|; } closedir(DIR);

  
  

  . .. cocohome.cgi l_yymmdd_1.cgi l_yymmdd_2.cgi l_yymmdd_3.cgi l_yymmdd_4.cgi

  
  

  先ほどのスクリプトにリファーをつけただけです。

  私のディレクトリは
  

  \cocohome	┬・・・HTMLファイルのディレクトリ
  	└\cgi-bin	・・・Perlなどのディレクトリ

  の構成になっています。
  先ほどのスクリプトは\cgi-binに置いてありましたので、カレントディレクトリは\cgi-binとなり、親ディレクトリは\cocohomeとなっています。
  
  

  print qq|<a href="$dir">$dir</a><br>|;

  • print qq|　　|; は print "　　"; と同じですが、["]を[\"]としなくて済みます。詳しくは「画面に文字を表示しよう」を参照してください。

では\cgi-binのディレクトリではなく一つ上の\cocochomeのディレクトリを表示させてみましょう。ついでに余分なカレントディレクトリや親ディレクトリの"."や".."は余分ですので、HTMLファイルだけ表示するようにしました。

#!/usr/local/bin/perl $dirname = '..'; print "Content-type: text/html\n\n"; opendir(DIR, $dirname); while (defined($dir = readdir(DIR))) { if ($dir =~ /\.s?html?$/) { print qq|<a href="$dirname/$dir">$dir</a><br>|; } } closedir(DIR);




$dirname = '..';

• 親ディレクトリのファイルを表示しますので".."です。カレントディレクトリにも代えやすいように、$dirnameに代入してみました。

  if ($dir =~ /\.s?html?$/) { print qq|<a href="$dirname/$dir">$dir</a><br>|; }

• if ($dir =~ /\.html?$/) ならば
  「もし$dirの文字列の終わりに".html"か".html"があれば」の意味です。
  
• "?"は直前の文字を含むか含まないことを指します。
  
• "$"は文字列の終わりか改行の直前を意味します。
  
• if ($dir =~ /\.html$|\.htm$/) でも同じ意味です。
  これでは".shtml"が表示されませんので、
  if ($dir =~ /\.s?html?$/) {　}としました。
  ".html"か".html"、".shtml"か".shtm"を表示します。
  

  index.html l_yymmdd.html l_print.html l_require.html l_content.html haiku.shtml

これでディレクトリの一覧を表示できるようになりました。ただ、これではサイトマップとしては使えませんので、もう少し工夫をしてみましょう。次のページ「サイトマップ」に進んでください。