たっちゃん研究店

統合失調症で就職困難なため、個人商店を作りました。
http://tattyan0-0.sakura.ne.jp/

テキストエディタではない手動変換

2017-07-14 18:44:27 | CGI
opendir DIR,"./File_town/" or &err("オープンエラー","in");
@dir_list = readdir DIR;
closedir DIR or &err("オープンエラー","in");
print "<table border=\"1\">\n";
$no =0;

foreach $fa (@dir_list){
if($fa eq "." or $fa eq ".."){next;}
$lastmodified = (stat "./File_town/"."$fa")[9];
($sec,$min,$hour,$mday,$mon,$year) =localtime($lastmodified);
$fsizu = (stat "./File_town/"."$fa")[7];$fsizu /= 1000;
if($no % 2 == 0){print "<tr>\n";}
print "<td><a href=\"File_town/$fa\">$fa</td><td>";
print sprintf("%04d/%02d/%02d %02d:%02d",$year+1900,$mon+1,$mday,$hour,$min);
print "</td><td align=\"right\">$fsizu"."KB</td>\n";
if($no % 2 == 1){print "</tr>\n";}
$no++;
}

これを出したかった。
ジャンル:
ウェブログ
コメント   この記事についてブログを書く
この記事をはてなブックマークに追加
« お墓の墨入れ完了 | トップ | OneDrive面白い »

コメントを投稿

CGI」カテゴリの最新記事

トラックバック

この記事のトラックバック  Ping-URL
  • 30日以上前の記事に対するトラックバックは受け取らないよう設定されております。
  • 送信元の記事内容が半角英数のみのトラックバックは受け取らないよう設定されております。
  • このブログへのリンクがない記事からのトラックバックは受け取らないよう設定されております。
  • ※ブログ管理者のみ、編集画面で設定の変更が可能です。