perlネタ 仕事で、ファイル名を一括変更する必要があり、作ってみた。 use strict; use warnings; use File::Copy 'move'; my ($dir, $from, $to) = @ARGV; chdir $dir or die "NG $dir:$!"; my @all_files = glob "*.pdf"; my $to_all_file; foreach my $al…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。