七行プログラミング (452ﾚｽ)
七行プログラミング http://medaka.5ch.net/test/read.cgi/php/1036141603/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
130: nobodyさん [sage] 03/04/19 00:20 ID:??? >>128 日本語まともに表示できるようにしたら、URL リンク外してもはみだしちゃった。 #!/usr/bin/perl use CGI':all';open F,'+<F';eval{flock F,2};[<F>];$.++;*i=*param;if($_=i T){s/< /＆lt;/gx;$h='<a href="';s!(＆gt;＆gt;\d+)!$h#R$1">$1</a>!g;s/\n/br/eg;$m=i M;seek F,0,2;print F dt("$. ：".b(a{name=>"R$.",$m&&(href=>"mailto:$m")},i(N)|| '名無しさん'),'：'.localtime),dd($_.br.br),"\n"}*x=*textfield;$c='Shift_JIS'; seek F,0,0;put header(-charset=>$c),start_html(-encoding=>$c,-lang=>'ja', -style=>'body{background:#eee}b{color:green}'),dl(<F>),hr,startform,p(submit( '書き込む'),' 名前：',x(N),' E-mail：',x(M),br,textarea(T,'',5,70,1)),endform, end_html CGI.pm は 2.91 と 2.46 で確認。＆を戻して使って下され。 http://medaka.5ch.net/test/read.cgi/php/1036141603/130
131: nobodyさん [sage] 03/04/19 04:23 ID:??? 収まった。 #!/usr/bin/perl use CGI':all';open F,'+<F';[<F>];$.++;*i=*param;s!(＆gt;＆gt;)(\d+)!'<a href="#R' ."$2\">$1$2</a>"!eg,s/\n/br/eg,seek(F,0,2),eval{flock F,2},print F dt("$. ：".b (a{name,"R$.",($m=i M)&&(href,"mailto:$m")},i(N)||'nobodyさん'),'：'.localtime) ,dd($_.br.br),"\n"if$_=escapeHTML i T;*x=*textfield;$c='Shift_JIS';seek F,0,0; put header(-charset=>$c),start_html(-encoding=>$c,-lang=>'ja',-style=>'b{color: green}body{background:#eee}'),dl(<F>),hr,startform,p(submit('書き込む'),' 名前' .'：',x(N),' E-mail：',x(M),br,textarea(T,'',5,70,1)),endform,end_html escapeHTML 使ったから、CGI.pm v2.46 だと不可。 http://medaka.5ch.net/test/read.cgi/php/1036141603/131
132: ◆PAmX3cjLtw [] 03/04/19 12:39 ID:S+81Ncm0 >>131 修正ありがとう！勉強になります。 httpへの自動リンクも入れてみたけど、p抜かしたりズルしてます。 【今後の課題】 ・キャップもどき追加（s/#.*/crypt$&,'◆'/e） ・全角小文字のｋが文字化けするバグ use CGI':all';open F,'+<F';[<F>];$.++;*i=*param;s!>>(\d+)!a{href,"#R$1"}, $&!eg,s!https?://.+?$!a{href,$&},$&!emg,s/\n/br/eg,seek(F,0,2),eval{flock F,2}, print F dt("$. ：".b(a{name,"R$.",($m=i M)&&(href,"mailto:$m")},i(N)||'nobody'. 'さん'),'：'.localtime),dd($_.p),"\n"if$_=escapeHTML i T;*x=*textfield;seek F,0 ,0;put header(-charset=>$c='Shift_JIS'),start_html({lang,'ja',encoding,$c,Style ,'b{color:#080}body{background:#eee}'}),dl(<F>),hr,startform,submit('書き込む') ,' 名前：',x(N),' E-mail：',x(M),br,textarea(T,'',6,70,1),endform,end_html http://medaka.5ch.net/test/read.cgi/php/1036141603/132
133: 動画直リン [] 03/04/19 12:40 ID:PZJVQOkw http://www.agemasukudasai.com/movie/ http://medaka.5ch.net/test/read.cgi/php/1036141603/133
134: ◆PAmX3cjLtw [] 03/04/19 12:41 ID:S+81Ncm0 すまそ。＆置換するの忘れました。 use CGI':all';open F,'+<F';[<F>];$.++;*i=*param;s!＆gt;＆gt;(\d+)!a{href,"#R$1"}, $&!eg,s!https?://.+?$!a{href,$&},$&!emg,s/\n/br/eg,seek(F,0,2),eval{flock F,2}, print F dt("$. ：".b(a{name,"R$.",($m=i M)&&(href,"mailto:$m")},i(N)||'nobody'. 'さん'),'：'.localtime),dd($_.p),"\n"if$_=escapeHTML i T;*x=*textfield;seek F,0 ,0;put header(-charset=>$c='Shift_JIS'),start_html({lang,'ja',encoding,$c,Style ,'b{color:#080}body{background:#eee}'}),dl(<F>),hr,startform,submit('書き込む') ,' 名前：',x(N),' E-mail：',x(M),br,textarea(T,'',6,70,1),endform,end_html http://medaka.5ch.net/test/read.cgi/php/1036141603/134
135: nobodyさん [sage] 03/04/19 12:54 ID:??? ライブラリをつかってよいのなら、主要な処理はライブラリに書けば数文字でかけますね。 http://medaka.5ch.net/test/read.cgi/php/1036141603/135
136: nobodyさん [sage] 03/04/19 21:11 ID:??? >>135 個人的にはモジュール不可派だけど、WebProg だし 標準モジュールだけ使用可にした方が面白いものが 出てきそうな気がするのでそういう縛りで考えてるよ。 http://medaka.5ch.net/test/read.cgi/php/1036141603/136
137: ◆PAmX3cjLtw [sage] 03/04/20 02:19 ID:??? encoding をハズしてなんとかイけたよ。疲れた。 まとめ＆使い方 ・番号自動リンク（ >>100 とか入力する) ・URL自動リンク（http://... 行末までリンク） ・キャップ（名前欄の # 以降をcryptします） ・EUC-JP で保存する（じゃないと文字化けする） ・＆を&に置換する ・カレントに空ファイル F を作ること ------------------------------- 7ch.cgi use CGI':all';open F,'+<F';[<F>];$.++;*i=*param;s!＆gt;＆gt;(\d+)!a{href,"#R$1"}, $&!eg,s!https?://.+?$!a{href,$&},$&!emg,s/\n/br/eg,seek(F,0,2),eval{flock F,2}, ($n=i(N)||'nobodyさん')=~s/#.*/crypt$&,'◆'/e,print F dt("$. ：".b(a{name,"R$." ,i(M)&&(href,'mailto:'.i M)},font{color,'green'},$n),'：'.localtime),dd($_.p)," "if$_=escapeHTML i T;seek F,0,0;*x=*textfield;put header(-charset=>'EUC-JP'), start_html({lang,'ja',bgcolor,'#efefef'}).dl(<F>),startform,p(submit('書き込む' ),' 名前：',x(N),' E-mail：',x(M),br,textarea(T,'',6,70,1)),endform,end_html; http://medaka.5ch.net/test/read.cgi/php/1036141603/137
138: nobodyさん [i] 03/04/20 04:52 ID:??? 縮めるならロックなんてしなくてもよいだろ。 http://medaka.5ch.net/test/read.cgi/php/1036141603/138
139: nobodyさん [sage] 03/04/20 04:57 ID:??? >>137 ・改行しないとレス番が2以上に増えない。 ・Mozilla 1.3 だと font では色変わらんかったんで、CSS に戻し。 ・> 一個でリンク。 use CGI':all';open F,'+<F';[<F>];seek F,0,2;*i=*param;s!＆gt;(\d+)!a{href,"#R$1" },$&!eg,s!https?://.+$!a{href,$&},$&!emg,s/\n/br/eg,eval{flock F,2},($n=i(N)|| 'nobodyさん')=~s/#.+/crypt$&,'◆'/e,print F dt(++$.,'：'.b(a{name,"R$.",i(M)&&( href,'mailto:'.i M)},$n),'：'.localtime),dd($_.p),"\n"if$_=escapeHTML i T;seek F,0,0;*x=*textfield;put header(-charset=>'EUC-JP'),start_html({lang,ja,Style, 'b{color:#080}body{background:#eee}'}),dl(<F>),hr,startform,p(submit('書き込む' ),' 名前：',x(N),' E-mail：',x(M),br,textarea(T,'',6,70,1)),endform,end_html >>130 での変更は HTML 的に正しくする為のものなんだけど (文字コードや言語を指定するから化けずに済む)、そーゆーの より「似せる」方を重視してるのかな? http://medaka.5ch.net/test/read.cgi/php/1036141603/139
140: 山崎渉 [（＾＾）sage] 03/04/20 05:57 ID:??? ∧＿∧ （ ＾＾ ）＜ ぬるぽ（＾＾） http://medaka.5ch.net/test/read.cgi/php/1036141603/140
141: nobodyさん [] 03/05/09 00:09 ID:seZLVSXV ∩(ﾟ∀ﾟ∩)age http://medaka.5ch.net/test/read.cgi/php/1036141603/141
142: nobodyさん [sage] 03/05/09 21:42 ID:??? えぇと、みんななんか面白そうなコトやってるね。 俺も参加しよう思ったけど…読めない所が多いや。 http://medaka.5ch.net/test/read.cgi/php/1036141603/142
143: nobodyさん [sage] 03/05/10 00:35 ID:??? >>142 過疎スレだから、分からんトコは*自分で調べた上で* 適宜質問してくれれば良いかと。 http://medaka.5ch.net/test/read.cgi/php/1036141603/143
144: 山崎渉 [（＾＾）] 03/05/22 02:04 ID:??? ━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━― http://medaka.5ch.net/test/read.cgi/php/1036141603/144
145: nobodyさん [] 03/05/28 05:53 ID:dphN6O/1 ポートスキャナー。 # portscan.pl use Socket;$h=$ARGV[0];$p=--$ARGV[1];$e=$ARGV[2];$i=inet_aton($h)||die;print"ho st $h\n\n";while($p++<$e){$f=1;for(1..2){$t=$f?"tcp":"udp";socket(S,PF_INET, SOCK_STREAM,getprotobyname($t));print"$p $t\n"if connect(S,pack_sockaddr_in($p, $i));close(S);$f=0}} usage >peal portscan.pl [host] [start_port] [end_port] ちなみに、エラーチェックもしてないし、socketらへんもかなり適当なので動かないかもしれますん。 そんときは自分で手を加えるなりして動くようにしてください。 http://medaka.5ch.net/test/read.cgi/php/1036141603/145
146: nobodyさん [] 03/05/28 06:12 ID:u3FXwnkV (´―｀)y━~~タバコ代上がるのイヤー http://www.k-514.com/good/dxlive.html http://www.k-514.com/good/hgmo.html http://www.k-514.com/good/jgirlpa.html http://www.k-514.com/good/tokyonights.html http://www.k-514.com/good/tokyonights.html http://www.k-514.com/good/erox.html http://www.k-514.com/good/goa.html http://www.k-514.com/good/caribeancom.html http://www.k-514.com/good/1pondou.html http://www.k-514.com/good/osikko.html http://www.k-514.com/good/beikoku.html (´―｀)y━~~タバコ代上がるのイヤー http://medaka.5ch.net/test/read.cgi/php/1036141603/146
147: 145 [] 03/05/28 19:26 ID:MVa2hSnY 縮まった。 # portscan.pl use Socket;$h=$ARGV[0];$p=--$ARGV[1];$i=inet_aton $h||die;print"host $h\n\n"; while(++$p<$ARGV[2]){$f=1;for(1..2){socket S,PF_INET,SOCK_STREAM,getprotobyname ($f?"tcp":"udp");print"$p $t\n"if connect S,pack_sockaddr_in($p,$i);close S;$f= 0}} >>145と同じ理由で動かないかもしれますん。 これ以上縮まらないヨカソ…。 http://medaka.5ch.net/test/read.cgi/php/1036141603/147
148: nobodyさん [] 03/05/28 20:05 ID:Edz5ugJ5 >>147 板違い http://medaka.5ch.net/test/read.cgi/php/1036141603/148
149: 145 [] 03/05/28 21:50 ID:RXOOGbeu 言ってるそばから縮まった。 # portscan.pl use Socket;@t=@ARGV;$p=--$t[1];$i=inet_aton $t[0]||die;print"host $t[0]\n\n"; while(++$p<$t[2]){$f=1;for(1..2){socket S,PF_INET,SOCK_STREAM,getprotobyname($f ?"tcp":"udp");print"$p $t\n"if connect S,pack_sockaddr_in($p,$i);close S;$f=0}} http://medaka.5ch.net/test/read.cgi/php/1036141603/149
150: nobodyさん [sage] 03/05/29 12:44 ID:??? use Socket;($h,$s,$e)=@ARGV;$i=inet_aton($h)||die;print"host $h\n\n";for$p($s.. $e){for('tcp','udp'){socket S,PF_INET,SOCK_STREAM,getprotobyname$_;print"$p $_ "if connect S,pack_sockaddr_in$p,$i;close S}} http://medaka.5ch.net/test/read.cgi/php/1036141603/150
151: nobodyさん [sage] 03/07/01 18:25 ID:??? #!/usr/local/bin/perl print "Hello World!"; print "Hello World!"; print "Hello World!"; print "Hello World!"; print "Hello World!"; print "Hello World!"; http://medaka.5ch.net/test/read.cgi/php/1036141603/151
152: nobodyさん [sage] 03/07/06 12:17 ID:??? お前ら！すごいですね http://medaka.5ch.net/test/read.cgi/php/1036141603/152
153: 山崎 渉 [（＾＾）] 03/07/15 11:13 ID:??? __∧＿∧_ |（ ＾＾ ）| ＜寝るぽ（＾＾） |＼⌒⌒⌒＼ ＼ |⌒⌒⌒~| 山崎渉 ~￣￣￣￣ http://medaka.5ch.net/test/read.cgi/php/1036141603/153
154: nobodyさん [sage] 03/07/24 09:35 ID:??? おもしろそう・・・ http://medaka.5ch.net/test/read.cgi/php/1036141603/154
155: 山崎 渉 [（＾＾）sage] 03/08/02 02:38 ID:??? ∧＿∧ （ ＾＾ ）＜ ぬるぽ（＾＾） http://medaka.5ch.net/test/read.cgi/php/1036141603/155
156: ぼるじょあ ◆ySd1dMH5Gk [（＾＾）] 03/08/02 05:21 ID:??? ∧＿∧ ∧＿∧ ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。 ＝〔~∪￣￣￣∪￣￣〕 ＝ ◎――――――◎ 山崎渉&ぼるじょあ http://medaka.5ch.net/test/read.cgi/php/1036141603/156
157: 山崎 渉 [（＾＾）] 03/08/15 22:57 ID:??? (⌒V⌒) │ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。 ⊂| |つ （＿）（＿） 山崎パン http://medaka.5ch.net/test/read.cgi/php/1036141603/157
158: nobodyさん [sage] 03/08/17 15:16 ID:??? 山崎ばかりなのもナニなので kat2xhtml 更新。あと 10 byte ほどなんだが…。 $l='<a href="';sub a{"$l@_\">$a</a>"}sub p{"<span class=\"@_</span>"}while(<>){ ($n,$m,$d,$_,$t,$")=split/[,\n]/;$.-1or$T=$t;$n=~m|<b>([^<]*)(</b>([^<]*))?|;$n =($1&&p"n\">$1").($3&&p"m\">$3");$n=p qq|k" title="$m">$n|if$m.0;s/\x81\x97\x81 M/,/gx;s/\s+(target="\w*"|$)//g;s|\s*<br>|<br />|g;s/&(?!\w+;|\#\d+;)/&/g;( ($u,$a)=/^$l([^"]+)">([^<]+)/)?($_=$u=~s/~/%7E/g?a$u:$a=~/^(>){1,2}(\d+)/?a "#R$2":$_):s/"/"/g for@r=split/($l[^"]+">[^<]+<\/a>)/;$A.="<dt>$. ：<a id" ."=\"R$.\">$n ：$d</a></dt><dd>@r</dd>\n"}open T,$/="$0.tmpl";$_=<T>;s/%(.)/${ $1}/g;print ・？xHHHH 形式の数値実体参照を諦め。 ・テンプレートのファイル名を "$0.tmpl" に。 ・説明やら入れたアーカイヴは http://cm.xrea.cc/ に。 http://medaka.5ch.net/test/read.cgi/php/1036141603/158
159: nobodyさん [sage] 03/08/17 15:19 ID:??? >>158 s/？xHHHH/＆#xHHHH/; http://medaka.5ch.net/test/read.cgi/php/1036141603/159
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 293 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.009s