努力したWiki - documents:perl

Perlでバイナリファイルを作るサンプルコード

anonymous@undisclosed.example.com (Anonymous) — Fri, 01 Nov 2024 16:30:06 +0000

Perlでバイナリファイルを作るサンプルコード 2010年11月19日 20時19分22秒ファイル名書けって怒られた(´・ω・｀) ソース ## ４桁の16進数を読み込んでバイナリ形式で書き出すサンプル binmode(STDOUT); while() { chomp($_); $code = uc( $_ ); printf("%c%c", unpack("C", pack("H2", substr($code,0,2))), unpack("C", pack("H2", substr($code,2,2))) ); }

Perlでバイナリファイルを読むサンプルコード

anonymous@undisclosed.example.com (Anonymous) — Fri, 01 Nov 2024 16:30:06 +0000

Perlでバイナリファイルを読むサンプルコード 2009年09月02日 13時15分13秒｢読む例は～？」のツッコミがメールで今頃入ったのでどうかと思ったけど記述。ソース ## バイナリファイルを読み込んで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";…

GDを使ったグラフ描画

anonymous@undisclosed.example.com (Anonymous) — Fri, 01 Nov 2024 16:30:06 +0000

GDを使ったグラフ描画 2008年01月31日 03時14分45秒これは何？ perlで書いたグラフの描画コード。 perlでグラフを書く GD.pm 有名どころにＧＤなるものがある。このモジュールを利用すると、昔のBASICに実装されていたグラフィックステートメントの様な雰囲気のメソッド群が利用できるようになる。ただし、直接画面を描画するわけではなく、仮想画面を準備しそこへ描画。最終的に仮想画面の画像データを必要とする画像形式で取出しする。このあたりはさすがに昨今の描画システムを踏襲しているようだ。…

ＩＰメッセンジャーへメッセージを送る Perl版

anonymous@undisclosed.example.com (Anonymous) — Fri, 01 Nov 2024 16:30:06 +0000

ＩＰメッセンジャーへメッセージを送る Perl版 2008年01月31日 03時02分02秒新規 2013年6月13日 NKF.pmを使わないソースを追加。意外と需要があったのね。これは何？ perlで書いたＩＰメッセンジャークライアント簡易版の説明。

CGI.pmで同名のパラメタを複数受け取る

anonymous@undisclosed.example.com (Anonymous) — Fri, 01 Nov 2024 16:30:06 +0000

CGI.pmで同名のパラメタを複数受け取る 2009年05月23日 02時42分15秒 CGI.pmでCGI書き直しをやった際のメモ。頚の痛みが和らいでいるうちに残しておく。薬切れたらまた痛みが襲ってくるはずだしorz

バッファローのNASをシャットダウンするPerlスクリプト

anonymous@undisclosed.example.com (Anonymous) — Fri, 01 Nov 2024 16:30:06 +0000

バッファローのNASをシャットダウンするPerlスクリプト 2011年02月18日 00時11分42秒どうしてバックアップのスケジュール組めるのにシャットダウンのスケジュールは組めないのさーバッファローのNAS、安くなって手に入りやすいので、いろんな人が導入してます。筆者も最初の頃に事務所のデータを集約する入れ物としてNASを入れて以来、位置づけが色々変わりながらもずっとこれをメンテナンスしてます。いっつも障害でメンテ停止ばっかりな全社ディスクよりは信用してもらえているようです。※もちろん、きちんとしたバックアップ・過去バージョンへの戻りも可能にしてあるからこそですよ…

PerlでLDAPのエントリを更新する

anonymous@undisclosed.example.com (Anonymous) — Fri, 01 Nov 2024 16:30:06 +0000

PerlでLDAPのエントリを更新する 2012年12月17日 LDAPエントリ更新の雛形をメモ。ソース DNが uid=user1,ou=People,dc=exsample,dc=jp のエントリが持つmail属性を更新します。 use Encode; use Net::LDAP; my $admin = 'cn=Manager,ou=People,dc=example,dc=jp'; my $pass = 'password'; my $uid = 'user1'; my $newemail = encode('utf-8', 'user1@example.jp' ); my $bdn = "uid=$uid,ou=People,dc=exsample,dc=jp"; ##my $bdn2 = "ou=People,dc=exsample,dc=jp"; my $ldap = Net::LDAP->new('host:389'); my $mess = $ldap->bind( $admin, pa…

Perlで XML::XPathを使いXMLからエントリを読み出す

