すみません、取り乱しました。

ダブルバッフル…!?

キカイダーF80は、少し鳴らしているとだんだんと低音が大きくなるようで、なんとホース臭い低音が響くようになってきた。やはりホースが長すぎたようだ。しかし、小音量では、まあ問題なくピュアな響きである。どのみちペラペラなラワンとダンボールなので大きな音量で聴けるしろものではない。PCスピーカーとしてはなかなかクールなサウンドである。



w3-881siを搭載して生まれ変わった一つ目スピーカーだが、音の籠もりと暴れが気になる、やはり箱が小さすぎるか？そこで内圧の調整のための穴を開けようかと考え、すこし事例を調べてみると、まあ、問題なさそうである。そして、調べるうちに、http://blog.livedoor.jp/koubekuraji/archives/2840435.html というブログの記事にたどり着き、「ダブルバッフル」なる方法もあることを知った。聴いたことない？ということは、やってみるべ～である。さっそく1ミリ厚のワッシャーを買ってきた。ユニットを取り外すついでに、ちょっと棚の奥に眠るFE87Eを仮づけして試聴。やはり立派な音である。しかし、ちょっと出来すぎた音でもある。それにしても、この手の新しい構造のユニットはオールマイティーのようで扱いが難しい。試しに穴から浮かして隙間をつくってやると、低音は消えるが、優しくて繊細な音色が冴えてくる。このあたりの調節が肝であろうが、ダブルバッフルはあながち無意味でもなさそうである。そこで生ゴムの簡易バッフルとエンクロージャー本体にワッシャーをはさんでユニットを取り付け、1mmの隙間を作ってみた。



多少能率があがって音色も静になったような気がしないこともないこともなくはない。少し音量をあげてやるとけっこうエアサスペンションが効いて、なかなか立派な低音が響く。ユーミンの曲など松任谷正隆の過剰なアレンジがピタリと決まる音色である。エレキベースは密閉の低音がいいようである。もちろん8cmならではのボーカルのよさもあって、なかなかよい。とにかく、ベースの音がいいですね。



ちなみに、一目瞭然だが、SA/F80ALはw3-881siを作ったTangBandがOEM生産してDiyAudioに収めていたものだが、コーンの材質でこんなに性質が違うとは思わなかった。他の材質も……などと思うと、メーカーの思うツボか？

あまりにもいいかげんなスパイラルスピーカー キカイダーF80

世の中はよくしたもので、バカにしか味わえない至福というようなモノがある。まあ、まわりはいい迷惑である．まわりが見えないというのも、バカのバカたる所以である。
落っことして壊したSA/F80ALだが、瞬間接着剤と割りばしで無謀な修理をする際、手のひらで包んで鳴らしてやると思いがけずいい音でビックラこいたのである。考えてみれば、こいつは今までまともな箱に入れてやったことはなかった、史上最低のタイムドメイン１号は本当に最低であった。比較的ましな一つ目スピーカーも、どうやら全く相性が悪かったようである。思い切って平面バッフルなどもよいかと思ったが、簡単な紙筒スピーカーにしようと思い立ちでシマチュウへ。しかし思うような筒は無く、なぜか？？？？1m60円の細くてショボい空調用ホースの売れ残り５ｍが置いてあったのを購入。意味不明の変更である。どこまでも適当な行動である。

で、なんともけったい段ボールスピーカーを創り始めたから、小生の＄○○も本物である。
まあ、極端に背圧に弱いユニットらしいので、適当でいいだろうという都合のよい算段である。絵に描いたような＄○○である。一応、スパイラル愛好家が怒りそうだが、スパイラルのつもりである、ほんと＄○○。それでもなんとか出来上がって鳴らしてみると、まあ、こんなひどい有様になりながら、見違えるようにいいので驚いた。意味不明なスパイラルダクトの効果などどうでもよくなった。能率も普通の感じになって、豊かでありながら実に静謐な音である。一つ目につけたW3-881SIとは好対照である。W3-881SIは本来それなりのバスレフあたりに入れてやると華やかでいいんだろうと思うが、小型密閉でもそれなり頑張って鳴る。ややおとなしくはなってしまっているようではあるが、十分に陽気な音である。この段ボールスピーカーはキカイダーF80と命名した。手元でそれなりの音量でも実に明瞭でクリアーな音がする。小生のアホなニアスピーカーとしては出色の出来である。キカイダースパイラルダクトの方は、ボヨンボヨンと低音が伸びることもあるようだが、もっと短くてもよかったかもしれない。

