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秒

おめ祭り

> > 住民が行列をなしたらひどい有様だろうな
> ﾘｱﾙ変なのに絡まれてな

異臭騒ぎになれば一石二鳥で警察出動→ﾏｽｺﾐ騒然


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

> > 配布途中でわざと削除したりすれば更に話題沸騰
> 世界初のお礼ウェアだな

十行のお礼を要求しそうだな

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

> > 配布途中でわざと削除したりすれば更に話題沸騰
> 世界初のお礼ウェアだな

五行書かないと･･･


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

仕方ないから右下に小さい字で妖精さん萌えって書いておいたよ
5分後には消すね

http://www18.freeweb.ne.jp/art/orifiel/a/

誰かゲームやって自殺してくれ

> > 1店舗のみゲームボーイアドバンス並みの売れ行きだったら嫌だな
> 住民が行列をなしたらひどい有様だろうな

ﾘｱﾙ変なのに絡まれてな

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

> > 愛銅鑼にあぷな
> 配布途中でわざと削除したりすれば更に話題沸騰

世界初のお礼ウェアだな

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

> http://www.peopledaily.co.jp/j/2000/11/29/jp20001129_44763.html
> 激しくﾜﾗﾀ

北朝鮮なみの横柄な態度だな。真似するなっての。

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

> > 愛銅鑼にあぷな
> 配布途中でわざと削除したりすれば更に話題沸騰

つーかプレイした人間がひきつけ起こしたりするような
ソフトだと話題になるんじゃないだろうか


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

> 1店舗のみゲームボーイアドバンス並みの売れ行きだったら嫌だな

住民が行列をなしたらひどい有様だろうな

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

> > タイトルを言え。話はそれからだ。
> 今は言えない。仮タイトルは決まってるけど変更する場合混乱するかも
> しれないからね。

んなこたぁない


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

1店舗のみゲームボーイアドバンス並みの売れ行きだったら嫌だな

フリーソフトおめ

エピステーメー氏監修のSTLの本持ってたヽ(´ー｀)ノ

> > 史上初のwarez配布方式にすれば話題的
> 愛銅鑼にあぷな

配布途中でわざと削除したりすれば更に話題沸騰

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

> > タイトルを言え。話はそれからだ。
> 今は言えない。仮タイトルは決まってるけど変更する場合混乱するかも
> しれないからね。

同日に他のソフトが出る日はそのあるゲーム屋が
メッセサンオーとSofmap以上の特典をつけないと厳しいぞ

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

日曜22:00　フジテレビ「スーパーナイト」

「異常人気のあやしいゲームソフト発売」

> > タイトルを言え。話はそれからだ。
> 今は言えない。仮タイトルは決まってるけど変更する場合混乱するかも
> しれないからね。

これはひどい

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

> > 友達とゲーム会社立ててゲーム作ってるんだが
> > あやしいのみんなに頼みがある。
> > あるゲーム屋に商品を置かしてもらえそうなんだが
> > 発売日に朝から並んで行列作ってくれないか？
> > マスコミとかにもFAXで「異常人気のゲーム発売！」とか流す予定
> > だからそれなりに売れないと困るんだよ。
> > つーことでその日が来たら頼むな。
> タイトルを言え。話はそれからだ。

今は言えない。仮タイトルは決まってるけど変更する場合混乱するかも
しれないからね。

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