anonymous@undisclosed.example.com (Anonymous) — Fri, 01 Nov 2024 16:30:06 +0000

Perlで XML::XPathを使いXMLからエントリを読み出す 2012/08/22 RSSのパースにXML::XPathを使う雛形を残す。LWP::Simpleで取得、XML::XPathでパース。DateTime::Format::HTTPで日付の整形。 2013/04/06 こちらのドキュメントは管理都合によりwww関連ドキュメントのネームスペースから移動しました。

Perlで WWW::MechanizeとWeb::Scraper を使いWebページのクロールをやってみる

anonymous@undisclosed.example.com (Anonymous) — Fri, 01 Nov 2024 16:30:06 +0000

Perlで WWW::MechanizeとWeb::Scraper を使いWebページのクロールをやってみる 2012/06/11 PerlでWWW::Mechanize と Web::Scraperを使ったサイトクロールのサンプル。内容はRSSで取ったほうが早いけど、あくまでサンプルなので。

apache+perl+BerkeleyDBで簡易リダイレクト

anonymous@undisclosed.example.com (Anonymous) — Fri, 01 Nov 2024 16:30:06 +0000

apache+perl+BerkeleyDBで簡易リダイレクト 2011/09/04 作成。freestyle wiki から dokuwiki に移行する際にやった事。 2013/04/06 こちらのドキュメントは管理都合によりwww関連ドキュメントのネームスペースから移動しました。

置換演算子 tr/// で日本語文字へ置換するor日本語文字を置換する

anonymous@undisclosed.example.com (Anonymous) — Fri, 01 Nov 2024 16:30:06 +0000

置換演算子 tr/// で日本語文字へ置換するor日本語文字を置換する 2016/03/12 がっつり忘れていたので備忘録代わりに作成。概要 Perlの置換演算子 tr で半角英数字以外の文字を使う時の自分用お作法説明。

置換演算子 s/// で日本語文字が含まれる置換をする

anonymous@undisclosed.example.com (Anonymous) — Fri, 01 Nov 2024 16:30:07 +0000

置換演算子 s/// で日本語文字が含まれる置換をする 2016/03/13 tr について書いたなら s についても書けば？と言われたので作成概要 Perlの置換演算子 s で半角英数字以外の文字を使う時の自分用お作法説明。

map関数とgrep関数の覚書

anonymous@undisclosed.example.com (Anonymous) — Fri, 01 Nov 2024 16:30:06 +0000

map関数とgrep関数の覚書 2016/03/27 ループをゴリゴリ書かないで済ますため雛型用に記録します。 map関数 map関数使用例 use strict; my @data = ( 1, 2, 3, 4, 5 ); my %hash = ( 1=>"a", 2=>"b", 3=>"c", 4=>"d", 5=>"e" ); my @ans1; my @ans2; sub func { my ($arg) = @_; return $arg / 2; } @ans1 = map( $_ * 2 , @data ); ## exsample 1 @ans2 = map( func($_) , @data ); ## exsample 2 map( { $hash{$_}=uc($hash{$_}) } @data ); ## exsample 3 print "ex 1 : " . join(", ", @ans1) . "\n"; print "ex 2 : " . join(", ", …

PerlのCGI.pmとJSON.pmでJSONデータを受信・送信

anonymous@undisclosed.example.com (Anonymous) — Fri, 01 Nov 2024 16:30:06 +0000

PerlのCGI.pmとJSON.pmでJSONデータを受信・送信 2017/03/28 受信サイズ制限は入れようぜとの事なので追加。 2017/03/24 自分用メモ。正確性の保証なし。サーバサイド WebサーバドメインAに配置したコンテンツをロードしたブラウザから、JavaScriptを使って別のドメインBにあるコンテンツへのアクセスはできない。

PerlでPOSTメソッドのHTTPアクセス実施例

anonymous@undisclosed.example.com (Anonymous) — Fri, 01 Nov 2024 16:30:07 +0000

PerlでPOSTメソッドのHTTPアクセス実施例 2017/08/18 自分用メモ。正確性の保証なし。説明 URL にPOSTメソッドでアクセス。 Content-Type: application/x-www-form-urlencoded でPOSTされる。 POSTするデータは

130 Perl関連

anonymous@undisclosed.example.com (Anonymous) — Fri, 01 Nov 2024 16:30:07 +0000

130 Perl関連こちらのサイトで日本語に翻訳されたドキュメントを参照できます。とてもありがたいですね。　まずはこちらで関数やステートメントの説明を確認するといいです。