※＄○○には、好きな言葉を入れてお読みください（ex. バカ　あほ　暇人　スカタン　変人　駄目オヤジ　ろくでなし　etc.）

W3-881SJの廉価版らしきユニットW3-881SI

世の中はよくしたもので、バカにしか味わえない至福というようなモノがある。まあ、まわりはいい迷惑である．まわりが見えないというのも、バカのバカたる所以である。
ある日、ふと「たまには、一つ目スピーカーのSA/F80ALでも鳴らしてみよう」と思い立ち、ゴソゴソしていて一つ目スピーカーの右眼を落としてしまったのである。SA/F80ALはフレームが割れてしまった、慌てず騒がず取り乱して、瞬間接着剤で修復するも、ビビリが発生してしまった。どうも硬いアルミコーンが曲った為と思われるので、コーンのウラ側から、こともあろうに割り箸でツンツンした結果、ビビリはほとんど治まったものの、ご覧のありさまである。一つ目スピーカーのSA/F80ALはいまいち地味な音で楽しくなかったのだが、今回のランボーな修理中に手の平で軽く包んで鳴らしたところ、思いがけずクリアーでとことんフラットな独特の面白い音色であることがわかった。それでなくても能率の低い重たいアルミコーンを小さな密閉などに付けたのがそもそも間違いであったらしい。ハダカで鳴らしたほうがズットいい。そこそこに低音も鳴るから、スゴイ。まあ、SA/F80ALはアルミコーンがいくらなんでも重すぎた、一種の失敗作ではなかろうかとも思う。まあ、小生などが生意気な邪推ではある。でもまあ、手元でハダカで鳴らしてやると悪くないのである。で、一つ目スピーカーからは外すことにした。
一つ目スピーカーには、なにか別にテキトーなユニットを付けてやりたいと、まあこれは病気である。ヤフオクで掘り出し物を探す。これといった出モノがなかなかない。デ、ウチダというオーディオパーツ のショップがTangBandのOEM流通在庫放出品らしきフルレンジユニット W3-881SI をペアで2,600円で売っているのを見つけたのである。2,600円は小生的には完全に予算オーバーである。そもそも新品のユニットは初めて購入した、やはりTangBandのなぞのフルレンジW3-832SEだけであった。それとてペアで送料込み1,200円であった。しかし、このW3-832SEが思いがけずいい音だったので、小生はヤフオクでフルレンジユニットを物色するのが楽しみになったのであるからして、TangBandのこの手の廉価な放出品は侮れない。今回の廉価ユニットW3-881SIも海外のネットオークションでは1個600円から1 000円くらいで出回っている。TangBandで売れ筋のPPコーンに、お家芸のネオジウム磁石である。数日悩んだあげく、購入してしまったのである。2,000円以内の自主規制を守るために、ダイトーボイスあたりを考えていたのだが、暴走してしまった。で、一つ目スピーカーに装着、鳴らしてみた。まあ、言葉ではなんともいえないが、とにかくよく鳴る。アホみたいに鳴る。興味のある方は迷わず購入して段ボール箱にでもなんにでも取り付けて鳴らしてみればいい。小生には何がいいとか悪いとか難しい事はわからないが、音楽が楽しく聞ける事は間違いない。全体としてやはりネオジウムマグネットのなぞのフルレンジW3-832SEと似た音だが、もっとあっけらかんとして低音も普通に良く鳴る。W3-832SEがやや澄ました音色なのに比べて、華やかな音である。箱を選ぶといった風情も感じられない。とにかく、良く鳴る。


http://speaker.cart.fc2.com/

IPhone(スマートフォン)とskype

IPhone(スマートフォン)とskypeの組み合わせは、なかなかに強力ではなかろうか。ヨドバシカメラビックカメラの公衆無線LANサービス、両方加入しても月額千円でお釣りが来る。都市圏ならおよそなんとかなるだろう。携帯プランは必要最小限にできる。FONなら一度八千円弱で世界中のFONエリアが利用できる。そこでSkype同士なら無料通話ができる。もちろんメールや画像添付でもあの方外な量金に怯える必要はない。どこかでSkypeが爆発的に普及すれば、携帯キャリアは業態を見直さざるを得ないだろう。しかし、今だにMicrosoftに上納金を支払う風習が絶えない現実をみると、NTTとキャリアにキツい年貢を納める風習も根づよく残ると思われる。国の政策も通信利権を最後まで保護すると思われるので、法的な障害も大切に継続されるだろう。通信の過剰な利便化は児童保護的にいかがなものか？というキャリア保護の論旨も最近よく見かける。ホリエモンはそこいら中で無線LANを普及させるんだとNTTの頭越えでぶち上げて刑務所に入った。古くはリクルート関係の天才経営者が衛星網による独自通信網を構築しようとして社会的に抹殺された。まあ、与太話である。とはいえ、通信利権、世界一高額な通信費は死守されねばならない。徹底的にきりつめれば、まだまだ支払える。お役人様の優雅な人生の為にガンガン通信費を使い、日本人は寝ないで働くのだ、すみません、そうそうに取り乱しました。

