#!/usr/bin/perl use strict; use warnings; use File::Find::Iterator; use File::Spec; my $itr = File::Find::Iterator->create( dir => ['.'], filter => sub { /[\da-f]{64}\.(?i:jpe?g|png|gif)$/; }, ); while (my $f = $itr->next) { warn File::Spe…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。