- 1 名前：デフォルトの名無しさん mailto:sage [2008/08/11(月) 19:10:40 ]
- "The duct tape of the Internet" こと、Perlについての質問箱です。
"There's more than one way to do it" ということで、
Perlの奥深さについて皆で語り合い、追求してまいりましょう。
CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
( WEBプログラミング板 pc11.2ch.net/php/ )
CGIの質問は答えが Perlと全然関係ない話に帰着する場合が
多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。
このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
www.perl.org/get.html
● 2008/08/11 現在の最新版（安定版）: 5.10.0
● 2008/08/11 現在の開発版: 5.9.5
▼ 前スレ
Perlについての質問箱 36箱目
pc11.2ch.net/test/read.cgi/tech/1215569470/
リンク集は>>2-3
Perl 日本語処理の基礎の基礎 >>4
過去スレは>>5-6 あたり
- 357 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 11:49:49 ]
- >>353
それはシンボリックリファレンスとは違う。
分からないことがあったら「ググる」という事を覚えようね。
あと、できるだけ、
print $a, "い";
って書き方を習慣付けておいた方が
後々、他の言語にも移行しやすいよ。
- 358 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 12:42:21 ]
- 前から疑問だったのですが、
print $a. "い";
print $a, "い";
では異なるんでしょうか。
- 359 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 12:47:09 ]
- >>358
明らさまに異なる。
print $h = $a. "い" ;
print @a = ( $a, "い" ) ;
- 360 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 12:49:42 ]
- % cat hoge.pl
use Benchmark;
open DEVNULL, ">", "/dev/null" or die $!;
$x = "hogehogehoge";
timethese(
undef,
{
dot => sub { print DEVNULL $x. "hoge" },
comma => sub { print DEVNULL $x, "hoge" },
}
);
% perl hoge.pl
Benchmark: running comma, dot for at least 3 CPU seconds...
comma: 3 wallclock secs ( 3.42 usr + -0.00 sys = 3.42 CPU) @ 2453425.44/s (n=8390715)
dot: 4 wallclock secs ( 3.19 usr + 0.02 sys = 3.21 CPU) @ 1753933.96/s (n=5630128)
- 361 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 12:51:21 ]
- 結果は同じ。おそらく内部処理が違うだろうけど気にするほどでも無い。
文字列の足し算をするか、しないか。どっちが効率がいいか考えればわかるよね？
あと、print 文のときはソレでいいけど、代入文とかのとき
$b = $a. "い"; とは書けるけど
$b = $a, "い"; はダメ。
- 362 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 12:59:10 ]
- なんという低レベルスレ・・・・
- 363 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 13:02:37 ]
- 英語ソフトを日本語化する作業をしています。大量の置換スクリプトを書いてます。
s/"qwertyuiop@[asdfghjkl;:]zxcvbnm"/"たていすかんなにらせちとしはきくまのりれけむつさそひこみもねるめろ"/;
こんな長い置換を、２行に折り曲げて書く方法って無いでしょうか？
s/"qwertyuiop@[asdfghjkl;:]zxcvbnm"/
"たていすかんなにらせちとしはきくまのりれけむつさそひこみもねるめろ"/;
って書くと改行が混じるんですよね。
- 364 名前：363 mailto:sage [2008/08/27(水) 13:04:22 ]
- 投稿ミス
置換パターンに @ とか [ ] とか出てくるのは忘れてください。
テケトーにキーボードを叩いただけですから。
本来はふつうの英文です。
- 365 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 13:36:33 ]
- >>363
やり方あるはずだよ。
なんかのオプションをつけるはず。
s/●/○/rとか。
そのrとかのオプションの名前は忘れたけど。
「正規表現中の改行を無視する」
ってオプションだと思う。
こないだ読んだ本に書いてあった。
- 366 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 13:38:02 ]
- >>363
っ[x]
- 367 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 13:39:55 ]
- 最近の
「マニュアルを見るのは賎民のやること」
という風潮には目を覆うものがあるな。
- 368 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 13:42:52 ]
- xかなあ。
＞ パターン中の空白文字(半角スペース、
＞Tab文字、改行文字)と、「#」から行末まで
＞の文字列を無視する。
＞ 「[]」内の文字は、無視されない。
- 369 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 13:49:22 ]
- >>361
それは結果がたまたま同じだっただけだ。
man perlvar の $, を100ぺん読み直せ
- 370 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 13:51:31 ]
- お尋ねします。
「○○もしくは△△を含む」は「○○|△△」でできますが、
「○○および△△を含む」はどうするのでしょうか？
つまりand検索です。
要素が二つとは限らず可変なのですが、どうするのが効率が良いのでしょうか？
- 371 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 14:20:11 ]
- >>370
っ[?=]
- 372 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 14:29:36 ]
- >>370
っ[ブール代数]
- 373 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 16:00:48 ]
- >>366
アリ！バッチリです。これで仕事がはかどります。
- 374 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 17:06:01 ]
- もう見てもいないだろうけど
my $hoge = q{hoge} ;
$hoge =~ s{hoge}
# これでも良くね？
{foo} ;
print $hoge . "\n" ;
- 375 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 20:44:49 ]
- 他人が書いたソースコード読む場合なんだけど、
アロー演算子がでてきたときに、それが
オブジェクト指向のアロー演算子なのか、それとも、
デリファレンスのアロー演算子なのか、どこを見て
見分ければいいの？
- 376 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 20:54:27 ]
- オレ様が考えた、仕様を全部理解していなくてはならない度
レベル１ 言語使用考案者（ラリー・ウオール）
レベル２ 仕様書を紙に書く人
レベル３ インタプリターを書く人
レベル４ 専用エディター作る人
レベル５ モジュール作る人
レベル６ 教科書や参考書を書く人
レベル７ このスレで初心者に教える人
レベル８ このスレで質問する人
- 377 名前：356 mailto:sage [2008/08/28(木) 02:10:26 ]
- とりあえずLexical::Aliasでお茶を濁すことにしました
Data::Aliasとの違いに気を付けようと思います
- 378 名前：デフォルトの名無しさん mailto:sage [2008/08/28(木) 09:59:37 ]
- 「はじめての人のためのかんたんPerl/CGI入門」
読んでるけど、よくわからんな。
- 379 名前：デフォルトの名無しさん mailto:sage [2008/08/28(木) 10:03:39 ]
- ourってなに？
よく使うの？
- 380 名前：デフォルトの名無しさん mailto:sage [2008/08/28(木) 12:13:44 ]
- >>375
ぐぐれしね
>>376
逆だしね
>>378-379
最後まで読めしね
- 381 名前：デフォルトの名無しさん mailto:sage [2008/08/28(木) 13:09:36 ]
- しねしね団ですね。わかります。
- 382 名前：デフォルトの名無しさん mailto:sage [2008/08/28(木) 13:11:09 ]
- 「逆だし、ね」なのか
「逆だ、死ね」なのか
- 383 名前：355 mailto:sage [2008/08/28(木) 17:35:40 ]
- 回答がなかったので、結局、DBにつっこんだ。
今さらだが、もしハッシュでやるんならキーとvalue入れ替えてBTREEのハッシュ再構築して、
トラバースってことになるんだろうな。。。
DB_Fileはキー重複にも対応してたはずなので、やろうと思えばできそう。
- 384 名前：デフォルトの名無しさん mailto:sage [2008/08/28(木) 17:45:38 ]
- >>383
とりあえず順番考えずにべたで出力したのをsortコマンドに食わせれば楽だったかもな。
ぜんぜんperlじゃないけどw
sortコマンドはメモリ足りなけりゃ中間結果をディスクに書いてマージソートとかやってくれる。
- 385 名前：デフォルトの名無しさん mailto:sage [2008/08/28(木) 18:55:18 ]
- >>384
× マージソートとかやってくれる。
○ ソート済みファイルのマージとかやってくれる。
- 386 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 04:15:14 ]
- requireの相互呼び出しってできないんだな。
- 387 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 04:20:47 ]
- requireが実際に何をしているか知っていれば自ずと分かることだ
- 388 名前：デフォルトの名無しさん [2008/08/29(金) 11:13:17 ]
- ttp://digit.que.ne.jp/work/wiki.cgi?Perl%E3%83%A2%E3%82%B8%E3%83%A5%E3%83%BC%E3%83%AB%2FLWP#i6
↑のページの通りにLWPを使ってPOSTしているのですが、
どのようなデータをPOSTしているか確認する方法はないでしょうか？
%formdataの中を見るのではなく、requestした結果から見れたらいいのですが。
- 389 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 11:17:50 ]
- パケットキャプチャは一番確実。
暗号化されてたらバケラッタだけど
- 390 名前：388 mailto:sage [2008/08/29(金) 11:43:42 ]
- >>389
ありがとうございます。
Etherealというソフトで確認してみたいと思います。
- 391 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 18:10:06 ]
- Template-tooklkitでdoにあたるincludeやprocessは見つかったのですが
evalのような関数は無いでしょうか。
[%
tt2_str = '[% cnt = 10 + 5; cnt; %]';
EVAL(tt2_str); # ←のような感じ
%]
期待する表示結果：15
- 392 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 18:53:40 ]
- ぐぐれ
- 393 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 19:08:14 ]
- 最近はなんでもかんでも「ぐぐれ」って返すのがブームなの？
- 394 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 19:10:19 ]
- ぐぐれ
- 395 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 19:28:54 ]
- ぐぐっても解決しない質問ｷﾎﾞｳ
- 396 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 20:00:13 ]
- ファイル名 「a.pl」
ソースコード
print "a";
require a.pl;
↑これを実行するとどうなる？
- 397 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 20:23:10 ]
- 試せ
- 398 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 20:24:29 ]
- ↑が代わりに試せ
- 399 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 21:44:59 ]
- ＞これを実行するとどうなる？
自分で実行すればいいじゃないかよ。
もしかしてナイコン？
- 400 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 22:21:28 ]
- >>399は40代と見た。
- 401 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 23:14:08 ]
- いきなり考えなしに実行すると危険なことってあるよね。
コンソールレベルでも、
open FILE > C:/windows/comamnd.com とか。
コマンドコムが上書きされてしまう。
あと危険なのは、rmとか。
systemとか。
あと、レンタルサーバーで無限ループになったときって
どうすればいいの？
- 402 名前：デフォルトの名無しさん mailto:sage [2008/08/29(金) 23:40:30 ]
- my a=1;
これでエラーが出るんで、
「おかしいなーおかしいなー」
って悩んでたら、よく考えたら、
＄が抜けてた。
- 403 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:00:37 ]
- use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
use Encode;
system q|cls|;
#----------------------------------
my $bar = 'fuga.txt';
if (-f $bar) {
print "ファイル".$bar."が存在します。\n";
}
else {
print"ファイル". $bar."が存在しません。\n";
}
↑このコードすごいよ。
ファイルが存在するかどうかを調べてくれて、
レポートまでしてくれるよ。
- 404 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:10:35 ]
- >>401
> いきなり考えなしに実行すると危険なことってあるよね。
ありますね。なので考えてやりゃいいんじゃないでしょうか。
> コマンドコムが上書きされてしまう。
とか、
> あと危険なのは、rmとか。
> systemとか。
とか、このへんがあなたにとって「危険」でありうる環境でなら、なんぼでもやってください。
ただしその程度の認識で公開のサーバを利用するのはできれば、できるかぎりやめてください。
- 405 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:11:04 ]
- グローバル変数って絶対使ったらだめなの？
ｍｙしか使っちゃだめなの？
外で変数使いたい場合もあるんだが。
- 406 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:14:16 ]
- >>405
自己レス
サブルーチンにして、
retrunつかったら解決した。
- 407 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:14:32 ]
- >>403
ファイルテストを行ってから、print するまでの間に、あったファイルが消えたり、なかったファイルが作られたりした場合はどうすんの?
- 408 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:19:47 ]
- 一回だけ初期化されるstateってどういう意味？
説明四でも意味がわかんない。
↓
state変数
* 一回だけ初期化される変数。
* Cのstatic相当
state変数
今までは...
{
my $i = 0;
sub incr { $i++ };
}
state変数
これからは...
use feature 'state';
sub incr {
state $i = 0;
$i++;
}
- 409 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:21:12 ]
- もしかして初めてアクセスされる一回目だけ初期化されて、
2回目以降はその初期化の行は実行されずにスルーされるってこと？
- 410 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:37:37 ]
- それで？
- 411 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:41:09 ]
- サブルーチンの中に
サブルーチンって書いていいの？
- 412 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:46:50 ]
- >>408
それを読んでわかんねー、というか理解に少しでも不安があるようなら正直かなりマズい。
Perl をまるで読めてねーっつーことだから。
基礎からがんばれ。
- 413 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:52:02 ]
- >>411
どこのサブルーチンの中にサブルーチンが書いてあるの？
- 414 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:56:15 ]
- >>413
いやだから、
自分でこれから、そういうコードを書いても
いいのかなあ？って。
- 415 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 00:59:19 ]
- fuga.txtがあるかどうかを調べ、もしあるならあると言い、なければないと言い、ない場合はわざわざ作成してあげて、
作成したと言い、ある場合は、ファイルサイズを調べてレポートするプログラム。↓
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
use Encode;
use feature qw( :5.10 );
system q|cls|;
#----------------------------------
my $bar = 'fuga.txt';
my $a=&file;
sub file{
if (-f $bar) {
print "ファイル".$bar."が存在します。\n";
return 1;
}
else {
print"ファイル". $bar."が存在しません。\n";
return 0;
}
}
given($a){
when (1){
my $file_size;
$file_size = (stat'./fuga.txt')[7];
say $bar."のファイルサイズは、".$file_size."バイトです"; }
when (0){
open FH, ">fuga.txt";
say "ファイル". $bar."を作成しました。";
}
}
- 416 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 01:01:09 ]
- use utf8;
use open IO => ":encoding(cp932)";
↑先頭の2行にこれを忘れていた。入れてください。
- 417 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 01:08:23 ]
- >>415
-f してから open するまでの間に誰かが fuga.txt を作っていた場合、
何もかも台無しになるという点で >>403 より性質が悪化してるんだが
それはいいのか。
- 418 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 01:08:30 ]
- ねーねーこれ↓って、実行されちゃうよね？
＆で明示的に実行を指示したときだけ
サブルーチンを実行したいんだけど、
これだと、処理の流れがそこまできたときに、
なしくずし的に実行されてしまうんだけど、
それって正常な動作なの？
sub a;
{
print "a";
}
- 419 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 01:10:23 ]
- ようは、&aってしたときだけ、そのサブルーチンが実行されて
ほしいのに、ソースコードの一番下にそのサブルーチンの定義部を
置いておくと、そこまできたときに、勝手に実行されてしまうのが
困るといっているんです。
- 420 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 01:14:20 ]
- >>418-419
は自己解決したごめん
もう一回ためしたら実行されなかった。
；（セミコロン）が余計に入っていた。
- 421 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 03:14:54 ]
- mapの場合はゆっくり出力するってできないのかな？
foreachの場合は、sleepかませて
1行づつゆっくり出力するってできるけど、
mapだと、一度に一気に配列に全部入ってしまうから、
一個づつゆっくり出すとか無理だよね？
- 422 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 03:16:31 ]
- 久しぶりに来たけど激しくゆとり臭くなったな
- 423 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 03:17:30 ]
- map {print $_, $/; sleep 1;} 0..100;
なにが不満なの？
- 424 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 03:19:54 ]
- sleepかませ
- 425 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 03:24:09 ]
- system q|cls|;
map {
system q|cls|;
print $_, $/;
# sleep 1;
}
0..100000;
こりゃーすげー
- 426 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 06:55:02 ]
- >>422
明日まで我慢。
あさってには居なくなるから。
- 427 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 14:38:11 ]
- mod_perl2導入の途中でmod_perl.soを配置するApache2\modulesの指定をしくじりました
mod_perl.soが配置されないままmod_perl2がインストールされてしまいやり直そうにも
"Package 'mod_perl' is already installed."と表示されてやり直しも利きません
どうにか導入する方法は無いでしょうか？
- 428 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 17:03:51 ]
- my $a;
ってファイルの上のほうで宣言して、
５，０００行下でも、その＄aにアクセスできるよね。
でもこれって「グローバル変数」とは呼ばないんだよね。
- 429 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 17:05:45 ]
- a.plと
b.plとあって、
requireで呼び出して使う状況で、
両方とも、$aって変数をつかってても、
myでプライベート化してれば、問題ないのかな？
逆に、myを使ってないで
グローバル変数として使っていたら、
a.plとb.plで同じ$aがあったら、
それは同じ変数として扱われてしまうの？
つまり、複数人で作業するときに、どつぼにはまる
可能性が高い？
- 430 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 17:26:47 ]
- 参考までにどうぞ。
ttp://www.rwds.net/kuroita/program/Perl_tips.html#my
ttp://d.hatena.ne.jp/perlcodesample/20080310/1205162964
- 431 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 19:39:18 ]
- >>427
よく知らんけど mod_perl 無しの状態にロールバックしてやり直せない状態だとしたら、初手から構築し直すのが安全じゃないかな。
- 432 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 22:56:41 ]
- a.plで、
require b.pl
print "$a";
にして、b.plで、
my $a=1;
にしたら、a.plを実行したときに、
１って表示されないんだけど、
別ファイルでrequireされることがわかっているときは、
変数はmy化したらだめで、グローバル変数にしておかないとだめなの？
- 433 名前：デフォルトの名無しさん mailto:sage [2008/08/30(土) 22:58:11 ]
- b.plがrequireされるファイルで、その中でなんかの処理をして、
その処理の結果をa.plに渡す、ってときに、通常
どんな手段で渡しているのかなー？って。
とりあえず、その変数をmy化したら渡せないってのはわかった。
グローバル変数だったら渡せるというのもわかったが、
それって普通の方法なのかな？
- 434 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 02:51:00 ]
- length q eq ge and print chr ord q each le
このコードの意味わかる？
漏れはわからない。
- 435 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 03:11:47 ]
- B::Deparseに食わせろ
- 436 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 03:59:39 ]
- >>434
qがquote-like operatorだということに注意すればそんなに難しくはない。
- 437 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 07:42:52 ]
- >432-433
2000〜3000円くらいの安い入門書を買うことをすすめる。
サブルーチンの項目あたりに書いてるはず。
ぶっちゃけ、Perlというか、
プログラミングにおける基本的な考え方の1つなので、そこから勉強するべき。
あと>430は無視なのかい？
- 438 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 11:38:11 ]
- http.confにLoadModule perl_module modules/mod_perl.soって書くと起動出来ない…
これはバージョンの相性が良くないってことなんでしょうか。Apache自体が起動しないです
- 439 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 13:26:43 ]
- >>438
ログにエラーが出ていませんか?
出ていればそれを手がかりに調べてください。
- 440 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 14:46:33 ]
- >>438
どうにか解決しました
どうもです
- 441 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 15:28:31 ]
- サブルーチンの説明は書いてあっても、
requireとからめた使い方が書いてないんだよっ！
で、requireでインクルード？したファイルの中の
変数を使いたいときって、どうすればいいの？
- 442 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 15:31:56 ]
- a.plがあったとして、そのa.plの中で、一生懸命に計算なり
処理なりをするよね。そんで、なんかの結果が出てきて、
それを$aに代入したとする。
そんで、b.plを作って、b.plの中で、
require a.pl
ってやって、さっきの$aの結果を利用しようとしたときに、
a.plの中で、
my $a
ってmy化されていたら、b.plから利用できないじゃん。
もちろん、ourでグローバル化しておけば利用できるのは知ってるけど、
やたらとグローバル変数を使うのはバグの元だからやめろって教科書に書いてあるし。
つまり、a.plの中でサブルーチンを作って、
return渡しをすればいいのか？
- 443 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 15:37:43 ]
- >>441
答えは”モジュール”にあると思う
- 444 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 16:26:09 ]
- length q pop and print chr oct oct ord q local
このコードの意味がわからん
- 445 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 16:37:55 ]
- >>444
きみ、Perl に向いてない。
- 446 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 17:06:15 ]
- use warnings;
use strict;
use diagnostics;
print "a"
↑これでなんのエラーもでないんだが、
もしかして、ワンライナーの場合は
セミコロンは必須ではないのか？
- 447 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 17:07:47 ]
- つまりセミコロンがついてないのに
なんで実行できてしまうんかと。
- 448 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 17:46:06 ]
- >>446
ありがちっちゃありがちだけどもな、
Perl の文法をいい加減に覚えていると、そういう疑問を持ってしまう。
perl は文の区切りとして ; を要求するのであって、
文の終端として、ではないのだ。
ブロック内の最後の行で ; を省略できるのも、
ブロック生成子としての {} が文を区切ってしまうためなのだ。
基礎からやり直しつつ1年ほどROMれ。
- 449 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 18:57:27 ]
- >442
一番最後の行で答えが出てるじゃないか。
>444
まさにPerlの美学であると同時にデメリットだよなあ。
自分なら適当に区切るか括弧をつける。
>448
でもまあ、付けるけどな、俺。
- 450 名前：448 mailto:sage [2008/08/31(日) 19:33:07 ]
- >>449
>>444 にあるコードは読み手を混乱させるのが目的なので、あえてそのように書いているのはお分かりかと思います。従って可読性を上げては意味がありません。
ただ今回のコードはまったくややこしくない、いわば子供だましの類なので、読めないとちょっとアレなのは確かですが。
>>448
もちろんそれがよいでしょう。理由は…、言うまでもありませんな。
- 451 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 19:51:31 ]
- >>444
ppencode の出力の一部じゃないのか? ppencode が何者かはぐぐればわかる。
- 452 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 20:28:16 ]
- print q pop
これでoって出るのがすげーわらえる
- 453 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 20:53:40 ]
- はいはいわろすわろす
- 454 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 21:45:17 ]
- >>444って要するに、"q"の意味がわかれば簡単だよね？
- 455 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 21:47:55 ]
- >>444
それぞれ一つ一つの意味は分かっても、こうやって並ばれると分からないです＞＜
- 456 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 21:54:00 ]
- 残念ながらそれは、知らないと ﾊｧ? なレベルの知識だ。
- 457 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 22:08:19 ]
- ﾊｧ?
|
 |
