約 2,982,047 件
https://w.atwiki.jp/heppoko/pages/15.html
Perlの勉強メモ。 実行環境の準備 基本編 配列編 関数編 ハッシュ編 正規表現編 ☆
https://w.atwiki.jp/undeerl/pages/55.html
Kranteerl y io xal(シャルの書、Kittab fo Syar)はADLPと楽しい仲間が書いた恋愛ラブコメ(笑)小説。一部の理名保持者、著者の友人には原作がいきわたっている。正式に公開されていない時からなぜか二次設定が多数存在する。 目次 概要 あらすじ 登場人物八ヶ崎翔太(Yazugasaki.Xorta) アレス・シャル(Ales.xal) レシェール・クラディア(lexerl.kladi'a) レシェール・ラヴュール・デオーチ(lexerl.lavyrl.deorchi) レシェール・シュカージュ(Lexerl.xkardzy) スカースナ・リーサ(Skarsna.lirca) アレス・ファルカス(Ales.falkac) 八ヶ崎加奈子(Yazugasaki.Kanako) 量産型夕張Y-119(La Laoziamjn Fua Jurbali Y-119)別名 夕張 蜆咲夜(Xidzimi.Cakuja)本名：藤見桜 蜆咲夜の趣向 クラディア×ラヴュール シャル怨霊論 クラディアの名前 ラヴュール・連邦暗殺説 シャル翔太殺害説シャルの熱傷 シャルの熱傷についての判断 シャルの死因 結論 守護霊・夕張説 八ヶ崎翔太・S.Y.説 派生作品Kranteerlシリーズ Kranteerl y io xal -Another- 悠里ノベルゲーム計画(2017) 最後に 関連項目 概要 リパライン語の作者FAFS.sashimi氏とその文才がありすぎる友人と同じ名字のぴすてぃるなるによって2014年に書かれた。ちびしぇるけんと王国連邦が仲良く遊んでいた直後のお話を舞台にしている。悠里構成員であるTKCには「ああ、父親を殺す奴？」と総称された。 あらすじ 日本の相模原市に住んでいる鈍感な中学生、八ヶ崎翔太。その日、学校へ行くと、銀髪のかわいい少女が転校してきた。Ales.xalと名乗るその少女は翔太へ向かって「ケートニアーとしての力を覚醒させろ！」とか「xelkenの親玉と共産党を倒せ」という無理難題を出してくる。八ヶ崎翔太は男前（笑）のため地球に残された量産型夕張Y-119とKANAK-FZY初号機（通称 八ヶ崎加奈子）を見捨て、xelkenへ戦いを挑まさせられる！ 全連邦民のトラウマの少女と、途中から空気になる軍人と、出落ちとともにxelkenに挑んだ八ヶ崎翔太であったが、xelkenの総統アレス・ファルカス・ピスティルを前に苦戦を強いられる。やっと倒せるかと言ったところでファルカスはシャルへぴすてぃるしに行く同じ仲間で、ラーデミンの強化をもくろむレシェール・シュカージュの暴走を止め、特別警察クラディアを殺そうとするが、寸のところで死神を自称する出落ちに助けられるが、形勢は逆転し二人は殺されそうになる。そこへ、さぁ～てこれからな人が合流し、ファルカスとの決着をつけようとするが、シャルはファルカスについに狙われ、シャルは・・・おっとこんな時間に窓に！窓に！FFがいｒ 登場人物 Kranteerl y io xalの登場人物は意外なほど少ない。ここテストに出るよー 八ヶ崎翔太(Yazugasaki.Xorta) 本作の最強のモブでありケートニアー。世界鈍感大会の常連。本作ではモブのくせになかなかいい働きをしてくる。後半ではただの変人になる。序盤、守護霊(夕張)とやらに「力を使う練習をｓ（ｒｙ」と言われるがまま終盤まで何もせずにウェールフープを使えるようになる。アフ？アホ？の子孫などと言われており近日中に八ヶ崎は守護霊を名誉毀損で民事訴訟を起こすらしい[不要出典] アレス・シャル(Ales.xal) 本作の主人公であり、女神。ケートニアー。一番最初に転校生の女の子としてあらわれ、翔太を誘惑する。ある意味翔太が最後まで足を引っ張られた人物。最後に父親にやられる(ぴすてぃるではない)という悲惨な結末を迎えるが、実は生きているという説がうわなにをする著者ッ。ツンデレという設定が一応あったらしいが結局真面目で良い性格の悲愴な娘なだけになってしまった。 レシェール・クラディア(lexerl.kladi a) 連邦の特別警察。ケートニアー。 シュカージュに命を狙われる。シュカージュは実の弟であるがいろんな事情があってお互い全く違う環境でめうめうしている。主要キャラクターのなかで唯一最後まで生き残った人物。ラヴュール大好き。 レシェール・ラヴュール・デオーチ(lexerl.lavyrl.deorchi) 連邦の特別警察。ケートニアー。出落ち担当。 物語の後半に突然、カリスマを持って現れる。いきなりなんか重要な仕事をしたモブが現れてしかも名乗ったなと思いきや、最後に自殺をする。え！？出番これだけ！？と思わせつつなんと最後の最後に死神気取りでクラディアの前にまた登場する。よほどクラディアが好きなんだろうな。まさか甦るかと思いきや、最後の追悼でなんと再び自殺をして最後まで出落ちの名を汚さなかった。まさにモブ・出落ち界の神。 ちなみにデオチ・オブ・ザ・イヤーで毎年金賞を取っている実力者。 レシェール・シュカージュ(Lexerl.xkardzy) 10年前に拉致られxelkenとなったケートニアーでクラディアの弟。クラディアのことを姉さんと呼んだりクラディアと呼んだり、呼称がはっきりしない。本当は翔太やクラディアの血を飲むことでラーデミンを強化させることをもくろんでおり、そのことが総統にばれ、消されかけた。途中からシャルなどが間に入ったおかげで何とか助かったと思いきや総統と共にどこかへ吹っ飛んだ。 スカースナ・リーサ(Skarsna.lirca) 連邦人では珍しいSkarsna姓。連邦軍の軍人でありケートニアー。 地球に襲撃に来たxelken.valtoalの派閥を対処しようとしたところ逃げられたので壊れた建物の後をお金が落ちてないかなと探していたところ翔太らと出会う。また、ドジっ子でありなにがなくてもこける。 アレス・ファルカス(Ales.falkac) 当時のxelken.valtoalの総統であり現トップ。ケートニアー。厨二病の患者。 最後の最後に娘が世話になっているようだなと言って登場するシャルの実の父親。心の中では古リパライン語を理解しようとしない娘を恨んでおり常にぴすてぃるしたいと思っている。こいつは最後まで生きたのか死んだのかが分からない。なぜなら翔太の聖なる光によって突然消え去ったからである。娘にぴすてぃるって最悪の父親だなうわなにをするやめｒ 八ヶ崎加奈子(Yazugasaki.Kanako) 翔太の実の母親。自分の息子のことをちゃん付けするという変人。しかし、実はADLPの一員という立場であり物語の最後までそれは明言されなかった。作者曰く「私に比べたら・・・本当・・・ご愁傷様です」らしいのであまり地位は上ではないようだ。ADLP界隈も厳しいな。 量産型夕張Y-119(La Laoziamjn Fua Jurbali Y-119)別名 夕張 空気。翔太の数少ない親友であり、恋愛のスペシャリスト。翔太がシャルに思いを寄せていることを見抜いた奴。しかし、翔太に対して謎の感情を抱いており、「お前をそんな奴に育てた覚えはない」とか言っている。 量産型なので全国には多数の夕張が生息しており、彼は118代目らしい、なぜ119なのに118かというとどこかで一つ数え間違えたから。残りの117個の夕張もほとんど変わらない性格をしている。誰が作ったんだろうね。一説には連邦のとある漏斗使いが作ったとかうわなにをするやめｒ 蜆咲夜(Xidzimi.Cakuja)本名：藤見桜 Kranteerl y io xal最強を誇る変人。 中学生のころの翔太の知り合いであり、人工言語を作るほど言語が好きだった。シャルたちの言語をリパライン語だと唯一見抜き、なんと指導までした。Viokk.elernaではないかといううわさが浮上している。 蜆咲夜の趣向 物語の中盤で突然ドイツ語であいさつしながら現れてはすぐに消え去ったラヴュールにも劣らない出落ちである蜆咲夜氏だか、実は彼女は様々な実績を持っている。中学英語を勉強し始めたころに初めは英語に関心を示したが何を思ったのか、ラテン語をやり始め、ドハマりした。そのあと彼女は英語への敵対を示した。そのあとはさまざまな言語をやり始め、ついにスワヒリ語と言うものをやり始める。そして彼女はついに名詞は10個以上のクラスを持つべきだ！とか言い出してついに人工言語「シジミ語（仮称）」を創りだした。語彙はラテン語からの借用もいくつかあったが文法は名詞の性は30以上あるし能格言語だし音素は糞多いし動詞の活用は人称と数と目的語の定不定で形が変わるししかも不規則動詞も多いしとにかくヤバい言語を作った。それが故にリパライン語も簡単に解読できたのだろう。 変人と謳われる彼女であるがある意味Kranteerl y io xal随一の天才でもある。 シジミがトゥルッ。今日もあなたのハートに蜆を一撃！蜆の中から蜆咲夜登場よ！ クラディア×ラヴュール あなたは思ったであろう。シュカージュがレシェールなのはさておき、なぜラヴュールまでレシェール姓なのかと。 これにはさまざまな説が浮上しているが、なかでも有力なのが夫婦説だ。 これはクラディアとラヴュールが夫婦であるという説である。ユエスレオネにどちらかが配偶者の姓に合わせるという制度があればの話だが二人に関しては結構ラブラブな描写があったり、かつ兄弟関係であるという描写もないのでなおさら二人の関係が怪しい。 そこでハタ王国・クラディアちゅきちゅき連盟の特別調査員がクラディアの私生活を頑張って調べた。 調査はクラディアちゅきちゅき連盟の調査員2人で行う。 警戒心を持たせないため二人ともネートニアー。ただし、いざというときにはリパコールさん特製のウェールフープ可能化剤を常備する。 もし何かあったらせめてクラディアにぴすてぃるしてから殺されてもいいと誓わせる。 あとは気合 これらのルールの下でついに二人の調査員がもぐりこんだ。 一日目の朝 クラディア氏は出勤時間。特別警察の本部にいる。朝礼を済ませた後今日の任務を遂行するようだ。 一日目の昼 昼ご飯を食べる。 すると調査員は愕然とした。弁当箱にLirfer lavyrlと手書きで書いてある！これはかなりあやしい。調査員にラヴュールへ対する嫉妬心が芽生えた。 しかし、当の本人は常に無表情のためこれに対してどう思っているのかは表情からはいまいち分からない。 ちなみに午後はけっこうラヴュールと接触してしまった。 一日目の勤務終了時 上司に挨拶をした後本部を出る。このまま真っ直ぐ家に帰るのだろうか? ！？...途中でラヴュールが合流した！二人は仲よく並んで歩いている。あ！二人でウェールフープ使ってどっかへ移動した！くそ、逃げられた・・・ 二日目の朝 クラディア氏の出勤時間。なんと調査員はクラディア氏のWP波を感知する装置「くらでぃあちゃんれーだー」を持って追跡を試みた。 二日目の勤務終了時 そして今日も勤務が終了して帰る。やはりラヴュールが合流した後消えた。そこでくらでぃあちゃんれーだーを見てみる。するとハタ王国を指している！え！？しかもクラディアちゅきちゅき連盟本部のすぐ隣だ！ 二人は電話でウェールフープをお願いし、本部への転送を要求した。そして転送。一時的にハタ王国に帰ってきた。 二日目の夜 そして例の隣へ行く。そこは古ぼけたイルキスだった。中に入ってみる。・・・やはりくらでぃあちゃんれーだーが反応している。 おそるおそる中へ入る。...!なんと調査員はとんでもないものを見てしまった。同時に調査員にラヴュールに対しての猛烈 な嫉妬心が生まれ「そこ代われ！」とか「おのれ出落ち！」とか言い出した。すると、ああ！窓に！窓に!FFがいｒ 結果、二人の調査員は再教育されたが、これで夫婦説が有力なものになってきた。以上、二人の調査員の末路を最後まで見守ったユコール氏の報告でした。 シャル怨霊論 2014年年末このページ、小説ともに作られてから早一年が経とうとしていたこの頃Kranteerl y io xalを見返したKranteerkシリーズのファンが一つの理論を発表した。その名も「トイターはハゲ、りはっきゅんはアイドルでリパコールさんは惨殺者、ところでラヴくんはシャル子の怨念によって殺されたと思ったんだよね～理論」略して「汁」を発表した。内容としてはラヴュールがシャルの死に際に翔太がシャルを呼び戻そうとしているのに対してこれに向かって「この労働者は頑張ったよ。」と吐き捨てたのが原因でラヴュールにシャルの怨霊がついてしまいその結果怨霊に操られて自殺したのではないかという理論ではあるが、公式発表では翔太を殺したのを気に病み死んだらしい。ただ、それだとそれよりも多くの人をｱﾚしてきた特別警察職員であるくせにその程度で気に病むというラヴュールの豆腐メンタル性を問う必要があって最初の自殺も政府に対する恐れによる自殺であるためただの豆腐メンタルという可能性が高い。 クラディアの名前 おまけを参照すると解る様にクラディアは北デュインの出身らしく名前もläxerl.kladiaと転写するらしかったがいつの間にかlexerl.klad iaになっていた、そもそもこれらの名前の由来は旧人工言語掲示板の「人工言語の集まる町」というスレの中における、理語主人公"Velxe.lexiese"と理語ヒロイン"Xexel cladie"の後の方を合わせたものである。つまり、この名前の変遷はLexiese.cladie→Läxerl.kladia→Lexerl.kladi aとなっていった可能性が高い。元の名前がレシェーゼ・クラディエとはなるほど似ているとは思うが、取る場所が場所である。 ラヴュール・連邦暗殺説 シャルが連邦に信頼を持っていなかったことからの発想でシャルは連邦への嫌悪感をそれほどはっきりとしていなかったのに対してラヴュールが連邦への嫌悪感をはっきりと発言していたことによって連邦に暗殺されたとされる説である。作中ではラヴュールは連邦に殺されることをあらわにしておりまた初回死亡後の表現でもラヴュールが拳銃を持っていたとされるが、もし立って拳銃で自殺したなら綺麗に手に銃を持っていることは無く不自然な状態である事は他殺である可能性が高いことを指している。しかし、それなら何故クラディアまで殺されなかったかは疑問であり、まだ仮設の域を出ていない。 シャル翔太殺害説 2015年始まって早々、小説の精読と作者の一人であるS.H. klanの悠里参入などで沸いていた悠里界隈であったが2015年1月6日、その仮説が発表された。その名も「シャル翔太殺害説」である。内容としてはシャルが死んだのは翔太の攻撃の影響なのではないかというものである。まず、シャルの死亡であるが最終話である48話においてその死亡が確認されている。 シャルの熱傷 まず、以下の表現を見てほしい。 シャルは父親を食い止めようとWPを発動しようとするが、先ほどの戦闘でウェールフーポをほぼ使い果たしたようだ。 シャルの周りに火焔が現れ始めた。その火焔はやがて10倍に燃え盛りシャルを灰にしようとしていた。 熱風で、シャルの周りで燃え盛っていた火焔が消えたように見えた。 これらを考慮しシャルはウェールフープを行う能力値であるウェールフーポを失ったためにケートニアーとしての回復能力が著しく低下したものと思われそれに加え火炎によって衰弱した可能性がある。これらについての検証を以下に行う。尚、シャルは意識障害後に病院へ運び込まれたものとする。 シャルの熱傷についての判断 仮にシャルのウェールフーポを0としてそれを地球の人間と同一とし、火炎への接触を四秒間と定義し服装についてはソックス、スカート、長袖の上着を想定した。熱傷は手、頭、足に発生すると思われる。ここから、シャルに成人の重症となりえる手掌法での熱傷面積を適用すると9～12%ほどの熱傷面積であるため重症化はしない可能性が高いと思われる。また、Lund Browderの法則で上記と同じ条件で熱傷面積を計算すると9.5%となるため重症化しない可能性が高いと思われる。これらによってシャルの直接的死因は熱傷ではないと予想される。 シャルの死因 では、何故シャルは死んだのであろうか。これを解決する表現がここに隠されている。 そのビームはファルカスに当たるとものすごい爆発を伴った。すると半径700m以内にものすごい爆風が広がり、辺りは更地になった。ものすごい閃光をまわりに放ち、強力なWP波を四方八方に飛ばした。 翔太は地面に着地した。やがて煙が晴れる。そこにはもうファルカスの姿がなくなっていた。まわりには気を失ったクラディアとそれを抱えるラヴュールがいた。 ふと、焦り始める。さっきの方向を見てみる。そこには、目をつぶったまま血まみれになって倒れる無残なシャルの姿があった。 そういってシャルの目から正気が失われ力が抜けた。 翔太に伸ばされたシャルの手は地面に打ち付けられた。 これらから見て翔太は高エネルギーのビームを放っている。これの影響によってシャルは致命傷を負った可能性が高い。死因としては翔太の放った高速高エネルギーの粒子がファルカスを射抜いた瞬間に発生した衝撃波によるものである。近くに居たクラディア、ラヴュールまた衝撃波を出した本人である翔太はケートニアーであるため衝撃波による影響を受けても回復は迅速であり症状は微小であったと考えればもっともである。 結論 つまり、シャルは翔太が殺した。はい、終わり。知ってるか、これを深夜三時近くまで書いてるんだぜ、全く馬鹿馬鹿しいな。 TwitterによるF.F. sashimiとS.H. klanの協議 守護霊・夕張説 2015年3月30日にアロアイェールでありKranteerlerであるfafs.lavnutlart氏が発表した仮説である。lavnutlart氏は翔太に力を与えるために誘導した存在である守護霊の存在を夕張だと仮定した。この仮説を適用すると夕張はkladi aでの目的変更の以前であるxalでは翔太、つまりアフの子孫を使ってxelkenと連邦を更生させる希望を持っていたためにxalで翔太を誘導する謎の声の存在も夕張だと理解する事も出来る。守護霊は翔太に殺意的威圧感を掛けたがこれも夕張が力を使えるか、翔太を利用できるかのテストをしたに過ぎないと考える事も出来る。また、守護霊は次のようにも発言している。 「・・・おっと、自己紹介がまだだったか。私は、君の守護霊のようなものだ。君が生まれたときからずっと憑いておる」 「・・・君が力を持って生まれた以上、仕方のない事だ。いつもは空から君を見ているが、今日は少し話があってな。無論、他言無用で頼む」 守護霊のようなもの、という曖昧な言葉を使うことで確実性を濁し特定させないということで夕張は自分の存在を隠していると思われる。また二文目では自分についても晒さないようにと翔太に言っている。これら複数の要因を考えると守護霊が夕張である可能性は高いと思われる。 八ヶ崎翔太・S.Y.説 2016年8月11日に提唱された。SとYがイニシャルが八ヶ崎翔太だから。 派生作品 Kranteerlシリーズ dyinを除くKranteerlシリーズは全てこのKranteerl y io xalが話に関係していたりする。Kladi a世界線やらLirca世界線やらの話が出てきたのもこれのせいであり、そもそもKladi aのような設定は後付けであることが作者たちの共通認識になっている。 Kranteerl y io xal -Another- 2016年1月より制作が開始されたKranteerl y io xalのリメイクノベルゲームである。どうやら原作と少しストーリーが変わっているようであり、悠里勢から疑問の目で見られること必死である。 悠里ノベルゲーム計画(2017) Kranteerl y io xal -Another-の計画凍結後、2017年3月19日から始まったノベルゲーム計画の一つ。xal, kladi a, lircaを統合するような目的もある。 最後に シャルは死んだ。 関連項目 Kranteerl y io xal(本編) Kranteerl y io xal(おまけ編) Kranteerl y io xal -Another- Kranteerlシリーズ
https://w.atwiki.jp/xronia/pages/14.html
#!/usr/bin/perl use strict; use FileHandle; my $file = $ARGV[0]; my $lines=[]; my $num; { my $line="\r"; my $fh = FileHandle- new($file); (chomp, $line .= "$_\r") while $fh ; $fh- close; $_ = $line; s {/\*.*?\*/} [\r]gsx;# コメント s/\/\/.*\r/\r/gsm;# コメント(C++) s/\r\s*([^\r])/\r$1/gsm;# ブランク削除 s/([^\r])\s*\r/$1\r/gsm;# ブランク削除 s/[\t ]*\\\r//gsm;# \cr を消す # インクルードを消す s/\#(include|undef)[^\r]*//gsm; #print("$_\n") foreach(/(\#define[^\r]*)/gsm); #print("$_\n") foreach(/\#define[^\r]*\{[^\r]*\}/gsm); s/\#define([^\r]*)\{([^\r]*)\}/define$1\{\r$2\r\}/gsm; s/\#define[^\r]*//gsm; # 変数宣言を消す s/\r\w+(? \s+\w+)*(? \s+|\s*\*\s*)[\w\[\]]+;//gsm; # キャストを消す s/(? \*\s*)?\([\w\s\* ]*\)\s* //gs; # 変数宣言+初期化 s/\r\w+\s+([\w\[\]]+\s*=\s*[\w\{\}]+\s*[\w\[\]]*\s*;)/\r$1/gsm; s/(? \*\s*)?\([\w\s\* ]*\)\s*([\( a-zA-Z])/$1/gsm; s/\r\}\s*([^\r])/\r\}\r$1/gsm; #ifマクロの後ろに{をつける s/\r(\#if[^\r]*)/\r;\r$1\r\{\r/gsm; #endifマクロを}に変換 s/\r(\#endif[^\r]*)/\r\;\r}\r/gsm; #elseマクロの前後に{}をつける s/\r\#else/\r\}\r;\r\#else\r\{\r/gsm; # 行末文字で分割 foreach(/.*?[\ \;\{\}]\r/gsm) { s/\r//gsm; s/^\s+//gsm;s/\s+$//gsm;# ブランク削除 s/^\;$//gsm;#先頭;の削除 push(@$lines, $_) if length; } } #{ #my $fh = FileHandle- new(" l1.txt"); #$fh- print(join"\n", @$lines); #$fh- close; # #my $fh = FileHandle- new(" l2.txt"); #$fh- print($line); #$fh- close; #} #print join"\n", split "\r", $line; #push if length $line; #foreach my $i(0..10){ #print "$lines- [$i]\n"; #} { # ネスト解析 my $func = stack(); # ステートメント解析 my $l = fnc($func- {data}); # ファイル出力 my $fh = FileHandle- new(" $file.ss.txt"); $fh- print(join "\n", @$l); $fh- close; exit; view($func); exit; } sub view{ my $dat = shift; my $l = shift; if( ARRAY eq ref $dat ) { for(my $i=0; $i =$#{$dat}; $i++){ print( x $l) if $i 0; my $n = "[$i]- "; print $n; view($dat- [$i], $l + length $n); } print("\n") if($#{$dat} 0); } elsif( HASH eq ref $dat ) { my $f = 0; foreach my $k (keys %$dat) { print( x $l) if $f; my $n = "{$k}- "; print $n; view($dat- {$k}, $l + length $n); $f = 1; } } else{ print " $dat \n"; } } sub fnc { my $dat = shift; my $ret = []; return $ret unless ARRAY eq ref $dat; # ヘッダ my $hedder = +------------------ ; my $fieldn = | @@@@@@@@@@@@ | ; my $field0 = | | ; my $fotter = +-------------- ; # フッダ追加処理 my $fotterchg = sub { my ($ary, $sch, $chg) = @_; my ($a, $s) = ($#{$ary}, length $sch); return 0 unless $sch eq substr $ary- [$a], 0, $s; pop(@$ary) if $sch eq $ary- [$a]; substr($ary- [$a], 0, $s) = $chg; return 1; }; my $last; foreach my $d (@$dat) { $_ = $d- {method}; next if 0 == length; my $line = []; my $l = {}; my $flag = 0; my $openclose;# 括弧の正規表現 $openclose = qr/\(([^()]*(? (??{$openclose})[^()]*)*)\)/; my ($dep) = /$openclose/;# 最初の一つの括弧を取得 my $aft = $ ;# # 括弧の後の文字列取得 $dep =~ s/^\s+//gs;$dep =~ s/\s+$//gs;# ブランク削除 $aft =~ s/^\s+//gs;$aft =~ s/\s+$//gs;# ブランク削除 $aft = "" unless $dep; my $hed = $dep ? @ o ; my $status; if(/^(\#if\S*)\s+(\w+)/) {# #if マクロ ($hed, $dep, $flag) = ($1, $2, 1); } if(/^((if)|(for)|(switch))\s*\(/) {# if/for/switch文 ($hed, $status) = ($1, $aft); $flag = 1 if $2; $flag = 2 if $3; $flag = 3 if $4; } elsif(/^(\#?else)/) {# else(#elseマクロ込み) ($hed, $flag) = ($1, 1); $fotterchg- ($ret, $fotter, $field0); if(/if\s*\(/) {$hed .= " if";$status = $aft;} else {undef $dep;} } elsif(/^(while|until)\s*\(/) {# while/until文 ($hed, $flag) = ($1, 3); ($status, $flag) = ($aft, 2) unless $last =~ /^do/; } elsif(/^do/) {# do～while/until文 ($hed, $flag) = ( do , 2); undef $dep; } # ライン追加 my $lineadd = sub { return unless @$ret; return if | eq $ret- [$#{$ret}]; push @$ret, | ; }; $lineadd- () if $ret- [$#{$ret}] =~ /^[^o]/; if( @ eq $hed @{$d- {data}} 0) { push(@$ret, "[ $_ ]"); $lineadd- (); $hed = $hedder; } # ステートメントだったら判定内容を展開 if($flag) { my $h = $hedder; substr($h, 2, length $hed) = $hed; substr($h, -3, 1) = if $flag == 1; substr($h, -4, 1) = + if $flag == 2; substr($h, -4) = if $flag == 3; push @$line, $h; if(defined $dep) {# 判定内容を展開 my $l = 0;# @の文字数カウント $l++ while($fieldn =~ /\@/g); foreach my $b (unpack "a$l" x (1+ int(length($dep) / $l)), $dep) { my $a = $fieldn; $b = sprintf "%-${l}s", $b; $a =~ s/\@+/$b/; push @$line, $a; } } else {# 判定無しなら空フィールド追加 push @$line, $field0; } } elsif(1 == length $hed) { # 変数代入、関数呼出の追加 push @$line, "$hed $_"; } else { # サブフィールドあり push @$line, $hed, $field0; $flag = 1; } # 階層下の処理呼出 my $n = fnc(length $status ? [ { method = $status, data = [] } ] $d- {data}); # 階層下と本体の結合処理 if(@$n 0) { $flag = 1; if(@$line @$n) {# 階層下のほうが少ない $line- [$_] = "$line- [$_]$n- [$_]" foreach 0..$#{$n}; } else {# 階層下の方が多い $line- [$_] = "$line- [$_]$n- [$_]" foreach 0..$#{$line}; # 空フィールド＋階層下を追加 push(@$line, "$field0$n- [$_]") foreach @$line..$#{$n}; # フッダ追加処理 $flag = 0 if $fotterchg- ($line, $field0, $fotter); } } # フッタ追加 push(@$line, $fotter) if $flag; push(@$ret, @$line); $last = $_; } return($ret); } # ネスト解析処理 sub stack { my ($method) = @_; my $dat = {data = []}; $dat- {method} = $method if $method; while($num = $#{$lines}) { my $line = $lines- [$num]; ($num++, next) unless length $line; if($line =~ s/^\}//) {# ネスト減 $lines- [$num] = $line; last; }elsif($line =~ s/\{$//) {# ネスト $lines- [$num] = $line; $num++; push(@{$dat- {data}}, stack($line)); } else { $num++; push(@{$dat- {data}}, {method = $line, data = []}); } } return $dat; } #■ エスケープされていないダブルクォート #$reg = qr/(? !\\)(? \\\\)*\"/; #my @define = qw/__DEBUG __WRITELOG/; # define を指定する # $src にソースを丸ごとつっこむ # #if-#endif #$src =~ s|^#if\s+(\w+)(.*?)^(#else(.*?))?^#endif|($1)?$2 $4|emsg; # #ifdef-#endif #$src =~ s|^#ifdef\s+(\w+)(.*?)^(#else(.*?))?^#endif|(grep {$_ eq $1 } @define)?$2 $4|emsg; # #ifndef-#endif #$src =~ s|^#ifndef\s+(\w+)(.*?)^(#else(.*?))?^#endif|(grep {$_ eq $1 } @define)?$4 $2|emsg;
https://w.atwiki.jp/hitorikakurenbo/pages/101.html
118スレ目662 ：本当にあった（千氏）：2008/07/05(土) 21 43 41 ID az9FlLbB0 こばんは ここは新参に厳しいところですか？ この前見たら新参で荒れてたのですが・・・ 664 ：本当にあった怖い名無し：2008/07/05(土) 21 50 55 ID 7OUvLK630 662 タイミングが悪かったんだと思うよ。何らかの事件の後は結構酷いｗ 実況者歓迎と言うのはあっても、新参歓迎という雰囲気でもないかもなｗ っていうか、新参ってバレないようにすればいい話でもある。 テンプレにあるような事を質問すれば叩かれるかもな。665 ：本当にあった（千氏）：2008/07/05(土) 21 57 10 ID az9FlLbB0 662 なるほど ﾚｽさんくすですー もし準備が間に合いそうならやってみようかな でも飛び込みでいきなりやるのって 皆嫌がりますよねー；666 ：本当にあった（千氏）：2008/07/05(土) 21 58 00 ID az9FlLbB0 うはｗ 間違えてるし＞＜ 664です 連投ごめんなさい 667 ：本当にあった怖い名無し：2008/07/05(土) 22 01 23 ID sQkDTNJRO 今晩ほんとにすんのかな？ かなりｗｋｔｋ668 ：本当にあった（千氏）：2008/07/05(土) 22 02 55 ID az9FlLbB0 667 流れは熟知しましたので あとは材料と勇気ですねｗ ちょっと材料仕入れてきますねー 間に合うかなー 669 ：本当にあった怖い名無し：2008/07/05(土) 22 06 12 ID mAPDDhccO おろろろー(ﾟ∀ﾟ)今日は三名さまの勇者さんですかな？wktk 670 ：本当にあった怖い名無し：2008/07/05(土) 22 06 46 ID 7OUvLK630 666 率直に言うと、ある程度ROMってどんな感じか 雰囲気を見てみた後で実況したほうが俺はいいと思うよ。 例えば、「皆嫌がりますよねー；」って発言は、気が利いてるようでも、 ここでは全然利いてないんだよね。 別に批判している訳じゃ無いから気にするな。 とりあえず、ある程度ROMった方がいいよって事。 674 ：本当にあった怖い名無し：2008/07/05(土) 22 18 06 ID 7OUvLK630 668 670はあまり気にせず頑張ってくれ。応援する。 675 ：本当にあった怖い名無し：2008/07/05(土) 22 20 18 ID CBdSCqtn0 今日3人もいるの？？ ｗｋｔｋだな！ｗｗｗ676 ：本当にあった（千氏）：2008/07/05(土) 22 24 33 ID 9b7Jmy5WO 674 はいー 気にしません 今ドンキーに着きました とりあえず物を 677 ：本当にあった怖い名無し：2008/07/05(土) 22 24 35 ID W3TT1uMi0 ん？３人もいるのか 手順間違えないようにきおつけていけよ 679 ：本当にあった怖い名無し：2008/07/05(土) 22 27 39 ID grxQv2VGO 676 優しい意見だから多少は気にした方がいいかもな。 応援する。 定番人形はディズニーキャラコーナーみたいな場所があれば 多分600円前後で売ってるぞ690 ：千：2008/07/05(土) 23 03 12 ID az9FlLbB0 () ( ) ( ) ( ﾟ) ( ﾟｰ) (ﾟｰﾟ)ﾉ ﾀﾗｲﾏ 今家に着きましたー 693 ：レティス ◆dFeO3E76Yo ：2008/07/05(土) 23 07 23 ID lo1kKEuSO 690 人形の値段いくらでした？697 ：千：2008/07/05(土) 23 14 40 ID az9FlLbB0 693 レティスさんはじめまして 人形は600円ぐらいですー 今写真とってイメピタに送信しようと思ってるとこですー あと携帯から2chつながりにくいので ﾉｰﾄPCから実況しようと思います あとあと実況中に携帯で写真撮ったら 携帯つながり難いですが頑張って 画像貼ろうかと思います99 ：千：2008/07/05(土) 23 18 56 ID 9b7Jmy5WO 千です 人形等 http //imepita.jp/20080705/837640709 ：千：2008/07/05(土) 23 56 23 ID 9b7Jmy5WO 髪の毛入れましたもちろん爪の破片も http //imepita.jp/20080705/852370 完成 http //imepita.jp/20080705/860590710 ：千：2008/07/06(日) 00 00 42 ID U54eer0o0 トリップですか・・・ ごめんなさい わからないです； いちおうスペック 年は22歳の男社会人です 1年前なんかはよく肝試しに行ったりしてましたー 最近は行ってないのかな 霊感はないです と、思いますー 心霊的なものは信じちゃうかもですが 実証の時は平常心でやりたいと思いますー よろしくです722 ：千 ◆ExGQrDul2E ：2008/07/06(日) 00 16 46 ID U54eer0o0 これでトリップは大丈夫ですかね？ ごめんなさい 1-26 今読み直しました；728 ：千 ◆ExGQrDul2E ：2008/07/06(日) 00 26 19 ID U54eer0o0 とりあえず今クローゼットの中入ってみたけど 暑いｗ 汗ダラダラになりそうｗ ノートPC、携帯とも 充電できる環境をつくりますたｂ 729 ：本当にあった怖い名無し：2008/07/06(日) 00 27 01 ID j7EkEnV20 期待 勇者達お気をつけて 730 ：本当にあった怖い名無し：2008/07/06(日) 00 29 41 ID 2ZmCcS550 725 そっか！なら安心だわｗありがと！733 ：千 ◆ExGQrDul2E ：2008/07/06(日) 00 37 42 ID U54eer0o0 開始予定日時：今日の2時ちょうど 行なう場所：マイルームのくろーぜっと 年齢： ２２ 性別： 男 霊感の有無：なし 実行の目的：非科学的なものか科学的に考えられるのかやってみたい あと好奇心 霊視的カキコはどのくらいまでおｋ？： どこまでもー大丈夫 勇者の心理状況の予測は（チキンor余裕）？： その場合にならんとわからんかも マターリ系カキコはどのくらいまでおｋ？：どこまでもいってくだせえ 検証の雰囲気は？： どきどき 何かコメントあれば： 何も起きない気がする738 ：千 ◆ExGQrDul2E ：2008/07/06(日) 00 52 45 ID U54eer0o0 736 たぬきさんもおつかれさまです その気持ちすごい分かりますー とりあえずもう10分を切った そろそろですね 739 ：本当にあった怖い名無し：2008/07/06(日) 00 54 06 ID 1anysGL50 738 2時からじゃなかった？まだ1時まえだぞ？ 740 ：本当にあった怖い名無し：2008/07/06(日) 00 55 36 ID m/wg2kqH0 1 00より2 00、2 00より3 00が発生率が高いですよ 出来れば3 00実行が一番かと・・・ 時間が早いほどに起こる現象は軽くなる傾向ですよ あくまで傾向ですが 741 ：本当にあった怖い名無し：2008/07/06(日) 00 56 16 ID YuhvqPW10 738 おちつけw この時期、こもること自体大変かも… 塩水の他に水分持ち込んでもいいんだっけ？742 ：千 ◆ExGQrDul2E ：2008/07/06(日) 00 56 21 ID U54eer0o0 739 あｗ やばい緊張のため時間間違えたorz 馬鹿な俺をお許しを・・・・ 746 ：本当にあった怖い名無し：2008/07/06(日) 01 00 09 ID 1anysGL50 742 儀式の手順だけは落ち着いてやってくれよｗｗ754 ：千 ◆ExGQrDul2E ：2008/07/06(日) 01 06 57 ID U54eer0o0 うっし 時間を3時開始に変更します それまでイメトレ 757 ：本当にあった怖い名無し：2008/07/06(日) 01 08 30 ID 1anysGL50 簡単なまとめ 千＆たぬき氏開始時間3時 レティス氏2時半 おｋ？772 ：千 ◆ExGQrDul2E ：2008/07/06(日) 01 19 57 ID RgVMX1AxO 携帯から失礼 いちお間取り http //imepita.jp/20080706/047130 見にくいし汚くてすまん 嫌な感じしたら、すぐ中断ね。852 ：千 ◆ExGQrDul2E ：2008/07/06(日) 02 36 48 ID U54eer0o0 ちょｗ お笑いなのに 葬式かよ これからだというのに・・・ あｗテレビね 853 ：本当にあった怖い名無し：2008/07/06(日) 02 37 55 ID XEpJyjY+O 待機どまい 854 ：本当にあった怖い名無し：2008/07/06(日) 02 38 49 ID 5x09aFYO0 852 フジwww おれもみてるぜw 856 ：本当にあった怖い名無し：2008/07/06(日) 02 39 26 ID aNf8DZBn0 852 がんばれ～ チャンネル特定した クレアベネットってTORかよｗ860 ：千 ◆ExGQrDul2E ：2008/07/06(日) 02 42 34 ID U54eer0o0 テレビの内容大事よねｗ 隠れてて吹かないか 心配・・・・879 ：千 ◆ExGQrDul2E ：2008/07/06(日) 02 50 07 ID U54eer0o0 なかなか 緊張してきたー わくてかー 886 ：本当にあった怖い名無し：2008/07/06(日) 02 51 26 ID so5X3IrE0 千さんもがんばー！ でも気をつけてねー893 ：千 ◆ExGQrDul2E ：2008/07/06(日) 02 54 37 ID U54eer0o0 @5分したら行動を開始する 894 ：本当にあった怖い名無し：2008/07/06(日) 02 55 26 ID SkPK0saa0 千の勇者氏、応援してまつ！ 895 ：本当にあった怖い名無し：2008/07/06(日) 02 55 40 ID 9WHIdNEj0 千氏がんがれー 896 ：本当にあった怖い名無し：2008/07/06(日) 02 55 55 ID m/eqFrDU0 893 御武運を 897 ：本当にあった怖い名無し：2008/07/06(日) 02 55 58 ID eQ9o6fhY0 893 応援してます 899 ：本当にあった怖い名無し：2008/07/06(日) 02 56 19 ID 4GVMVeQFO おｋ 千氏気合い入ってんなww 900 ：本当にあった怖い名無し：2008/07/06(日) 02 56 52 ID XEpJyjY+O 千さんガンバ( -^*)/909 ：千 ◆ExGQrDul2E ：2008/07/06(日) 02 59 30 ID U54eer0o0 うあー 皆の声援ありがたー ってもうそろそろじゃないかｗ 人形の名前は熊のぷーさんだからぷーたろうです ではいってきますん ぷたろうとらんでぶーしてくるー ﾉｼ 隠れてから実況しますので実況開始914 ：たぬき ◆rrJRgt9bYk ：2008/07/06(日) 03 00 49 ID Hz3nXijf0 千さん頑張って下さい！ 自分も始めようと思います。人形の名前はチャッキーで。 それでは、行ってきます。 918 ：本当にあった怖い名無し：2008/07/06(日) 03 01 25 ID CkBvh+22O 千氏、がんがれー！ 919 ：本当にあった怖い名無し：2008/07/06(日) 03 01 46 ID FJCIlE6HO 二人とも頑張って下さい936 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 08 02 ID U54eer0o0 今かくれてまふ 特に何もなすー 携帯で写真撮りましたが 今のせたほうがいいのかな？942 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 10 14 ID U54eer0o0 やっぱす 暑いっすｗ 946 ：本当にあった怖い名無し：2008/07/06(日) 03 12 08 ID aNf8DZBn0 暑さが一番の敵かもなこの季節 気をつけて・・949 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 13 36 ID RgVMX1AxO 沈めたぷーたろう http //imepita.jp/20080706/114950 刺したぷーたろう http //imepita.jp/20080706/115330 952 ：本当にあった怖い名無し：2008/07/06(日) 03 15 12 ID aNf8DZBn0 949 気持ちいいくらいざっくり刺さってるなｗ 953 ：本当にあった怖い名無し：2008/07/06(日) 03 15 48 ID m/wg2kqH0 949 ちゃんと抜いてきたよな・・・？ 954 ：本当にあった怖い名無し：2008/07/06(日) 03 15 51 ID /am0pumg0 949仄暗い水の底からぷーたろうがｗｗｗ 955 ：本当にあった怖い名無し：2008/07/06(日) 03 16 01 ID m/eqFrDU0 ぷーたろう貫通ｗ 958 ：本当にあった怖い名無し：2008/07/06(日) 03 16 53 ID 3+IZsR4BO 949 貫通ぐあいにﾜﾛﾀ 959 ：本当にあった怖い名無し：2008/07/06(日) 03 17 00 ID 9WHIdNEj0 949 貫通してるｗｗｗ 960 ：本当にあった怖い名無し：2008/07/06(日) 03 17 16 ID 4GVMVeQFO ちょｗｗ 千氏顔面刺しっすかｗｗ 961 ：本当にあった怖い名無し：2008/07/06(日) 03 17 27 ID QEKZQ5v9O 949 ハサミｗｗｗ貫通してるｗ 963 ：本当にあった怖い名無し：2008/07/06(日) 03 18 25 ID XEpJyjY+O ブッスリww 964 ：本当にあった怖い名無し：2008/07/06(日) 03 18 27 ID yRGTWR0SO 949 予想外なぶっ刺し具合を見て 思わず飲んでたなっちゃんが気管に入った・・痛い・・(ﾉ_･｡)965 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 18 48 ID U54eer0o0 953 抜いてきたーｂ 952.955 貫通させましたｗ 954 水写すの怖いですねなんか写りそうでー；967 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 19 52 ID U54eer0o0 俺的には皆さんのリアクションにわろたｗ 968 ：本当にあった怖い名無し：2008/07/06(日) 03 20 28 ID KA3/WgUA0 千氏、余裕ですな。976 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 23 54 ID U54eer0o0 968 まだ余裕ですよん♪ ただただ暑いです あと暗い中で明るいもの（PCとか携帯 を見てるから幻覚とか見ちゃうのかなー なんて思った 息しづらいし 暗いしせまいし こわいよーｗ 981 ：本当にあった怖い名無し：2008/07/06(日) 03 25 32 ID SkPK0saa0 976 明るいの見た後に暗いところ見ると白く残像がみえる場合あるよねｗ983 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 25 52 ID U54eer0o0 975 何も見えないかもー＞＜ これからっすねｗ986 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 27 07 ID U54eer0o0 978 そうそうー 何か見えてもあんまし気にしないことにします つづく クリックしてください ↓2008年7月6日千 ◆ExGQrDul2Eその２
https://w.atwiki.jp/collection/pages/94.html
118スレ目662 ：本当にあった（千氏）：2008/07/05(土) 21 43 41 ID az9FlLbB0 こばんは ここは新参に厳しいところですか？ この前見たら新参で荒れてたのですが・・・ 664 ：本当にあった怖い名無し：2008/07/05(土) 21 50 55 ID 7OUvLK630 662 タイミングが悪かったんだと思うよ。何らかの事件の後は結構酷いｗ 実況者歓迎と言うのはあっても、新参歓迎という雰囲気でもないかもなｗ っていうか、新参ってバレないようにすればいい話でもある。 テンプレにあるような事を質問すれば叩かれるかもな。665 ：本当にあった（千氏）：2008/07/05(土) 21 57 10 ID az9FlLbB0 662 なるほど ﾚｽさんくすですー もし準備が間に合いそうならやってみようかな でも飛び込みでいきなりやるのって 皆嫌がりますよねー；666 ：本当にあった（千氏）：2008/07/05(土) 21 58 00 ID az9FlLbB0 うはｗ 間違えてるし＞＜ 664です 連投ごめんなさい 667 ：本当にあった怖い名無し：2008/07/05(土) 22 01 23 ID sQkDTNJRO 今晩ほんとにすんのかな？ かなりｗｋｔｋ668 ：本当にあった（千氏）：2008/07/05(土) 22 02 55 ID az9FlLbB0 667 流れは熟知しましたので あとは材料と勇気ですねｗ ちょっと材料仕入れてきますねー 間に合うかなー 669 ：本当にあった怖い名無し：2008/07/05(土) 22 06 12 ID mAPDDhccO おろろろー(ﾟ∀ﾟ)今日は三名さまの勇者さんですかな？wktk 670 ：本当にあった怖い名無し：2008/07/05(土) 22 06 46 ID 7OUvLK630 666 率直に言うと、ある程度ROMってどんな感じか 雰囲気を見てみた後で実況したほうが俺はいいと思うよ。 例えば、「皆嫌がりますよねー；」って発言は、気が利いてるようでも、 ここでは全然利いてないんだよね。 別に批判している訳じゃ無いから気にするな。 とりあえず、ある程度ROMった方がいいよって事。 674 ：本当にあった怖い名無し：2008/07/05(土) 22 18 06 ID 7OUvLK630 668 670はあまり気にせず頑張ってくれ。応援する。 675 ：本当にあった怖い名無し：2008/07/05(土) 22 20 18 ID CBdSCqtn0 今日3人もいるの？？ ｗｋｔｋだな！ｗｗｗ676 ：本当にあった（千氏）：2008/07/05(土) 22 24 33 ID 9b7Jmy5WO 674 はいー 気にしません 今ドンキーに着きました とりあえず物を 677 ：本当にあった怖い名無し：2008/07/05(土) 22 24 35 ID W3TT1uMi0 ん？３人もいるのか 手順間違えないようにきおつけていけよ 679 ：本当にあった怖い名無し：2008/07/05(土) 22 27 39 ID grxQv2VGO 676 優しい意見だから多少は気にした方がいいかもな。 応援する。 定番人形はディズニーキャラコーナーみたいな場所があれば 多分600円前後で売ってるぞ690 ：千：2008/07/05(土) 23 03 12 ID az9FlLbB0 () ( ) ( ) ( ﾟ) ( ﾟｰ) (ﾟｰﾟ)ﾉ ﾀﾗｲﾏ 今家に着きましたー 693 ：レティス ◆dFeO3E76Yo ：2008/07/05(土) 23 07 23 ID lo1kKEuSO 690 人形の値段いくらでした？697 ：千：2008/07/05(土) 23 14 40 ID az9FlLbB0 693 レティスさんはじめまして 人形は600円ぐらいですー 今写真とってイメピタに送信しようと思ってるとこですー あと携帯から2chつながりにくいので ﾉｰﾄPCから実況しようと思います あとあと実況中に携帯で写真撮ったら 携帯つながり難いですが頑張って 画像貼ろうかと思います99 ：千：2008/07/05(土) 23 18 56 ID 9b7Jmy5WO 千です 人形等 http //imepita.jp/20080705/837640709 ：千：2008/07/05(土) 23 56 23 ID 9b7Jmy5WO 髪の毛入れましたもちろん爪の破片も http //imepita.jp/20080705/852370 完成 http //imepita.jp/20080705/860590710 ：千：2008/07/06(日) 00 00 42 ID U54eer0o0 トリップですか・・・ ごめんなさい わからないです； いちおうスペック 年は22歳の男社会人です 1年前なんかはよく肝試しに行ったりしてましたー 最近は行ってないのかな 霊感はないです と、思いますー 心霊的なものは信じちゃうかもですが 実証の時は平常心でやりたいと思いますー よろしくです722 ：千 ◆ExGQrDul2E ：2008/07/06(日) 00 16 46 ID U54eer0o0 これでトリップは大丈夫ですかね？ ごめんなさい 1-26 今読み直しました；728 ：千 ◆ExGQrDul2E ：2008/07/06(日) 00 26 19 ID U54eer0o0 とりあえず今クローゼットの中入ってみたけど 暑いｗ 汗ダラダラになりそうｗ ノートPC、携帯とも 充電できる環境をつくりますたｂ 729 ：本当にあった怖い名無し：2008/07/06(日) 00 27 01 ID j7EkEnV20 期待 勇者達お気をつけて 730 ：本当にあった怖い名無し：2008/07/06(日) 00 29 41 ID 2ZmCcS550 725 そっか！なら安心だわｗありがと！733 ：千 ◆ExGQrDul2E ：2008/07/06(日) 00 37 42 ID U54eer0o0 開始予定日時：今日の2時ちょうど 行なう場所：マイルームのくろーぜっと 年齢： ２２ 性別： 男 霊感の有無：なし 実行の目的：非科学的なものか科学的に考えられるのかやってみたい あと好奇心 霊視的カキコはどのくらいまでおｋ？： どこまでもー大丈夫 勇者の心理状況の予測は（チキンor余裕）？： その場合にならんとわからんかも マターリ系カキコはどのくらいまでおｋ？：どこまでもいってくだせえ 検証の雰囲気は？： どきどき 何かコメントあれば： 何も起きない気がする738 ：千 ◆ExGQrDul2E ：2008/07/06(日) 00 52 45 ID U54eer0o0 736 たぬきさんもおつかれさまです その気持ちすごい分かりますー とりあえずもう10分を切った そろそろですね 739 ：本当にあった怖い名無し：2008/07/06(日) 00 54 06 ID 1anysGL50 738 2時からじゃなかった？まだ1時まえだぞ？ 740 ：本当にあった怖い名無し：2008/07/06(日) 00 55 36 ID m/wg2kqH0 1 00より2 00、2 00より3 00が発生率が高いですよ 出来れば3 00実行が一番かと・・・ 時間が早いほどに起こる現象は軽くなる傾向ですよ あくまで傾向ですが 741 ：本当にあった怖い名無し：2008/07/06(日) 00 56 16 ID YuhvqPW10 738 おちつけw この時期、こもること自体大変かも… 塩水の他に水分持ち込んでもいいんだっけ？742 ：千 ◆ExGQrDul2E ：2008/07/06(日) 00 56 21 ID U54eer0o0 739 あｗ やばい緊張のため時間間違えたorz 馬鹿な俺をお許しを・・・・ 746 ：本当にあった怖い名無し：2008/07/06(日) 01 00 09 ID 1anysGL50 742 儀式の手順だけは落ち着いてやってくれよｗｗ754 ：千 ◆ExGQrDul2E ：2008/07/06(日) 01 06 57 ID U54eer0o0 うっし 時間を3時開始に変更します それまでイメトレ 757 ：本当にあった怖い名無し：2008/07/06(日) 01 08 30 ID 1anysGL50 簡単なまとめ 千＆たぬき氏開始時間3時 レティス氏2時半 おｋ？772 ：千 ◆ExGQrDul2E ：2008/07/06(日) 01 19 57 ID RgVMX1AxO 携帯から失礼 いちお間取り http //imepita.jp/20080706/047130 見にくいし汚くてすまん 嫌な感じしたら、すぐ中断ね。852 ：千 ◆ExGQrDul2E ：2008/07/06(日) 02 36 48 ID U54eer0o0 ちょｗ お笑いなのに 葬式かよ これからだというのに・・・ あｗテレビね 853 ：本当にあった怖い名無し：2008/07/06(日) 02 37 55 ID XEpJyjY+O 待機どまい 854 ：本当にあった怖い名無し：2008/07/06(日) 02 38 49 ID 5x09aFYO0 852 フジwww おれもみてるぜw 856 ：本当にあった怖い名無し：2008/07/06(日) 02 39 26 ID aNf8DZBn0 852 がんばれ～ チャンネル特定した クレアベネットってTORかよｗ860 ：千 ◆ExGQrDul2E ：2008/07/06(日) 02 42 34 ID U54eer0o0 テレビの内容大事よねｗ 隠れてて吹かないか 心配・・・・879 ：千 ◆ExGQrDul2E ：2008/07/06(日) 02 50 07 ID U54eer0o0 なかなか 緊張してきたー わくてかー 886 ：本当にあった怖い名無し：2008/07/06(日) 02 51 26 ID so5X3IrE0 千さんもがんばー！ でも気をつけてねー893 ：千 ◆ExGQrDul2E ：2008/07/06(日) 02 54 37 ID U54eer0o0 @5分したら行動を開始する 894 ：本当にあった怖い名無し：2008/07/06(日) 02 55 26 ID SkPK0saa0 千の勇者氏、応援してまつ！ 895 ：本当にあった怖い名無し：2008/07/06(日) 02 55 40 ID 9WHIdNEj0 千氏がんがれー 896 ：本当にあった怖い名無し：2008/07/06(日) 02 55 55 ID m/eqFrDU0 893 御武運を 897 ：本当にあった怖い名無し：2008/07/06(日) 02 55 58 ID eQ9o6fhY0 893 応援してます 899 ：本当にあった怖い名無し：2008/07/06(日) 02 56 19 ID 4GVMVeQFO おｋ 千氏気合い入ってんなww 900 ：本当にあった怖い名無し：2008/07/06(日) 02 56 52 ID XEpJyjY+O 千さんガンバ( -^*)/909 ：千 ◆ExGQrDul2E ：2008/07/06(日) 02 59 30 ID U54eer0o0 うあー 皆の声援ありがたー ってもうそろそろじゃないかｗ 人形の名前は熊のぷーさんだからぷーたろうです ではいってきますん ぷたろうとらんでぶーしてくるー ﾉｼ 隠れてから実況しますので実況開始914 ：たぬき ◆rrJRgt9bYk ：2008/07/06(日) 03 00 49 ID Hz3nXijf0 千さん頑張って下さい！ 自分も始めようと思います。人形の名前はチャッキーで。 それでは、行ってきます。 918 ：本当にあった怖い名無し：2008/07/06(日) 03 01 25 ID CkBvh+22O 千氏、がんがれー！ 919 ：本当にあった怖い名無し：2008/07/06(日) 03 01 46 ID FJCIlE6HO 二人とも頑張って下さい936 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 08 02 ID U54eer0o0 今かくれてまふ 特に何もなすー 携帯で写真撮りましたが 今のせたほうがいいのかな？942 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 10 14 ID U54eer0o0 やっぱす 暑いっすｗ 946 ：本当にあった怖い名無し：2008/07/06(日) 03 12 08 ID aNf8DZBn0 暑さが一番の敵かもなこの季節 気をつけて・・949 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 13 36 ID RgVMX1AxO 沈めたぷーたろう http //imepita.jp/20080706/114950 刺したぷーたろう http //imepita.jp/20080706/115330 952 ：本当にあった怖い名無し：2008/07/06(日) 03 15 12 ID aNf8DZBn0 949 気持ちいいくらいざっくり刺さってるなｗ 953 ：本当にあった怖い名無し：2008/07/06(日) 03 15 48 ID m/wg2kqH0 949 ちゃんと抜いてきたよな・・・？ 954 ：本当にあった怖い名無し：2008/07/06(日) 03 15 51 ID /am0pumg0 949仄暗い水の底からぷーたろうがｗｗｗ 955 ：本当にあった怖い名無し：2008/07/06(日) 03 16 01 ID m/eqFrDU0 ぷーたろう貫通ｗ 958 ：本当にあった怖い名無し：2008/07/06(日) 03 16 53 ID 3+IZsR4BO 949 貫通ぐあいにﾜﾛﾀ 959 ：本当にあった怖い名無し：2008/07/06(日) 03 17 00 ID 9WHIdNEj0 949 貫通してるｗｗｗ 960 ：本当にあった怖い名無し：2008/07/06(日) 03 17 16 ID 4GVMVeQFO ちょｗｗ 千氏顔面刺しっすかｗｗ 961 ：本当にあった怖い名無し：2008/07/06(日) 03 17 27 ID QEKZQ5v9O 949 ハサミｗｗｗ貫通してるｗ 963 ：本当にあった怖い名無し：2008/07/06(日) 03 18 25 ID XEpJyjY+O ブッスリww 964 ：本当にあった怖い名無し：2008/07/06(日) 03 18 27 ID yRGTWR0SO 949 予想外なぶっ刺し具合を見て 思わず飲んでたなっちゃんが気管に入った・・痛い・・(ﾉ_･｡)965 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 18 48 ID U54eer0o0 953 抜いてきたーｂ 952.955 貫通させましたｗ 954 水写すの怖いですねなんか写りそうでー；967 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 19 52 ID U54eer0o0 俺的には皆さんのリアクションにわろたｗ 968 ：本当にあった怖い名無し：2008/07/06(日) 03 20 28 ID KA3/WgUA0 千氏、余裕ですな。976 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 23 54 ID U54eer0o0 968 まだ余裕ですよん♪ ただただ暑いです あと暗い中で明るいもの（PCとか携帯 を見てるから幻覚とか見ちゃうのかなー なんて思った 息しづらいし 暗いしせまいし こわいよーｗ 981 ：本当にあった怖い名無し：2008/07/06(日) 03 25 32 ID SkPK0saa0 976 明るいの見た後に暗いところ見ると白く残像がみえる場合あるよねｗ983 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 25 52 ID U54eer0o0 975 何も見えないかもー＞＜ これからっすねｗ986 ：千 ◆ExGQrDul2E ：2008/07/06(日) 03 27 07 ID U54eer0o0 978 そうそうー 何か見えてもあんまし気にしないことにします つづく クリックしてください ↓2008年7月6日千 ◆ExGQrDul2Eその２
https://w.atwiki.jp/koiru/pages/40.html
事実上最も早く自動高速投票ツールを公開した人物(もっとも早くつくったのはbatの人？) だがPerlのインストールが必須、なので初心者には見向きもされない、南無 本家閉鎖後にbatの人が公開した投稿方法にも対応したらしい(筆者は未確認) ちなみに得票数集計を貼ってくれるのもこの人。
https://w.atwiki.jp/fieds_labo1/pages/61.html
perl 5.8処理系 ※まだぁ＠＠; Windowsで動作するActivePerl5.8処理系について 5.8.6、5.8.8で動作確認。 shift-jisテキストデータの処理を行っているperlプログラムを文字化けせずに動かす。 １．前提条件 ソースファイルはshift-jisで記述されている。 ソースファイル内のダメ文字はエスケープ処置済み。 出力するHTMLの文字コードはshift-jis。 meta http-equiv="Content-Type" content=text/html; charset=Shift_jis" フォーム入力はjcode.plでshift-jisに変換。 shift-jisテキストデータを読み書きする。 ２．5.8の入出力処理 入出力はバイト列。 【参考】 Perl 5.8.x Unicode関連 ３．方針 use encoding "shiftjis"; は使わない。よそのモジュール（最近のはutfが多いと思う）を呼んでいると激しく危ないから。 use Encode; の decode(),encode() を使う。 use open は使わない。うまくいかないケースっていうのが、よくわからなかったから^^; ４．記述例 テキストファイル入力時にエンコード指定。エンコードはshift-jisじゃなくてcp932。INからはUTF8フラグ付文字列を取得。 if(!open IN, " encoding(cp932)", "$text_file") { error( ファイルが開けません ); } 入力フォームで入力した名前がテキストデータにあるか検索する場合。 $formin{ name }はjcode.plのconvertでsjis変換されたデータ。 $text_data_nameはcp932エンコード指定で読み込んだテキスト。 $compare_word_utf = Encode decode( cp932 ,$formin{ name }); if($text_data_name =~ /$compare_word_utf/) { テキストデータを表示。UTF8フラグ付文字列をcp932に変換。フラグ落とし。 print " td ".Encode encode( cp932 ,$text_data_name)." /td \n";
https://w.atwiki.jp/riard/pages/101.html
Exert 直訳は「発動する」「使う」等。 場に出ているカードは 使用可(Ready) か 使用済(Exert) の、どちらかの状態である。 （クエストカードは除く）。 何らかの行動を取ったカードは、Exert状態となり、 カードにはその旨を表す赤丸アイコンが付く。 自分のターンのレディフェイズで、Ready状態に戻る。 攻撃に参加したことによりExert。 防御に参加したことによりExert。 特殊能力を発動したことによりExert。
https://w.atwiki.jp/skill2linux/pages/16.html
基本的に、utf-8 を使用するのが好ましい。 だが、結構統一するのが面倒だったりする。 まず、 use utf8; を宣言して、スクリプト自体が utf8 を使用している事を明示化する。 ※ 旧 Perl は、色々な文字コードが存在しているため、utf8 であることを明示化する必要がある。 その次に、 標準出力、標準エラー出力、標準入力を明示化する binmode STDOUT, " utf8"; # 標準出力 binmode STDERR, " utf8"; # 標準エラー出力 binmode STDIN, " utf8"; # 標準入力 後は、 ソース自体の文字コードを utf8 にすること。 これで、記述するスクリプトは、utf8 で統一される。 ※ 標準入力(ようは受け取るデータ) が、utf8 じゃない場合は、やっちゃうとアウト ※ 例えば、OS の文字コードが、euc-jp とかだと、入ってくるデータがアレなので、駄目。 但し、他のライブラリの関数を使用した場合は、 戻り値や、エラーメッセージが utf8 で返ってこない可能性があるので、 文字コードを判断しなければならない。 例えば以下の場合… use utf8; eval { OPEN( IN, $file_path) or die "$!"; }; if($@) { print $@; } $@ に何の文字コードが入ってくるかは、状況によりけり。 その為、$@ が utf8 かを判断する必要がある。 その為、 以下のよう、utf8 に decode する。 use utf8; use Encode; eval { OPEN( IN, $file_path) or die "$!"; }; if($@) { # UTF8ではない場合 unless( utf8 is_utf8($@) { # utf8 にデコード(UTF8 に変換)する $@ = Encode decode( utf-8 , $@); } print $@; } 他の注意点としては、 標準出力、標準エラー出力、標準入力は既に utf8 としている為、 encode して出力する必要はないと言うこと。 encode( utf-8 , "あああ" ); としてしまうと、utf8 - utf8 で文字化ける。 但し、他の文字コードに変換するときは必須。 例えば、cp932 文字コードでファイル出力する場合は、 encode( cp932 , "あああ" ); で、明示的に変換する事。
https://w.atwiki.jp/remotenipple99/pages/10.html
#!/usr/bin/perl use strict; my $data = ; my $error = 0; my $level = 0; my $DATA_PATH = /home/nao/zip_test/test ; my @indent; $error = showList($DATA_PATH, \$data, \@indent, $level, $error); #print $data; #print "error=$error\n\n"; ###HTML### my $html_top= HTML ; html head script src="jquery.js" /script SCRIPT language="JavaScript" !-- function treeMenu(tName) { tMenu = document.getElementById(tName).style; if(tMenu.display == none ) tMenu.display = "block"; else tMenu.display = "none"; } /SCRIPT /head body HTML ###HTML### my $html_bottom= HTML ; /body /html HTML #出力 print $html_top; print $data; print $html_bottom; my $uct=0; #ユーニークナンバー sub showList{ my ($path, $data, $indent, $lv, $error) =@_; $path=~s|/$||; $lv++;#階層のカウント return -20 if(!opendir(DIR, $path)); my @dir = readdir(DIR); close(DIR); @dir = sort{ $a cmp $b }@dir; @dir = grep{ $_!~/^\.?\./; }@dir; my $ct = 0;#現在フォルダ内のファイル数をカウント my $last = scalar(@dir); my $ind=join( , @$indent);#表示用のインデント foreach my $file (@dir){ $ct++; $uct++; next if($file=~/^\.?\./); my $newpath =$path. / .$file; my $id = $uct. _ .$lv; #ファイルがディレクトリの時の処理 if(-d $newpath){ #ブロック div 作成 #トップ階層時 if($lv ==1){ $$data.= " a href=\"javascript treeMenu(\ $id\ );\" "; $$data.= "D $file --$lv"; $$data.= " /a br \n"; push(@$indent, );#次行分のインデントを記録 #ループの途中(├) }elsif($ct != $last){ $$data.= $ind."├"; $$data.= " a href=\"javascript treeMenu(\ $id\ );\" "; $$data.= " D $file --$lv"; $$data.= " /a br \n"; push(@$indent, │ ); #ループラスト(└) }else{ $$data.= $ind."└"; $$data.= " a href=\"javascript treeMenu(\ $id\ );\" "; $$data.= " D $file --$lv"; $$data.= " /a br \n"; push(@$indent, ); } $$data.= " div id=\"$id\" style=\"display none;\" \n"; $error = showList($newpath, $data, $indent, $lv, $error); #再帰処理上昇 pop(@indent);#インデントのディクリメント $$data.=" /div \n"; #ファイルの時の処理 }elsif(-e $newpath){ if($lv ==1){ $$data.=" a href=\"#\" $file --$lv /a br \n"; }elsif($ct != $last){ $$data.= $ind."├ a href=\"#\" $file --$lv /a br \n"; }else{ $$data.= $ind."└ a href=\"#\" $file --$lv /a br \n"; } #エラー }else{ return -30; } } return 0; } define でエクスポート use base Exporter ; use vars qw(@EXPORT); use lib qw(/export/webdata/config/atf/common/atf_lib); require jcode.pl ; BEGIN { @EXPORT = qw(＄XXX ＄ＸＸＸＸ); eval "use vars qw(".join( , @EXPORT).")"; } データベースエラーマスク if($ENV{ SERVER_NAME } =~ /^(teto|pata)\./){ # * 開発環境用 * $DB_SOURCE = dbi Oracle ; $DB_USER = ID ; $DB_PASSWD = PASS ; $ENV{ NLS_LANG } = JAPANESE_JAPAN.JA16EUC ; $ENV{ ORACLE_HOME } = XXXX; $ENV{ ORACLE_SID } = orac ; $ENV{ LD_LIBRARY_PATH } = XXXXX ; } else{ # * ST・本番環境用 * $DB_SOURCE = dbi Oracle fwdb9 ; $DB_USER = ID ; $DB_PASSWD = PASS ; $ENV{ NLS_LANG } = JAPANESE_JAPAN.JA16EUC ; $ENV{ ORACLE_HOME } = XXXX ; $ENV{ ORACLE_SID } = XXXXX ; $ENV{ LD_LIBRARY_PATH } = XXXXXXX ; } 正規表現 改行スキップ s=~s/^\s?$// Ｃ参考ページ http //www.geocities.co.jp/SiliconValley-Sunnyvale/6128/perl/index.html http //www9.plala.or.jp/sgwr-t/c/ http //www.geocities.jp/ky_webid/c/ 参考サイト：http //tdweb.cssa.chs.nihon-u.ac.jp/ds/ds06.html int main(int argc, const char *argv[]) { int status; int i; /* 処理開始メッセージ */ fprintf(stdout, "%s %u [START] %s %s %u\n", mname, (unsigned int)getpid(), uni_date(), uni_time(), (unsigned int)getppid()); for ( i = 0 ; i argc ; ++i ) { fprintf(stdout, "%s%c", argv[i], ((i+1 argc)? \n )); } stdio.h stdlib.h typedef struct LIST{ char *filename; struct LIST *next; struct LIST *pre; }RESULT_LIST; void AddList(RESULT_LIST **HEAD, RESULT_LIST **END, char *line); int main(int arg, char **argv){ FILE *FP; char line[256]; RESULT_LIST *HEAD = (RESULT_LIST *)malloc(sizeof(RESULT_LIST)); RESULT_LIST *END = (RESULT_LIST *)malloc(sizeof(RESULT_LIST)); HEAD = NULL; END = NULL; if ((FP = fopen(argv[1], "r")) == NULL) { printf("file open error!!"); exit(1); } while(fgets(line, 256, FP)!=NULL){ AddList( HEAD, END, line); } fclose(FP); RESULT_LIST *P[10]; int i=0; while(HEAD != NULL){ P[i] = HEAD; printf("%s self=%d next=%d pre=%d\n", HEAD- filename, HEAD, HEAD- next, HEAD- pre); END = HEAD; HEAD = HEAD- next; free(END); i++; } free(HEAD); int ct; for(ct = 0; ct i; ct++){ printf("%d\n", P[i]); } } void AddList(RESULT_LIST **HEAD, RESULT_LIST **END, char *line){ RESULT_LIST *head = *HEAD; RESULT_LIST *end = *END; char *newline = (char *)malloc(sizeof(char) * strlen(line)); //アドレス重複防止処理 strcpy(newline, line); RESULT_LIST *new_node = (RESULT_LIST *)malloc(sizeof(RESULT_LIST)); new_node- filename = newline; new_node- pre = NULL; new_node- next = NULL; if(*HEAD == NULL){ *HEAD = new_node; *END = new_node; }else{ end- next = new_node; new_node- pre = end; *END = new_node; } }