[ 戻る ]

<< 前のページへ | 最初のページへ |  次のページへ >>

文章中に含まれる日付を一定のフォーマットにあわせて修正する（Perl） 2008/03/31(月) [プログラミング Sorry ] Perlのプログラミングネタ。 文章中に含まれるラフな日付表記を抜き出し、 2008/06/02 のような「4桁/2桁/2桁」の フォーマットに直す処理。 対象にしているのは「3/5」のような「月/日」と、 「2008/5/2」のような「年/月/日」。年が欠落 している場合はプログラム実行時の年を挿入する。 チョイと修正するだけで「6月5日」を拾い上げて 「2008-06-05」にしたりと、いろんなフォーマットに 対応できるのでご利用アレ。 ---------- $ENV{'TZ'} = "JST-9"; ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time); $year += 1900; $str =~ s/(\d{4})\/(\d{1,2})\/(\d{1,2})/&formatA;/eg; $str =~ s/([^\/0-9]|^)(\d{1,2})\/(\d{1,2})/&formatB;/eg; sub formatA { @date = split(/\//,$&); $fix = sprintf("%04d/%02d/%02d", $date[0], $date[1], $date[2]); return($fix); } sub formatB { $fix = sprintf("%02d/%02d", $2, $3); $fix = $1 . $year . "/" . $fix; return($fix); } ----------

コメント ( 0 ) |  トラックバック ( 0 )

開発開始宣言 2008/03/25(火) [プログラミング Sorry ] TODOリストサービスで使いやすいのがない！ ソフトならいくつかあるのですが、在宅時でも 外出時でもデーターを同期化したい…となれば、 WEBサービスがもっとも適しているワケです。 よおおおおし。開発しちゃうぞ！Ajaxを使って サクサク動く オンラインTODOウエア！

コメント ( 0 ) |  トラックバック ( 0 )

アダルトですんません。 2008/02/08(金) [プログラミング Sorry ] たまーに、配布プログラムの利用状況をチェック することがあります。エンドユーザー様にどんな風に 利用/活用されているのかという部分を把握し、 次の改良点や機能追加などを考えるためです。 私が配布しているAlbumFactoryにはスライドショー 機能が付いています。もともと大画面で見ることを 前提とした機能なのですが、これを小さく見せて いるサイトをみつけました。 「そうか、小さく見せる人もいるんだ」と、自分と しては新たな大発見なのです。 ただ、そのサイトはややアダルト系なので、 リンクだけ貼っておきます。気になる方のみ ご覧下さい。 P-girls コンパニオン紹介 * リンク先サイトの内容について 私は一切保証致しませんのであしからず。 スライドショーの背景色を自由に選べるように しないとなぁ、とか、小さいサイズでも無理なく 表示できるようなレイアウトを考えないと いけないなぁ、などアイデアは尽きないのでした。 ちなみに私のプログラムはアダルト/商用利用 でも原則無料という方針のため、エロサイトや 風俗サイトでの利用もかなり多い状況です。 一応、法律を学んでいたこともあり、平等原則に 基づいております…！？笑

コメント ( 0 ) |  トラックバック ( 0 )

CoolNote2 +RSS リリース 2008/02/08(金) [プログラミング Sorry ] クロスブラウザ化に手間取ったー。でもその甲斐 あってFirefoxでもWYSIWYG型エディタが動くように。 CoolNote2 +RSS サンプル ブログよりも情報を「発信」することに重点を置いた プログラムをお探しの方にオススメです。画像を 利用した更新情報の発信などに便利。 上記ページから画像をクリックしてサンプルページを 開き、［管理］→「test2」を入力して［記事を投稿する］ で書くことができます。画像も添付できるので適当に 遊んでみてください。 WYSIWYGエディタはInternetExplorer6.0以降、 Firefox2.0以降対応だと思います。 （Firefox1.0は未検証。） RSSは恐らくPerl3.x辺りでも動いてくれると 思いますが、Perl5.8でしか検証していません。

コメント ( 0 ) |  トラックバック ( 0 )

CoolNote2 +RSS 2008/02/06(水) [プログラミング Sorry ] 完成しました。主な変更点はWYSIWYG型エディタを 搭載したということと、RSS機能を追加したということ。 細かいバグフィックスも行われています。 RSS機能はPerl5.8以降対応ですが、文字コードが EUCで構わないのであれば古いPerlでも動きます。 動作サンプルは後ほど〜。

コメント ( 0 ) |  トラックバック ( 1 )

[ 戻る ]

<< 前のページ | 最初のページ |  次のページ >>

CoolandCool >> 写真とブログ講座 >> ブログ