perl/opendir関数〜ディレクトリを表示してみる〜
#! usr/bin/perl use strict; use warnings; #カレントディレクトリを表示してみる。カレントディレクトリは「.」親ディレクトリは「..」 opendir(DIR,'.') or die "$!"; foreach (readdir(DIR)){ print "$_\n"; } closedir (DIR);
#! usr/bin/perl use strict; use warnings; #カレントディレクトリを表示してみる。カレントディレクトリは「.」親ディレクトリは「..」 opendir(DIR,'.') or die "$!"; foreach (readdir(DIR)){ print "$_\n"; } closedir (DIR);