おめ(;´Д`)

> http://www.peopledaily.co.jp/j/2000/11/29/jp20001129_44763.html
> 激しくﾜﾗﾀ

http://qqwpp.hypermart.net/cgi-bin/namisute/image/208.jpg
http://qqwpp.hypermart.net/cgi-bin/namisute/image/207.gif
http://qqwpp.hypermart.net/cgi-bin/namisute/image/206.gif

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

> > 友達とゲーム会社立ててゲーム作ってるんだが
> > あやしいのみんなに頼みがある。
> > あるゲーム屋に商品を置かしてもらえそうなんだが
> > 発売日に朝から並んで行列作ってくれないか？
> > マスコミとかにもFAXで「異常人気のゲーム発売！」とか流す予定
> > だからそれなりに売れないと困るんだよ。
> > つーことでその日が来たら頼むな。
> 史上初のwarez配布方式にすれば話題的

発売もプレゼントもしないwarezのみで出回るソフト
ってそれじゃﾌﾘ-ｿﾌﾄじゃん

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

> > 友達とゲーム会社立ててゲーム作ってるんだが
> > あやしいのみんなに頼みがある。
> > あるゲーム屋に商品を置かしてもらえそうなんだが
> > 発売日に朝から並んで行列作ってくれないか？
> > マスコミとかにもFAXで「異常人気のゲーム発売！」とか流す予定
> > だからそれなりに売れないと困るんだよ。
> > つーことでその日が来たら頼むな。
> 史上初のwarez配布方式にすれば話題的

それって単なるフリーソフトじゃねぇかこのバカチンが！

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

> > 友達とゲーム会社立ててゲーム作ってるんだが
> > あやしいのみんなに頼みがある。
> > あるゲーム屋に商品を置かしてもらえそうなんだが
> > 発売日に朝から並んで行列作ってくれないか？
> > マスコミとかにもFAXで「異常人気のゲーム発売！」とか流す予定
> > だからそれなりに売れないと困るんだよ。
> > つーことでその日が来たら頼むな。
> 史上初のwarez配布方式にすれば話題的

愛銅鑼にあぷな

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

> 友達とゲーム会社立ててゲーム作ってるんだが
> あやしいのみんなに頼みがある。
> あるゲーム屋に商品を置かしてもらえそうなんだが
> 発売日に朝から並んで行列作ってくれないか？
> マスコミとかにもFAXで「異常人気のゲーム発売！」とか流す予定
> だからそれなりに売れないと困るんだよ。
> つーことでその日が来たら頼むな。

タイトルを言え。話はそれからだ。


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

> > うおっ
> > 本物かよ？
> > 本物ならテメーのホームページにギコハハとかけ
> それよりなんて読むのか教えて欲しい

ハッカ飴にでも聞いておけよ

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

> http://www.peopledaily.co.jp/j/2000/11/29/jp20001129_44763.html
> 激しくﾜﾗﾀ

　　　∧ ∧
～(　(´ー`)＜http://www6.plala.or.jp/private-hp/samuraidamasii/tamasiitop/robotyuugoku/robotyuugoku.htm

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

> 友達とゲーム会社立ててゲーム作ってるんだが
> あやしいのみんなに頼みがある。
> あるゲーム屋に商品を置かしてもらえそうなんだが
> 発売日に朝から並んで行列作ってくれないか？
> マスコミとかにもFAXで「異常人気のゲーム発売！」とか流す予定
> だからそれなりに売れないと困るんだよ。
> つーことでその日が来たら頼むな。

ﾏﾙﾁﾎﾟｽと禁止

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

> 友達とゲーム会社立ててゲーム作ってるんだが
> あやしいのみんなに頼みがある。
> あるゲーム屋に商品を置かしてもらえそうなんだが
> 発売日に朝から並んで行列作ってくれないか？
> マスコミとかにもFAXで「異常人気のゲーム発売！」とか流す予定
> だからそれなりに売れないと困るんだよ。
> つーことでその日が来たら頼むな。

史上初のwarez配布方式にすれば話題的

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

> 友達とゲーム会社立ててゲーム作ってるんだが
> あやしいのみんなに頼みがある。
> あるゲーム屋に商品を置かしてもらえそうなんだが
> 発売日に朝から並んで行列作ってくれないか？
> マスコミとかにもFAXで「異常人気のゲーム発売！」とか流す予定
> だからそれなりに売れないと困るんだよ。
> つーことでその日が来たら頼むな。

激しくﾁｬﾝｺﾛ向きな頼みだな・・

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

