「ls」コマンドをPerlで実装してみた。 端末の画面幅の取得の仕方がわからなかった。 なのでとりあえずファイル名出力列は4行固定。 汚染チェックもいるのか不明。 #!/usr/bin/perl -T # ls.pl # "ls"コマンドをPerlで実装 use strict; use warnings; use Li…