トップページ⇒php
1001コメント338KB

Perlコーディング初心者質問スレ Part 56

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2007/09/16(日) 19:49:43ID:???
Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

お勧めサイトは >2 以降

前スレ　ttp://pc11.2ch.net/test/read.cgi/php/1180492441/
過去ログ倉庫　ttp://user.ftth100.com/mirrorhenkan/perl/
0071nobodyさん2007/09/22(土) 17:15:55ID:???
>>70
態度でかいぞ。
そんなやつには教えてやらん。



#! と /usr の間に半角スペースが入ってるのが問題とか言わん。
0072nobodyさん2007/09/22(土) 17:44:10ID:???
>>68
和んだ、俺も10年くらい前Cやった時そんなだった。
0073692007/09/22(土) 19:54:58ID:???
すみません。解決しました。
0074nobodyさん2007/09/22(土) 21:34:17ID:???
>>70
パーミッションはちゃんとやってあるのか？
とりあえず雑魚が粋がるのはやめておけ。
0075nobodyさん2007/09/22(土) 22:09:17ID:VEv2R0s3
http://pc11.2ch.net/test/read.cgi/php/1158647441/369-372 から来ました。

http://ws.strikeiron.com/SwanandMokashi/StockQuotes2?WSDL
このサービスを SOAP::Lite から使いたいんですが、ドキュメントのWSDL関連部分を読んでも
　 use SOAP::Lite;
　 print SOAP::Lite
　 　 -> service('http://www.xmethods.net/sd/StockQuoteService.wsdl')
　 　 -> getQuote('MSFT');
としか書いてません。
WSDLを見てみると、GetStockQuotesメソッド（オペレーション？）のパラメタとして
QuoteTicker（MSFTとかの文字列）だけでなく、オブジェクト構造みたいなのを組んで
メアドなども渡さないといけないようなんですが、どう書けばいいんでしょうか。
0076752007/09/22(土) 22:43:31ID:???
http://guide.soaplite.com/#access%20with%20service%20description%20(wsdl)
> SOAP::Liteでは今のところWSDL 1.1のサポートは限定されているが〔中略〕、
> 複雑な型（types）を記述に含まないサービスにはアクセス可能だ。

と書いてあるので、無理なのかもしれませんね・・・
0077752007/09/23(日) 03:01:09ID:???
やっと自己解決・・・
http://wsparam.strikeiron.com/BasicRealTimeQuotes?WSDL
という、もっと単純なWSDLを使用。
http://www.strikeiron.com/authentication/
ここの下のほうにPerlのサンプルが（も）置いてあるので、それを改造。
わかりやすいのでSOAP初心者にはおすすめかも。
0078nobodyさん2007/09/23(日) 03:53:09ID:???
>>74
なぁーんてこった！
cgiファイルのパーミッションを
７５５にしたらそれで動いたぜ
そんなこと教科書には
どこにも一言も書いてなかった！
ローカルで動かす教科書だからかな？
サノバビーィーーーッチ！

それでパーミッションが５００でも
動くのはなんでだ？
0079nobodyさん2007/09/23(日) 05:27:46ID:???
それくらいググれカス
0080nobodyさん2007/09/23(日) 06:45:28ID:???
やはりWebProg板はレベルが低いな。最高。
0081nobodyさん2007/09/23(日) 06:53:38ID:???
だって初心者スレだもん。いいじゃない。

なんか、すごくレベルの高い質問が最近多すぎな気がする。俺のレベルが低いだけなんだろうけどｗ
Webprogなんだから、動けばいいじゃない的な考えがイクナイ？
0082nobodyさん2007/09/23(日) 07:50:40ID:???
if ( $hoge =~ /$moge/ ){ print "もげら" }
って感じで書いて$mogeが展開されてくれないみたいなんだけど、
特別な書き方があるのかな。
ぐぐったけど正規表現ばかりで、変数をつかってる例が全然見つからなかったんだけど、
こういう記述方法自体があまり一般的じゃなくて、他の書き方があるのかな。

教えてちゃぶだい。
0083nobodyさん2007/09/23(日) 08:00:28ID:???
>>82
$mogeの中には何が入ってるの？
２バイト文字関係とか、文字コードでこけてる可能性もありそう。
0084nobodyさん2007/09/23(日) 11:07:04ID:???
>>82
変数使うときはquotemeta()くらいはかましときなはれ。
0085nobodyさん2007/09/23(日) 14:57:13ID:???
サンクス！
quotemetaでいけたよ。

