The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
![The CPAN Search Site - search.cpan.org](https://cdn-ak-scissors.b.st-hatena.com/image/square/c4a607b5430575638fd9a7f233e073d867af4bb7/height=288;version=1;width=512/https%3A%2F%2Fmetacpan.org%2Fstatic%2Fimages%2Fdots.png)
Landscape トップページ | < 前の日 2003-06-03 2003-06-04 次の日 2003-06-05 > Landscape - エンジニアのメモ 2003-06-04 Perl one liner 集 perl 1行野郎 当サイト内を Google 検索できます * Perl one liner 集 perl 1行野郎この記事の直リンクURL: Permlink | この記事が属するカテゴリ: [Perl] - one liner、日本語で言うと一行野郎いわゆる一行スクリプトを解説したページ。 昔はよく参照してたが、google をいくら探しても見つからない。 仕方がないので、ここに転載しておく。 - Internet Archive で見つけた。「perl でいいよ」 というページの一コーナーだったようだ。 http://web.archive.org/web/2
序文 もしもプログラミング言語が宗教だったら……(全訳版)[絵文録ことのは]2008/12/21 によると、ブードゥー教徒らしい dankogai です。 ブードゥー教徒らしく、「上司があなたに金曜夜21時に緊急の仕事を命ずるときにしばしば使われる」呪文をここでまとめておくことにします。 基本中の基本 コマンドとしてのperlは、スイッチがない場合、引数はスクリプト名として扱われます。 % cat hello.pl print "Hello, world!\n"; % perl hello.pl Hello, world! % コマンドライン中の文字列をスクリプトとして解釈させるには、-eを使います。 % perl -e'print "Hello, World!\n"' Hello, world! % ちなみに、perlとコマンド名だけで起動すると、標準入力をスクリプトとして返します。 %
幅優先探索で迷路の最短経路を探す 2010-01-14-4 [Algorithm][Programming] 迷路の最短経路を探すプログラムを作成するという問題について。 - 人材獲得作戦・4 試験問題ほか (人生を書き換える者すらいた。) http://okajima.air-nifty.com/b/2010/01/post-abc6.html これは単なる幅優先でOKですね。 足跡を記録していき、すでに別の子が通った道にぶつかるか(足跡の有無で判定)、行き止まりに到達したら枝狩り。 幅優先なんだからこれで見つかるのが最短経路。 後からの「最短性のチェック」は不要です。 「アルゴリズム知らないとできない」とか以前の問題で、正式にプログラミングの基礎を学んだ人ならできて当たり前の問題です。ピンと来ない人は、ポインタわからない、再帰わからない人と同列かなあ。 バリバリプログラミングからは一線
emacsで正規表現による置換を結構快適に使えるようになったので記録しておきます。 emacs標準コマンドのM-x replace-regexpは拡張正規表現と呼ばれる構文に対応していないので、スクリプト言語等で使用できる正規表現よりも機能が低く使いにくいのが問題でした。 結論を先に書きますと、以下手順でemacsから快適に正規表現による置換を行えるようになりました。 .zshrcに[[ $EMACS = t ]と書いてemacsから使用するシェルをzshに設定し .zshenvにsetopt RC_QUOTESと書いて’のネストを許可し、 M-!やM-|から実行したコマンドの履歴もシェルと共有して emacs上でC-u M-|からperl -nle ‘パターン;print’で置換 さて、始まりは前の職場の人のperlの正規表現は凄いという発言です。 その時はあまり興味が無かったのですが、
はじめに 現在使っているAquamacsなemacsのcperl-modeのインデント調整のメモ. まだまだ微妙です. before my $a = { a => 1, b => 2, c => { s => 10, t => 20, }, d => [ 100, 200, 300, ], }; sub hogehoge { my ($x, $y) = @_; ($y, $x); } sub fugafuga { my $param = {@_}; if ($param->{foo}) { return undef; } else { return 'hoge'; } } hogehoge( 'foo', 'bar', ); fugafuga( foo => [ qw/xxx yyy zzz /, ], bar => [ qw/ aaa bbb ccc / ], baz => { xxx
Perl暦一週間。ホントにまったく何にも知らないのに一身上の都合で使うことになって、勉強してみたらいろいろ驚きというかなんというか・・・。なにかが根本的に間違ってるかもしれないけど、とりあえず触ってみて思ったこと。 関数定義 sub funcname { my($arg1, $arg2, $arg3) = @_; # do something } 関数定義に仮引数がなくて毎回こう書かないとだめみたいなんだけど、誰も文句言わないのこれ?ほんとに? 単なるシンタックスシュガーでいいから sub funcname($arg1, $arg2, $arg3) { # do something } こう書かせてほしいんだけど。 コーディングなんてその大部分は関数定義なんだから、そういうところにはもう少し気を使ってくれてもいいと思う・・・。 プレフィックスと名前空間 変数の型に応じてプレフィックスつける
今回の対談相手は、シックス・アパート(株)勤務で、現在サンフランシスコ在住の宮川達彦さん。本誌でも連載や特集でこれまで何度もご執筆いただいていますが、渡米して数年、アメリカでの生活はどんな感じなのでしょうか? 左:宮川達彦氏、右:小飼弾氏(撮影:武田康宏) 経歴 弾:お久しぶりです。 宮川(以下、宮):お久しぶりです、どうも。 弾:最初に、あらためて簡単な経歴を。 宮:東京大学の理学部情報科学科でコンピュータサイエンスの勉強をしていて、2年のときにオライリー・ジャパンでバイトを始めました。そのときはコンピュータというより事務系の仕事で、4年になったときにオン・ザ・エッヂ[1]でアルバイト。それが1999年。上場前で、弾さんが入る…。 弾:前ですよね。そう、先輩なんですよ、オン・ザ・エッヂでは。 宮:僕が2ヵ月くらい前に入って。それから5年くらいライブドアにいて、2005年からシック
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
http://subtech.g.hatena.ne.jp/miyagawa/20080708/1215473551 絶望した!rubyと比較したときのperlの難解さに絶望した! #!/usr/bin/perl use strict; # ここはpackage main; BEGIN { # プログラムのはじめにサブルーチンを定義.なくても動いたりする # ()は プロトタイプ. 引数をとらないことを言明してる # Xクラスのコンストラクタ, 実体は$sのリファレンス sub X () { bless \(my $s = "ひだまり"), "X" } # _ == 1 にする sub _ () { 1 } } package X; # ここからXクラスの定義 my $i; # クロージャ変数だけど,スコープはファイルだよ use overload # X オブジェクトの / と < 演算
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
Perlが得意でない筆者は、WindowsでPerl = Active Perlという式ができあがっていた。そして、CPANを使おうと思ってエラーが出てしまい、PPMを使うのだが、何かいまいち…という感が否めなかった。 Strawberry Perlの公式サイト。巨大なイチゴが目印。 恐らくWindowsでPerlを使われている方の中には同じ思いをした方がいるはずだ。そこで、Perlの実行環境自体を変えてしまおう。 今回紹介するオープンソース・ソフトウェアはStrawberry Perl、CPANがそのまま使えるPerl実行環境だ。 ActivePerlがnmakeベースであるのに対し、Strawberry Perlはgccを使って環境を構築する。そのため、CPANがそのまま利用できるようになっており、使い勝手がずいぶん良くなっている。 バージョン情報 また、最新版ではPPMやPARもサポ
ref:Perl, Python, Ruby の比較 ref:はてなブックマーク - Perl, Python, Ruby の比較 ref:はてなブックマーク - Perl, Python, Ruby の比較 ちょっと遅くなったが以前宣言したとおり、書いておく。 「Perl, Python, Ruby の比較」はどうも調査が足りないのか、結果的にかなり嘘のまじった文章になっている。あくまで、初心者の私見ですので気軽に聞き流してください。とはあるものの、はてブのコメント等で「参考になる」とか言っている人もいる*1ので一応指摘しておこうと思う。 3.2 次に Python 変数はデフォルトで局所変数となるので、 Perl のように my で宣言する必要はありません。 my を強制することで変数の typo を防げるという視点が抜けるのは若干フェアではないですね。 それから、Python には
NAME Ruby - Perl interface to Ruby interpreter SYNOPSIS use Ruby ':DEFAULT', -require => 'complex', # load Ruby's library 'digest/md5', # load Ruby's extention -function => 'Rational', # import Ruby's function -class => qw(GC Object), # import Ruby's classes -module => qw(Kernel), # synonym for -class -variable => ['$!' => '$rb_errinfo'], # $! as $rb_errinfo -function => ['String' => 's'], # Strin
2008年06月03日06:00 カテゴリLightweight Languages perl - 勝手に添削 - Perl入門#1@ITPro さすがに出典が日経Linux 2003年7月号だけあって、少しトウがたってはいるけど、現在でもわずかな修正で使える記事。さすが川合さんといったところか。 第1回 Perlの文法の基本:ITpro というわけで、この記事の「現代化」Patchを。 全般 use strict;だけではなくuse warnings;も加えましょう。 さらに,調べても分からないことがあれば,メーリング・リストやユーザー・グループ*2に質問してみてもよいでしょう。 blogに書くのもアリです。あと私は使っていないけどIRCとか。 ビルトイン関数は()でくくらない方が視認性が上がります。 before: chomp($sLine); after: chomp $sLine;
Perl Mongers Perl Mongers とは、日本各地に存在する、Perl ユーザーのコミュニティのことです。各種イベントが行われていますので、是非参加してみましょう。 Shibuya.pm Fukuoka.pm Kansai.pm (@kansaipm) Yokohama.pm (@yokohamapm) Hokkaido.pm (@hokkaidopm) Nagoya.pm (@nagoyapm) Kushiro.pm (@kushiropm) Kyoto.pm (@kyotopm) Kamakura.pm Niigata.pm (@niigatapm) Sendai.pm (@sendaipm) Tokyo.pm Hachioji.pm (@hachiojipm) Chiba.pm (@chibapm) Yomitan.pm (@yomitanpm) Machida.pm
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く