> 天外魔境III NAMIDAまだぁ？

漏れはもう持ってるよ

参考：2001/03/23(金)20時02分14秒

#!/usr/local/bin/perl

use Cwd;
use File::Copy;

$dir = Cwd::getcwd();

opendir(DIR,$dir);

while($_ = readdir(DIR)){
    if($_ eq "."){next;}
    if($_ eq ".."){next;}
    @file_list = (@file_list,$_);
}

closedir(DIR);

foreach $filename (@file_list){
     if($filename =~ /(.*)_(\d*)\.(.*)/){
           unless(-d $1){
               mkdir("$dir/$1",0755);
           }
           copy($filename, $1."/".$filename);
           unlink($filename);
     }
}

Cygwin版のPerlで試したらうまく動いた。
ActivePerlはもっていないので、未テスト。
現在ダウンロード中

ミールは可愛いな(*´ー｀)

TRUSH　VOXDISC1落としてます
I'veの曲っていいですよね

> > 　酒・煙草・博打もしないら更に大損しているらしいヽ(´ー｀)ノ
> > 　# 酒は飲まないこともないけど滅多に飲まない。
> ｱﾆｦﾀであることでまた15%損してるのではないかと思った
> つかこれ自虐含みだなしのう

　もう少し積極的に外で遊べば少しは良い人生を歩めるのではないか、と
思っても友人のほとんとがそーゆーのに興味無いからなぁヽ(´ー｀)ノ

参考：2001/03/23(金)20時03分54秒

> せっかくコード書いたのに
> 罵倒されたんじゃたまらんよ
> くだらね

　从wﾍw 
(´ー｀)　罵倒した奴と、ほしがった人は別人かも

参考：2001/03/23(金)20時04分39秒

> せっかくコード書いたのに
> 罵倒されたんじゃたまらんよ
> くだらね

ｽﾏﾝｺ さっき来たところなので何のｽｸﾘﾌﾟ㌧だかわからないので
漏れはﾚｽできなかった
解説ｷﾎﾞﾘ

参考：2001/03/23(金)20時04分39秒

明日も仕事だ

消し忘れにﾜﾛﾀ

> >                    ^^
> > シだって
> > 馬鹿（バッカ）じゃないの？
> ｼｯ

ε≡Ξ(´ー｀)　　ゞ(`Д´)ｼｯ
かよ？
それとも
(´ｰb｀) ｼｯ
かよ？

参考：2001/03/23(金)20時02分15秒

せっかくコード書いたのに
罵倒されたんじゃたまらんよ
くだらね

> > 　画像・Javascript・JAVAなど切れるもの全て切り98LITE化した
> > 上で串弁慶の私はそう簡単には落ちないよんヽ(´ー｀)ノ
> ProxomitronのProtocol src killerは単純なlocalｱｸｾｽに対応してなかったので畏れ

　IE4を入れるとローカルのファイルが参照できなくなって難儀したことがあったな・・・ヽ(´ー`)ﾉ…

参考：2001/03/23(金)20時00分43秒

> > 君人生の3割損してる
> 　酒・煙草・博打もしないら更に大損しているらしいヽ(´ー｀)ノ
> 　# 酒は飲まないこともないけど滅多に飲まない。

ｱﾆｦﾀであることでまた15%損してるのではないかと思った

つかこれ自虐含みだなしのう

参考：2001/03/23(金)20時02分49秒

> > ナニイッテンダコイシ
>                    ^^
> シだって
> 馬鹿（バッカ）じゃないの？

擬古馬と擬古鹿が喧嘩してる絵文字ｷﾎﾞﾘ

参考：2001/03/23(金)20時01分35秒

> > 　画像・Javascript・JAVAなど切れるもの全て切り98LITE化した
> > 上で串弁慶の私はそう簡単には落ちないよんヽ(´ー｀)ノ
> 君人生の3割損してる

　酒・煙草・博打もしないら更に大損しているらしいヽ(´ー｀)ノ
　# 酒は飲まないこともないけど滅多に飲まない。

参考：2001/03/23(金)19時59分30秒