dropbox

ひょんなコトで 、iphone 4 本体をもらった。キャリアはソフトバンクであったらしいので、ソフトバンクで再契約することは可能だと思うが、もちろん小生にはそんな余裕はない。このような状況で、はたしてiphoneに使い道はあるのだろうか？ちうことで、まず自宅の無線LANに接続を試みたら、すんなり接続。これで気になっていたiphoneでのサイトの表示が確認できる。これがありがたい。自宅のLANにはつながるが、せっかくのモバイル機器であるので外ではどうであろうか？これはおおよそ3タイプの公衆LANがあるようである。携帯キャリア等による認証やサービス等録が必要なもの、NTTなどの、設置は有料だが、利用が無料サービスになるもの、そしてFONである。マクドナルドはキャリア等の登録が必要だが、スタバは無料でインターネットに接続できるようである。認証が必要なサービスも、ビックカメラやヨドバシカメラに毎月3百何十円かを支払えば使えるらしい。FONの場合は8千円ほどのFONルーターを一度購入するだけでいいらしい。可能性としてはFONが一番おもしろいし、主流になると思うというか、なってほしいモノである。認証の必要なモノ、フリーのモノもいくつかあり、それぞれ囲い込みのに余念が無い。Microsoftの影響で、インターネットの世界は実にココロザシの低い世界になってしまったものだ。FONは高いのか安いのかわからないが、オレンジ色がチャーミングな無線ルーターを購入すると、世界中のFONルーターを共有してインターネットができるというシステムで、唯一インターネットの品位を醸し出しているが、ソフトバンクの偽FONが横行しているのでややこしくなっている。ソフトバンクもエゲツない事をするものだ。いちじるしくFONの品位を貶める偽FONは犯罪といって良いのではなかろうか。ソフトバンクはアップルの皮を被ったMicrosoftである。とはいえ、FONに参加しない店舗も個人も二流という雰囲気になってくれば、楽しみな話しではある。小生はもちろん気持ちはあるが余裕が無い。正統派の二流である。
このブログはDropBoxと同期するテキストエディタを使いiphoneで打っている。ネットにつながるとカッテに同期するので、そのままマックでもウィンでもリナックスでも続けて作業できる。そういった時代になったんだなと、感じてみるだけでも良いではないか。未来は暗いか明るいか、泣いても笑っても明日は来る。

中古メモリ

macのECCメモリはなかなかに高額である。標準装備のMicron製となるとなおさらである。現在は1Gが4枚ささっている。なぜかなんとなくヤフオクで見つけたのがHynix製の中古2G4枚である。4枚で2.680円である。Micron製1G1枚とそんなに変わらない価格である。1枚でも無事に動けば悪い買物ではない。Hynixなら動いてしまえばMacPro純正品と変わりなかろうし、こんな出物はめったになかろうと、思わずクリックしてしまった。現代社会にはびこるクリックの罠である。とはいえ、たいへんに良心的な出品者で、さっくりと迅速丁寧に送られたきたメモリは見たところかなり良品である。さっそく装着、メモリ交換よりもMacintoshを移動するのが大変であった。無事起動。速いような変わらないような？やっぱり速くなったような？？はっきりとはわからんが、倍になったんだから、きっといいんだろうと気持ちはいい。ようは気持ちの問題である。
音も良くなった？？？　都市伝説！？
再生中に作業しても雑音はしなくなったような？？？？幸せな気のせい

os x afplay

