2006-10-01から1ヶ月間の記事一覧
「Perl大技林」一覧に戻る 配列(リスト)を順不同に並べ替えたい。 トランプで言う「シャッフル」、アルゴリズム的な用語を使うと「ランダムな順列」に該当する。 次のようなプログラムを記述すれば良い。
「Vim入門」一覧に戻る 大抵のLinuxにインストールされているテキストエディタ vi を使いこなそうシリーズ。winkを使ったかんたんなデモもご用意しました。 window.addEventListener('load', ()=>{ swf2js.load("https://static.blog.katsubemakito.net/doku…
波乗りしてたら見つけ商品をば。 うーん、大丈夫か日本の将来は(；´∀｀) 擬人化たん白書 (単行本) 擬人化たん白書posted with amazlet at 18.04.03アスペクト アスペクト 売り上げランキング: 202,589Amazon.co.jpで詳細を見る モノや道具や乗り物がかわいい…
「Perl大技林」一覧に戻る ある日付が何曜日が調べたいがどうすれば良いだろうか？ Date::Simpleモジュールの機能を利用し、簡単に調べることが出来る。 以下のプログラムの実行には、Date::Simpleモジュールのインストールが必要となっている。
「Perl大技林」一覧に戻る 明日、また昨日の日付を計算したい。 Date::Simpleモジュールを使用すると、非常に簡潔に記述することができる。以下のプログラムの実行には、Date::Simpleモジュールのインストールが必要となっている。
「Perl大技林」一覧に戻る 明日、また昨日の日付を計算したい。 timeの戻り値が分かっている場合は非常にシンプルに求めることが出来る。
「Perl大技林」一覧に戻る ある日から15日先(または前)の日付を計算するなどしたいが、どうすれば良いだろうか？ time値が分かっていれば簡単に求めることが出来るが、それが全く分からない。 今回はDate::Simpleを使った解法を示すことにする。以下のプログ…
「Perl大技林」一覧に戻る YouTubeにはobject要素(タグ)を貼り付けると、ブログやWebサイトなどから直接ビデオを再生できる機能が用意されている。例えば掲示板(BBS)などで、YouTubeのURLが入力されたら、上記のような再生モードに置換したいが、どのような…
朝っぱらから爆笑(笑) www.chiisana-tsubasa.com 普段見向きもしないWeb拍手を連打してしまう始末です。 ああ、久しぶりにツーリング行きたいなぁ。その前に車検通さないと(^^;
特定のディレクトリ配下を再帰的にたどりファイル一覧を表示などしたい。 階層の深さが決まっていればかんたんに取得できる方法もあるが、階層はまちまちで、今後もダイナミックに変化していく。このような場合にはどうすれば良いだろうか。 方法はいくつか…
「Perl大技林」一覧に戻る 今回は、PerlのFile::Findモジュールを利用した方法を解説する。File::FindモジュールはPerlに標準で入っているため、通常はインストールの作業などはいらない。
「Perl大技林」一覧に戻る Perlでの実装方法について解説する。
ありがとう～｡゜（ﾟ´Д｀ﾟ)゜｡ このためにMacを立ち上げ、ケータイでパシャリと撮り、すぐさま終了させるという、一人暮らし・独身男の哀愁漂う背中をご想像ください。
「Perl大技林」一覧に戻る CGIやPerl系の書籍と比べると、残念ながらmod_perl 解説本はあまり多くなく、選択肢は限られている。 ※そしてどれも安いとは言えない(；´∀｀)
「Perl大技林」一覧に戻る 価格の表示など、3桁毎に数字を区切りたいことがある。このような場合、どういった処理を書けば良いのだろうか？ 次のような commify 関数を自分のライブラリに準備しておくとかなり重宝する。
「Perl大技林」一覧に戻る ユーザーを識別するため、ファイルをサーバに保存するなど何らかの理由により重複しないIDを生成したい場合にはどうすれば良いだろうか？ 通常のCGIであれば、CGI::Sessionなどを用いる方法もあるが、次のようなコードを書くことで…
「Perl大技林」一覧に戻る 日本語を含む文字列がある。 この文字列が改行されておらず非常に長文であるため、指定したバイト数で自動的にBR要素などを用いて改行を行いたい。 このような場合には、Jcode.pm内のメソッド「jfold」を用いると簡単に実現できる…
「Perl大技林」一覧に戻る 以下のような配列がある時、2番目の項目で並べ替えがしたい。 単純に sort @array しただけではできない。 @array = ( '1,b,c' , '3,c,b' , '2,a,a' ); ソート項目が数値の時にはorderByArrayNum、文字列の時にはorderByArrayStrを…
※引数の順番を忘れるのでメモ。 解説 ln -s [参照先(実体)] [参照元(シンボリックリンク)] $ ln -s TC_001.jpg TC.jpg $ ls -l lrwxrwxrwx 1 admclubt webmastr 10 2006-10-04 15:32 TC.jpg -> TC_001.jpg -rw-r--r-- 1 admclubt webmastr 28793 2006-09-26 …
「Perl大技林」一覧に戻る 掲示板などのプログラムで、文字列中にURLが含まれる場合、自動的にハイパーリンクが張られている場合がある。これを実装するにはどうすれば良いだろうか？ 単純にURL(URI)の正規表現を用いて、置換を行えば良い。以下のサンプルで…
「Perl大技林」一覧に戻る open関数でファイルを開き、読み書きを同時に行いたい場合はどうすれば良いだろうか？これを解決するには単純にファイルの読み書きモードを使用すれば良い。
何年ぶりかに、小中高と一緒だった友人から電話がかかってきて、夜中に男二人で大盛り上がり(笑) で、話していると本人も忘れているようなことが次々と浮上。小学校の低学年のころ、どうも自分はキレルと何度と無く画鋲を投げつけたらしく(箱まるごと)、当時…
「Perl大技林」一覧に戻る 以下のようなコードを書くと、文字列として扱われてしまい、意図した結果にならない場合がある。 @array = ( 1, 2, 3, 4, 5, 10, 11, 12 ); foreach(sort @array){ print ; print "\n" }
「Perl大技林」一覧に戻る $a{'a'}->{'A1'} = 1 のような形のハッシュを作成、表示する。
ようやくありつきました(喜) なつかしい味だなぁ。2年前?の時は解凍感満載だったけど、今回はあの味だ！ 学生のころは、週に一度のご馳走でした(^^; さぁ、帰って仕事だ。渋谷の滞在時間15分(笑)
「Perl大技林」一覧に戻る ※初出の日時が不明のため公開日は仮の日付です あるリストから、希望する条件に一致した値だけを取り出したい場合がある。for,while,foreachなどのループを使う方法以外に、効率の良いやり方が知りたい。
