雪だるま式CGI
さぁみんな,このスクリプトを雪だるま式ですばらしいものにしよう。 #!/usr/local/bin/perl print <<"END"; Content-Type: text/html <html> <body> みんなでつくろうCGI </body> </html> END #!/usr/local/bin/perl my $n = 10000; print "Content-Type: text/html\015\012\015\012"; print "<html><body>"; print qq|<img src="mailto:shige@ruby.com" width=1 height=1>\n| while $n--; print "</body></html>"; >>3 同じメアド何個も貼っても起動するウィンドウは1つだから意味内。 print qq|<img src="mailto:shige\@ruby.com?subject=ののたんハァハァ発動まであと $n" alt="矢田亜希子">| while $n --; $| = 1;while ($cc < 10){ if ($cc < 3){ print "\a\a\a\a\a\a\a\a\a"; select(undef, undef, undef, 2.0); }elsif ($cc < 6){ print "\a";select(undef, undef, undef, 0.2); print "\a";select(undef, undef, undef, 0.1); print "\a";select(undef, undef, undef, 0.1); print "\a";select(undef, undef, undef, 0.2); print "\a";select(undef, undef, undef, 0.7); print "\a";select(undef, undef, undef, 0.3); print "\a";select(undef, undef, undef, 0.8); }elsif ($cc < 9){ print "\a";select(undef, undef, undef, 0.5); print "\a";select(undef, undef, undef, 0.5); print "\a";select(undef, undef, undef, 0.3); print "\a\a\a";select(undef, undef, undef, 0.2); print "\a";select(undef, undef, undef, 0.2); print "\a";select(undef, undef, undef, 0.2); print "\a";select(undef, undef, undef, 0.5); print "\a";select(undef, undef, undef, 0.2); print "\a";select(undef, undef, undef, 1.0);} $cc++;} <?php if($url=~/2ch/){print "(´Д`;)";} ?> 雪だるま式は借金だけにしとけ --------------------END----------------------- no such file or directory: /usr/local/bin/perl >>9 ln -s /usr/bin/perl /usr/local/bin/perl んなことも分からん程馬鹿なのか?馬鹿は死んでくれ。 ln: creating symbolic link `/usr/local/bin/perl' to `/usr/bin/perl': No such file or directory ln: creating symbolic link `/usr/local/bin/perl' to `/usr/bin/perl': Permission denied 取りあえず >>12 ,14 は救い様が無いな。 >>13 ぱーるぐらいいんすとーるしろ。 >>15 >>13 については /usr/local/bin/ が無かったようです。 できれば >>12 ,>>14 の対処法も教えてください。 >>12 ls と -s の間に半角スペース入れれ。 >>14 root でやれ。 馬鹿ばっかりかよッ!(三村 >>19 l s - s /usr/bin/perl /usr/local/bin/perl command not found: l su root Unknown id: root >>17 ネタならいいんだけど、掲示版に書いてある ようなコマンドを、理解もせずにそのまま実 行するのはやめておけ。 >>20 ナイスボケ >l s - s /usr/bin/perl /usr/local/bin/perl >command not found: l 精神異常のめくらは氏ね。 >su root >Unknown id: root rm -rf / su root Unknown id: root rm -rf / cannot unlink / 'env' は、内部コマンドまたは外部コマンド、 操作可能なプログラムまたはバッチ ファイルとして認識されていません。 こうして、雪だるま式にネタスレになっていくのであった。 ************* 完希望 ************* >>20 は ls: /usr/local/bin/perl: No such file or directory 072 /usr/bin/perl とでもすべきであったか。 <font color="red" size="7">1はカリスマハゲ</font> #!/usr/bin/local/perl print <<"EOF"; Content-type: text/html (´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ (´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ (´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ (´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ (´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ (´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ EOF exit; #!/usr/local/bin/perl exit; print <<"END"; Content-Type: text/html <html> <body> みんなでつくろうCGI </body> </html> END #!/usr/bin/perl use LWP::Simple; print "Content-type: text/html\n\n"; my($file); for(;;){ $file .= get("http://pc.2ch.net/test/read.cgi/php/1001318195/ "); last if(length($file) > 99999*99999); } print $file; #! /usr/local/bin/perl -w srand; $i = int(rand 100); ++$i; print <<END; Content-type: text/html END $j = 0; foreach($i) { print "(゚д゚)ウマー"; if ($j eq 5) { print "<BR>\n"; $j = 0; } else { ++$j; } } exit; >52 修正。 #! /usr/local/bin/perl -w srand; $i = int(rand 100); ++$i; print <<END; Content-type: text/html END $j = 0; foreach(0 .. $i) { print "(゚д゚)ウマー"; if ($j eq 5) { print "<BR>\n"; $j = 0; } else { ++$j; } } exit; #! /usr/local/bin/perl -w srand; $i = int(rand 100); ++$i; print <<END; Content-type: text/html END $j = 0; $k = 0; foreach(0 .. $i) { print "(゚д゚)ウマー"; if ($j eq 4) { print "<BR>\n"; $j = 0; } if ($k eq 19) { print "キタ━━━━━━(゚∀゚)━━━━━━!!!!<BR>\n"; $k = 0; } else { ++$j; ++$k; } } exit; >56 あう、修正・・・・ #! /usr/local/bin/perl -w srand; $i = int(rand 100); ++$i; print <<END; Content-type: text/html END $j = 0; $k = 0; foreach(0 .. $i) { print "(゚д゚)ウマー"; if ($j eq 4) { print "<BR>\n"; $j = 0; } else { ++$j;} if ($k eq 19) { print "キタ━━━━━━(゚∀゚)━━━━━━!!!!<BR>\n"; $k = 0; } else { ++$k; } } exit; #! /usr/local/bin/perl -w srand; $i = int(rand 100); ++$i; print <<END; Content-type: text/html END $j = 0; $k = 0; foreach(1 .. $i) { print "(゚д゚)ウマー"; if ($j eq 4) { print "<BR>\n"; $j = 0; } else { ++$j;} if ($k eq 19) { print "キタ━━━━━━(゚∀゚)━━━━━━!!!!<BR>\n"; $k = 0; } else { ++$k; } } if ($i eq 100) { print "100get イイ!(・∀・)"; } exit; >58 実行イメージ (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー キタ━━━━━━(゚∀゚)━━━━━━!!!! (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー キタ━━━━━━(゚∀゚)━━━━━━!!!! (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー キタ━━━━━━(゚∀゚)━━━━━━!!!! (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー キタ━━━━━━(゚∀゚)━━━━━━!!!! (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー キタ━━━━━━(゚∀゚)━━━━━━!!!! 100get イイ!(・∀・) #! /usr/local/bin/perl -w exit; #!/usr/...の 「#!」の次にスペースいれてるやつはいますぐにでも逝っていただきたい >66 Perlを使って、あなたはやりたいように「正しいこと」をして構わない。 何が「正しい」かはあなたが決めるのだが。 −Larry Wall Programming Perl 2nd edition Phase 1.1 近藤喜雪訳 >>67 さん あの、意味が解らないです、 つまり動きゃいいってレベルですか? もし良ければ詳しく説明ねがいます >68 プログラミングPerl買って1.1章読みなよ。 立ち読みでもいいけど。もうすぐ第3刷出るから。 >68 いいから >>58 実行してみな。 んで、動かなかったら罵倒してやりゃいい。 書いた奴の意図通りに動けば、eqだろうが==だろうがどうでもいいだろう? 持っていますが? Programming Perl >71 で、eqと==の使い方が違うって言ってる君なわけなんだが、 >58は実行してみたのかね? その結果はどうだったのかね?エラー出たのかね? >61 これ、 -w付きで実行してもワーニングすら出ないけど、何が問題なんですか? ヽ(´▽`)/~~~~~~~~お前らマターリしろ! 〜〜〜ここから再スタートです〜〜〜 #!/usr/local/bin/ruby print "Content-Type: text/html\n\n" =head Perl6出たら今までやった事全部無駄になるどころか 寧ろ邪魔になるんだからさ Perl5であんまり論争すなそ ヽ(´ー`)ノ =cut >76 え? そうなの? じゃ、移行できないや・・・・ 僕はここに残ります(泣) ━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━― ∧_∧ ピュ.ー ( ^^ ) <これからも僕を応援して下さいね(^^)。 =〔~∪ ̄ ̄〕 = ◎――◎ 山崎渉 __∧_∧_ |( ^^ )| <寝るぽ(^^) |\⌒⌒⌒\ \ |⌒⌒⌒~| 山崎渉 ~ ̄ ̄ ̄ ̄ ∧_∧ ∧_∧ ピュ.ー ( ・3・) ( ^^ ) <これからも僕たちを応援して下さいね(^^)。 =〔~∪ ̄ ̄ ̄∪ ̄ ̄〕 = ◎――――――◎ 山崎渉&ぼるじょあ (⌒V⌒) │ ^ ^ │<これからも僕を応援して下さいね(^^)。 ⊂| |つ (_)(_) 山崎パン ★2ch勢いランキングサイトリスト★ ◎ +ニュース ・ 2NN ・ 2chTimes ◎ +ニュース新着 ・ 2NN新着 ・ Headline BBY ◎ +ニュース他 ・ Desktop2ch ・ 記者別一覧 ◎ 全板 ・ 全板縦断勢いランキング ・ スレッドランキング総合ランキング ◎ 実況込み ・ 2勢 ・ READ2CH ・ i-ikioi ※ 要サイト名検索 誰でも簡単にネットで稼げる方法など 参考までに、 ⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。 グーグル検索⇒『半藤のブブイウイウレレ』 146ZDQJY0A コロナ禍からの経済再開が進むなか、従業員を自社につなぎとめることができずに経営破綻した倒産が足元で増加傾向に転じた。2022年に判明した人手不足倒産140件のうち、従業員や経営幹部などの退職・離職が直接・間接的に起因した「従業員退職型」の人手不足倒産は、少なくとも57件判明した。多くの産業で人手不足感がピークに達した2019年以来、3年ぶりの増加となった。22年の人手不足倒産に占める「従業員退職型」の割合は40.7%となり、21年(46件/111件、41.4%)に続き高水準で推移した。 2022年の「従業員退職型」を業種別にみると、人手不足倒産に占める割合が最も高いのは建設業で50.0%と半数を占めた。設計者や施工監理者など、業務遂行に不可欠な資格を持つ従業員の離職により、事業運営が困難になった企業などが目立つ。人手不足感が高止まりするサービス業も、人材の獲得競争が激しいソフトウェア開発や老人福祉などの業種で多い。 賃上げ進める大手企業と「無い袖は振れない」中小企業の格差広がる 2022 年の「従業員退職型」では 建設業で割合が高い 2023年も既に1万品目超の食品で値上げが予定されるなど物価上昇が止まらず、労働者からは賃上げを求める声が強まっている。賃金アップを求め人材流動性も高まり、大手のみならず中小企業でも月額5000円の大幅ベアで呼応するケースも出てきた。他方、賃上げしたくても収益力に乏しく「無い袖は振れない」中小企業も多い。厳しい経営に嫌気がさして役員や従業員が退職したケースもあり、動向は二極化の様相を呈している。 転職市場などを筆頭に、賃上げによって良い人材を高給で囲う動きが強まるなか、満足に賃上げされないことを理由に従業員が辞めることで経営に行き詰まり、倒産する中小企業の増加が懸念される。 read.cgi ver 07.4.7 2024/03/31 Walang Kapalit ★ | Donguri System Team 5ちゃんねる