【Perl 】初心者コーナーPart5

このエントリーをはてなブックマークに追加
314 ：名無しさん＠お腹いっぱい。：
opendir DIR, "./";
@dir = readdir DIR;
closedir DIR;
print "$_\n" for (@dir):