なんだか三桁区切りにしたかったので、数字を三桁に区切るものを作った。while部分は面倒だったのでぐぐりましたけれど。 @rem = '--*-Perl-*-- @echo off if "%OS%" == "Windows_NT" goto WinNT perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9 goto endofperl…

指定した拡張子のファイルサイズの総計を表示するPerlスクリプトを作った。 @rem = '--*-Perl-*-- @echo off if "%OS%" == "Windows_NT" goto WinNT perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9 goto endofperl :WinNT perl -x -S %0 %* if NOT "%COMSPEC%"…