1）index($hoge, $moge)　でもやったけどダメ
2）auotemeta()　してみた
3）$hoge =~ /$moge/　で成功！
4）でもなぜかそれ+　index($hoge, $moge)　じゃダメ

って感じだった。
中に入ってるのはどちらもEUCの2バイト文字列なんだけど、
なぜか$mogeが空の文字列として扱われてしまってるっぽい動作だった。
print $hoge.$moge;とかで出力するとちゃんと出力されるんだけどね。
良く分からないけどとりあえず解決はしてよかった。
ありがとう。
0086nobodyさん2007/09/25(火) 00:47:19ID:XOfpdsF8
はじめまして。

use strict;
use diagnostics;

という宣言をした状態で、

Name "html::copyright" used only once: possible typo at bbs.cgi line 554 (#1)

というwarningが出ました。

html::copyrightは、htmlモジュール で、
$copyright = 'hogehoge ';
などというように、宣言されています。
warnings は、他のモジュールの変数は見てくれないのでしょうか？

実は、html::copyright 以外にも数十個でていて、紛らわしいことこの上ないです。
（他のwarningにも混じってしまい、識別が困難です）
このwarningをつぶしたいのですが、何とかする方法はないでしょうか？
0087nobodyさん2007/09/25(火) 00:49:11ID:XOfpdsF8
x 実は、html::copyright 以外にも数十個でていて、紛らわしいことこの上ないです。
o 実は、html::copyright 以外にも used only once: possible typo が、数十個でていて、紛らわしいことこの上ないです。

used only once: possible typo・・・
は、意味は、わかっておりまして、
一度しか使ってないので、ミスじゃない？ってことなのですが、
実際には、ちゃんと、htmlモジュールで代入してから、mainで参照しているのに・・・ということです。
0088nobodyさん2007/09/25(火) 03:43:51ID:???
>>87
Use of uninitialized value
が続かないなら、理由が分からない。
一度ourで宣言してみたらどうなる？
0089862007/09/25(火) 17:25:00ID:XOfpdsF8
試しに、最小限のコードを書いてみたら、
-----test_pm.pm-------
package test_pm;
use strict;
use warnings;

our $hoge = "test foo bar";
1;
-----main.pl---------
use strict;
use warnings;

use test_pm;
print $test_pm::test;
-------------------

> perl main.pl
Name "test_pm::test" used only once: possible typo at main.pl line 5.
Use of uninitialized value in print at main.pl line 5.

ちゃんと、Use of uninitialized value でて、実行不能でした orz
ourでも、myでも同じでした

>>86は、CGIなんですが、なんで、ちゃんと動いているんだろ・・・
もうちょっと解析してみます。
0090862007/09/25(火) 17:28:00ID:XOfpdsF8
x print $test_pm::test;
o print $test_pm::hoge;

スペルミス。
これでも同じ結果です。
0091nobodyさん2007/09/25(火) 21:26:37ID:o7XeBw4v
先日このスレで
END{<STDIN>}
を教えてもらったものです。その節はありがとうございました。

ローカルチェックをする時に、ダブルクリックだけでいいという大変便利なものなのですが、
エラーが出てるときに一瞬で画面が閉じてしまうのです。

ちなみにその時のエラーはuse strictによるmy使え先刻でした。
途中でエラー中断してるのでEND{}まで行かないのは至極当然な話ですが、
エラーの時はエラー内容をSTDINに出力させりょうと思うと大変なことになりますか？

エラーにも色々あるので難しいかもしれませんが、用はコマンドプロンプト画面に出ることを
代わりにそのままSTDINに出力してもらえばいいわけなのですが。
0092nobodyさん2007/09/25(火) 21:28:39ID:???
>>89
CGIってことはサバにあるわけだ。
つまり君がローカルで試してるファイルとは違うファイルが動いてる可能性もあるわけね。
0093nobodyさん2007/09/25(火) 21:36:47ID:???
>>91
コンソールを開いておけない余程の事情でもあるの？
0094912007/09/25(火) 22:20:58ID:o7XeBw4v
>>93
いえ、単純にちょっとしたコードテストをしたいときにわざわざ
１．コマンドプロンプト画面を開いて
２．ファイルがあるフォルダを開いて
３．黒画面にファイルをＤ＆Ｄしてenter

という手順を踏むのが面倒だといつも思っていたのです。
１．ファイルをダブルクリックする
これだけで済むなら最高です。

意外に大きな差かなって思いまして。
黒画面へのエラー内容出力ってどういう仕組みで行ってるんでしょうか？
きっとperlの方から出してるんだと思いますが、その出し先をSTDINに変えればできるのでは？
とか思ったり。
0095nobodyさん2007/09/25(火) 22:46:42ID:???
>>94
同じファイル？ならコンソール開きっぱなしで1回目だけ「perl スクリプト名」で実行しておけば連続テストは↑+Enterで済む。
慣れにもよるけど多分ダブルクリックより速く操作できる

エラーはSTDERRに出力される。
誤解しているようだけどSTDINは標準入力であって出力ではない。標準出力はSTDOUT
0096912007/09/26(水) 00:17:27ID:zmZEFb0X
>>95
２回目以降は確かに楽なんですけど。
STDERRに出力されてるので、END{<STDIN>}で出る入力受付画面には出力されない？
STDOUTへの分はきちんと表示されますし。

STDERRの取得方法があるのでしょうか？
0097nobodyさん2007/09/26(水) 00:27:31ID:???
>>89
これ、ActivePerl　5.8.8.822で普通にtest foo barと表示された
ダメ出しも無し
0098nobodyさん2007/09/26(水) 00:37:06ID:???
>>96
ラクダ本より
＞内部的に発生する例外によって終了する場合でも、ENDサブルーチンは呼び出される（ただし、シグナルによって撃沈された場合は除く）
とあるようにENDそのものが実行されない。自分で（できれば）トラップする必要がある。これはsigtrapを使えばよい。

…が、それくらいなら最初からコンソールから使うことを強く勧める。元々ダブルクリックで起動するようには設計されてないし。
0099nobodyさん2007/09/26(水) 00:41:02ID:???
>>91
echo off
perl %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
pause

みたいなバッチファイル作って、,plに関連付けして置くぐらいかなぁ。

統合型開発環境(みたいなエディタ)を使うと、その場で実行して、
その場で結果表示できたりするので、そういうの使うと便利だよ。
0100nobodyさん2007/09/26(水) 00:56:23ID:???
しまった。
> perl %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
は
> perl %1 %2 %3 %4 %5 %6 %7 %8 %9
だた。
01011012007/09/26(水) 02:22:27ID:???
型グロブというものについて
教科書を今日読んで理解したので
型グロブについて誰か質問してください。
説明します。
0102nobodyさん2007/09/26(水) 05:15:12ID:???
型グロブをうまいこと使っているモジュールを列挙してください。
0103nobodyさん2007/09/26(水) 13:38:32ID:???
>>99-100 perl %*
0104nobodyさん2007/09/26(水) 17:01:12ID:???
>>101
ありがとうございます！
スカラー変数
配列変数
リスト
ハッシュ変数？
それらのリファレンスなど

上記との違いを説明してください。
そして何の為にグロブがあるのですか？
僕は素人なのでまだ使うべきところに出会っていません。
いや使えてたらもっと簡単につくれてたのかもしれません。
0105nobodyさん2007/09/26(水) 18:35:06ID:???
ビウログってなんですか？
0106nobodyさん2007/09/27(木) 02:15:46ID:rW8f5K4d
質問です。

if($Fm{'form'}){　　処理　　}　#フォームに何か入力されていれば処理

上記の場合
フォームに0と入力した場合もスルーされてしまいます。
認識させるにはどのような書き方になるのでしょうか。

if分の前に
$Fm{''form'}=sprintf( "%c", $Fm{''form'} );
のように文字列にするという方法を思いついたのですが、ちょっとスマートじゃないなと思っています。
よろしくおねがいします。
0107nobodyさん2007/09/27(木) 02:23:35ID:???
if($Fm{'form'} ne ""){　　処理　　}
0108nobodyさん2007/09/27(木) 02:35:47ID:???
>>107
素早い回答ありがとうございます。
その手がありましたか。目からうろこでした。
ありがとうございます！
0109nobodyさん2007/09/27(木) 03:41:52ID:???
length とかも
0110nobodyさん2007/09/27(木) 06:29:35ID:???
1000:1234:abcd:2000::/120のような省略されたIPv6のアドレスを展開して
リストに格納したいのですが、プレフィックス長(=120)に応じて
展開する部分が一部不完全なので教えてください。
下のコードだと、下4桁の連番生成しかできない上に、プレフィックス長が4の倍数でない場合にうまくいきません。
これを4の倍数でなくても＆下4桁以上もちゃんと展開できるようにしたいのですが…。
たとえば、1000:1234:abcd:2000::/127であれば、
1000:1234:abcd:2000:0000:0000:0000:0000
1000:1234:abcd:2000:0000:0000:0000:0001
の二つが出来てほしいのです。
できれば10進数で連番作ったものを16進数変換してる部分もなんとかしたいんですけど…。

