>>420
縮めた。
#!/usr/bin/perl
use LWP::Simple;use XML::RSS;$r=new XML::RSS;parse$r get$ENV{QUERY_STRING};use
CGI":all";%c=%{$r->{channel}};put header,a({href,$c{link}},$c{title}),br,$c{$d=
description},br,ul(li[map a({href,$_->{link}},$_->{title}).br.$_->{$d}.br,@{$r
->{items}}]),end_html
探検
七行プログラミング
430nobodyさん
2006/10/14(土) 06:34:52ID:???432nobodyさん
2006/10/14(土) 15:01:38ID:??? >>430 からもうちょい縮めた上で HTML がまともになるよう追加。
#!/usr/bin/perl
use CGI":all";use LWP::Simple;use XML::RSS;$r=new XML::RSS;sub A{a{href,$_[0]->
{link}},$_[0]->{title}}charset$C="UTF-8";parse$r get pop;%c=%{$$r{channel}};put
header,start_html(-encoding,$C,lang,ja),h1(A\%c),p($c{$d=description}),ul(li[
map A($_).br.$$_{$d},@{$$r{items}}]),end_html
二行半も空いてるけど付け加える機能を思いつかず。
#!/usr/bin/perl
use CGI":all";use LWP::Simple;use XML::RSS;$r=new XML::RSS;sub A{a{href,$_[0]->
{link}},$_[0]->{title}}charset$C="UTF-8";parse$r get pop;%c=%{$$r{channel}};put
header,start_html(-encoding,$C,lang,ja),h1(A\%c),p($c{$d=description}),ul(li[
map A($_).br.$$_{$d},@{$$r{items}}]),end_html
二行半も空いてるけど付け加える機能を思いつかず。
433nobodyさん
2006/10/14(土) 15:13:56ID:??? >>432
未読管理機能なんかオススメ
二行半でやる方法は思い浮かばないorz
むしろ、どういう過程を経て効率的なソースが引けるようになったのかの方に興味あり苦笑
どこか参考にしたサイトとかあります？
未読管理機能なんかオススメ
二行半でやる方法は思い浮かばないorz
むしろ、どういう過程を経て効率的なソースが引けるようになったのかの方に興味あり苦笑
どこか参考にしたサイトとかあります？
434nobodyさん
2006/10/15(日) 11:53:37ID:??? >>433
> 未読管理機能
ほい。新着タイトルを太字表示。
#!/usr/bin/perl
use CGI":all";use LWP::Simple;use XML::RSS;$r=new XML::RSS;dbmopen%n,"7rssrdr",
420;charset$C="UTF-8";sub A{($t,$l)=@$_{"title","link"};a{href,$l},$n{$l}++?$t:
b$t}parse$r get pop;%c=%{$$r{channel}};put header,start_html(-encoding,$C,lang,
ja),h1(A$_=\%c),p($c{$d=description}),ul(li[map A.br.$$_{$d},@{$$r{items}}]),
end_html
> どこか参考にしたサイトとかあります？
駱駝本とか perldoc とか。冗談でも何でもなく。
この遊びのノウハウなら http://cm.xrea.cc/techinfo.cgi に。
> 未読管理機能
ほい。新着タイトルを太字表示。
#!/usr/bin/perl
use CGI":all";use LWP::Simple;use XML::RSS;$r=new XML::RSS;dbmopen%n,"7rssrdr",
420;charset$C="UTF-8";sub A{($t,$l)=@$_{"title","link"};a{href,$l},$n{$l}++?$t:
b$t}parse$r get pop;%c=%{$$r{channel}};put header,start_html(-encoding,$C,lang,
ja),h1(A$_=\%c),p($c{$d=description}),ul(li[map A.br.$$_{$d},@{$$r{items}}]),
end_html
> どこか参考にしたサイトとかあります？
駱駝本とか perldoc とか。冗談でも何でもなく。
この遊びのノウハウなら http://cm.xrea.cc/techinfo.cgi に。
436aaz
2006/11/05(日) 22:18:14ID:???437nobodyさん
2007/05/08(火) 22:55:38ID:??? ほす
438nobodyさん
2007/12/01(土) 02:02:19ID:??? 月次移動可能なカレンダー。c.phpで保存。
<?php $a=q("Y-m-t","$_GET[y]-1");$d=explode("-",$a);$y="<a href=?y=";$v=$d[0];
$w=$d[1];$z="</tr><tr>";$m="$v-$w";$p=q("Y-m",$w-1,1,$v);$n=q("Y-m",$w+1,1,$v)
;echo"<html>$y$p><</a>$m$y$n>></a> $y c.php>now</a><table border=1><tr>$z";$f=
q("w","$m-1");for($i=-6-$f;$i<$d[2]-q("w",$a)+7;$i++){echo($i<1-$f)?"<th>".q(
"D",$w,$i,$v)."</th>":(($i<1||$i>$d[2])?"<td></td>":"<td>$i</td>");if(($i+$f)%
7==0)echo$z;}echo"</tr></table></html>";function q($x,$w,$i=0,$v=0){return($i)
?date($x,mktime(0,0,0,$w,$i,$v)):date($x,strtotime($w));}?>
<?php $a=q("Y-m-t","$_GET[y]-1");$d=explode("-",$a);$y="<a href=?y=";$v=$d[0];
$w=$d[1];$z="</tr><tr>";$m="$v-$w";$p=q("Y-m",$w-1,1,$v);$n=q("Y-m",$w+1,1,$v)
;echo"<html>$y$p><</a>$m$y$n>></a> $y c.php>now</a><table border=1><tr>$z";$f=
q("w","$m-1");for($i=-6-$f;$i<$d[2]-q("w",$a)+7;$i++){echo($i<1-$f)?"<th>".q(
"D",$w,$i,$v)."</th>":(($i<1||$i>$d[2])?"<td></td>":"<td>$i</td>");if(($i+$f)%
7==0)echo$z;}echo"</tr></table></html>";function q($x,$w,$i=0,$v=0){return($i)
?date($x,mktime(0,0,0,$w,$i,$v)):date($x,strtotime($w));}?>
439nobodyさん
2007/12/06(木) 09:44:33ID:??? >>438
「now」も要らんと思う。
<?php list($v,$w,$d)=explode("-",$a=q("$_GET[y]-1","Y-m-t"));$f=q("$v-$w-1","w"
);echo$l="<a href=?y=",q($w-1,"Y-m",1,$v),"><</a>$v-$w$l",q($w+1,"Y-m",1,$v)
,">></a> $l>now</a><table><tr>";for($i=-6-$f;$i<$d-q($a,"w")+7;){echo$i<1-$f
?"<th>".q($w,"D",$i,$v)."</th>":"<td>".(($i<1||$i>$d)?"":$i)."</td>";if(($i++ +
$f)%7==0)echo"</tr><tr>";}function q($w,$x,$i=0,$v=0){return date($x,$i?mktime(
0,0,0,$w,$i,$v):strtotime($w));}?></tr></table>
PHPは不得手なんで、これよりもっと縮む筈。
「now」も要らんと思う。
<?php list($v,$w,$d)=explode("-",$a=q("$_GET[y]-1","Y-m-t"));$f=q("$v-$w-1","w"
);echo$l="<a href=?y=",q($w-1,"Y-m",1,$v),"><</a>$v-$w$l",q($w+1,"Y-m",1,$v)
,">></a> $l>now</a><table><tr>";for($i=-6-$f;$i<$d-q($a,"w")+7;){echo$i<1-$f
?"<th>".q($w,"D",$i,$v)."</th>":"<td>".(($i<1||$i>$d)?"":$i)."</td>";if(($i++ +
$f)%7==0)echo"</tr><tr>";}function q($w,$x,$i=0,$v=0){return date($x,$i?mktime(
0,0,0,$w,$i,$v):strtotime($w));}?></tr></table>
PHPは不得手なんで、これよりもっと縮む筈。
440438
2007/12/08(土) 01:17:01ID:??? >>439
凄いですね。いろんなことができるんだ、と感心しきり。
少しだけ縮めた。
<?php list($v,$w,$d)=explode("-",$a=q("$_GET[y]-1","Y-m-t"));$f=q("$v-$w-1","w"
);echo$l="<a href=?y=",q($w-1,"Y-m",1),"><</a>$v-$w$l",q($w+1,"Y-m",1),">></a>
$l>now</a><table><tr>";for($i=-6-$f;$i<$d-q($a,"w")+7;){echo$i<1-$f?"<th>".q($w
,"D",$i)."</th>":"<td>".($i<1||$i>$d?"":$i)."</td>";if(($f+$i++)%7==0)echo"</tr
><tr>";}function q($w,$x,$i=0){global$v;return date($x,$i?mktime(0,0,0,$w,$i,$v
):strtotime($w));}?></tr></table>
凄いですね。いろんなことができるんだ、と感心しきり。
少しだけ縮めた。
<?php list($v,$w,$d)=explode("-",$a=q("$_GET[y]-1","Y-m-t"));$f=q("$v-$w-1","w"
);echo$l="<a href=?y=",q($w-1,"Y-m",1),"><</a>$v-$w$l",q($w+1,"Y-m",1),">></a>
$l>now</a><table><tr>";for($i=-6-$f;$i<$d-q($a,"w")+7;){echo$i<1-$f?"<th>".q($w
,"D",$i)."</th>":"<td>".($i<1||$i>$d?"":$i)."</td>";if(($f+$i++)%7==0)echo"</tr
><tr>";}function q($w,$x,$i=0){global$v;return date($x,$i?mktime(0,0,0,$w,$i,$v
):strtotime($w));}?></tr></table>
441438
2007/12/08(土) 02:02:58ID:??? 手抜きバージョン。取り合えず表示されるみたいなので…
<?php function q($w,$x,$i=0){global$v;return date($x,$i?mktime(0,0,0,$w,$i,$v):
strtotime($w));}list($v,$w,$d)=explode("-",$a=q("$_GET[y]-1","Y-m-t"));echo$l="
<a href=?y=",q($w-1,"Y-m",1),"><</a>$v-$w$l",q($w+1,"Y-m",1),">></a> $l>now</a>
<table><tr>";for($i=-6-$f=q("$v-$w-1","w");$i<32;){echo$i<1-$f?"<th>".q($w,"D",
$i)."</th>":"<td>".($i<1||$i>$d?"":$i)."</td>";if(($f+$i++)%7==0)echo"</tr><tr>
";}?></tr></table>
<?php function q($w,$x,$i=0){global$v;return date($x,$i?mktime(0,0,0,$w,$i,$v):
strtotime($w));}list($v,$w,$d)=explode("-",$a=q("$_GET[y]-1","Y-m-t"));echo$l="
<a href=?y=",q($w-1,"Y-m",1),"><</a>$v-$w$l",q($w+1,"Y-m",1),">></a> $l>now</a>
<table><tr>";for($i=-6-$f=q("$v-$w-1","w");$i<32;){echo$i<1-$f?"<th>".q($w,"D",
$i)."</th>":"<td>".($i<1||$i>$d?"":$i)."</td>";if(($f+$i++)%7==0)echo"</tr><tr>
";}?></tr></table>
442438
2007/12/08(土) 02:37:04ID:??? HTMLダメダメの超手抜きバージョン。無理やり５行にしてみた。
<?php list($v,$w,$d)=explode("-",q("$_GET[y]-1","Y-m-t"));echo$l="<a href=?y=",
q($w-1,"Y-m",1),"><</a>$v-$w$l",q($w+1,"Y-m",1),">></a> $l>now</a><table>";for(
$i=-6-$f=q("$v-$w-1","w");$i<32;){echo$i<1-$f?"<th>".q($w,"D",$i)."</th>":"<td>
".($i<1||$i>$d?"":$i)."</td>";if(($f+$i++)%7==0)echo"</tr><tr>";}function q($w,
$x,$i=0){global$v;return date($x,$i?mktime(0,0,0,$w,$i,$v):strtotime($w));}?>
<?php list($v,$w,$d)=explode("-",q("$_GET[y]-1","Y-m-t"));echo$l="<a href=?y=",
q($w-1,"Y-m",1),"><</a>$v-$w$l",q($w+1,"Y-m",1),">></a> $l>now</a><table>";for(
$i=-6-$f=q("$v-$w-1","w");$i<32;){echo$i<1-$f?"<th>".q($w,"D",$i)."</th>":"<td>
".($i<1||$i>$d?"":$i)."</td>";if(($f+$i++)%7==0)echo"</tr><tr>";}function q($w,
$x,$i=0){global$v;return date($x,$i?mktime(0,0,0,$w,$i,$v):strtotime($w));}?>
443nobodyさん
2007/12/08(土) 22:33:30ID:??? 閉じタグ無しでいいなら
<?php function q($w,$i=1,$x="Y-m"){global$v;return date($x,$i?mktime(0,0,0,$w,
$i,$v):strtotime($w));}list($v,$w,$d)=explode("-",q("$_GET[y]-1",0,"Y-m-t"));
echo$l="<a href=?y=",q($w-1),"><</a>$v-$w$l",q($w+1),">></a> $l>now</a><table>"
;for($i=-6-$f=q("$v-$w-1",0,"w");$i<32;){echo"<td>",($i<1-$f?q($w,$i,"D"):($i<1
||$i>$d?"":$i)),($f+$i++)%7?"":"<tr>";}
<?php function q($w,$i=1,$x="Y-m"){global$v;return date($x,$i?mktime(0,0,0,$w,
$i,$v):strtotime($w));}list($v,$w,$d)=explode("-",q("$_GET[y]-1",0,"Y-m-t"));
echo$l="<a href=?y=",q($w-1),"><</a>$v-$w$l",q($w+1),">></a> $l>now</a><table>"
;for($i=-6-$f=q("$v-$w-1",0,"w");$i<32;){echo"<td>",($i<1-$f?q($w,$i,"D"):($i<1
||$i>$d?"":$i)),($f+$i++)%7?"":"<tr>";}
444nobodyさん
2008/02/14(木) 04:21:18ID:??? >>334 ３年越しの7clap.
#!/usr/bin/perl
use CGI":all";charset$c=Shift_JIS;sub d{($m,$m,$h,$d,$m,$y)=localtime(time-pop);
$l[0]=(190001+$y*100+$m)*100+$d}param(K,$k=1+param K);($w=escapeHTML(param W))=~
y/\0- / /s;($C,$M,$L,$E,@M)=<DATA>;open L;flock L,2;open C;@l=d>(@c=<C>)[-1]?(d,
(0)x25,$/):split/<>/,pop@c;@c<14||shift@c;$l[$_]++for$h+2,1;open C,">$C";print C
@c,join"<>",@l;d 1209600;open M;@m=grep$l[0]<=$_,<M>;open M,">$M";print M@m,""ne
$w&&d."<>$h<>$w<>\n";put header,start_html(-encoding,$c,lang,ja),$k<10?($M[rand@
M],startform,p(hidden(K),Comment,textfield(W),submit Clap),endform):p$E,end_html
__DATA__
log.dat
mes.dat
>lock.dat
沢山の拍手を有り難うございました！
拍手が送信されました。ありがとうございました！
拍手が送信されました。ありがとうございますた！
拍手が送信されました。ありがとさ〜ん！
・flock非保護。
#!/usr/bin/perl
use CGI":all";charset$c=Shift_JIS;sub d{($m,$m,$h,$d,$m,$y)=localtime(time-pop);
$l[0]=(190001+$y*100+$m)*100+$d}param(K,$k=1+param K);($w=escapeHTML(param W))=~
y/\0- / /s;($C,$M,$L,$E,@M)=<DATA>;open L;flock L,2;open C;@l=d>(@c=<C>)[-1]?(d,
(0)x25,$/):split/<>/,pop@c;@c<14||shift@c;$l[$_]++for$h+2,1;open C,">$C";print C
@c,join"<>",@l;d 1209600;open M;@m=grep$l[0]<=$_,<M>;open M,">$M";print M@m,""ne
$w&&d."<>$h<>$w<>\n";put header,start_html(-encoding,$c,lang,ja),$k<10?($M[rand@
M],startform,p(hidden(K),Comment,textfield(W),submit Clap),endform):p$E,end_html
__DATA__
log.dat
mes.dat
>lock.dat
沢山の拍手を有り難うございました！
拍手が送信されました。ありがとうございました！
拍手が送信されました。ありがとうございますた！
拍手が送信されました。ありがとさ〜ん！
・flock非保護。
445nobodyさん
2008/02/16(土) 22:06:19ID:??? >>327 7kaiseki.cgi
#!/usr/bin/perl
use CGI":all";charset$c=Shift_JIS;($P,$C,$M)=<DATA>;($p=param P).$/ne$P&¨sub
l{(sort@_)[-1]/10||1}sub d{@p=localtime time-86400*pop;$g=(190001+$p[5]*100+$p[4
])*100+$p[3]}open C;%c=map{/<>/;$`,$'}<C>;($l,@l)=$c{$q=param(T)||d}=~/\d+/g;put
header,start_html(-encoding,$c,lang,ja),h1($q),table((map{Tr td[$z++.':00',$_+0,
"/"x($_/l@l)]}@l[0..23]),Tr td[Total,$l+0,""]),h1(Mes),dl(map{s/<>$//;/<>/;$`!=$
z&&dt($z=$`.':00'),dd$'}grep{s/$q<>//}open(M),<M>),h1(Past14day),table(map{Tr td
[a({href,"?P=$p&T=".d$x++},$g),$_,"/"x($_/l@s)]}@s=map{$c{d$_}+0}0..13),end_html
__DATA__
password
log.dat
mes.dat
・HTML適当。
・ファイルロックなし。
・DATAの１行目にパスワードを設定、「?P=password」でリクエスト。
#!/usr/bin/perl
use CGI":all";charset$c=Shift_JIS;($P,$C,$M)=<DATA>;($p=param P).$/ne$P&¨sub
l{(sort@_)[-1]/10||1}sub d{@p=localtime time-86400*pop;$g=(190001+$p[5]*100+$p[4
])*100+$p[3]}open C;%c=map{/<>/;$`,$'}<C>;($l,@l)=$c{$q=param(T)||d}=~/\d+/g;put
header,start_html(-encoding,$c,lang,ja),h1($q),table((map{Tr td[$z++.':00',$_+0,
"/"x($_/l@l)]}@l[0..23]),Tr td[Total,$l+0,""]),h1(Mes),dl(map{s/<>$//;/<>/;$`!=$
z&&dt($z=$`.':00'),dd$'}grep{s/$q<>//}open(M),<M>),h1(Past14day),table(map{Tr td
[a({href,"?P=$p&T=".d$x++},$g),$_,"/"x($_/l@s)]}@s=map{$c{d$_}+0}0..13),end_html
__DATA__
password
log.dat
mes.dat
・HTML適当。
・ファイルロックなし。
・DATAの１行目にパスワードを設定、「?P=password」でリクエスト。
446nobodyさん
2009/10/15(木) 22:52:19ID:??? 最終カキコ一年前なのになんで落ちないんだ？
449nobodyさん
2017/12/30(土) 12:58:56.43ID:YhlYw6jg 誰でも簡単にネットで稼げる方法など
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。
グーグル検索⇒『半藤のブブイウイウレレ』
WUFNFIRDC9
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。
グーグル検索⇒『半藤のブブイウイウレレ』
WUFNFIRDC9
450nobodyさん
2018/02/20(火) 05:11:48.16ID:??? ☆ 日本の、改憲を行いましょう。現在、衆議員と参議院の
両院で、改憲議員が３分の２を超えております。
『憲法改正国民投票法』、でググってみてください。国会の発議は
すでに可能です。平和は勝ち取るものです。お願い致します。☆☆
両院で、改憲議員が３分の２を超えております。
『憲法改正国民投票法』、でググってみてください。国会の発議は
すでに可能です。平和は勝ち取るものです。お願い致します。☆☆
451nobodyさん
2018/06/20(水) 22:23:10.69ID:UnZq46Ab プログラミングを誰でも習得できる方法は、「前場アキドルのプログラミングマスター方法」というブログで見られるらしいよ。ネットで調べると見られるらしいです。
9PV1J
9PV1J
452nobodyさん
2023/03/10(金) 00:09:48.43ID:??? (-｡-)y-ﾟﾟﾟzzz… (*_*)y- ｱﾁ!
レスを投稿する
ニュース
- 「脅迫だ」国分太一に同情論 音声データ削除要求など日テレの対応を疑問視する声ネットに噴出「それこそコンプラ違反では」 [muffin★]
- 中国と対話で良い関係つくるのが責任と首相 ★4 [少考さん★]
- 【国際法を無視】日本での「中華人民共和国に台湾問題を論じる資格なし」との声に 中国外交部が厳しく反論… [BFU★]
- 生クリームだけの真っ白なクリスマスケーキ 大手メーカーが販売、その理由は…フルーツなしで価格は半額以下に ★3 [おっさん友の会★]
- 【学術団体】高市総理の台湾有事に関する発言を巡り、学者らが日中関係修復を求める緊急声明を発表… ★2 [BFU★]
- 〈シカが泣いている…〉奈良が“観光崩壊”危機…外国人観光客は44.5万人、宿泊客単価は3万1千円 [１ゲットロボ★]
- 【悲報】ジャップ「絶滅危惧種とか知ったことか！ウナギを食わせろ！」「金出すから絶滅危惧種のウナギ食わせろ」との声が相次ぐ [616817505]
- 高市ネトウヨ「中国シナ人は滅びろ！」(中国製スマホ、服、生活品を使いながら)→これ外国人笑うらしいなw [153490809]
- 【実況】博衣こよりのえちえちSSholox4周年切り抜き鑑賞🧪★3
- 高市のせいでこれから国際会議で台湾を「中国台北」と呼称しないと行けなくなってしまった模様 [709039863]
- 【悲報】野田佳彦、高市さんの『存立危機事態』答弁を撤回 [519511584]
- 【速報】高市批判の石破、袋叩きにあうwwwwwwwwwwwコメント１万件 [308389511]