コード
# ファイル一覧 my @files = glob ("*.*"); foreach my $file (@files){ print("$file\n"); } # コマンド実行 my $cmd = `ls -alT`; print($cmd);
# ファイル一覧 my @files = glob ("*.*"); foreach my $file (@files){ print("$file\n"); } # コマンド実行 my $cmd = `ls -alT`; print($cmd);