subtechグループ - Buy OEM Software - MacSaber in Perl
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
perl - qq(@{[ Interpolate->any->given('expression') ]}) : 404 Blog Not Found
2006年05月30日18:05 カテゴリLightweight Languages perl - qq(@{[ Interpolate->any->given('expression') ]}) ミッカッチャッタ:) spiritlooseのはてなダイアリー - 文字列中で式を実行 結果は print "@{[$foo->bar]}"; print "${\$foo->bar}"; こんな感じ。 ただ、このレヴェルのInterpolationは、Securityのことを考えると避けたいのが本当のところ。 たとえば、以下のscriptを考えてみる。 danger.cgi #!/usr/local/bin/perl use strict; use warnings; use CGI; $ENV{PATH} = '/bin:/usr/bin:/usr/local/bin'; my $q = C
![perl - qq(@{[ Interpolate->any->given('expression') ]}) : 404 Blog Not Found](https://cdn-ak-scissors.b.st-hatena.com/image/square/b78f2ffdf4c59091f2ac617490c58f3a6c649e0d/backend=imagemagick;height=288;version=1;width=512/https%3A%2F%2Fparts.blog.livedoor.jp%2Fimg%2Fusr%2Fcmn%2Fogp_image%2Flivedoor.png)
楽天広場 Trackback Auto-Discovery : にぽたん研究所
迷惑トラックバック対策：トラックバック… こんにちは、楽天広場です。 迷惑トラックバック対策として、トラックバックURLの暗号化を行いました。 #!/usr/local/bin/perl use strict; use HTML::Entities; use HTML::TokeParser; use LWP::Simple; my $url = 'http://plaza.rakuten.co.jp/hirobastaff/diary/200605290000/'; print rakuten_hiroba_trackback_auto_discovery($url), "\n"; sub rakuten_hiroba_trackback_auto_discovery { my $url = shift; my $content = get($url) or die "can't fet
[を] Perl の HTML::Template の自分用サンプルプログラム
Perl の HTML::Template の自分用サンプルプログラム 2006-05-27-4 [Programming] HTML::Template のドキュメント(see "perldoc -t HTML::Template") の SYNOPSIS の自分用の補足。ドキュメント読むの面倒なとき用。 そのままコピペして動くようにしてある。 ■その１ #!/usr/bin/perl use strict; use warnings; use HTML::Template; my $title = "Hello, World!"; my $content; if (rand(2) < 1) { $content = "Hello, Mimitako!"; } my @list = ({key=>"One", num=>1}, {key=>"Sun", num=>3}, {ke
perl - use strict; # and be happy : 404 Blog Not Found
2006年05月21日05:20 カテゴリLightweight Languages perl - use strict; # and be happy どうやら私の本では、啓蒙が全然足りなかったらしい。 Perl/CGI辞典 - 土井 毅さん 著 - にて use strict が推奨されていない件について - iandeth. p.104 strict プラグマは、Perlスクリプトでの記法を厳密にするためのプラグマです。 (中略) これにより、宣言の曖昧な変数への参照を発見できます。 [参考] strict プラグマは厳密すぎるため、通常のプログラミングではあまり使用しません。 ... orz この本が20世紀に出たというのであれば驚かないけど、今年に出たというのは、Perl5 Porterとしてもショックである。 しかし、確かにuse strict; # or dieという姿勢だけ
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