sub _Gen{
　　my ($addr, $pref) = split(m|/|, $_[0]);
　　$addr = &_Format($addr); # ここで省略のない32桁の英数字を4桁ごとに:で区切ったものになる
　　$addr =~ s/://g;
　　if($pref % 4 != 0 || $pref < 112 || $pref > 128){
　　　　return;
　　}elsif($pref == 128){
　　　　1 while $addr =~ s/(\w+)(\w\w\w\w)/$1:$2/;
　　　　return $addr;
　　}
　　my $fixed = substr($addr, 0, $pref / 4);
　　my $keta = (128 - $pref) / 4;
　　my (@addrs, $tmp);
　　for(my $i=0; $i<16**$keta; $i++){
　　　　$tmp = sprintf("$fixed%0${keta}x", $i);
　　　　1 while $tmp =~ s/(\w+)(\w\w\w\w)/$1:$2/;
　　　　push(@addrs, $tmp);
　　}
　　return @addrs;
}
0111nobodyさん2007/09/27(木) 06:34:39ID:???
defined 常考
01121012007/09/27(木) 09:02:14ID:???
型グロブについて。

スカラー変数
アレイ
ハッシュ（連想配列）

この３つを同時に
扱うために、型グロブは
生まれてきたのです。
01131012007/09/27(木) 09:04:34ID:???
例えば

