likk https://blog.hatena.ne.jp/likk/ NeverBlog::Likk::Unexistable; https://likk.hatenablog.com/ Perl 携帯で撮った写真を一括でPCにデータコピーして、携帯から画像を消す。 そんな事を過去数回繰り返してたんですが、ファイル名がHOGE_001.JPG みたいに連番でなっていて、しかもで同じファイル名が現れたりしちゃって、気付いたら HOGE_001.JPG(2) とかなってた。ということで、イラっとしてファイル名を撮影日付に変換するスクリプトをワンライナーでさくっと書いた。 そのままだと見づらいので、MO=Deparseして整形したのを置いておく。 use File::Copy; use Image::ExifTool; use File::Glob (); my @p = glob('./*.… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Flikk.hatenablog.com%2Fentry%2F20100829%2F1283092860" title=" ケータイ写真から撮影日付を取得 - NeverBlog::Likk::Unexistable;" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2010-08-29 23:41:00 rich https://likk.hatenablog.com/entry/20100829/1283092860 1.0 100%