Perlでバイナリをいじるためのいろいろ -blog-Motivation Driven Development
Perlでバイナリファイルをいじる場合にいろいろと同じ問題に遭遇するので、忘れないようにメモ。 バイナリファイルの読み込み 読み込む場合に”getc”使うと、ファイルが終わってないのに終了してしまうことがある。 正しくは”read”を使う。 my $filename = $ARGV[0]; open my $file,'<',$filename or die; binmode $file; my $val; while(read($file, $val, 1)){ } これで1byteづつ処理できる。実際はバイナリの構造にあわせてreadするバイト数を変える。 読んだバイナリの処理 バイナリを数値として処理するためには、その構造にあわせてunpackする。 unpack("C",$val); #unsigned byte unpack("S",$val); #unsigned short
Win32::GuiTest で Windows の GUI アプリをハックしよう
基本的な書き方 use strict; use warnings; use utf8; # ↑ Perl ハッカーに DIS られなくなるおまじない # Win32::GuiTest を使うおまじない use Win32::GuiTest qw(:ALL); # 日本語を使えるようにするおまじない UnicodeSemantics(1); # ここで Win32::GuiTest を使う マウスを動かす use strict; use warnings; use utf8; use Win32::GuiTest qw(:ALL); # 小数点もいけちゃう sleep 関数 use Time::HiRes qw(sleep); UnicodeSemantics(1); for (my $i = 0; $i < 500; $i++) { # 10 ms 待つ sleep(0.01); # マウ
Windowsのログインパスワードをクラックする羽目になった話
先日クライアントから問い合わせがあり、私の収めたWIn7のパソコンでログインが出来なくて困っていると問い合わせがあった。 話をよく聞いて見ると、パスワードの有効期間をデフォルトの42日のままで出荷していたのだが、 クライアントが納品時に初回ログインして、ウイルスソフトのインストールなど必要設定をしたのち２ヶ月あまり放置しており、 久しぶりに起動したらログインできなくなった、という事情らしい。 パスワードの有効期間が切れた場合、通常ならログイン時に有効期間が切れている旨の通知がされ、新しいパスワードを設定するとログインできるので、クライアントの言う「ログインできない」状態というのが不可解であった。 クライアント曰く「４２日を過ぎたから古いパスワードが使用できなくなってしまったんじゃないか」と私側の責任に感じているらしく、ちょっとまずい空気感だなーと重いパスワードを解析させてもらうことになった
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',
プログラムの実行前に文法をチェックする
Perlの文法をチェックする Perl のプログラムは C 言語のプログラムのように実行する前にコンパイルという作業は必要ありません。プログラムを作成したらすぐに実行することができます。逆に実行してみないとプログラムが文法的に正しいかどうか分かりません。 そこでプログラムの実行前に、文法的に間違っている部分がないか確認する方法が用意されています。文法のチェックだけを行うには、次のように実行してください。 オプションの -c を付けて実行すると、プログラムを実行せずに文法のチェックだけを行ってくれます。またオプションの -w を付けて実行するとプログラム中の識別子の利用方法についてチェックを行ってくれます。そこで 2 つのオプションを合わせて -cw を付けて事前にチェックだけを行います。 それでは実際に試してみます。次のような簡単なコードを記述したプログラムを sample.pl という名
tr
説明 検索文字列に含まれる文字を，対応する置き換え文字列に変換します。 y///を使っても同じことができます。 使用例 #!/usr/bin/perl use strict; use warnings; my $str = '1a2b3c4d'; # 1→A 2→B 3→C に置換する $str =~ tr/123/ABC/; print $str, "\n"; # AaBbCc4d
Perlの組み込み関数 pack の翻訳 - perldoc.jp
Takes a LIST of values and converts it into a string using the rules given by the TEMPLATE. The resulting string is the concatenation of the converted values. Typically, each converted value looks like its machine-level representation. For example, on 32-bit machines an integer may be represented by a sequence of 4 bytes, which will in Perl be presented as a string that's 4 characters long. LIST の
複数の言語を話す人は、思考がより柔軟であるという研究結果 | スラド サイエンス
二カ国語を話す人を対象に行われた新たな研究によれば、複数の言語を話す人は、それぞれの言語の持つ世界観の良い所を持ち合わせているため、柔軟に思考することができるとのこと（Slashdot、Science）。 認知科学者らは1940年代より、母国語が思考に及ぼす影響について研究を行ってきた。これによれば、話し手が何に焦点をあてるのかは母国語の影響を受けているのだそうだ。そこで、二カ国語を話す人の場合には、「二つの思考が、一人の人間の中に存在し得るのか」という疑問が湧いたという。 研究の結果、第二言語は物事の見方において、重要な潜在的役割を果たしていることが分かったとのこと。「他の言語を話せる場合、もう一つの視点を持っている」ことになり、言語を素早く切り替えるがごとく、物の見方も素早く切り替えることができるのだそうだ。
2chproxy.pl - Proxy sample
546 名前：492[sage] 投稿日：2015/03/05(木) 02:11:42.93 ID:uLqFeG+d http://pastebin.com/B3ymp66m 鯖から受けとったクッキーで通信するように変更した 出来ればWebスクレイピングでRangeヘッダーに対応させたいところ 整合性はお察し 自己満で作ってるだけなので使う意味はあんまりない 699 名前：492[sage] 投稿日：2015/03/09(月) 22:37:09.95 ID:e89pzUxG http://pastebin.com/DD2QPHat 色々と手を加えたので一応上げてみる ・Webスクレイピング時のRangeへ対応 ・スレの更新チェック(HEAD)へ仮対応 ・eqと==を間違えるとんでもないミスを修正 ・BEがちゃんと取得出来てなかったのを修正 ・daemon化をもうちょっとまともにした ・整合
carp - エラーの警告 (呼び出し元の観点から); cluck - スタックバックトレースを伴うエラーの警告 (デフォルトではエクスポートされません); croak - エラーを出してdieします (呼び出し元の観...
名前¶ carp - エラーの警告 (呼び出し元の観点から) cluck - スタックバックトレースを伴うエラーの警告 (デフォルトではエクスポートされません) croak - エラーを出してdieします (呼び出し元の観点から) confess - スタックバックトレースを伴ってdieします shortmess - carpとcroakが生成するメッセージを返します longmess - cluckとconfessが生成するメッセージを返します 概要¶ use Carp; croak "We're outta here!"; use Carp qw(cluck); cluck "This is how we got here!"; print FH Carp::shortmess("This will have caller's details added"); print FH Car
yada yada yada の意味・解説・用法・例文
「世界語」とも呼ばれる英語。それだけに多様な方言を持ち、スラング（俗語）ともなるとそのバリエーションは一段と豊かになります。当辞典では、アメリカの高校で学びカナダの大学で言語学を修めた日本人が、各国共通のものは勿論、アメリカ、イギリス、カナダ、オーストラリア、ニュージーランド等の英語スラングを方言・各英語圏・地域別に分類、使用法・和訳・意味・由来・発音(読み方)を解説していきます。 yada yada yada [jǽdə jǽdə jǽdə][ヤダヤダヤダ|ヤラヤラヤラ] [慣用句]（アメリカ、カナダ） 1.などなど。とかなんとか。 "and so on"や"and so forth"またはetc.と同じ意味で用いられるスラング。"blah blah blah"の亜種。物事を羅列して話す場合に、会話にとってあまり重要でない事項や相手が余り興味を示さない事項、つまりはどうでもいいことがこの
ShellShockがCGIに及ぼす影響を少し過大評価していたかも - Qiita
bashの脆弱性（CVE-2014-6271など）によって、PerlやRubyのCGIからsystem関数などOSコマンドを実行するプログラム言語の機能を使うと、 UserAgent などブラウザから送信されたデータが環境変数に格納された状態でbashが起動し、ShellShockが発生するという話が話題になっているが、本当にそうなのか。 実験 次の処理系で実験した。 Perl（5.20.0） Ruby（2.1.3） PHP（5.6.0） Python3（3.4.1） コード OSコマンドのenvを呼び出して表示するだけのCGI。 Perl #!/usr/bin/env perl print "Content-Type: text/html;\n\n"; print system('env');
index関数：指定の文字列が含まれている最初の位置を検索する
指定した部分文字列が含まれるかどうかを検索し、含まれていた場合は最初に 現れた位置を返します。 パラメータ: STR 対象の文字列 SUBSTR 検索する部分文字列 POSITION 検索開始位置 戻り値： 見つかった場合は最初の位置、見つからなかった場合は-1 1 番目の引数には対象となる文字列を指定します。 2 番目の引数には検索する部分文字列を指定します。 省略可能な 3 番目の引数には検索を開始する位置を指定します。省略した場合は先頭の文字となる 0 が指定されたものとして扱われます。 指定した文字列が見つかった場合にはその位置を返します。見つからなかった場合は -1 が返されます。
[perl] return undef ではなく return がベストプラクティス。そしてハッシュではまる。 - bonar note
ダミアン先生によれば、 return undef じゃなくて return のみがベストプラクティスって話。例えば引数で受けた数が偶数どうかだけを判別するスクリプトがあったとします。 #!/usr/bin/perl use strict; sub is_even_number { my ($digit) = @_; if (($digit % 2) == 0) { return 1; } else { return undef; } } print is_even_number(shift) ? "yes?n" : "no?n"; is_even_number 関数は偶数なら1、それ意外ならundefを返します。これでほとんどの場合問題ないのですが、ふとした局面で配列で受けちゃったりするとやっかいな事になったりならなかったり。 my @test = is_even_number(3); i
![[perl] return undef ではなく return がベストプラクティス。そしてハッシュではまる。 - bonar note](https://cdn-ak-scissors.b.st-hatena.com/image/square/06a15c64ba0ceec233d86d71001ebb29a9dcbf5d/height=288;version=1;width=512/https%3A%2F%2Fcdn.blog.st-hatena.com%2Fimages%2Ftheme%2Fog-image-1500.png)
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
移転しました
[Perl] 2cproxy.pl.v0.17.2 - Pastebin.com![[Perl] 2cproxy.pl.v0.17.2 - Pastebin.com](https://cdn-ak-scissors.b.st-hatena.com/image/square/3bccc6e4f35d6acfbec78ba31faa52014532a8f9/height=288;version=1;width=512/http%3A%2F%2Fpastebin.com%2Fi%2Ffb2.jpg)
移転しました
移転しました
[Perl] 2chproxy.pl v0.13.1 - Pastebin.com
Success!