$a　←これはスカラー変数
@a　←これはアレイ（配列）
%a　←　これはハッシュ（連想配列）

aの左側についてる記号は
＄だったり
＠だったり
％だったりとそれぞれ違うが
記号の右側はaで全部統一されている。

このとき
あ
「aの型グロブ！」
と宣言すれば、

$a　@a　%a

この３つを全部同時に扱うことができる。
これが型グロブ。
0114nobodyさん2007/09/27(木) 09:14:21ID:???
こいつはOmotiとかタクトくせぇ
01151012007/09/27(木) 09:59:46ID:???
つまり
4年1組と
4年2組と
4年3組が
いたとして、

「4年生全員集合！」
と言うと、4年生が全員集まってくるのです
これが型グロブです。
0116nobodyさん2007/09/27(木) 11:04:43ID:???
全員集まってくることがどういうことか（メリットなど）
を語らないと通じないでしょ
肝心な部分が抜けてるポ＾＾
0117nobodyさん2007/09/27(木) 13:26:43ID:???
どっちも4年生なら配列かハッシュ使えば済むでしょ
どっちかというと「全学年の1組集合」の方が近いのではないかと。
0118nobodyさん2007/09/27(木) 13:32:25ID:???
その例なら多重配列使いたいからそれもちょっと…
01191182007/09/27(木) 13:33:29ID:???
ごめん勘違いしてた
0120nobodyさん2007/09/27(木) 13:34:07ID:???
この聞いてjも居ないのに延々と騙ろうとするのはタクトに違いない。
0121nobodyさん2007/09/27(木) 13:58:24ID:???
ねぇねぇ
なんでおじちゃんたち
DBが全部やってくれることを一生懸命書いてるの？
0122nobodyさん2007/09/27(木) 14:53:03ID:???
DB使ってないしぃ
0123nobodyさん2007/09/27(木) 15:13:12ID:???
DB使わない理由って　やっぱサーバーにないから？
それとも手をつけたことがない？
後者なら絶対覚えたほうがいいよ。
生産効率が全然ちがうよ
0124nobodyさん2007/09/27(木) 16:59:17ID:???
>>110
これじゃだめなん？

use Net::CIDR;

