Perl ワンライナーにシェル変数を渡す - ablog
Perl ワンライナーでシェル変数を渡すには -s オプションを使えばよい。 書式 perl -se '...' -- -Perlで使う変数名=シェル変数名 実行例 $ FOO=bar; perl -sle 'print $var' -- -var=$FOO bar 参考 sオプションを使います echo -e "hogehoge\nfugafuga" > myfile.txt var="hogehoge\n";cat myfile.txt | perl -pse 's/$shell_var//' -- -shell_var=$var [小ネタ]perlワンライナーにシェル変数を渡す - Qiita -s コマンドライン上のプログラム名の後から、ファイル名引数 (または引数 --) の前までのスイッチのための、原始的な解析を 行なえるようにします。 ここで見つかったスイッチは、@ARGV
[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)
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とかを使えばいいけど、とりあえず
スタックトレースを表示してくれる、diagnosticsプラグマ - 日々量産
dieすると、そのdieした場所の行しか教えてくれないので、 何から呼ばれたのか、とかそういった情報がなかったので、今までprintデバッグでトレースしてました。 diagnosticsプラグマを指定しておくと、dieしたときとかにスタックトレースを出してくれます。知らなかった。 http://perldoc.jp/docs/modules/diagnostics-1.17/diagnostics.pod
perl -de 1 : 404 Blog Not Found
2004年11月22日17:05 カテゴリ一日一行野郎 perl -de 1 「perlをrubyやpythonのようにインタラクティブに使うにはどうしたらよいか？」という質問の答えがこれ。perldoc -q "use Perl interactively"でその原理を見る事ができる。実行すると、こんな画面になる。 Loading DB routines from perl5db.pl version 1.27 Editor support available. Enter h or `h h' for help, or `man perldebug' for more help. main::(-e:1): 1 DB<1> ここから任意のコードを実行できる上、よく使うものに関してはdebuggerのコマンドとして省略形で実行できる。 私がよく使うのが計算機がわり。こんな感じだ。 DB<
perlopentut - Perl でいろんなものを開くためのチュートリアル - perldoc.jp
Perl has two simple, built-in ways to open files: the shell way for convenience, and the C way for precision. The shell way also has 2- and 3-argument forms, which have different semantics for handling the filename. The choice is yours. Perl には、ファイルを開くための 2 つの単純な組み込みの手段があります: 利便性のためのシェル風の方法と、正確性のための C 風の方法です。 シェル風の方法には 2 引数と 3 引数があり、ファイル名の扱いに関して 異なった動作をします。 選択はあなた次第です。 シェル風に開く¶ Perl's open functio
Perlで+を使うと幸せになれるよ (*´Д`)ﾉ - (ﾟ∀ﾟ)o彡 sasata299's blog
2009年06月12日00:04 Perl Perlで+を使うと幸せになれるよ (*´Д`)ﾉ use constant を使って、リファレンスを定数として宣言するときってたまにありますよね。こういう値をデリファレンスするにはどうしていますか？？僕はこうしていました＞＜ #!/usr/bin/perl use strict; use warnings; use constant DATA => { aaa => 1, bbb => 2, ccc => 3, }; my $data = DATA; print join " ", keys %{$data}; # aaa bbb ccc 一度変数に値を入れるあたり、何かいまいちですね。。。この解決策を実は今日たまたまプログラミングPerlを読んでいて発見しました。こんな風に+を定数の前に付けてあげれば、文字列ではなく定数宣言された値だと判断し
404 Blog Not Found:perl - ワンライナーの書き方入門
2008年03月30日19:45 カテゴリLightweight Languages一日一行野郎 perl - ワンライナーの書き方入門 まあ、ruby のコマンドラインオプションって、Perl由来ですから。 Rubyでワンライナーを書く方法のまとめ まぁ、Perlもあるしあんまり需要が無いのかも知れませんが。 というわけで、Rubyistにも役立つPerlのワンライナー入門です。 基本中の基本 コマンドとしてのperlは、スイッチがない場合、引数はスクリプト名として扱われます。 % cat hello.pl print "Hello, world!\n"; % perl hello.pl Hello, world! % コマンドライン中の文字列をスクリプトとして解釈させるには、-eを使います。 % perl -e 'print "Hello, World!\n"' Hello, worl
Perl スクリプトでのコマンドラインオプション処理 Getopt::Long
公開 2006年8月25日、 更新 2009年1月17日 Perl でコマンドラインオプションを処理するときの覚え書き。基本的ないし実用的な事項のみで、中級以上のトピックはばっさり省いています。Perl ドキュメントをもとに作成しました。 1. 基礎知識 オプション名の大文字小文字は区別されない。 短いオプション名（例: -a）は長いオプション名（例: --all）から自動的に作られる。 オプションとして処理されなかったコマンドライン引数（ファイル名など）は @ARGV に残る。 2. GetOptions 関数 コマンドラインオプションを処理するには Getopt::Long モジュールの GetOptions 関数を使う。 use Getopt::Long; 以下のコード例では use Getopt::Long; は省略している。 2.1. 単独で指定するオプション my $opt_a
タイムアウト処理 - futomi's CGI Cafe
処理に時間がかかりそうな処理を書く際、タイムアウト時間を設定して、それを超えても処理が完了しなければ、 エラーを表示するような処理が必要になることがあります。 特に、ソケットを使って外部サーバーと通信する場合などがあてはまります。 もし相手のサーバーからの応答が無かったらどうなるでしょうか。 応答があるまで待ち続けることになります。 または、ブラウザー側が見切りをつけて待機することをやめてしまうでしょう。 もしご利用のレンタルサーバーに CGI の処理時間に制限があれば、Internal Server Error となるでしょう。 ここでは、秒数を指定してタイムアウト時の処理ができるうようにする方法を解説します。 目次 タイムアウト処理の方法 タイムアウトの処理を実装する方法として、ALRM シグナルを使う方法を解説します。 シグナルとは、イベントが発生した際に、オペレーティングシステムが
perl - 文字列ばらしはsplit //, $strで : 404 Blog Not Found
2007年11月27日13:30 カテゴリLightweight Languages perl - 文字列ばらしはsplit //, $strで うーん、ここがあきまへん。 [を] 転置インデックスによる検索システムを作ってみよう！ 9 my @char = ($c =~ /([\x00-\x7f]|[\xC0-\xDF][\x80-\xBF]| 10 [\xE0-\xEF][\x80-\xBF]{2}| 11 [\xF0-\xF7][\x80-\xBF]{3})/gsx); 文字列をばらして(utf8の)文字一つ一つの配列にするには、バイト列に正規表現をかますのではなく、utf8文字列にしてからそれにsplit //をかますのが一番です。単にわかりやすいだけではなく、その方がずっと高速です。以下、Benchmark。 #!/usr/local/bin/perl use strict; u
コマンド - とほほのWWW入門
■ コマンドを実行する（system） ◆ systemによるコマンド実行 system() は、指定したコマンドを実行します。下記の例では netstat というネットワーク関連の情報を表示するコマンドを実行しています。 system("netstat -a"); 関数の戻り値として 実行ステータス を返します。実行ステータスは実行結果を示す整数値で、通常、成功すれば 0、失敗すれば 0 以外の値になります。 $retcode = system("netstat -a"); system() では、コマンドが終了するまで処理を Perl に戻しません。 ■ コマンドの実行結果を読み取る(1)（`...`, qx/.../） ◆ `...` によるコマンド実行 コマンドの実行結果を変数に読み取るには、`...` を用います。` はクォーテーションではなく、バッククォーテーションなので注意し
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
How to daemonize a process
Perlゼミ(サンプルコードPerl入門)
DEVShed
初めて Perl でコードを書く時に知っておきたかったこと - あらびき日記
文字列をn文字ずつ分割 - シリコンの谷のゾンビ
テキストファイルを見つける - mikedaの日記
Perl - Getopt
Perl第4回：PerlTips(コマンドラインオプション)
