七行プログラミング

[0102 nobodyさん 02/11/29 09:30 ID:???]

動作チェックしてないけど。

use File::Copy;
sub cp{ map{ -f$_&©($_,"copy_of_$_") }p(F) }