print join("\n", Net::CIDR::cidr2octets("1000:1234:abcd:2000::/127"));
0125nobodyさん2007/09/27(木) 17:11:50ID:???
わざわざDB使うほどの事してないしぃ
ゴミ箱にごみを捨てるのは、わざわざ執事雇って呼んで捨てさせる程の事じゃないしぃ
0126nobodyさん2007/09/27(木) 19:38:27ID:???
>>124
うああああ、助かった
こんな便利なものがあるなんて！
ありがとう〜！
0127nobodyさん2007/09/27(木) 20:05:25ID:fs1IYXrA
色々なPerlがあるようですが、
rand ≠ rand(1)
となるものはあるのでしょうか？ちなみに自分のactiveperl fow win32 5.8は
rand == rand(1)
になっていると思います。
サバによって違うなら面倒でもrand(1)としといたほうが無難なのでしょうか？

それと演算子の優先順位をわかりやすい表にしてるところ知っていたら教えてくださいませm(__)m

last if 1-rand(1) <= 0.3;
こういうの書く時
last if ( (1-rand(1)) <= 0.3);
とすれば確実ですが、地味に面倒で意外と見づらいです。
0128nobodyさん2007/09/27(木) 20:36:42ID:???
同じだよ
その手の仕様をプラットフォームによって違うようにする必要性がないし
0129 ◆TWARamEjuA 2007/09/27(木) 20:40:25ID:????2BP(6825)
http://perldoc.perl.org/perlop.html#Operator-Precedence-and-Associativity
とか。。。
01301272007/09/27(木) 20:54:10ID:fs1IYXrA
>>128
そうですよね。まあでも括弧を外すなら結局rand(1)としないとしつこく引数にとられてしまいますね。
>>129
英語のページですか・・・
僕の学力の低さを見透かしたような皮肉orz

バカにでもわかる一覧表的なページはないということでＦＡ？
0131nobodyさん2007/09/27(木) 21:18:44ID:???
unless (0 and 1){
print 1;
}

1と表示されます。unlessは条件式が偽を出してくる時にブロックを実行するのですよね？
0 and 1なら片方が真を出すのでブロック実行されないと思ったのですが。
複数の条件式が全て偽を出した時にだけブロック実行をさせたいのです。

回答宜しくお願いいたします。
01321312007/09/27(木) 21:22:38ID:???
ちなみにこれをifでやるとさらにおかしなことになります。

if (1 and 0){
print 1;
}

これです。何も表示されません。先ほどのunlessとの整合性がつきません。
ifによる条件式部分ではちゃんと二つ共が真の時だけ実行されるのに、
unlessの場合は片方が偽を出せば実行されます。

もしかして
真 and 偽
は最終的に偽扱いされるのですか？
0133nobodyさん2007/09/27(木) 21:28:31ID:???
>>132
＞もしかして
＞真 and 偽
＞は最終的に偽扱いされるのですか？
そう。当たり前。
0134nobodyさん2007/09/27(木) 21:28:52ID:???
(0 and 1) は（「偽」かつ「真」）だからそんなの成り立たない
（「真」かつ「真」）なら結果「真」と評価できる
つまり、(0 and 1)は常に「偽」と評価される
だから　unless (偽) は常にそのブロック内が実行される
01351312007/09/27(木) 21:46:53ID:???
なるほどです。
やはりちょっと違いますねunlessは。
ifのfalse版みたいに思うと微妙にやられますね。

全然関係ない話ですが、Perlには資格ってあるのですか？
書道３段とか簿記３級みたいに客観的にPerlにおけるプログラミング力を第３者に示すもの。
頑張って勉強してそのうちバイトでプログラムの仕事取ってみたいですが、
その時にそういう資格的なものがあるなら売り込みやすいなと思いまして。

本当に関係ない話ですいません。
0136nobodyさん2007/09/27(木) 21:59:00ID:???
>>130
http://perldoc.jp/docs/perl/5.8.8/perlop.pod
01371272007/09/27(木) 22:08:14ID:fs1IYXrA
>>136
日本語のページありがとうございます。
見てきますｍ（＿＿）ｍ
0138nobodyさん2007/09/27(木) 22:39:59ID:???
perlの仕事なんか無いよ
0139nobodyさん2007/09/27(木) 22:51:34ID:???
>>135
記号論理をやれば当然のことで、それを理解していればifの否定版と考えて問題は起きない
0140nobodyさん2007/09/28(金) 00:24:10ID:???
スカラー変数と配列変数をいっぺんに作りたいです。
my ($s1,$s2............$s20);
my (@r1,@r2............$r20);

