PerlによるTwitter botの作り方 - fukudat.net
インストール CPANからNet::Twitterをインストールする． $ cpan Net::Twitter Net::Twitterは多くの外部packageに依存している[1]． 必要なpackageは自動的にインストールされるはずだが，失敗することもある． その場合はエラーメッセージを見て，不足しているpackageを同様にcpanからインストールする． 例えばDateTimeが足りなくてエラーが出ていたら， $ cpan DateTime を実行すればよい． Net::Twitterを使用するScriptの作成 つべこべ説明せずに，例を示す． ↓はキーワード検索する例である． (ファイル twitter-search.pl にセーブしておく)． #!/usr/bin/perl use strict; use Net::Twitter; use utf8; binmode STDO
Perlで、ある要素が配列(リスト)の中に存在するかを調べる方法 · DQNEO日記
use strict; use warnings; my @list = qw(apple mango orange); my $item = 'orange'; if (in_array($item, @list)) { print "yes\n"; } else { print "no\n"; } sub in_array { my $item = shift; my @list = @_; for (@list) { return 1 if $_ eq $item; } return 0; } # 実行結果：'yes' 判定文を１行で書くこともできます。↓ use strict; use warnings; my @list = qw(apple mango orange); my $item = 'orange'; if (grep {$_ eq $item} @list) { p
Perlの多次元連想配列をJSONエンコードする方法 - Y's note
初めてのPerl 第5版 作者: Randal L. Schwartz,Tom Phoenix,brian d foy,近藤嘉雪出版社/メーカー: オライリージャパン発売日: 2009/10/26メディア: 大型本購入: 22人 クリック: 293回この商品を含むブログ (41件) を見る はじめに 業務でPerlを使う事になったので少しずつ学習した事を書いて行きます。この記事での目的は連想配列を多次元で定義して、その配列をjson_encodeします。 超簡単 Perl一問一答学習帳 - Yuta.Kikuchiの日記 配列 定義 配列の定義には@を使います。@は配列を示す宣言ですが、定義の仕方は色々とあります。以下では()括弧、添字、qw演算子での指定について書きます。qw演算子とは空白での区切りでlistにしてくれるものです。 #!/usr/local/bin/perl -w use
Encode 日本語などのマルチバイト文字列を適切に処理する - Perl入門〜サンプルコードによるPerl入門〜
Perl › モジュール › here 日本語などのマルチバイト文字をPerlで適切に扱うにはEncodeモジュールを使用します。次の3つのことを覚えておけば多くの場合適切に日本語を扱うことができます。 外部から入力された文字列はEncodeモジュールのdecode関数でデコードする 外部へ出力する文字列はEncodeモジュールのencode関数でエンコードする ソースコードはUTF-8で保存しutf8プラグマを有効にする この解説での用語 この解説では外部から入力された文字列のことを「バイト文字列」と呼ぶことにします。Perlの内部表現に変換された文字列を「内部文字列」と呼ぶことにします。また「バイト文字列」が特定の文字コードで記述されている場合は「UTF-8バイト文字列」「Shift_JISバイト文字列」などと呼ぶことにします。 プログラミングで日本語を扱う場合にその文字列がバイト文字
Mojolicious::Lite で WebSocket を使ったチャットを作る - naoyaのはてなダイアリー
node.jsの衝撃とWebSocketが拓く未来 (1/2)：WebSocketで目指せ！ リアルタイムWeb（1） - ＠IT という記事を読みました。node.js という V8 を用いたサーバーサイド JavaScript フレームワークを使うと簡単にイベント駆動のサーバが書ける、node-websocket-server.js を使うと node.js で WebSocket サーバが実装できる。Ajax による polling や Long Polling などと WebSocket のアーキテクチャ比較といった内容でした。 WebSocket を使うと手軽にサーバプッシュ的なアプリケーションが作れて嬉しいのですが、現時点では、HTTPサーバー側で WebSocket を処理する下地の実装をどう用意するかというところがひとつ課題でしょう。node.js はその回答のひとつとして
Perlを分かってそうで分かってない人が陥るアンチパターン - Akihiro's Programmer Blog
この記事は Perl Advent Calendar 2014 の 15日目 の記事です。 14日目の記事は karupanerura さんの Carton時代の必須インストールモジュール(Webアプリ編) でした。 目次 はじめに $classと$self mapの使い所 doブロック内でreturn 終わりに 明日は はじめに はじめに言っておきますが、Perlを分かってそうで分かってない人 = 僕 です。 この記事では、Perlの扱いにある程度慣れてきたけれど、実はあんまり理解せず使っています、という方が陥るであろうミスをアンチパターン形式で紹介する。と見せかけて僕の恥ずかしい失敗というか、勘違いを書いていきます。 $classと$self Perlでメソッドを定義するとき、私は全てこういう風に書き始めていました。 sub method { my $class = shift; #
Unicode::Japaneseのインストール失敗をなんとかしてみた - Qiita
Unicode::Japanese を入れようとしたらエラーしたので その解決策の記録。 大正義cpanmでこける $ cpanm Unicode::Japanese Result: FAIL Failed 4/33 test programs. 5/1456 subtests failed. make: *** [test_dynamic] エラー 255 -> FAIL Installing Unicode::Japanese failed. See /home/ymko/.cpanm/work/1403711176.7952/build.log for details. Retry with --force to force install it. **** CONFIGURE **** Can't locate ExtUtils/Embed.pm in @INC >> It see
perlのCGIでJSONデータを作る - 備忘帳 - オレンジ工房
HOME ≫ 備忘帳 ≫ PerlのCGIでJSONデータを作る Javascriptからの問合せなどで、CGIプログラムからJSONデータを出力したいときの小技です。 ちょっとしたデータなら、Perlの標準モジュールであるData::Dumperで作ってしまいます。 (2014/08/21追記) 出力結果の日本語部分を読みやすくする対応について追記しました。サンプルコードもやや変更しました。 (2015/07/29追記) モジュールの変数をおもむろに上書きするのではない書き方も追加。…というか、そんなに気を使って書くならJSONモジュール使った方がいい。 サンプルコード #!/usr/bin/perl use strict; use utf8; use Data::Dumper; # JSONで返したいデータ my $json = { number => 1, list => [10,
InfluxDB をちょっとさわってみた - （ひ）メモ
InfluxDBとは http://influxdb.org メトリクスやイベントといった時系列データを格納するのに適したデータストアです。 ちなみに go で書かれています。 ちなみに 2013のOpen Source Rookiesに選ばれました。 InfluxDBの特徴 RRDやMySQLに時系列データを格納する場合と比較して、InfluxDBの特徴を紹介します。 バックエンドは LevelDB LevelDBとは、キーでソートされた状態で可能されたKVSです（Google製）。詳しくはこのへん参照のこと。 http://en.wikipedia.org/wiki/LevelDB https://code.google.com/p/leveldb/ https://speakerdeck.com/smly/influxdb-and-leveldb-inside-out 将来的にLev
時刻の差を求める(24時間を越えない場合) - Perl入門ゼミ
Perl › 日付・時刻 時刻の差を求めるには、まずhhmmssと表記されているものを秒に変換する必要があります。秒の差を求めた上で再度hhmmssの時刻表現に復元します。時刻の差を求めるサンプルです。 use strict; use warnings; print "(1)時刻の差を求める(24時間を越えない)\n"; my $time_str1 = '03:44:23'; my $time_str2 = '22:34:45'; # 時刻の文字列表現を時刻情報のハッシュに変換する。 my $time1 = time_from_str($time_str1); my $time2 = time_from_str($time_str2); # 時刻情報のハッシュを秒に変換して経過秒を計算 my $sec_interval = time_to_sec($time2) - time_to_sec
LWPでコマンドラインからファイルをアップロード - end0tknr's kipple - web写経開発
フォームからファイルをアップロードするwebアプリケーションは、よく見かけますが、LWP::UserAagent を使用すれば、CLIプログラムでも可能です。 #!perl use strict; use warnings; use HTTP::Request::Common qw(POST); use LWP::UserAgent; use Data::Dumper; my $TARGET_CGI = 'http://hogehoge.jp/cgi-bin/receive_file.pl'; my $SUBMIT_CONTENT = [action => "input", input_kanji_code => "auto", #入力の文字コード output_file_format => "csv" ]; #出力形式 sub main { my ($upfile) = @_; my $
Perlの勧め(2) Class::DBIを使おう - エンジニアブログ - スカイアーク
こんにちわ onagataniことナガタニです。 Perlの勧め１は読んでもらえましたでしょうか。 弊社ディレクター陣からは意味分からんといわれてしまい、 ちと初心者向けではなかったのかなぁと思っております。 今回の２回目ではPerlのORマッパーの代表格であるClass::DBIを紹介します。 説明に入る前にPerlのORマッパーの個人的な感想を。。。 Class::DBI 歴史も古く枯れている DBIx::Class 最も人気のあるORマッパー 非常に高機能 Data::ObjectDriver MTから切り離されてCPANに登録されたORマッパー。標準でキャッシュやパーティショニングが可能。 DBIx:MoCo とても簡単にキャッシュが可能。rubyちっくな配列処理 それぞれ特徴がありますが、お気楽に使うならClass::DBIが枯れていて情報も沢山あるため個人的にはお勧めです。 そ
テキストファイル内の特定文字列を一括置換させたい～Perl編～
ファイル内の特定の文字列を置換させたい場合には、sedを使用するのが容易だ。「テキストファイル内の特定文字列を一括置換させたい」Tipsでも紹介をしている。 次の例では、input.txtを読み込み、シングルクォートを削除してからoutput.txtに書き出すという指定になる。
bit.lyの短縮URLを生成するPerlスクリプトを作ってみた | Pocketstudio.jp log3
◆bit.lyの短縮URLを生成スクリプト bit.lyの短縮スクリプトを生成するのに、わざわざbit.lyを開くのは面倒(;´Д`) コマンドラインで一括変換してくれれば楽じゃね？と、コマンドラインで使えるモノをつくってみました。ちなみに、環境はPerlです。 出来たものは $ shorturl.pl <URL> こちらを実行すると、bit.ly のAPIを叩いて、短縮URLを返してくれるというモノ。 ◆前準備 今回使ったのは CPAN に公開されていた、WebService::Bitly モジュールを使います。サンプルコードが綺麗でわかりやすく、必要最低限のものがそろっていたので。組み込みは cpan コマンドを使えばとても簡単。 # cpan -i WebService::Bitly 私の環境では、結構いろいろな追加モジュールが必要になりました。必要になるものなので、全部いれてしまい
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Perlファイル存在確認
Perlゼミ(サンプルコードPerl入門)
perl で utf8 の日本語の文字数をカウントする。 - 雑想空間
シングスブログ : Perlアーカイブ
WebSocketクライアントをPerlで書いてみる
CentOS 5 に Sledge 環境をインストール - UPSNAP