grep関数 - 特定の条件を満たす配列要素のみ取得 - Perl入門ゼミ
Perl › 関数 › here 「grep関数」を使用すると配列の中で条件にマッチした要素のみを取り出すことができます。デフォルト引数$_に@arrayの各要素が渡されてきます。条件文を満たした要素のみが@matchedに追加されます。 # 条件にマッチした要素のみを取り出す @matched = grep { 条件文 } @array; サンプル 正規表現にマッチした要素のみを取得するサンプルです。このサンプルでは整数だけを取り出しています。@numsが(1.23, 123, 43)の場合は@matchedは(123, 43)になります。 # 正規表現にマッチした要素のみを取得 my @nums = (1.23, 123, 43); my @matched = grep { /^\d+$/ } @nums; 正規表現でパターンマッチ演算子(=~)を省略するとデフォルト変数$_がパターン
Perl IP Messenger
ipmsg.pl - Perl IP Messenger Perl 5 によるネットワークプログラミングの習作として、題材として手軽な IP Messenger を作成しました。IP Messenger は UDP で通信を行ないます。Perl で実装するなら、Socket パッケージの socket, send, recv を使えば、IP Messenger とのやりとりが実現できます。ここで紹介しているソースリストは、習作としては少々複雑になってしまいましたが、IP Messenger プロトコルのほとんどのコマンドを実行できます。 ここでの UDP による通信を Perl で行なう方法については、以下の文献を参考にしました。 斎藤、小山、前田、布施、「新Perlの国へようこそ」、13.10.2 節「UDP」、サイエンス社, 1996. IP Messenger に関しては「IP Me
map関数 - 配列のすべての要素の変換 - Perl入門ゼミ
Perl › 関数 › here 配列のすべての要素を変換するにはmap関数を使用します。@arrayの各要素がデフォルト変数$_に渡されてきますので、コードブロック{ }の中で必要な変換を行います。変換文で最後に評価されたものが@mappedに順番に追加されます。 # 配列のすべての要素の変換 @mapped = map { 変換文 } @array; サンプル mapを使ってすべての要素を2倍するサンプルです。@numsが(1, 2, 3)の場合は@doubledは(2, 4, 6)になります。 # すべての要素を2倍 my @nums = (1, 2, 3); my @doubled = map { $_ * 2 } @nums; mapを使ってすべての要素の先頭の文字列を削除するサンプルです。@strsが(' a', ' b', ' c')の場合は@trimedは('a',
Slim3 の application_ja.properties に日本語を書くために UTF-16 LE を16進数で表現する - make world
Slim3 の application_ja.properties にマルチバイトを記述するには、文字列を UTF-16LE に変換して16進数でダンプする必要があることに気が付いた。 この方法を Java でやる方法がわからなかったので、Perl で書いてみた。 #!/usr/bin/perl use strict; use warnings; use Encode; use utf8; my $unicodes; my $string = "タイムスタンプ"; my @chars = split '', $string; foreach my $char (@chars) { $unicodes .= '\\u' . unpack('H*', encode('utf-16-le', decode_utf8($char))); } # BOM は付加していない # 付加する場合は、\uf
ハッシュを初期化する
ハッシュを利用するには宣言を行ったあとで要素に対して値とキーのペアを格納していきますが、変数などと同じようにハッシュについても宣言と同時に値とキーのペアを格納する初期化を行うことができます。ここでは Perl でハッシュの初期化を行う方法について解説します。
perlで.htpasswdを生成する - rougeref’s diary
159人分の基本認証を作ってくれという依頼。htpasswdコマンドを159回起動して、318回パスワードを間違いなくタイプできれば魔法使いになれるらしいが、あいにくそんな技量は持ち合わせていないのでちょっとしたスクリプトを作成。 htpasswdはUNIXパスワードと同じくcrypt()関数でパスワードを暗号化しています。平文のパスワードとランダムの種を与えてあげればいいので、パスワードを作成する関数はこんな感じ。種の元になる文字列は適当でいいんだけど、ウェブ上の例をみるとみんなこんな風にa-zから順序良く並べているので、その例に習いました。 sub mkpasswd { my($pass_plain)=@_; my(@salt_set)=('a'..'z','A'..'Z','0'..'9','.','/'); srand(time|$$); my($seed1) = int(rand
Stray Penguin - Linux Memo (Perl-3)
`used only once' 警告を消す 設定変数だけを別ファイルに分けることは多いはず。しかし、その場合、 warnings を有効にすると、`used only once, possible typo' (この変数は一度しか使われていないぞ。ミススペルじゃないのか？) という警告が出ることが多い。これを防ぐには、本体スクリプトの冒頭で、 #!/usr/bin/perl use warnings; no warnings qw(once); 出力バッファリングを一時的に無効化する 或るファイルハンドルに対してのみ出力バッファリング (output buffering) を無効にするには、そのファイルハンドルを select() してオートフラッシュ変数 $| を 1 に設定する。select() を再び元の状態に戻しておくのを忘れてはならないが、ひとつの複合 select文で一息に行
ハッシュと繰り返し処理
繰り返し処理としては色々な方法があると思いますが、ハッシュの場合は while 文または foreach 文を使いことが多いと思います。 foreach 文の場合にはハッシュに含まれるキーのリストを作成し順に取り出して処理することになります。次のように記述できます。 my %address = ( "鈴木" => "東京都千代田区", "山田" => "東京都葛飾区" ); foreach my $key(keys(%address)){ print "$address{$key}\n"; }
perlの標準エラー出力の扱い方
[上に] [前に] [次に] B-Cus 1998/01/12(月) 18:22:08 perlで実行した標準エラー出力を処理する方法を教えてください。 また、標準エラー出力のみを受け取る方法を教えてください。 例えば exist-file が存在して、non-exist-fileが存在しないとき、 open(IN,"ls exist-file non-exist-file|); print <IN>; とすると出力は 「exist-file」 のみになってしまいます。 標準エラー出力に出力されている 「non-exist-file: No such file or directory」を受け取る にはどうすればいいでしょうか。 また、標準出力は捨て、標準エラー出力のみを受け取る方法 # 「non-exist-file: No such file or directory」だけを受け取る方
【perlメモ】CSVファイルを簡単に処理できるCPANモジュールText::CSV_XS
text::CSV_XS[http://cpan.uwinnipeg.ca/search?query=text%3A%3ACSV_XS&mode=dist] Text::CSV_XS CSVファイルはエクセルなんかでよく使われる形式のテキストファイルですが、基本「,」(カンマ)区切りのテキストファイルです。単純な「,」(カンマ)区切りのファイルだといいのですが、実際にはデータ自体に「,」や「"」を含んでいたりすることもありそういうのを考慮すると実際に自前で処理しようとすると結構大変です。そういう場合に便利なのが「Text::CSV_XS」CPANモジュールです。 下のようなShift JISのCSVファイルがあるとき text.csv #!/usr/bin/perl use strict; use warnings; use utf8; use Encode; use Text::CSV_
ファイルを1行ずつ読み込む。readline 関数。 - サンプルコードによる Perl 入門
Perl › 演算子 › here ファイルを一行づつ読み込むには行入力演算子「<>」を使用します。読み込む行がなくなると、undefを返却します。 my $line = <$fh>; 他の演算子と異なり「<」と「>」の間にファイルハンドルを記述することに注意してください。 通常は、while関数と組み合わせて、繰り返して行を読み込むのに利用します。 while(my $line = <$fh>) { # ... } 考え深い方は、上記のように書いた場合は、もし「0」などの偽の値が返ってきた場合は、正しく動かないんじゃないかと感じるのではないでしょうか。行の途中は、改行コードが入りますから、「0」が返ることはありませんが、末尾の場合は「0」が返ってくる可能性があります。 でも、心配しないでください。ファイル演算子は、whileと組み合わされて使う場合のみ、次のように解釈されるからです。 w
Perl関数のmapで配列からハッシュを作る方法 | hirobanex.net
今までPerlで配列からハッシュを作るときは、for文とかwhile文を使っていたのですが、ふと、mapできれいにつくれるのでは?とぐぐったらできることが判明したのでそのメモ。 mapを使わないいけてない方法 こんな感じで、最初にハッシュとかハッシュリファレンスを宣言してループ文を使って書く。 my @array = qw/hoge moge foga hoge/; my %hash; for (@array){ $hash{$_} = 1; } mapを使ったいけてる方法 ループ文を書くことなく、さらにmapの仕様による高速作成。く my @array = qw/hoge moge foga hoge/; my %hash = map { $_ => 1 } @array; まとめ 配列のデータをユニークにするときは、List::MoreUtilのuniqとかを使えばいいけど、とりあえず
Perlで日付・時間を操作 - DateTime モジュールの使い方 (iandeth.)
Perlには、日時の加・減算を扱うモジュールが標準でついてきません。僕の仕事場ではずっと、同僚が作ったオリジナルモジュールを皆で使いまわしていたのですが、今になって、世間的 (CPAN) にはどんなものがあるのか気になって調べてみました。※参考になったのは miyagawa 氏のメールマガジンの過去記事と、perl.com の The Many Dates and Times of Perl なるエントリでした。 今回は数ある日付関連モジュールの中から、Dave Rolsky氏の DateTime モジュールについて、その基本的な使い方について簡単にまとめたので共有してみます。 同氏は上記 perl.com 記事の執筆者であり、この前の YAPC::Asia で DateTime project について講演してくれていた人です。気合の入ったモジュールを作ってくれた事に感謝。 目次 基本
warn関数 - 警告を出力する - Perl入門ゼミ
Perl › 関数 › here 警告を出力するにはwarn関数を使用します。メッセージの末尾には警告が出力された行番号が自動的に追加されます。行番号を表示させないようにするには末尾を改行で終えます。 # 警告を出力する # 行番号あり warn $message; # 行番号なし warn "$message\n"; 実際にwarnが行っていることは標準エラー出力にメッセージを出力することです。行番号が含まれていることと「__WANR__」シグナルを発生させることを除いて次のprint文と同じです。警告を意味しない場合でも標準エラー出力にメッセージを出力したい場合にはwarnが利用されることがあります。 # warnの意味は標準エラー出力への出力とほぼ同じ perl STDERR $message; 警告をキャッチする 警告をキャッチすることができます。warnが実行されると__WARN
Perlでバイナリファイルを読むサンプルコード
2009年09月02日 13時15分13秒 ｢読む例は～？」のツッコミがメールで今頃入ったのでどうかと思ったけど記述。 s2.pl ## バイナリファイルを読み込んで16進数の文字列で書き出すサンプル binmode(STDIN); $cnt = 0; $addr = 0; while(1==1) { printf("%08x ",$addr) if (0==$cnt) ; last if undef == read(STDIN, $code, 1); printf("%02X ", unpack("C",$code) ); $cnt++; if (16==$cnt) { print "\n"; $addr+=$cnt; $cnt=0; } } print "\n--- end\n"; 標準入出力を使うことを想定した。 16進ダンププログラム風。 突っ込み対応。長さゼロのファイルの時はアド
PerlでSOAPを試す - はこべにっき ♨
授業でSOAPの課題が出た．授業用のSOAPサーバのnameというメソッドに自分の名前を渡して結果を確認するというもの．サンプルコードはJavaで何行にも渡ってつらつらと書かれていたのだけれど，それPerlだと2行でできるよ． use SOAP::Lite; print SOAP::Lite->proxy(shift)->name(shift)->result, "\n";終了．これを， $ perl soap_test http://url.to.soap/ hakobeとかやって呼び出せばOK． 呼び出し結果ををXMLでみたいときは， my $client = SOAP::Lite->proxy(shift)->outputxml(1); print $client->name(shift), "\n";とやる． SOAP::LiteはSOAPのサーバも結構らくにかけて， use st
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Hatena Developer Center
Perlあれこれ/ファイルダウンロード - 笑猫酒家
Perlゼミ(サンプルコードPerl入門)
Perl > クエリを連想配列で受け取るスマートな方法 - 綾小路龍之介の素人思考