configを分離 config/myapp_devel.conf config/myapp_prod.conf MyApp.pm package MyApp; use Mojo::Base 'Mojolicious'; use Path::Class; sub startup { my $self…
Perlとtipsに関するkawaosaのブックマーク (12)
-
kawaosa 2013/05/19
-
PHPやPerlで、画像などをそのまま表示せず、ファイル保存ダイアログを出させる方法。 - 雑記帳（自己満足）
↓こういうヘッダをかき出す。 Content-Disposition: attachment; filename="sample.jpg" Perl例 #-- ダウンロードさせる元ファイル $source = '/home/tatsuya/data/img/00001.jpg'; #-- 保存時のファイル名(デフォルト) $filename = 'uetoaya.jpg'; #-- HTTPヘッダ送信 print qq|Content-type: image/jpeg\n|; print qq|Content-Disposition: attachment; filename="$filename"\n|; print qq|\n|; #-- ファイルを読み込んで出力 open(FILE,"$source"); while(){print;} close(FILE); PHP例 // ダウ
-
ディレクトリ・ファイル一覧の取得方法 - Perlテックラボ - [SMART]
Perlで任意のディレクトリにあるファイル一覧を取得する際は、いくつかの方法があります。今回はglob()とopendir()で取得する方法をご紹介します。 glob()でファイルの一覧を取得 簡単なのはglob()を使ったファイルの取得方法です。 glog()は カレントディレクトリにあるファイル名やディレクトリ名を取得することができます。 # 引数にアスタリスク( * )を指定すると、. で始まらないすべてのファイル一覧を取得 my @file = glob "*"; print join( "\t", @file ), "\n"; "* .*" . で始まるファイルも対象にする場合は引数に"* .*"を指定 my @file2 = glob "* .*"; print join( "\t", @file2 ), "\n"; glob()の引数に拡張子を指定すると、指定した拡張子のファ
-
tips - モバイルには高画質すぎるH.264動画を劣化ゼロで再生可能に : 404 Blog Not Found
2012年09月01日07:45 カテゴリTipsiTech tips - モバイルには高画質すぎるH.264動画を劣化ゼロで再生可能に 右の「このデバイスではこの動画は再生できません」状態を、たった一バイト変更するだけで直します。 以下のPerl Scriptで、こうするだけです # デフォルトではlevel 4.1 に変更 % ch264level leveltoohigh.mp4 # level 3.1 に変更 % ch264level -l31 leveltoohigh.mp4 ch264level.pl #!/usr/bin/env perl # # $Id: ch264level.pl,v 0.1 2012/08/31 18:13:16 dankogai Exp dankogai $ # use strict; use warnings; use Getopt::Std; ge
-
Perlで日本語(ISO-2022-JP)メールを送信(まとめ) - kopug memo
UTF-8で作成されたメール本文をMIME::Lite及びEncodeを使用してメールを送信をする。 そこで問題となってくるのが下記の3点。 １．チルダ（全角）等の文字化け（"〜 ‖ − ¢ £ ¬ "） ２．機種依存文字が含まれていた場合の対応 ３．MIME::Lite で smtp送信する場合、Return-Pathが有効にならない 1.チルダ（全角）等の文字化け（"〜 ‖ − ¢ £ ¬ "）に関する解決方法： これは有名らしいのですが、Encode::JPが採用している UnicodeConsortium の写像表 に問題があるとかで、 一部の文字が化けます。チルダとか。 しようがないので こんな風に対応しておきました。 my %map = ( "\x{ff5e}" => "\x{301c}", # 〜 (1-33, WAVE DASH) "\x{2225}" => "\x{201
-
perlbrew - D-6 [相変わらず根無し]
perlbrew Perl 5.6 とか Perl 5.8を今だに使ってるあなた！そうです、これを読んでるそこのあなたです。Perl5の開発チームは後方互換に関しては大変神経をつかっていますので、 Perl 5.6とかで動いてたコードをいきなり 5.12で走らせても基本的には動くはずです（多分警告とかは一杯でるだろうけど）。でもだからといって新しいバージョンで施されている様々な最適化や新しい機能を使えないのはちょっと悲しくないですか？ ということで新しい Perlを使いましょう！最新安定版は5.12.1ですよ！ちなみにどのバージョンを2010年8月時点で使うべきか、はこちらのエントリを参照してください。 え？アップグレードできない？システム管理者が許してくれない？前入れてたアプリが壊れる？いやいやいや、全然いけますって。自分用のPerlをインストールすればいいんですよ！ ここではそれを簡単
-
Perlで日付・時間を操作 - DateTime モジュールの使い方 (iandeth.)
Perlには、日時の加・減算を扱うモジュールが標準でついてきません。僕の仕事場ではずっと、同僚が作ったオリジナルモジュールを皆で使いまわしていたのですが、今になって、世間的 (CPAN) にはどんなものがあるのか気になって調べてみました。※参考になったのは miyagawa 氏のメールマガジンの過去記事と、perl.com の The Many Dates and Times of Perl なるエントリでした。 今回は数ある日付関連モジュールの中から、Dave Rolsky氏の DateTime モジュールについて、その基本的な使い方について簡単にまとめたので共有してみます。 同氏は上記 perl.com 記事の執筆者であり、この前の YAPC::Asia で DateTime project について講演してくれていた人です。気合の入ったモジュールを作ってくれた事に感謝。 目次 基本
-
perl正規表現の基本：マッチした文字列を配列に格納する方法 - abe-tatsuya.com
error この記事は最終更新日から14年以上が経過しています。 ある文字列から、正規表現にマッチした文字列のリストを、配列に入れる方法です。 意外と最近までこれ知らなかったです。 #-- 文字列 $string = '0a12bc345def6789ghij'; #-- 数字だけを抽出して配列に入れる @nums = $string =~ /[0-9]+/g; #-- 配列に入った値を出力 foreach $num (@nums){ print $num."\n"; } 上記の出力結果は、 0 12 345 6789 となるはずです。 perlとPHPで使える、フォーム入力のエラーチェックに役立つ正規表現集 2009.03.28 フォームからのデータ送信はWebアプリケーションの基礎ですが、ユーザーが入力する内容が想定通りであるかを確認するためのエラーチェックは重要です。この記事では、p
-
引数にデフォルト値 - 三等兵
結構使う。 function func(val1, val2) { val2 = val2 || val1; return val1 * val2; } func(3); // 9 func(3,2) // 6 返り値も使われやすい。 function func(val1) { return val1 || 'no val'; } func(); // 'no val'; 地味だけど便利。
-
perl - で全角半角変換をモダンに行う : 404 Blog Not Found
2009年06月06日01:15 カテゴリLightweight Languages perl - で全角半角変換をモダンに行う 今ならLingua::JA::Regular::Unicodeが第一選択肢ですが、こういう方法もあるということで。 Perl で半角カナと全角カナの変換をする : Serendip - Webデザイン・プログラミング Perl を使って半角カタカナと全角カタカナの変換をするスクリプトを、標準モジュールの Encode.pm と Unicode::Japanese と Lingua::JA::Regular::Unicode を使ってそれぞれ変換スクリプトを書いてみる。 CORE Moduleのみを使うという縛りをかけています。 #!/usr/bin/perl use 5.008001; use strict; use warnings; use utf8; us
-
tokuhirom blog
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
-
daily dayflower - 半角←→全角変換，Unicode::Japanese に未公開機能が…
2008-10-21 追記 いまだに（ありがたいことですが）検索で飛んできたりブクマされたりというのがちょいちょいあるので，最新動向を書いておきます。 id:tokuhirom さんが Lingua::JA::Regular::Unicode という Pure Perl Module をリリースなさいました（→ http://d.hatena.ne.jp/tokuhirom/20081018/1224300947）。 あなたが作っているアプリで文字列まわりを Unicode::Japanese インスタンスですべて持ちたいわけでなければ（そして，たいていのばあい，持つ必要はないのですが），この Lingua::JA::Regular::Unicode を使うのがベターです。依存性もなく，とても軽量ですので。 2008-10-21 追記おわり ウェブアプリを作っていると，ユーザが入力した半角
-
1
公式Twitter
- @HatenaBookmark
リリース、障害情報などのサービスのお知らせ
- @hatebu
最新の人気エントリーの配信
キーボードショートカット一覧
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Copyright © 2005-2025 Hatena. All Rights Reserved.
設定を変更しました