> > ナニイッテンダコイシ
>                    ^^
> シだって
> 馬鹿（バッカ）じゃないの？

ｼｯ

参考：2001/03/23(金)20時01分35秒

天外魔境III NAMIDAまだぁ？

あいつが来たからｷﾞｯｽｷﾞｯｽしてきたな

> > 面倒くさいからバイナリ配布してくれよ
> ナニイッテンダコイシ
                   ^^
シだって
馬鹿（バッカ）じゃないの？

参考：2001/03/23(金)19時59分38秒

> > 　从wﾍw 
> > (´ー｀)　再起動してきたのか
> 　画像・Javascript・JAVAなど切れるもの全て切り98LITE化した
> 上で串弁慶の私はそう簡単には落ちないよんヽ(´ー｀)ノ

ProxomitronのProtocol src killerは単純なlocalｱｸｾｽに対応してなかったので畏れ

参考：2001/03/23(金)19時56分45秒

> やぁ、今からそっち行くよ。

しかりやれよ(´ｰ`)y-~~

参考：2001/03/23(金)19時58分17秒

> > ﾏｼﾞｪかよ(ﾟДﾟ;)
> だまされたぁ
> つかあほらしくて思いっきりﾜﾛﾀ

ｶﾞﾀｶﾞﾀ！ｶﾞﾀｶﾞﾀ！

参考：2001/03/23(金)19時52分38秒

> 面倒くさいからバイナリ配布してくれよ

ナニイッテンダコイシ

参考：2001/03/23(金)19時58分30秒

> > 　从wﾍw 
> > (´ー｀)　再起動してきたのか
> 　画像・Javascript・JAVAなど切れるもの全て切り98LITE化した
> 上で串弁慶の私はそう簡単には落ちないよんヽ(´ー｀)ノ

君人生の3割損してる

参考：2001/03/23(金)19時56分45秒

> ドラえもんはＦ先生が死んでからも生産されるのでずるいと思います

あやしいはしばが崩御してから（略

参考：2001/03/23(金)19時56分57秒

> 
> use IO;
> use strict;
> my($sfile,@sfiles);
> # dir /b *.jpg に相当
> @sfiles = glob('*.jpg');
> foreach $sfile (@sfiles) {
>     # ファイル名、連番、拡張子に分割
>     my($sfname,$nnumber,$ssfx) = ($sfile =~ m/(.*[^\d])(\d+)(\..*)$/);
>     if ($sfname && $ssfx && ($nnumber ne '') && (length($sfname . $nnumber . $ssfx) == length($sfile))) {
>         # 全文字数分きちんと拾えておれば
>         STDOUT->print(
>             "ORIGIN:[$sfile]",
>             "FNAME:[$sfname]",
>             "NUMBER:[$nnumber]",
>             "SFX:[$ssfx]",
>             "\n"
>         );
>     } else {
>         # うまく分割できなかった
>         STDOUT->print(
>             "ORIGIN:[$sfile]",
>             "NOMATCHED",
>             "\n"
>         );
>     }
> }
> 即興で書いてみたが、とりあえずこんな感じでどうだ。
> 俺のところにある連番ファイル（エロゲー画像とか）では大抵ちゃんと拾えたぞ
> あとは、あらかじめソートしておいて、ファイル名でフォルダを掘って
> 同じファイル名が続く限りそのフォルダに放り込んでいけばいいと思うぞ

ｺﾝﾊﾟｲﾙｴﾗｰになるよ、お兄ちゃん。

参考：2001/03/23(金)19時49分44秒

　昨夜から頭痛が酷くて薬で抑えているのだけど、いよいよ効果無くなってきたな(;´Д`)

