# source/DCONWAY/Acme-Bleach-1.150/lib/Acme/Bleach.pm package Acme::Bleach; our $VERSION = '1.150'; my $tie = " ¥t"x8; sub whiten { local $_ = unpack "b*", pop; tr/01/ ¥t/; s/(.{9})/$1¥n/g; $tie.$_ } sub brighten { local $_ = pop; s/^$tie|[^ ¥t]//g; tr/ ¥t/01/; pack "b*", $_ } sub dirty { $_[0] =~ /¥S/ } sub dress { $_[0] =~ /^$tie/ } open 0 or print "Can't rebleach '$0'¥n" and exit; (my $shirt =
この記事はTech KAYAC Advent Calendar 2020の9日目の記事です 技術部1年目サーバサイドエンジニアのkoluku(コルク)です。 この記事ではPerlでコードを書くための思考過程や実践的なテクニック(やっちゃだめなテクニック)を織り交ぜながらいかにしてコードを短くできるかを紹介してみたいと思います。 FizzBuzz問題 みなさんはFizBuzz問題をご存知でしょうか。 FizzBuzz問題とは、 1〜100までの数字を順に出力を行い、その数が3で割り切れるならFizz、5で割り切れるならBuzz、そのどちらでも割り切れるならFizzBuzzと代わりに標準出力(文字表示)する という問題です。プログラムを書くことがある人は一度は書いたことはあると思います。 この問題では出力が改行ありなしの指定が無いのでここでは(都合がいいので)改行ありということにしておきます。
Webアプリケーションエンジニアの id:papix です. Perlは主に5が大好きです. 先日, ラトビアのリガにて開催された「PerlCon 2019」に参加してきましたので, その様子を共有させて頂きたいと思います. PerlCon 2019のロゴ. 猫です. PerlCon 2019について perlcon.eu PerlCon 2019は, 毎年ヨーロッパで開催されるPerl 5とPerl 6のカンファレンスの第20回目にあたります(かつてはYAPC::EUという名前で開催されていました). 8月7日〜9日にかけて, リガのRadisson Blu Daugavaにて開催されました. 3つのキーノート, 30近いセッションと1つのワークショップ(今回は, Perl 6の並行処理/並列処理に関するワークショップが開催されたようです)に, ヨーロッパを中心に200人近い参加者が集ま
多くのCPAN Authorに育てられ、息をするようにCPANモジュールを書けるようになり、そして分かったこと
2016年度(2016年4月)よりJPAの体制変更を行いましたので、ここにお知らせいたします。 個人社員から法人社員へ 以下の4社がJPAの社員総会において議決権を行使する社員となり、理事・監事も変更となりました。 社員 株式会社ガイアックス 株式会社はてな 株式会社モバイルファクトリー 株式会社ディー・エヌ・エー 理事・監事 小林篤氏(代表理事・株式会社ディー・エヌ・エー) 肥後彰秀氏(理事・株式会社ガイアックス) 田中慎司氏(理事・株式会社はてな) 佐藤健太氏(理事・株式会社モバイルファクトリー) 平子裕喜氏(理事・株式会社ディー・エヌ・エー) 大月英照氏(監事) 今回の体制変更における理事・監事退任者は以下の通りです。 牧大輔氏 岡部恵一氏 森本淳氏 加藤敦氏 和田裕介氏 今後の活動方針について 今後は「日本におけるPerlコミュニティを脈々と続くものとして盛り上げる」をミッション
Perl は正規表現とか " ではさまれた文字列の中にある変数とか配列を展開してくれるんですが、これは明らかに正規表現の文字クラス ([abc] とか書くヤツ) とブツかるわけです。 以下のコードは @a に 0-999 まで "x" っていう変数をつっこんでから s/$a[...]/y/; 的なことを実行して、 $_ に入ってる x を y に変えようとするコードをいくつか。 #!/usr/bin/env perl for ($i=0; $i < 999; $i++) { $a[$i] = "x"; } $_ = "x"; s/$a[12]/y/; print "12: $_\n"; $_ = "x"; s/$a[123]/y/; print "123: $_\n"; $_ = "x"; s/$a[-2]/y/; print "-2: $_\n"; $_ = "x"; s/$a[-22]
http://shinh.skr.jp/obf/b64_dec.pl dXNlIE1JTUU6OkJhc2U2NDtwcmludCBlbmNvZGVfYmFzZTY0IGpvaW4nJyw8PjsKX19FTkRfXwo+ s//v62/e+s//v60/e+s//v44/e+s//v39/e+s//v39/e+s//join/+s//v32/e+s//base64/ss+ s//v95/e+s//decode/+s//v32/e+s//print/+s//v59/e+s//Base64/+s//v58/e+s//v58/e +s//MIME/+s//v32/e+s//use/s/evalこの Base64 ぽく見える物体は Perl コードで、実行すると引数で指定したファイルに対する base64 デコーダとして機能します。 $ perl b64_dec.pl b64_dec.pl >
I shipped a few trial versions of Carmel to CPAN. Carmel is intended to be a successor of Carton, with a better internal structure and an interesting architecture change. As a starter, here’s how Carton works: use local::lib and cpanm’s -L option to install modules locally to ./local Scan meta/install.json file cpanm created under ./local and create a snapshot file for the next run, if there’s a s
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く