【Perlスクリプト】 一行掲示板 BBS Type1
このスクリプトは一行掲示板スクリプトです。 全ページhtml表示です。 連続投稿制限、投稿禁止IP、投稿禁止ワード、スパム対策などの設定もあります。 サンプル ※サンプルのため動きません。 このスクリプトの利用規定 ■スクリプトのダウンロード BBS_Type1_Ver110.zip ■スクリプトの更新履歴 2010.07.10 Ver110 - 西暦に関するミスを修正→修正点 2007.02.01 Ver110 - ホスト名が取得できない場合の投稿、連続投稿を拒否する設定に関するバグを修正 ■ファイルの確認 ファイルを解凍して以下のファイルがあるか確認してください。 index.cgi log.cgi cgi-lib.pl style.css manual.html
【Perlスクリプト】 画像アップロード対応スレッド型掲示板 BBS Type5
このスクリプトは画像アップロード対応のスレッド型掲示板のスクリプトです。 画像アップロード対応のスレッド型の掲示板です。 全ページhtml表示で、２ちゃんねると同じトリップの使用が可能です。 各種表示設定、各種禁止設定、連続投稿制限、スパム対策などの設定ができます。 サンプル ※サンプルのため動きません。 このスクリプトの利用規定 ■スクリプトのダウンロード BBS_Type5_Ver100.zip ■スクリプトの更新履歴 2011.05.15 Ver100 - ページ内移動（下に移動▼）に関するミスを修正 2010.07.10 Ver100 - 西暦に関するミスを修正→修正点 ■ファイルの確認 ファイルを解凍して以下のファイルがあるか確認してください。 index.cgi parts.cgi log1.cgi log2.cgi style.css manual.html /file/ /
Net::OAuth::Consumerを作ってみた - id:lopnor
http://coderepos.org/share/browser/lang/perl/Net-OAuth-Consumer 使い方は↓こんな感じ。 #!/usr/bin/perl # index.cgi use strict; use warnings; use CGI; use Net::OAuth::Consumer; use Template; use DB_File; my $q = CGI->new; tie my %oauth_token, "DB_File", "oauth_token.db"; my $oauth = Net::OAuth::Consumer->new({ query => $q, consumer_key => 'your_consumer_key', consumer_secret => 'your_consumer_secret', request
Accessing the Google Base data API using Perl - Google Base Data API - Google Code
Accessing the Google Base data API using Perl The Perl Recipe application is a small but complete example that demonstrates the five Google Base API services: queries, insertions, deletions, updates, and batch commands. It uses the standard libcurl library to perform efficient HTTP requests for authentication and interaction with Google Base API. Contents Using the Recipe application Stepping thr
PerlでPOSTメソッドの送信を行う | ぺんラボブログ
PerlでPOSTする必要があったので調べてみた。 HTTP::Request::CommonでPOSTするデータを用意して、LWP::UserAgentに委ねるだけ。 この連携はいつ使っても感動しますね。 use strict; use LWP::UserAgent; use HTTP::Request::Common; # POST準備 my $url = 'http://exsample.com/receive.cgi'; my %postdata = ( 'id' => 'id', 'pass' => 'pass' ); my $request = POST( $url, \%postdata ); # 送信 my $ua = LWP::UserAgent -> new; my $res = $ua -> request( $request ) -> as_string;
C-Production – UNIXとプログラミングの備忘録
大変ご無沙汰です。約1年半ぶりの更新です。 昨日、ブログを設置しているサーバでOSのアップデートに問題が発生したため、これを機に新サーバ・新OSに乗り換えることにしました。 現在のブログがマルチサイトのため、そのままでは新サーバの構築に苦戦すると予想されるため、他のブログの記事を統合しました。 統合内容は以下の通りです。 ・C-Production ・・・ メインサイトのため、他のブログを吸収して継続。 ・♪8thNote♪ ・・・ メインサイトに統合済みだったので、削除。 ・モバイル魂 ・・・ メインサイトに記事を引き継ぎ、並行稼働中。 ・無線のドキュメント ・・・ もともと閉鎖予定だったので、そのまま削除 外部SNSのアカウントについてはそのまま継続します。 今後ともよろしくお願いします。
URIモジュールにutf8フラグつきの文字列を食わせたらquery_formのエンコードが化けたでござるの巻 - とあるモバイル系エンジニアの日々
タイトル長い。っていうかそのまんまです。 #!/usr/bin/perl use strict; use warnings; use URI; my $s = 'http://example.com/?q=%82%e2%82%e9%95v%82%c5%8aw%82%d4'; utf8::upgrade($s); my $uri = URI->new($s); my %qf = $uri->query_form; $qf{flag} = 'ON'; $uri->query_form( %qf ); my $uri_str = $uri->as_string; これ、一見すると$uri_strは http://example.com/?q=%82%e2%82%e9%95v%82%c5%8aw%82%d4&flag=ONになりそうなんですが、実際には http://example.com/?q=
DBD::mysql
Patrick Galbraith Alceu Rodrigues de Freitas Junior Alexandr Ciornii Alexey Molchanov Amiri Barksdale at Home Andrew Miller Aran Deltac Bernt M. Johnsen Chase Whitener Chip Salzenberg Chris Hammond Chris Weyl Christian Walde Dagfinn Ilmari Mannsåker Daisuke Murase Damyan Ivanov Dan Book Daniël van Eeden Dave Lambley David Farrell David Steinbrunner Giovanni Bechis Graham Ollis H.Merijn Brand - Tux
Web::Scraper - naoyaのはてなダイアリー
Today I've been thinking about what to talk in YAPC::EU (and OSCON if they're short of Perl talks, I'm not sure), and came up with a few hours of hacking with web-content scraping module using Domain Specific Languages. 使ってみたよ! #!/usr/local/bin/perl use strict; use warnings; use FindBin::libs; use URI; use Web::Scraper; use Encode; use List::MoreUtils qw/uniq/; my $links = scraper { process 'a.key
perl-mongers.org - このウェブサイトは販売用です！ - perl mongers リソースおよび情報
This webpage was generated by the domain owner using Sedo Domain Parking. Disclaimer: Sedo maintains no relationship with third party advertisers. Reference to any specific service or trade mark is not controlled by Sedo nor does it constitute or imply its association, endorsement or recommendation.
図書館の所蔵状況をスクレイピングするスクリプトをWWW::Mechanize::Pluggableを使って書いてみた - natu_nの日記
以前に図書館の所蔵状況を拾ってくるスプリプトをWeb::Scraperを使うように書き換えるという記事を書いたが、今回更に一歩進んでWWW::Mechanize::Pluggableを使うように書き換えてみた。 WWW::Mechanize::PluggableはWWW::MechanizeからWeb::Scraperを動かすモジュールでなぜ使うかというと、なにかの呪文のような長い長いクエリ文字列を固定で持ちたくないのとTOPページからゴリゴリと掘っていかないとクエリが組み立てられないサイトを楽にスクレイピングしたいのが目的。 今回は長いクエリを楽にする方を 以前は一段階目の検索を行うのに 〜略〜 # 冗談のような長い呪文 Readonly my $QUERY_URL_PREFIX => 'https://library.city.iwaki.fukushima.jp/wehome/we/
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
URI::Query
Spidering Hacks
perl版成分解析 - おもてなしの空間
Perl逆引き辞典 - サンプルコードによる Perl 入門