スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

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

カレンダー
09 | 2017/10 | 11
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 - - - -
最新記事
最新コメント
カテゴリ
ユーザタグ

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

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

FC2 Blog Ranking

カウンター
検索フォーム
リンク
RSSリンクの表示
QRコード
QRコード
ライセンス
クリエイティブ・コモンズ・ライセンス
Twitter
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。