use strict; use warnings; ### カレントディレクトリのファイル一覧を取得する。 # glob print "1: カレントディレクトリのファイル一覧を取得する。\n"; my @all_files = glob "*"; # * は、. で始まらないすべてのファイルを表現 print join( "\n", @all_…