全部書くのが面倒な時は簡単な方法はありますか？
0141nobodyさん2007/09/28(金) 00:37:13ID:???
コードの先頭でまとめて宣言するってこと？
そんなことすんならuse strict使わない、宣言しないほうがよっぽどいい
0142１４０2007/09/28(金) 00:42:26ID:???
＞＞１４１
# 初期化

というところでいっぺんに使う変数を宣言しています。
何故というより癖みたいなものですかね。
それで分析プログラムを作ってたら、やたらと記録や集計用の変数が必要になったんです。
一つ一つまともに名前を考えるのが非効率なのでそこだけ適当な名前にしています。

strcit使いながら賢く宣言できませんか？
無理ならあきらめます。
0143nobodyさん2007/09/28(金) 01:00:34ID:???
変数をたくさん使いたいなら代わりにハッシュ使えば一つで済むじゃん
0144nobodyさん2007/09/28(金) 01:01:15ID:???
なんだか意味が良くわからないけどハッシュにいれればいいじゃない
キー名を考えるのは同じだけど
0145nobodyさん2007/09/28(金) 03:02:00ID:???
>>140
なんか、その変数名だと単に配列と二次元配列の初期化だけですむ気がすんだけど？
my ( @s, @r ) ;
# @s は、オマエさんの ( $s1, $s2, ..... ) を入れる配列
# @r は、オマエさんの ( [@r1], [@r2], .... ) を入れる配列

本当に別々の変数名が必要なのか？
本当に必要ならば上の人たちが言ってる通りハッシュorハッシュリファレンス
使え。
0146nobodyさん2007/09/28(金) 03:04:18ID:???
for (1..20) { eval "my(\$s$_ , \@r$_)" }
0147１４０2007/09/28(金) 06:42:10ID:???
>>143-145
ごもっともなんですけど、リファレンスにするとコードが汚くなるんですよね。
いちいちデリファレンスしながらのコードは読みにくいし。
ハッシュも同じです。単なるスカラーと配列変数以上に読みやすいものはないかと。

>>146
それってforブロックの中でローカル化されてませんか？
evalするとローカル化されないとか？
0148nobodyさん2007/09/28(金) 06:53:34ID:???
>>147
そのevalに突っ込み入れられる実力があれば、
キミの望んだことは実現出来るよな？

まあ、自分の考えに固執しないで、他の人が普通に「hash使え」って
言ってる意味を考えた方が良いと思うけど。
=> perlでは143-145が普通の感覚だし、たかだか変数の
　宣誓にevalなんぞ使ってたら「変態さんがいるわ&hearts」
　と言われること受けあいだ。
そもそもそんなに個別の変数が必要か否かを考え直したほうがいい
んじゃね？
0149nobodyさん2007/09/28(金) 08:03:45ID:???
> 書道３段とか簿記３級みたいに客観的にPerlにおけるプログラミング力を第３者に示すもの。

書道の段位なんて流派ごとに異なるので、客観性があることにできないんと思うよ。
日商簿記２級くらいまでなら試験対策する時間さえあれば能力関係なしにとれるから
持ってたからといってだから何？レベルだよね。
0150nobodyさん2007/09/28(金) 08:31:35ID:???
ttp://d.hatena.ne.jp/naoya/20050809/1123563794
脳内では、コレが参考になるかもしらんが、
○自己判断のレベルが客観的判断のレベルと一致しない。
○レベル7と8との間にとても深くて暗い河がある。

プログラミングの技量の判断として有名なのはFizzBuzz問題
だが、有名になりすぎて知ってて当たり前。
0151nobodyさん2007/09/28(金) 12:19:13ID:???
Lv8かなぁ？Lv9にはなってない気がする。
0152nobodyさん2007/09/28(金) 14:28:43ID:???
>>150
ほんと、7と8の間の河が深すぎる。7.5がほしい。
俺はたぶん6か7だけど。
0153nobodyさん2007/09/28(金) 15:13:33ID:???
use strictってどういう効果有るの？ググってもよく分からないや

