perlで関数戻り値で配列を複数返す方法を教えてください。 - 二つの配列で戻り値を受けいているつもりですが、ひとつの配列... - Yahoo!知恵袋
perl で関数戻り値で配列を複数返す方法を教えてください。 二つの配列で戻り値を受けいているつもりですが、ひとつの配列にデータがまとめられてしまいます。 ご存知の方ご教示ください。 sub a { my @a = ("1", "2", "3"); my @b = ("4", "5"); return (@a, @b); } my (@aaa, @bbb) = a(); foreach $val (@aaa) { print "aaa:$val\n" } foreach $val (@bbb) { print "bbb:$val\n" } ＜実行結果＞ aaa:1 aaa:2 aaa:3 aaa:4 aaa:5
perlの標準エラー出力の扱い方
[上に] [前に] [次に] B-Cus 1998/01/12(月) 18:22:08 perlで実行した標準エラー出力を処理する方法を教えてください。 また、標準エラー出力のみを受け取る方法を教えてください。 例えば exist-file が存在して、non-exist-fileが存在しないとき、 open(IN,"ls exist-file non-exist-file|); print <IN>; とすると出力は 「exist-file」 のみになってしまいます。 標準エラー出力に出力されている 「non-exist-file: No such file or directory」を受け取る にはどうすればいいでしょうか。 また、標準出力は捨て、標準エラー出力のみを受け取る方法 # 「non-exist-file: No such file or directory」だけを受け取る方
perl で正規表現にマッチした文字列を配列に入れる方法 | perl/CGI | 阿部辰也のブログ――人生はひまつぶし。
ある文字列から、正規表現にマッチした文字列のリストを、配列に入れる方法です。 意外と最近までこれ知らなかったです。 #-- 文字列 $string = '0a12bc345def6789ghij'; #-- 数字だけを抽出して配列に入れる @nums = $string =~ /[0-9]+/g; #-- 配列に入った値を出力 foreach $num (@nums){ print $num."\n"; } 上記の出力結果は、 0 12 345 6789 となるはずです。 Twitter始めました。Followはお気軽にどうぞ。 関連するブログ記事 perl / PHP / JavaScript 各言語での URL(URI)エンコード・デコード方法まとめ [2009年12月 2日 18:47] perl の CGI や PHP でフォーム入力チェックによく使う正規表現のまとめ [2009年
【perlメモ】CSVファイルを簡単に処理できるCPANモジュールText::CSV_XS
text::CSV_XS[http://cpan.uwinnipeg.ca/search?query=text%3A%3ACSV_XS&mode=dist] Text::CSV_XS CSVファイルはエクセルなんかでよく使われる形式のテキストファイルですが、基本「,」(カンマ)区切りのテキストファイルです。単純な「,」(カンマ)区切りのファイルだといいのですが、実際にはデータ自体に「,」や「"」を含んでいたりすることもありそういうのを考慮すると実際に自前で処理しようとすると結構大変です。そういう場合に便利なのが「Text::CSV_XS」CPANモジュールです。 下のようなShift JISのCSVファイルがあるとき text.csv #!/usr/bin/perl use strict; use warnings; use utf8; use Encode; use Text::CSV_
ファイルを1行ずつ読み込む。readline 関数。 - サンプルコードによる Perl 入門
Perl › 演算子 › here ファイルを一行づつ読み込むには行入力演算子「<>」を使用します。読み込む行がなくなると、undefを返却します。 my $line = <$fh>; 他の演算子と異なり「<」と「>」の間にファイルハンドルを記述することに注意してください。 通常は、while関数と組み合わせて、繰り返して行を読み込むのに利用します。 while(my $line = <$fh>) { # ... } 考え深い方は、上記のように書いた場合は、もし「0」などの偽の値が返ってきた場合は、正しく動かないんじゃないかと感じるのではないでしょうか。行の途中は、改行コードが入りますから、「0」が返ることはありませんが、末尾の場合は「0」が返ってくる可能性があります。 でも、心配しないでください。ファイル演算子は、whileと組み合わされて使う場合のみ、次のように解釈されるからです。 w
パール、アナルを使え！または私は如何にして Perl のワンライナーを書けるようになったか - 詩と創作・思索のひろば
簡単に言うとこういうことです。今日はこれだけ覚えて帰ってください。 perl -anal -e "…" 同様のオプションは Ruby でも使えます。 解説 -a いきなり見かけないオプションですが、入力を空白文字で区切り、@F という配列に入れてくれます。それ以外の影響はないので使わないときでも指定して問題なし。2 回指定してるのも意味ないです。語呂合わせです。Ruby の場合は $F ですね。 -n -e で指定されたコードを LINE: while (<>) { … } で囲みます。標準入力やファイルを一行ずつ処理するときに便利。sed や grep が簡単に書けますね。ワンライナーでは多様するオプションでしょう。代わりに -p を指定することで最後に print; することもできます。 -l -n や -p が指定されているときに各入力を chomp します。また、各出力に改行を追加
URLエンコードとURLデコード webzoit.net
URLエンコード・URLデコードとは CGIスクリプトなどでデータを送受信する際に使用されるもので、極力、文字化けを回避してどんな環境でも同じ結果を得るための手法です。 特に多バイト文字(マルチバイト文字、日本語、韓国語、中国語等)を0と1からなる数字の並び(ビット・ビットパターン)で様々なことを処理する事ができるコンピュータが理解するにはいくつかの段階が必要です。 この時、データを送信する側、仲介する側、受け取る側などそれぞれウェブサーバやOSを含め様々な環境に対応する事から一般に文字コードと言われるEUC、ASCII、JISなどの標準規格で定められた文字体系もそれらの環境で基本として使われるものも共通とは限りません。 ※URLはURIに含まれる定義でURIが公式の呼び方です(IRI/URI/URL/URN) こうした事からHTML、XHTMLからscript(スクリプト)に送信する際な
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とかを使えばいいけど、とりあえず
Perlひと工夫 処理高速化やメモリー消費低減 - Perl/CGI解説・豆知識
http://perl-free.topsite.ne.jp/PERL/Perl CGI フリー工房 総合 Perl フリーソフト Mod_Perl フリーソフト Perl 初めて使う Mod_Perl 環境構築 Perl CGI 実験室 サポート Perlスクリプト ひと工夫 処理高速化やメモリー消費低減など - 解説・豆知識 Perlスクリプトの高速化、ライブラリやモジュールの軽量化、メモリー消費低減、 データ1行読み、ループ工夫、絶対パス取得などの豆知識。- Perlひと工夫 Perlスクリプトって動けばそれで良い？ 簡単便利 本質的には、Perlスクリプトは動けばそれで良いと思います。 元々はLarry Wall氏が、「手間の掛からない、使い易いプログラム言語を」と開発したのがPerlです。 ですからPerlスクリプトの本質は速さよりも「簡単便利」でしょう。 もっと高速に！ 上記
環境変数($ENV{環境変数名}) | Perl･CGI講座 | 有限会社ミスティーネット
環境変数を利用することでサーバーの情報や、ホームページ閲覧者のアクセス情報、ブラウザ情報などを取得することが出来ます。 環境変数は、$ENV{･･･} のハッシュデータとなって格納されています。 (環境変数のキーや値はサーバーの設定によって異なります。) アクセスログなどを取る場合にはこの値を参照してログをとることが出来ます。 主な環境変数については下記でご紹介しているので御参照ください。 ↓主な環境変数一覧 現在ご利用サーバーで、どのような環境変数が参照できるのかを確認することが出来ます。 print "Content-Type: text/html\n\n"; print <<END_HTML; <html> <head><title>環境変数テスト表示</title></head> <body> $ { foreach $key (keys %ENV) { print "$key ：
perl で touch | 裏表(Phinloda のもう裏だか表だか分からないページ)
一定期間更新がないため広告を表示しています
open関数：ファイルを開く
ファイル名及びファイルハンドルを指定してファイルを開きファイルハンドルを 割り当てます。 パラメータ: FILEHANDLE ファイルハンドル EXPR ファイル名 MODE モード 戻り値： ファイルを開くことに成功したら真(true)、失敗したらundef 1 番目の引数にはファイルとのコネクションに対して割り当てるファイルハンドル名を指定します。 2 番目の引数にはファイル名を指定します。 モードはファイル名に含めて記述することもできますが、別に指定することもできます。別に指定する場合は 2 番目の引数がモード、 3 番目の引数がファイル名となります。 モードはファイルをどのように開くのかを指定します。以下のモードが指定可能です。 記号モードファイルが存在した場合ファイルが存在しない場合
Perlにおける設定ファイルを自分なりに比較してみた - amari3の日記
Twitterで10日くらい前に、Perlから設定ファイルを扱う際に、どの形式を使うのがいいんだろう？みたいな感じなつぶやきをしていたら、フォロワーの方からリプライが付いたので、メジャーな設定ファイル(と思われる)をそれぞれ自分なりに比較検討してみたのでそのまとめ。 以下の3つの形式を比較検討。 ini形式 yaml形式 perl形式 ini/yaml形式のサンプルコードでは、CPANモジュールを使っているが、モジュールの選択基準はあまりなく、とりあえず仕様が小さそうくらいな感じのを選択。今回はあくまで設定ファイルに特化したいと考えている。 ini形式 Windowsでも割と一般的に見かける形式。mysqlの設定ファイルもこの形式。 設定ファイル例 % cat data.ini [site1] url = http://d.hatena.ne.jp/amari3 title = amari
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
n進数変換 - Perl表技集
Perlゼミ(サンプルコードPerl入門)
Getopt::Std - Process single-character switches with switch clustering - Perldoc Browser
サービス終了のお知らせ
プログラムの文字コードにUTF-8を使用する
ミニマルPerl ―Unix/LinuxユーザのためのPerl習得法 : Tim Maher, 安藤 慶一, 磯部 孝一郎 : 本 : Amazon.co.jp
Perl > クエリを連想配列で受け取るスマートな方法 - 綾小路龍之介の素人思考