> 
> use IO;
> use strict;
> my($sfile,@sfiles);
> # dir /b *.jpg に相当
> @sfiles = glob('*.jpg');
> foreach $sfile (@sfiles) {
>     # ファイル名、連番、拡張子に分割
>     my($sfname,$nnumber,$ssfx) = ($sfile =~ m/(.*[^\d])(\d+)(\..*)$/);
>     if ($sfname && $ssfx && ($nnumber ne '') && (length($sfname . $nnumber . $ssfx) == length($sfile))) {
>         # 全文字数分きちんと拾えておれば
>         STDOUT->print(
>             "ORIGIN:[$sfile]",
>             "FNAME:[$sfname]",
>             "NUMBER:[$nnumber]",
>             "SFX:[$ssfx]",
>             "\n"
>         );
>     } else {
>         # うまく分割できなかった
>         STDOUT->print(
>             "ORIGIN:[$sfile]",
>             "NOMATCHED",
>             "\n"
>         );
>     }
> }
> 即興で書いてみたが、とりあえずこんな感じでどうだ。
> 俺のところにある連番ファイル（エロゲー画像とか）では大抵ちゃんと拾えたぞ
> あとは、あらかじめソートしておいて、ファイル名でフォルダを掘って
> 同じファイル名が続く限りそのフォルダに放り込んでいけばいいと思うぞ

面倒くさいからバイナリ配布してくれよ

参考：2001/03/23(金)19時49分44秒

やぁ、今からそっち行くよ。

> > 　今日は良い雰囲気だねヽ(´ー｀)ノ
> > ブラウザクラッシュ馬鹿も居るみたいけど
> どんもヽ(´⌒｀)ノたまにはこの顔文字も使ってください

  ξ  ξ  
(;´⌒`)/ 昨夜も書いたけどいちいち貼るのが面倒くさい

参考：2001/03/23(金)19時55分24秒

ドラえもんはＦ先生が死んでからも生産されるのでずるいと思います

> > 　今日は良い雰囲気だねヽ(´ー｀)ノ
> > ブラウザクラッシュ馬鹿も居るみたいけど
> 　从wﾍw 
> (´ー｀)　再起動してきたのか

　画像・Javascript・JAVAなど切れるもの全て切り98LITE化した
上で串弁慶の私はそう簡単には落ちないよんヽ(´ー｀)ノ

参考：2001/03/23(金)19時54分29秒

> > 赤井孝美
> > プリメシリーズを細々と作ってる
> さっさと独立すりゃいーのにな
> 経営者の才能はないのかねぇ

ナインライブスって赤井の会社じゃなかったっけ？


参考：2001/03/23(金)19時54分53秒

> 　今日は良い雰囲気だねヽ(´ー｀)ノ
> ブラウザクラッシュ馬鹿も居るみたいけど

どんもヽ(´⌒｀)ノたまにはこの顔文字も使ってください

参考：2001/03/23(金)19時53分22秒

で、お礼ウェアはいつ配布するのよ？

> > 赤松孝美だっけ？
> > 今なにして生きてるんだろーね
> 赤井孝美
> プリメシリーズを細々と作ってる

さっさと独立すりゃいーのにな
経営者の才能はないのかねぇ

参考：2001/03/23(金)19時53分30秒

> 　今日は良い雰囲気だねヽ(´ー｀)ノ
> ブラウザクラッシュ馬鹿も居るみたいけど

　从wﾍw 
(´ー｀)　再起動してきたのか

参考：2001/03/23(金)19時53分22秒

> > 電脳学園の二の舞だと仮定してみる
> 赤松孝美だっけ？
> 今なにして生きてるんだろーね

赤井孝美
プリメシリーズを細々と作ってる


参考：2001/03/23(金)19時50分50秒

ﾒｱﾘｰｹｲﾄ(*´Д`)ﾊｧﾊｧ

　今日は良い雰囲気だねヽ(´ー｀)ノ

ブラウザクラッシュ馬鹿も居るみたいけど

> > 仕方ないから右下に小さい字で妖精さん萌えって書いておいたよ
> > 5分後には消すね
> > http://www18.freeweb.ne.jp/art/orifiel/a/
> ﾏｼﾞｪかよ(ﾟДﾟ;)

