[perl] readdir

なんか、使う機会が無かったから挙動をみてみた。

tree ./hoge

hoge
`-- page
|-- poge
`-- test.pl

で

use strict;
use Data::Dumper;

opendir DIR ,'./hoge';

my @dirs = readdir DIR;

warn Dumper \@dirs;

$VAR1 = [
          '.',
          '..',
          'page'
        ];

意味は無いけどね、めも。