OS XのカーネルはBSDである。よくわからんが、UNIXから派生？したということで、LINUXとは親戚みたいなものらしい。それなら、UBUNTUにあったaplayという軽くてシンプルなプレーヤーが入っているかもと調べてみたら、10.5 以降にはafplayというのが入っていた。iTunesよりも音がいいと、一部変人の間では評判がいいらしい。PCをAVセンターにというのもアップルのひとつの指針であろうから、それなりの性能で実装してきたことは考えられる。ということで、UBUNTU用のランダム再生スクリプトをOS X のafplay用にしてみた。まあ、プレーヤーを書き換えただけである。
うん、クリアーな音質であるような気もしないことも無い事はない。都市伝説？
OA X 10.6には afplay に -q というオプションが有って、-q 1 にすると本当にいいという話であるが、やはり多少カルトな話である。ケーブルで音が変わるテキな？まあ、実際に状況が変わるれば音は変わるだろうが、いいか悪いかは別の話である。まあ、コマンドの場合はシステム的に超微細な根拠もあるようではある。

このスクリプトは、ユーザー/自分のフォルダ　に入れておくと、コマンドプロンプトを開いてすぐ使える。確か、Perlは最初から入っていたような気がする。OS Xには、ユーザー　というフォルダと別にhomeフォルダもある。このあたりもOS Xを難しくしているような気がする。




## afplay.pl #####################################
#!/usr/bin/perl

$list = 0;

## 再生曲数の上限
$max = 100;

@type = (".aif",".wav",".aiff",".wave");

## スクリプトの置いてあるフォルダの音源を検索します。
$dir = "./";

$udir = "0";

## -def オプションで再生したいフォルダ
$defaulturl = "./mp3";