とか思ってる他人のソース弄って何とかしている人がここに一人。
0154nobodyさん2007/09/28(金) 15:43:49ID:???
strictやwarningsは融通が利かなくなるので嫌いでちゅわ
0155nobodyさん2007/09/28(金) 15:58:21ID:???
いいね、初心者スレらしい。
0156nobodyさん2007/09/28(金) 16:22:17ID:???
strictや-wを使って粋がってる自称玄人は笑えるｗｗ
0157nobodyさん2007/09/28(金) 16:32:49ID:???
無理にstrictやwarings使って本末転倒になってる馬鹿はよく見る
0158nobodyさん2007/09/28(金) 17:27:09ID:???
普段から常に使ってるがどういう場面で本末転倒になるんだろう
0159nobodyさん2007/09/28(金) 17:36:03ID:???
その昔はグローバル変数をサブルーチンでいじり倒すようなコードがあったけど
スコープ区切って引数と戻り値のやりとりするほうが100万倍読みやすいよ
0160１４０2007/09/28(金) 18:12:42ID:???
>>148
>そのevalに突っ込み入れられる実力があれば、
>キミの望んだことは実現出来るよな？

すいません。もう少し普通の会話がしたいです。

>そもそもそんなに個別の変数が必要か否かを考え直したほうがいい
んじゃね？

このよくある「答は一つ、綺麗でスマート」っていうのはどうにも好かない。
0161nobodyさん2007/09/28(金) 20:40:06ID:???
>>160
じゃおまえの好きなようにすれば？
0162nobodyさん2007/09/28(金) 21:25:32ID:???
>>140
「Perlはあなたが自分の首を締めるのに十分なロープを
提供しているのだ」てな忠告がラクダ本に載ってたな。

#--- Filter/Range.pm ---
package Filter::Range;
use strict;
use Filter::Simple sub {
　　s{
　　　　my \s* \( \s*
　　　　([\$\@%][A-Z_a-z][0-9A-Z_a-z]*?) ([0-9]+) \.\. ([0-9]+)
　　　　\s* \)
　　} {
　　　　'my(' . join(',', map "$1$_", $2 .. $3) . ')'
　　}egx;
}; 1;
__END__

#!/usr/local/bin/perl -w
use strict;
use Filter::Range;
my($s1..20) = (1..20);
print $s10;
__END__
0163nobodyさん2007/09/28(金) 21:41:10ID:???
Damian Conway ぷろだくとか。
0164nobodyさん2007/09/28(金) 22:27:42ID:3wKaaJqT
サブルーチンを１０個くらい作ってあります。
同じディレクトリに５個くらい違うCGIファイルがあります。
５個のCGIファイル全てに、冒頭の１０個のサブルーチンをコピペしてあります。

print routin(1,2);
５個のＣＧＩふぁいるではこういう記述でサブルーチンが使えます。
どうもこれを外部ライブラリ化とかいうのすると
print パッケージ名::routin(1,2);
で使えるようになるとか。

でもパッケージ名を入れるとなると５個のＣＧＩファイル全てを書き直すのが嫌です。
またパッケージ名が入って見た目がウザくなるのも嫌です。

外部ライブラリにしながらも、メインパッケージにあるのと同じごとくサブルーチンを使うにはどうすればいいでしょうか？
メインパッケージに初めに全部もらえばいけるんじゃないかとか妄想していますが。
0165nobodyさん2007/09/28(金) 22:30:18ID:???
>>164

>>19読んで応用しろ。キーワードはexporter
0166nobodyさん2007/09/28(金) 22:45:38ID:3wKaaJqT
orz
0167nobodyさん2007/09/28(金) 23:42:41ID:???
べつにExporterなんかいらないだろ
全部plファイルにしてrequireでつなげろ
0168nobodyさん2007/09/28(金) 23:57:57ID:???
おれだったらＯＯＰが楽かな
0169nobodyさん2007/09/29(土) 00:02:00ID:???
>>167
すげえまじで感動したw
つか、require '....pl' ってperl4時代のモンだと思って使ってもなかったよ。
これからも使わんけどw
もちろんstorableとか使用するときには必須>require
0170nobodyさん2007/09/29(土) 00:04:52ID:???
があ、Data::Dumper の読み込み時だ。require 使うのorz...
■ このスレッドは過去ログ倉庫に格納されています