締切済み

Perlでファイルの名前を変更するには?

  • すぐに回答を!
  • 質問No.261520
  • 閲覧数591
  • ありがとう数6
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 0% (0/1)

Perlであるフォルダの中にある、いくつかのファイルの名前を
自動的に変更するにはどのようなプログラムにしたらよろしいのでしょうか?
具体的には、ファイルの名前が二桁の数字(例えば13)で表されているとします。
その二桁の数字を四桁(例えば0013)にしたりなどです。

プログラミング初心者でわからないことが多く困っています。
なるべく詳しくお願いします。
できれば、近いプログラムを作って頂ければ・・・
急ぎでお願い致します。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全1件)

  • 回答No.1
レベル11

ベストアンサー率 42% (103/245)

opendir(DIR, "ディレクトリ名");
@DIR = readdir(DIR);
でディレクトリの中のファイル名・ディレクトリ名を取得します。
それを、ファイルであるかどうかを判断して拡張子を取り出し、
sprintfなりで4桁の数値に変えて、また後ろに拡張子をつける。
最後に
rename("古いファイル名", "新しいファイル名");
でファイル名を変えれば実現できますよ。
renameするときはファイル名だけではなくて、実行しているPerlスクリプトからのパス(もしくはフルパス)を記述してください。
このQ&Aで解決しましたか?
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する

特集


より良い社会へ。感謝経済プロジェクト始動

ピックアップ

ページ先頭へ