きつね♪っとWiki

今日の作業記/2008-05-03

[ リロード ] [ ソース ] [ トップ | 一覧 | 単語検索 | 最新 | バックアップ | ヘルプ ]

トップ > 今日の作業記 > 2008-05-03

[ ページコメント(0) ]

Counter: 180, today: 1, yesterday: 0

今日はブログの日・・・

どうせ1_2.htmlにするんだから

あほなことをはじめてしまった(T-T)。

お誕生日を探そう！をオープンしたのはいいが、いまいち迫力に欠けるな～と思って・・・。
というのは、すでにありがたくも何人かのお友達が登録してくれてめ～っちゃうれしいんだけど、やっぱりネックは「生年」。
予想はしてたけど、生年＋性別が入ってないと、プロフィールページがなんにもないの・・・。
脳内メーカーだけだと悲しすぎ。
ほんでやっぱし、誕生日占いを入れる事にしようと決意！
占いの自作は後回しにして、先にこれを入れないと寂しいし、プロフィールにならない。

しかしながら・・・。
また脱線してあほなことをはじめてしまった。
トップページもだけど、いまいち情報が足らないから、
「そうだ！ソウルメイトの誕生日だけでも表示できたら、ソウルメイト探しに登録してくれる人が増えるかもしれない！」

・・・やっぱ検索サイトだから・・・データが少ないと意味がないんだこれが(T-T)。
以前の時は１年間ほどは閑古鳥で、ちょっとずつ増えて・・・やっぱしあれは雑誌の力だね、どどっと増えて閉鎖前には10000件超えてたんだけど。
今回はそうもいくまい、今は誕生日サイトなんざいくらでもある。
でも「本当に書きたい事」のために地道に頑張るんだ～！！

・・・って地味すぎ！！

