Getopt::Std を使ってコマンドライン引数を処理してみた - ablog
getopt.pl #!/usr/bin/env perl use strict; use warnings; use Getopt::Std; my %opt; # 記号の後に「:」をつけるとオプション引数が取れる。「:」をつけないと「1」が取れる。 getopts("ali:o:" => \%opt); map{print "$_: $opt{$_}\n"} keys %opt; __END__ 実行結果 $ perl getopts.pl -a -i input.txt -o out.txt a: 1 o: out.txt i: input.txt [参考] Perl - Getopt use Getopt::Std::getopts; - ihirokyの日記 404 Blog Not Found:perl - use strict; # and be happy
ファイルハンドルの概念を理解する - Perl入門ゼミ
Perl › ファイル入出力 › here Perlにおけるファイルハンドルの概念はややこしいので、解説しておきます。 ファイルハンドルは実体ではなくて概念的なもの Perlでファイルハンドルといった場合は、Perlがファイルハンドルとして認識する複数の実体のことをいっています。ファイルハンドルという実体があるわけではないのです。 Perlが、ファイルハンドルとして認識するもの シンボル( FH ) 型グロブ( *FH ) 型グロブへのリファレンス( \*FH ) IO::Handleクラスのオブジェクト IO::Handleオブジェクトを継承したクラスのオブジェクト( IO::File など ) Perlが、ファイルハンドルとして認識するものは、上記の5つです。以下の記述はすべて有効です。 # 1. シンボル FH open(FH, "<", $file) or die "$!"; #
perlsub - Perl のサブルーチン - perldoc.jp
$subref = sub BLOCK; # プロトタイプなし $subref = sub (PROTO) BLOCK; # プロトタイプ付き $subref = sub : ATTRS BLOCK; # 属性付き $subref = sub (PROTO) : ATTRS BLOCK; # プロトタイプと属性付き サブルーチンをimportするには: use MODULE qw(NAME1 NAME2 NAME3); サブルーチンを呼び出すには: NAME(LIST); # 括弧があれば & は省略可能 NAME LIST; # predeclared/imported されていれば括弧は省略可能 &NAME(LIST); # プロトタイプを回避する &NAME; # 呼び出されるサブルーチンのために @_ を可視化する 説明¶ Like many languages, Perl pro
FileHandle vs Symbol
perl でオブジェクト指向を目指し、use strictしたプログラムを徹底していくと、どうにかしたくなるのが「ファイルハンドル」の存在です。 open(FD, "test.txt"); close(FD); この FD をオブジェクトとして使い関数に対して引数として与えたりしたいのですが、use strict な環境では my $fh = 'FD'; open($fh, "test.txt"); close($fh); とやっても、エラーになってしまいます。かと言ってこのためだけに no strict refs; ともしたくない。またこの方法では、Perlをマルチスレッド動作させるとき、ファイルディスクリプタの名前空間が衝突し、ファイルが開けなくなる問題もあります。 ネットで情報を漁っていると、こういうときはファイルハンドルを動的生成する方法が紹介されています。 use FileHan
Perl で url エンコードと url デコード
Landscape トップページ | < 前の日 2003-08-30 2003-08-31 次の日 2003-09-01 > Landscape - エンジニアのメモ 2003-08-31 Perl で url エンコードと url デコード 当サイト内を Google 検索できます * Perl で url エンコードと url デコードこの記事の直リンクURL: Permlink | この記事が属するカテゴリ: [Perl] いろんなところで使いそうなのでメモ。 大崎さんの perl メモの URIエスケープ・アンエスケープする に詳しい。 http://www.din.or.jp/~ohzaki/perl.htm#JP_Escape - url encodesub url_encode($) { my $str = shift; $str =~ s/([^\w ])/'%'.unp
Perlメモ/ファイルの更新時刻 - Walrus, Digit.
ファイルのアクセス時刻、更新時刻の取得と設定（変更）。 主として、statおよびutime関数についての解説になります。 公式のドキュメントでは、perlfuncの各項をご覧ください。 日本語で読みたいときには、perldoc.jpにいくつかの版の日本語訳があります。 Perl5.6.1 - perlfunc - Perl builtin functions(perldoc.jp) ファイルの最終更新時刻、最終アクセス時刻は、stat関数で取得できます。 stat関数は引数で渡されたファイル情報の配列を返します。 その9番目（インデックスは8）が最終アクセス時刻、10番目（インデックスは9）が最終更新時刻です。 my @stats = stat('./test.txt'); print "最終アクセス時刻 : " . $stats[8] . "\n"; print "最終更新時刻 :
Site Cooler NZ | Points to Note When Shopping for a Washing Machine
Blog Post Featured post Sprinkle delicious dishes as a cook with gourmet cookware Continue reading Points to Note When Shopping for a Washing Machine There are different washing machines brands in New Zealand. When shopping, therefore, you need to ensure that first, you get a quality machine; a machine that will last through many years without breaking down. You check product warranties and review
Perl/タイムアウト方法 - BugbearR's Wiki
2017-04-16 FreeBSD/mpd 2016-12-23 RecentDeleted Blogアプリ 日記 2016-11-17 本当にあった怖いコード/1 2016-05-16 .NET 2015-07-06 書きたいこと 2015-07-05 postgres Java/変数の初期化に安易に空オブジェクトを代入しない 2015-06-30 PukiWiki/1.4/マニュアル/プラグイン/u 本当にあった怖いコード/15 2014-10-01 日記/2014-10-01 2014-09-09 日記/2014-09-09 2014-08-13 日記/2014-08-10 2014-05-28 バグパターン/日時 バグパターン 2014-04-13 IPv6 2014-03-20 パスワード問題 2014-01-27 DNS/ルートサーバーは13台という神話 2014-01-25
404 Blog Not Found:perl - 勝手に添削 - 40行で作るPerl用テンプレートエンジン
2007年10月30日20:00 カテゴリLightweight Languages perl - 勝手に添削 - 40行で作るPerl用テンプレートエンジン 久々の勝手に添削。今回はこちら。 40行で作るPerl用テンプレートエンジン 正規表現がらみなので、Perl以外でも有用。 添削箇所は、こちら。 40行で作るPerl用テンプレートエンジン sub convert { return unless defined(my $str = shift); $str =~ s{&}{&}gso; $str =~ s{<}{<}gso; $str =~ s{>}{>}gso; $str =~ s{\"}{"}gso; $str; } これの最初のsubstitutionが&ではなくて&ではないかというのはさておき、こういった場合、何度も正規表現をかけ
0行で作るPerl用テンプレートエンジン : ひろ式めもちょう
60行で作るPHP用テンプレートエンジン http://anond.hatelabo.jp/20071030034313 40行で作るPerl用テンプレートエンジン http://anond.hatelabo.jp/20071030153111 404 Blog Not Found:perl - 勝手に添削 - 40行で作るPerl用テンプレートエンジン http://blog.livedoor.jp/dankogai/archives/50940023.html 触発されて表題のPerl用モジュールを作ってみました。 特徴： ・モジュールが小さい。わずか0行 ・高機能。 変数の出力はもちろん、Perlそのままの文字列演算、 ループや条件分岐に対応します ・拡張が自由 お好みのサブルーチンを追加して機能を拡張できます とても便利だと思うので、ぼくのスーパーハッキングテクニックを使ってPer
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