> > 毎月ですよ(^^;
> うおっ
> 本物かよ？
> 本物ならテメーのホームページにギコハハとかけ

それよりなんて読むのか教えて欲しい

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

> 友達とゲーム会社立ててゲーム作ってるんだが
> あやしいのみんなに頼みがある。
> あるゲーム屋に商品を置かしてもらえそうなんだが
> 発売日に朝から並んで行列作ってくれないか？
> マスコミとかにもFAXで「異常人気のゲーム発売！」とか流す予定
> だからそれなりに売れないと困るんだよ。
> つーことでその日が来たら頼むな。

誰か勝手ｱﾌﾟ

釣れた

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

> > 毎月ですよ(^^;
> うおっ
> 本物かよ？
> 本物ならテメーのホームページにギコハハとかけ

そういう時は「あおいちゃん萌え」だろ

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

で、えろどはもういいのか(´ｰ`)y-~~

> > 　　　∧ ∧
> > ～(　(´ー`)＜1の復刻じゃないやつA,Bどちらも2Kだったら買っとくべきかな？
> 片方でいいだろ(´血`)y─┛~~
> 二つ在っても邪魔になるだけさ
> 
> ・・・そういやうちに在るなぁ(;´血`)

　　　∧ ∧
～(　(´Д`)＜マウスパッドに不自由はしてないしソフトは1つで充分なのに
　　　　　　　限定に踊らされる自分がハズイな

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

友達とゲーム会社立ててゲーム作ってるんだが
あやしいのみんなに頼みがある。
あるゲーム屋に商品を置かしてもらえそうなんだが
発売日に朝から並んで行列作ってくれないか？
マスコミとかにもFAXで「異常人気のゲーム発売！」とか流す予定
だからそれなりに売れないと困るんだよ。
つーことでその日が来たら頼むな。

> > 何月号のどの記事よ？
> 毎月ですよ(^^;

うおっ
本物かよ？
本物ならテメーのホームページにギコハハとかけ

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

口生理はもっと歯磨きをした方が良い
血が出るのは歯槽膿漏だ

> > 広島　０２０　００５　０６０
> > 阪神　００１　１００　０００
> > 阪神　藤田(4/2) - ●川尻(3/5) - 伊達(6/5) - 葛西(1/0)
> > 広島　高橋(4/2) - ◎ヤング(1/0) - シュールストロム(1/0) - 玉木(2/0) - 小林(1/0)
> > 本塁打　新井満塁(4)
> > ・・・・・(ρ_;)
> 今ｻﾝﾃﾚﾋﾞで録画中継してるのを見てたのに(;´Д`)

(;´Д`)漏れも…こんなﾈﾀﾊﾞﾚ早めてくだちぃ

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

ﾏｲｱﾐｶﾞｰﾝｽﾞ

> > まずはCﾏｶﾞで漏れの記事を読んでから言えやｸﾞﾗｧ
> 何月号のどの記事よ？

毎月ですよ(^^;

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

> 広島　０２０　００５　０６０
> 阪神　００１　１００　０００
> 阪神　藤田(4/2) - ●川尻(3/5) - 伊達(6/5) - 葛西(1/0)
> 広島　高橋(4/2) - ◎ヤング(1/0) - シュールストロム(1/0) - 玉木(2/0) - 小林(1/0)
> 本塁打　新井満塁(4)
> ・・・・・(ρ_;)

今ｻﾝﾃﾚﾋﾞで録画中継してるのを見てたのに(;´Д`)

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

> http://www.peopledaily.co.jp/j/2000/11/29/jp20001129_44763.html
> 激しくﾜﾗﾀ

著しく既出

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

> > まずはCﾏｶﾞで漏れの記事を読んでから言えやｸﾞﾗｧ
> 何月号のどの記事よ？

2月号の同窓会Again攻略記事

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

http://www.peopledaily.co.jp/j/2000/11/29/jp20001129_44763.html

激しくﾜﾗﾀ

> 広島　０２０　００５　０６０
> 阪神　００１　１００　０００
> 阪神　藤田(4/2) - ●川尻(3/5) - 伊達(6/5) - 葛西(1/0)
> 広島　高橋(4/2) - ◎ヤング(1/0) - シュールストロム(1/0) - 玉木(2/0) - 小林(1/0)
> 本塁打　新井満塁(4)
> ・・・・・(ρ_;)

藤田太陽２失点？
前回よりかはいいじゃないか

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

> > Perl使い居る？
> > こういうスクリプト作って欲しいんだよ
> > 「同じフォルダにえろどファイルがたくさんある」
> > 「えろどファイルは filename_連番.jpg などといった形式である」
> > 「これらのファイルを ./filename/filename_連番.jpg と
> >   ファイル名のディレクトリを掘って分配する」
> > たのむよつくってよ
> > ./えろど フォルダに5000ファイルくらい溜まってるんだよ…
> ( ´Д`) 時給750円ぐらいで手動でやるけどどう？

勝手にコピーを持ち帰るのは禁止ですよ

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

> > おまえのスキルじゃ無理
> まずはCﾏｶﾞで漏れの記事を読んでから言えやｸﾞﾗｧ

何月号のどの記事よ？

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

> > おまけが豪華だと高くなるような気がしたんだが・・・(´血`)y─┛~~
> > 三番煎じだけあってさすがに安いかねぇ
> 　　　∧ ∧
> ～(　(´ー`)＜1の復刻じゃないやつA,Bどちらも2Kだったら買っとくべきかな？

片方でいいだろ(´血`)y─┛~~
二つ在っても邪魔になるだけさ


・・・そういやうちに在るなぁ(;´血`)

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

> > C言語でだが作ってやるヽ(´ー｀)ノ
> おまえのスキルじゃ無理

まずはCﾏｶﾞで漏れの記事を読んでから言えやｸﾞﾗｧ

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

だからアルジュナのサントラが売ってねけよ

> Perl使い居る？
> こういうスクリプト作って欲しいんだよ
> 「同じフォルダにえろどファイルがたくさんある」
> 「えろどファイルは filename_連番.jpg などといった形式である」
> 「これらのファイルを ./filename/filename_連番.jpg と
>   ファイル名のディレクトリを掘って分配する」
> たのむよつくってよ
> ./えろど フォルダに5000ファイルくらい溜まってるんだよ…

( ´Д`) 時給750円ぐらいで手動でやるけどどう？

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

> > Perl使い居る？
> > こういうスクリプト作って欲しいんだよ
> > 「同じフォルダにえろどファイルがたくさんある」
> > 「えろどファイルは filename_連番.jpg などといった形式である」
> > 「これらのファイルを ./filename/filename_連番.jpg と
> >   ファイル名のディレクトリを掘って分配する」
> > たのむよつくってよ
> > ./えろど フォルダに5000ファイルくらい溜まってるんだよ…
> C言語でだが作ってやるヽ(´ー｀)ノ

おまえのスキルじゃ無理

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

> > Perl使い居る？
> > こういうスクリプト作って欲しいんだよ
> > 「同じフォルダにえろどファイルがたくさんある」
> > 「えろどファイルは filename_連番.jpg などといった形式である」
> > 「これらのファイルを ./filename/filename_連番.jpg と
> >   ファイル名のディレクトリを掘って分配する」
> > たのむよつくってよ
> > ./えろど フォルダに5000ファイルくらい溜まってるんだよ…
> C言語でだが作ってやるヽ(´ー｀)ノ

俺は日本語で作るぜヽ(´ー｀)ノ手動

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

> > そうでもないだろ
> おまけが豪華だと高くなるような気がしたんだが・・・(´血`)y─┛~~
> 三番煎じだけあってさすがに安いかねぇ

　　　∧ ∧
～(　(´ー`)＜1の復刻じゃないやつA,Bどちらも2Kだったら買っとくべきかな？

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

> 口生理不順だなヽ(´＝｀)ﾉ

次は口生理が消えるのか？

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

> > Perl使い居る？
> > こういうスクリプト作って欲しいんだよ
> > 「同じフォルダにえろどファイルがたくさんある」
> > 「えろどファイルは filename_連番.jpg などといった形式である」
> > 「これらのファイルを ./filename/filename_連番.jpg と
> >   ファイル名のディレクトリを掘って分配する」
> > たのむよつくってよ
> > ./えろど フォルダに5000ファイルくらい溜まってるんだよ…
> つーかファイル名の変換でいいソフトないかね

command.com

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

> 広島　０２０　００５　０６０
> 阪神　００１　１００　０００
> 阪神　藤田(4/2) - ●川尻(3/5) - 伊達(6/5) - 葛西(1/0)
> 広島　高橋(4/2) - ◎ヤング(1/0) - シュールストロム(1/0) - 玉木(2/0) - 小林(1/0)
> 本塁打　新井満塁(4)
> ・・・・・(ρ_;)

ボッコボコだな

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

($fname,$number,$sfx) = m/(.*[^\d])(\d+)(\..*)$/ こんな感じか？

> 固定同士の喧嘩もおもしれけな

＊番煎じの言葉にドキリとする擬古シリーズは多いだろうな

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