if($mon==1){ 
$day==1?('0130-0228-0326-0329-0424-0427-0522-0525-0620-0623
-0718-0721-0816-0819-0914-0917-1012-1015-1110-1113-1208-1211'):
      ・・・・
}

これ366日間分入力していくんかい！！

うわーん！いつになったら終わるんだろう！！
しかもまだちゃんと表示できてへんし・・・。

↓間違ってます、動きません念のため。

@so = split(/-/, "$soul");
while (@so) {
($x1,$x2,$y1,$y2) = split(//,substr($so, 0, 4));
if ($x1 eq '0') { $x1 = '';}if ($y1 eq '0') { $y1 = '';}
print "<a href=\"http://birth.kitunet.com/$x1$x2."_".$y1$y2.html\">
$x1$x2月$y1$y2日</a><br>\n;
}

foreachばっかり使ってきたから今更ジローやけど、whileの使い方がわかってへん。
かなりアホかも・・・。
ようするに0130-0228-・・・が$soulに入っているので、「-」で切り出して@soに入れて、
それを一個ずつ分解して、前に0がついていたら削除して
<a href="http://birth.kitunet.com/1_1.html">1月1日</a><br>
と出力させたいだけなんだが・・・。
日によって数が違うからwhileしか使えないと思ってんけど未だにうまくいかない(T-T)。
だれか助けて～！！

と叫んでいてもしょうがないので、コツコツやろう。
今2月11日でぇす。
あと300と何日分？？？

ampm子ども達とまったり
育自久々に書き込み
ねぶろぐ

今日のググる（しくしくしく）

検索結果: perl while substr サンプル by Google

NonSoft - 掲示板CGIのサンプル(perl)
掲示板CGIのサンプル(perl) ... この掲示板の仕様を理解する必要はありますが Perlの# プログラミング知識はいりません。 ...... $_; } } $msg =~ s/ / /g ; }elsif( substr($_,0,6) eq "<etc1>" ){ $etc1 = substr($_,6); while( <BBSIN> ...
Perl,CGI - サンプル
data/test1.txt"; $filesize = -s $filename; ・サンプル1 #!/usr/bin/perl $filename = "./data/test.txt"; open(DATA, "<$filename"); while($filedata = <DATA>){ @ splitdata = split(/\t/, $filedata); print "$splitdata[0]\t$splitdata[1]\n"; ...
ミスティーネットレンタルサーバー－ MISTY-NET － Perl・CGI講座 ...
ミスティーネットPerl・CGI講座, パール・CGIレッスン, MISTY-NETレンタルサーバー・PERLプログラミング講座 ... 4. $substring = sbstr($string, $offset, $length , $replace);. サンプルソース. ● 郵便番号を ― 付きに変換while ( $line ...
CGI-Perlの基礎講座(p06)
（サンプル01 sample01.pl） #!/usr/local/bin/perl while(<STDIN>){ if(/koike/){ print; } } 復習：上記は本来以下のロジックの横着版です。 ..... 尚、$&には前後にスペースが入っていますので、substr($&, 1, length($&) -2)で削除します。 ...
10進数からn進数へ変換するアルゴリズム - Perl入門～サンプルコード ...
2008年9月5日 ... サンプルコードをコピーすれば、そのままPerlで実行して、試すことができます。(旧詳細目次,旧カテゴリ別目次) .... 符号があれば、substr関数で、先頭の一文字を空文字に置換することで削除します。substr関数の戻り値には、削除された ...
EXIF抽出スクリプトのサンプル
EXIF抽出スクリプトのサンプル. JPEGファイルからExifを取り出すPerlスクリプトです。ソースを短くするため、シンプルな機能に絞って ... $offset = unpack($long_tmpl, substr($buf, 4, 4)); 1 while($offset = read_ifd($offset, 0)); } # IFDの解析sub ...
お手軽PerlでSuffixArrayに挑戦
Cで書かれたサンプルをperlでかいてみた。 PERLでもquicksortの関数はあるが、一応 PERLでかいてみた。 .... 34: } 35: print "index position: $index_pos\n"; 36: 37: $cursor = $index_pos; 38: while (($key cmp substr($text, $index[$cursor], ...
12.セキュリティと強制終了
2007年12月26日 ... 前回のサンプルを「testhtm.dat」以外を表示しようとした場合、強制終了するように変更します。【記述サンプル】: #!/usr/bin/perl $param = @ARGV[0]; if ($param ne "testhtm.dat") { exit(0); } if ( (substr($param,-4) eq ".htm") ...
Yahoo!グループ : 『Perl言語プログラミングレッスン ...
usr/bin/perl $pass="1234567890123456789012345"; $i=0; while($pass){ $mysplit[$i] =substr($pass,0,8,""); .... >__END__ unpack()って使ったことがないのでかなり抵抗感があったのですが、このサンプル通して分かったような気がします。 ...
eightban's homepage menu3 <META http-equiv=experes content=2004.01 ...
2008年2月29日 ... #6桁目から251バイト出力(桁数は0から始まります) while(<>){ chop if( /\n$/ ); print substr($_,5251); .... これをyyyy/mm/ddの形式に変換するサンプルです。 perl ではlocaltime()関数があり、これは1970/01/01からの秒数になります。 ...

さらに Google で探す

付箋機能(wema) メニュー

付箋の編集

ページコメント

投稿された内容の著作権はコメントの投稿者に帰属します。

ページ名:	今日の作業記/2008-05-03
ページ作成:	きつね♪	- 2008/05/04 00:06:39 JST(212d)
最終更新:	きつね♪	- 2008/05/04 00:06:39 JST(212d)
編集可:	きつね♪
リンクページ:	今日の作業記(224d)

Modified by きつね♪

"PukiWikiMod" 1.6.6 Copyright © 2003-2006 ishii & nao-pon License is GNU/GPL.
Based on "PukiWiki" by PukiWiki Developers Team
Powered by PHP 5.1.6

HTML convert time to 0.196 sec.