Perlで拡張子変換

Perlの勉強がてら拡張子の変換プログラムを作ってみました。
前々から MBE のガーバデータの拡張子を Fusion PCB のに合わせるのを手動で行っていたのですが、これが結構神経を使うのです。なので、チョッとだけ軽減してくれるかなって感じです。

#!/usr/bin/perl

#
# MBEで作成したガーバデータの拡張子をFusionPCBに変換する
#

use File::Basename 'fileparse';

my $filepath = "./";

# ディレクトリオープン
opendir(DIRHANDLE, $filepath);

# ディレクトリエントリの取得
foreach (readdir(DIRHANDLE)) {
next if /^\.{1,2}$/; # '.'や'..'をスキップ

my ($basename, $dirname, $ext) = fileparse($_, qr/\..*$/);

my $convname = "";
if ($ext =~ /.cmp|.CMP/) {
$convname = ".GTL"
}
if ($ext =~ /.sol|.SOL/) {
$convname = ".GBL"
}
if ($ext =~ /.stc|.STC/) {
$convname = ".GTS"
}
if ($ext =~ /.sts|.STS/) {
$convname = ".GBS"
}
if ($ext =~ /.plc|.PLC/) {
$convname = ".GTO"
}
if ($ext =~ /.pls|.PLS/) {
$convname = ".GBO"
}
if ($ext =~ /.drd|.DRD/) {
$convname = ".TXT"
}
if ($ext =~ /.dri|.DRI/) {
$convname = ".DRI__"
}

print "$_ -> $basename$convname\n";

if ($convname ne "") {
rename $_, $basename . $convname;
}
}

# ディレクトリクローズ
closedir(DIRHANDLE);
スポンサーサイト



コメントの投稿

非公開コメント

黒ねこ時計 くろック D02
プロフィール

jujurou

Author:jujurou
運営HP:チャコの部屋
Twitter:jujurou

カレンダー
11 | 2019/12 | 01
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31 - - - -
最新記事
最新コメント
カテゴリ
ユーザタグ

ぺるけ Linux RaspberryPi 三段化 6P43P-E 全段差動プッシュプル トランジスタ式ミニワッター 6P43P TRminiWatterPart4 MPD DAC OpenOCD FON2405E buildroot イーサネットコンバータ FM3ペリフェラル Bluetooth BeagleBoneBlack ODROID-U2 library FM3評価ボード mingw OpenGL 6N6P bitbake KiCad 計測 プリアンプ Edison VMware FM4 ミニワッター シングル TL-WR700N 

月別アーカイブ
ランキング

FC2 Blog Ranking

カウンター
検索フォーム
リンク
RSSリンクの表示
QRコード
QRコード
ライセンス
クリエイティブ・コモンズ・ライセンス
Twitter