ﾏｼﾞｪだな(;´Д`)
つか本人ぁゃιぃ知らないから来ないけどなヽ(;´ー｀)ノ

参考：2001/03/23(金)19時50分21秒

> > 仕方ないから右下に小さい字で妖精さん萌えって書いておいたよ
> > 5分後には消すね
> > http://www18.freeweb.ne.jp/art/orifiel/a/
> ﾏｼﾞｪかよ(ﾟДﾟ;)

だまされたぁ
つかあほらしくて思いっきりﾜﾛﾀ

参考：2001/03/23(金)19時50分21秒

> > 仕方ないから右下に小さい字で妖精さん萌えって書いておいたよ
> > 5分後には消すね
> > http://www18.freeweb.ne.jp/art/orifiel/a/
> ﾏｼﾞｪかよ(ﾟДﾟ;)

http://www02a.so-net.ne.jp/~epi-/photo/bjarne_episteme.jpg
なんとなく顔が先行者っぽいよ

参考：2001/03/23(金)19時50分21秒

> > 電脳学園の二の舞だと仮定してみる
> 赤松孝美だっけ？
> 今なにして生きてるんだろーね

　　　∧ ∧
～(　(´ー`)＜生きてないと仮定してみる

参考：2001/03/23(金)19時50分50秒

BATﾌｧｲﾙからpingｺﾏﾝﾄﾞって使える？

> > 　　　∧ ∧
> > ～(　(´ー`)＜ソフト名は「電脳戦士ポリゴン(仮)」？
> 電脳学園の二の舞だと仮定してみる

赤松孝美だっけ？
今なにして生きてるんだろーね


参考：2001/03/23(金)19時49分44秒

> 仕方ないから右下に小さい字で妖精さん萌えって書いておいたよ
> 5分後には消すね
> http://www18.freeweb.ne.jp/art/orifiel/a/

ﾏｼﾞｪかよ(ﾟДﾟ;)

参考：2001/03/23(金)19時47分39秒

use IO;
use strict;

my($sfile,@sfiles);

# dir /b *.jpg に相当
@sfiles = glob('*.jpg');

foreach $sfile (@sfiles) {
    # ファイル名、連番、拡張子に分割
    my($sfname,$nnumber,$ssfx) = ($sfile =~ m/(.*[^\d])(\d+)(\..*)$/);
    
    if ($sfname && $ssfx && ($nnumber ne '') && (length($sfname . $nnumber . $ssfx) == length($sfile))) {
        # 全文字数分きちんと拾えておれば
        STDOUT->print(
            "ORIGIN:[$sfile]",
            "FNAME:[$sfname]",
            "NUMBER:[$nnumber]",
            "SFX:[$ssfx]",
            "\n"
        );
    } else {
        # うまく分割できなかった
        STDOUT->print(
            "ORIGIN:[$sfile]",
            "NOMATCHED",
            "\n"
        );
    }
}

即興で書いてみたが、とりあえずこんな感じでどうだ。
俺のところにある連番ファイル（エロゲー画像とか）では大抵ちゃんと拾えたぞ
あとは、あらかじめソートしておいて、ファイル名でフォルダを掘って
同じファイル名が続く限りそのフォルダに放り込んでいけばいいと思うぞ

> > つーかプレイした人間がひきつけ起こしたりするような
> > ソフトだと話題になるんじゃないだろうか
> 　　　∧ ∧
> ～(　(´ー`)＜ソフト名は「電脳戦士ポリゴン(仮)」？

電脳学園の二の舞だと仮定してみる

参考：2001/03/23(金)19時48分32秒

> 仕方ないから右下に小さい字で妖精さん萌えって書いておいたよ
> 5分後には消すね
> http://www18.freeweb.ne.jp/art/orifiel/a/

A:がﾊﾞｿﾊﾞｿ

参考：2001/03/23(金)19時47分39秒

> > 配布途中でわざと削除したりすれば更に話題沸騰
> つーかプレイした人間がひきつけ起こしたりするような
> ソフトだと話題になるんじゃないだろうか

　　　∧ ∧
～(　(´ー`)＜ソフト名は「電脳戦士ポリゴン(仮)」？

参考：2001/03/23(金)19時46分28秒

おめ祭り