if ($ARGV[0]){
foreach $_ (@ARGV){
if($_ =~ /\-aif/i){@type = (".aif", ".aiff");}
if($_ =~ /\-wav/i){@type = (".wav",".wave");}
if($_ =~ /\-mp3/i){@type = (".mp3");}


if($_ =~ /\-dir\=/i){
$_ =~ s/\-dir\=//; $dir = $_;
$udir = 8;
}

if($_ =~ /\-max\=/i){$_ =~ s/\-max\=//; $max = $_;}

if($_ =~ /\-def/i){$dir = "$defaulturl"; $udir = 88;}

if($_ =~ /\-list/i){$list = 8;}
}
}
else{
$dir = "./";
@type = (".aif",".wav",".aiff",".wave",".mp3");
}

&getlist($dir);


print "\n********************************************\n";
print "afplay.pl は afplay でのランダム演奏用です。\n";
print "ex: perl afplay.pl -list -dir=./sound\n";
print "------------------------------------------------\n";
print "-aif （AIFのみ演奏）\n";
print "-wav （WAVのみ演奏）\n";
print "-mp3 （MP3のみ演奏）\n";
print "-def （設定したデフォルト\"" . $defaulturl . "\"を再生）\n";
print "-list （再生リストを表示）\n";
print "-dir=URL （URLのディレクトリ内を演奏）\n";
print "-max=数字 （最大演奏回数、０で無制限）\n";
print "無指定の場合、AIF・WAV、現在のディレクトリ\n";
print "演奏中　次の局　Ctrl + C\n";
print "演奏中　中止　Ctrl + Z\n\n";

foreach (@files){
my $r = rand @new+1;
push(@new, $new[$r]);
$new[$r] = $_;
}

$listi = 0;
foreach (@new){
$listi ++;

$lists = " \"$_\"";

if($list){print "$lists\n";}

if($list){print "------------------------------------------------\n\n";}

if($lists){system("afplay $lists");}
## 10.6以降の人はこちらがいいそうです。都市伝説？
#if($lists){system("afplay -q 1$lists");}

else{print "--NoFile--\n\n";}

if($listi == $max){last;}
}

exit;
#-----------------------------------------------------------------------

sub getlist{
my $ndir = $_[0];
my @get;

opendir(IN,$ndir) or die "opendir $dir エラー : $!";
@get = readdir IN;
closedir(IN);

foreach $files (@get){
next if $files =~ /^\.\.$/;
next if $files =~ /^\.$/;


foreach (@type) {
if($files =~ /$_$/i){
if($ndir =~ /^\.\/.+/i){push @files, "$ndir" . "/$files";}
elsif($udir){$ndir =~ s/\/$//i; push @files, "$ndir" . "/$files";}
else{push @files, "$files";}
}
}


if($ndir =~ /^\.\/.+/i){$nndir = $ndir . "/$files";}
elsif($udir){$ndir =~ s/\/$//i; $nndir = "$ndir" . "/$files";}
else{$nndir = $ndir . "$files";}

#print "$nndir\n";#TEST用
if(-d $nndir){&getlist($nndir);}
}

}

Ubuntu 11.10 Unity Radio Tray

ずいぶん変わったと思ったら、Unityだそうである。といっても小生にはなんのことかわからない。FaireFoxでインターネットをするぶんには、マックともXPともほとんど変わらない。まあ、DRMや商用ソフトには多々問題があろうが、それはUbuntuの問題ではない。その代わり、便利なソフトも多い。上の写真のデスクトップの右上に見えるのが、Radio Trayである。インターネットラジオが簡単に選曲して聞ける。なにせ起動が速いのがよい。デフォルトでOpenOfficeも入っている。オフィース２００７で作ったエクセル書類を使ってみたが、当面は問題なかった。簡単なマクロも使っていたが、ちゃんと動いた。というか、互換うんぬんではなくて、OpenOfficeをスタンダードにすればいいだけだと思うが、どうなんでしょうか？OpenOfficeならほとんどのOSで同様に使えるし、なにより無料だし、Officeとの互換などというアホな縛りがなければ、Officeよりもマックのオフィスツールに近い進化をとげると思われる。

D級レシピ ー 味噌つけめん

あなたがものぐさのダメ男で、早朝に帰ってそのまま寝ていて昼頃目が覚めて腹が減ったと思ったとき、前日の夕食の残りのみそ汁があれば幸せである。そしてそれがアサリかシジミのみそ汁ならさらに嬉しい。そこにネギでもキャベツでもハムでもわかめでもとんかつの残りでもトマトでも、なんでも適当にほりこんでひと煮立ちする。仕上げにラー油でも麺つゆでもコショウでも七味でもサラダドレッシングでも、適当にぶち込んで毒々しい味付けを目指す。ただし、調子にのって、本当に毒物や食べられない異物はくれぐれも入れないようにする。そしてお気に入りの丼に入れる。
開いた鍋でお湯を沸かし、近所のスーパーで見つけた安いラーメンの麺を湯がく。麺は普通の黄色くて散れたものがよいようだ。写真は安かったので購入したつけめんようの麺だが、いまいちだった。湯がいたら流し水で洗い熱をとり皿に盛る。そして、頭を空っぽにし、先ほどの毒々しい具沢山の液体につけて喰う。
よほど変なものを入れない限り、喰えないことはない。うっかりすると、やたら旨い。

Ubuntu 11.10

古いマッキントッシュにDebianをインストールしてひととおり設定してあるので、自作PCにインストールしてあるDebianは、さっぱり使わなくなった。そこで、デスクトップマシンとして試してみようと思いたち、openSUSEをインストールしてみた。なかなかよい、やはりKDEは美しい。しかし、なんと自作PCのオンボードビデオカードと相性が悪いらしく、nVidiaのドライバーを入れてみても使い物にならなかった。次にLinux Mintを試そうとしたが、有名なビデオカードへの出力問題でインストールすらできなかった。こうなってくると次の選択肢はFedola かVineあたりであろうか…、いや、あえて本道をということで、Ubuntuをインストールしてみた。いやはや。驚いた。またLinuxが勝手に立ち上がると、Windowsを使おうとしたカミさんや娘に激怒されるので、Windowsが優先になるようにGrubのmenu.lstを編集しておこうとしたら、menu.lstがないのである。最近は/etc/default/grubなどを編集して sudo update-grub2 するらしい。なんだか面倒である。他にもいろいろと変わっていて、ずいぶんとデスクトップが充実していた。FireFoxの日本語表示も申し分ない。使った印象もマックやXPと大差ない。アンチWindowsで我慢して使うとか、サーバーにもなるからとかではなく、いいから使うになってしまった。なんだかつまらない話である。しかし、いろいろと進化したデスクトップは非常におもしろい、なれればかなりよさそうである。
Ubuntu、余ったPCやHDDのある方、試す価値はありますよ。

インストールのときに選択しておくと、Windowsのファイルにも簡単にアクセスできる。iTunesファイルに入ったAIF音源を、ひねくれ男はなぜかコマンドラインで再生してみようと思ったが、aplayではうまくいかず、vlcならうまくいった。音も独特のエッジの立った音である。そこで以前に書いたPerlスクリプトを編集してcvlcでランダム再生できるようにしてみた。上のイメージはフリーソフトのGIMPで編集している。機能はほんの一部ないが、ほとんどPhotoshopと同じである。

インストールには日本語ローカライズ版のCDイメージを利用したが、ショートカットなどはWindows風にしてあって使いやすかった。



##スキップできるように直しました

## aplay.pl #####################################
#!/usr/bin/perl

$list = 0;

#再生曲数の上限、0で無制限
$max = 100;

@type = (".aif",".wav",".aiff",".wave");

$dir = "./";

$udir = "0";

#デフォルトにしたいディレクトリの場所
$defaulturl = "/media/6618-38E7/iTunes";

#マウントも自動にしようとしましたが、ダメみたいです、無視してください。
$defmedia = "/media/6618-38E7";

#デフォルトのプレーヤー
$play = "cvlc";

if ($ARGV[0]){
foreach $_ (@ARGV){
if($_ =~ /\-aif/i){@type = (".aif", ".aiff");}
if($_ =~ /\-wav/i){@type = (".wav",".wave");}
if($_ =~ /\-mp3/i){@type = (".mp3");}
if($_ =~ /\-all/i){@type = (".aif", ".aiff",".wav",".wave",".mp3");}


if($_ =~ /\-dir\=/i){
$_ =~ s/\-dir\=//; $dir = $_;
$udir = 8;
}

if($_ =~ /\-max\=/i){$_ =~ s/\-max\=//; $max = $_;}

if($_ =~ /\-play\=/i){$_ =~ s/\-play\=//; $play = $_;}

if($_ =~ /\-def/i){$dir = "$defaulturl"; $udir = 88;}

if($_ =~ /\-list/i){$list = 8;}
}
}
else{
$dir = "./";
@type = (".aif",".wav",".aiff",".wave");
}

&getlist($dir);


print "\n********************************************\n";
print "aplay.pl は cvlc でのランダム演奏用です。\n";
print "ex: perl aplay.pl -list -dir=./sound\n";
print "------------------------------------------------\n";
print "-aif （AIFのみ演奏）\n";
print "-wav （WAVのみ演奏）\n";
print "-mp3 （MP3のみ演奏）\n";
print "-all （AIF,WAV,MP3を演奏）\n";
print "-def （設定したデフォルト\"" . $defaulturl . "\"を再生）\n";
print "-list （再生リストを表示）\n";
print "-dir=URL （URLのディレクトリ内を演奏）\n";
print "-max=数字 （最大演奏回数、０で無制限）\n";
print "無指定の場合、AIF・WAV、現在のディレクトリ\n";
print "-Play=プレイヤー （プレイヤーをcvlc以外にしたい場合）\n";
print "演奏中　次の局　Ctrl + C\n";
print "演奏中　中止　Ctrl + Z\n\n";

foreach (@files){
my $r = rand @new+1;
push(@new, $new[$r]);
$new[$r] = $_;
}

$listi = 0;
foreach (@new){
$listi ++;
$listw = $listw . " \"$_\"\n";
##$lists = $lists . " \"$_\"";
if($listi == $max){last;}
}


if($list){print "$listw\n";}

if($list){print "------------------------------------------------\n\n";}

##if($lists){system("$play$lists");}
if($listw){
$listi = 0;
foreach (@new){
$listi ++;
$lists = " \"$_\"";
##system("$play --play-and-exit --prefer-system-codecs$lists");
system("$play --play-and-exit$lists");
if($listi == $max){last;}
}
}
else{print "--NoFile--\n\n";}


exit;
#-----------------------------------------------------------------------

sub getlist{
my $ndir = $_[0];
my @get;

if($udir == 88){
opendir(IN,$ndir) or $udir = 888;
if($udir == 888){
system("mount $defmedia");
opendir(IN,$ndir) or die "opendir $dir Wエラー : $!";
}

}
else{opendir(IN,$ndir) or die "opendir $dir エラー : $!";}
@get = readdir IN;
closedir(IN);

foreach $files (@get){
next if $files =~ /^\.\.$/;
next if $files =~ /^\.$/;


foreach (@type) {
if($files =~ /$_$/i){
if($ndir =~ /^\.\/.+/i){push @files, "$ndir" . "/$files";}
elsif($udir){$ndir =~ s/\/$//i; push @files, "$ndir" . "/$files";}
else{push @files, "$files";}
}
}


if($ndir =~ /^\.\/.+/i){$nndir = $ndir . "/$files";}
elsif($udir){$ndir =~ s/\/$//i; $nndir = "$ndir" . "/$files";}
else{$nndir = $ndir . "$files";}

#print "$nndir\n";#TEST用
if(-d $nndir){&getlist($nndir);}
}

}