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

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

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2008/08/06(水) 22:54:32ID:???
Perlのコーディングで困ってる人のスレです。

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

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

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

お勧めサイトは >2 以降

前スレ　http://pc11.2ch.net/test/read.cgi/php/1203935151/
過去ログ倉庫　ttp://user.ftth100.com/mirrorhenkan/perl/
0798nobodyさん2009/02/04(水) 11:33:59ID:???
a とか b だけの変数名は使うなバカチン

unshift(@a , 1);
第二引数は配列でアレ！
0799nobodyさん2009/02/04(水) 21:14:31ID:???
>>797
> この表記でバグってるような気がします
http://www.e777.co.jp/perlcw/perlcw.html

> ウインドウズで開発環境を作るにはどうしたらよいのでしょうか?
http://www.activestate.com/activeperl/
0800nobodyさん2009/02/04(水) 23:10:49ID:???
ぜろちゃんねるスクリプト use strict; すらしてねぇ
0801nobodyさん2009/02/05(木) 07:17:41ID:???
strict.pmが鯖に必ずしも入っていなかったからだと思うよ
0802nobodyさん2009/02/05(木) 09:39:18ID:???
弄られるってのも考えてると思う
0803nobodyさん2009/02/05(木) 10:22:36ID:???
>>801
> strict.pmが鯖に必ずしも入っていなかったからだと思うよ

そういう鯖って今もあるの？
あるとして使う積極的な理由は見つからない。
use strict; しないスクリプトは消えるべきかと。
0804nobodyさん2009/02/05(木) 10:33:23ID:???
世の中そう簡単じゃないんだよ
0805nobodyさん2009/02/05(木) 10:37:35ID:???
作る時は
-Tオプション
use strict;
use warnings;
つけるけど、納品するときは外すよ
0806nobodyさん2009/02/05(木) 11:13:47ID:???
>>805
どういう理由があって外してるの？
0807nobodyさん2009/02/05(木) 11:20:17ID:???
>>806
納品前に外す趣旨の発言は、この板で何度か出てきてるね。
外すと書くだけで、合理的な理由を示さない人だから、構わない方が良いよ。
0808nobodyさん2009/02/05(木) 11:34:34ID:???
>>807
>>801
可能性がゼロじゃないわけで。
ログはきまくるっていうのもあるのかな
0809nobodyさん2009/02/05(木) 12:05:01ID:???
>>808
Perl で飯食うの辞めるといいと思う。
0810nobodyさん2009/02/05(木) 12:15:13ID:???
0chのtest060227.zipを使用して掲示板を運営しています。
http://0ch.mine.nu/public/scripts/
スレッド一覧（ ./subback.html ）にもmeta.txtの内容を書き込もうと思い
いろいろ弄ってなんとか形になりました。※meta.txtは掲示板を作って自分で書き込めます。
しかし、これでよいのかどうか自信がもてないため質問します。

varda.plの191
sub CreateSubback{　} 内に

require('./module/legolas.pl');
$Caption = new LEGOLAS;
META($this,$Index,$Caption);

151# HTMLヘッダの出力
$Caption->Print($Page,undef);

他に
sub META{
　my ($this,$Page,$Caption) = @_;
　my ($title,$link,$image,$code);
　$Caption->Load($this->{'SYS'},'META');
}


ミスはないでしょうか？
0811nobodyさん2009/02/05(木) 12:21:03ID:???
> ミスはないでしょうか？

お母さんのおっぱい揉みながら聞いてみるといいよ
0812nobodyさん2009/02/05(木) 12:22:33ID:???
移動したんじゃないのかよｗ
0813nobodyさん2009/02/05(木) 12:23:39ID:???
移動先で放置食らってるんだろｗ
0814nobodyさん2009/02/05(木) 12:42:41ID:???
ソース見たけど嫌になった
0815nobodyさん2009/02/05(木) 13:24:44ID:???
>>810
>ミスはないでしょうか？

動作するか自分で試す事もできないの？
馬鹿なの？死ぬの？
0816nobodyさん2009/02/05(木) 13:33:51ID:???
技術者としては死んでいるね。そもそも技術者ではないか。
0817nobodyさん2009/02/05(木) 14:00:44ID:???
strictプラグマwarningsプラグマ
http://d.hatena.ne.jp/lapis25/20090204/1233757194

両エントリｋｔｋｒ
0818nobodyさん2009/02/05(木) 15:30:00ID:???
>>809を見る限り、合理的な理由を示さないのは外さない派だなｗ

>>817
モダン（笑）
0819nobodyさん2009/02/05(木) 16:35:05ID:???
>>808
> 可能性がゼロじゃないわけで。

これについて、何の可能性なのかよくわかんないんだよね。
>>801 でいう「strict.pmが鯖に必ずしも入っていな」い可能性がゼロなのか、
use strict; use warnings; したときに出てしまうメッセージを潰しきれない
のがゼロなのか。

> ログはきまくるっていうのもあるのかな

そもそも何のログが出てくるのかと。
use strict; use warnings; しているときに何か出てくるのであれば、
それは必ず潰さなければらなない。
そんなものが出てくる時点で何かおかしいことをしている。
例外的に、わかってておかしいことをしたい場合は、その箇所に関しては、
個別的に黙らせればよい。
0820nobodyさん2009/02/05(木) 16:42:43ID:???
use ***;書いてたらそれだけで処理に時間がかかるからじゃね？
0821nobodyさん2009/02/05(木) 16:44:10ID:???
use strict; 外す派って、テストの時 use strict; つけてテストした後に、
外してもう一回テストやるの？面倒くさくない？
0822nobodyさん2009/02/05(木) 16:49:06ID:???
> use ***;書いてたらそれだけで処理に時間がかかるからじゃね？

どのくらいの時間がかかるの？
ベンチとか取ってるのなら見てみたい。
0823nobodyさん2009/02/05(木) 16:50:25ID:???
>>821
use strict; 外す派は、テストの概念が存在しない世界の人たちである気がする。
0824nobodyさん2009/02/05(木) 16:57:02ID:???
おれが>>594で聞いたときも答えてくれなかったから教えてくれないでしょ
0825nobodyさん2009/02/05(木) 17:07:07ID:???
use strict; use warnings; 付けないと死刑派のおれがテストしてみた
1000 回まわしてトータルで 0.3 秒の差だね。
行数多くなると少し変わるんだろうけど、この小さな差をどうにかしないと
いけない状況って本当にあるの？

# --- run.sh
#!/bin/bash
time bash call_strict.sh
time bash call_no_strict.sh

$ bash run.sh

real 0m5.904s
user 0m3.828s
sys 0m1.824s

real 0m2.561s
user 0m1.116s
sys 0m1.784s

# --- call_strict.sh
#!/bin/bash
for x in `seq 1 1000`; do
perl call_strict.pl 2>/dev/null 1>/dev/null
done

# --- call_no_strict.sh
#!/bin/bash
for x in `seq 1 1000`; do
perl call_no_strict.pl 2>/dev/null 1>/dev/null
done
0826nobodyさん2009/02/05(木) 17:07:48ID:???
# --- call_strict.pl
#!/usr/bin/perl

use strict;
use warnings;

my ($a, $b, $c);
$c = 10;
$a = 100;
$b = "fuck";
$a = $b + $c;

# --- call_no_strict.pl
#!/usr/bin/perl

$c = 10;
$a = 100;
$b = "fuck";
$a = $b + $c;
0827nobodyさん2009/02/05(木) 17:17:53ID:???
use strictしない（最終的に消す）派とか言ってるやつがuse CGIとかやってたりするんだろうな
0828nobodyさん2009/02/05(木) 17:54:21ID:???
何と戦ってるんだ
0829nobodyさん2009/02/05(木) 18:33:37ID:???
どこで誰が戦ってるの？
0830nobodyさん2009/02/05(木) 18:39:27ID:???
人は色々なところで戦ってるんだ
0831nobodyさん2009/02/05(木) 18:41:08ID:???
上條恒彦の歌思い出した
0832nobodyさん2009/02/05(木) 19:56:17ID:???
コンパイルが簡単にできればすべては解決なんだろうな。
0833nobodyさん2009/02/06(金) 01:05:07ID:???
strict使わない馬鹿なんかに構うことないだろお前ら
0834nobodyさん2009/02/06(金) 02:46:43ID:???
燕雀安んぞ鴻鵠の志を知らんや
0835nobodyさん2009/02/06(金) 03:03:25ID:???
>>825
計測したことがないけど、warning.pmは重くてstrict.pmはほとんど負荷がない、とドキュメントに書いてあったと思う。
だから俺はuse strictして、-wオプション付きでテストさせている。
0836nobodyさん2009/02/06(金) 03:09:28ID:???
warningsと-Tオプションは納品時に外すがstrictは外さないでしょ
0837nobodyさん2009/02/06(金) 09:50:05ID:???
負荷以前にstrictがないプログラムは怪しいぞｗ。不信すぎる。
0838nobodyさん2009/02/06(金) 12:54:45ID:???
warnings も strict も -W も外さない
外して焦ってサポートに電話してくりゃ、そりゃ商機なんですよｗ
下手に改造されてワーニング放置で動かされて、とある日にぼろぼろのソースを直せと言われるより、
早期にワーニング出てもらって、修正依頼に対して「そちらが勝手に改造したので新規料金相当頂きます」のほうがいいんですよ
ちったぁ考えろって
0839nobodyさん2009/02/06(金) 13:15:50ID:???
このスレの統一的見解は、

「納品時には use strict; use warnings; を外す」

でよろしいな？
0840nobodyさん2009/02/06(金) 13:27:58ID:???
なんでだよｗ
0841nobodyさん2009/02/06(金) 14:26:30ID:???
モダンなPerlerは外さない
0842nobodyさん2009/02/06(金) 14:49:52ID:???
>>838
商品でどうこう言ってるくせに-Tオプションを使ってないのは胡散臭い
0843nobodyさん2009/02/06(金) 14:58:25ID:???
-T つかうとどんなことが出来るのか、初心者のおれに教えてくれ。
0844nobodyさん2009/02/06(金) 15:20:39ID:???
>>838
相手が勝手に改造するのと、strictとwarningsは関係なくね？
0845nobodyさん2009/02/06(金) 15:22:58ID:???
他社に納品ってしたことないから分からんかった
0846nobodyさん2009/02/06(金) 15:24:01ID:???
>>842
-T は使ったことないから知らないから、-T でどんな機能が働くのか教えてくれ
0847nobodyさん2009/02/06(金) 15:31:52ID:???
ググった
自分のスクリプトを -wT で動くようにしてみよう

ありがと >>843
0848nobodyさん2009/02/06(金) 15:32:13ID:???
>>842 だったｗ
0849nobodyさん2009/02/06(金) 15:34:06ID:???
>>847
良く書けていたサイトがあれば教えて欲しい。
0850nobodyさん2009/02/06(金) 15:34:13ID:???
>>843
>>846

つ 汚染チェック
0851nobodyさん2009/02/06(金) 15:37:21ID:???
PerlでWebプログラミングしてて-Tの汚染チェック知らないとかヤバいだろw
0852nobodyさん2009/02/06(金) 15:46:56ID:???
>>847
つ 確認用オプションは-wTcがオススメ
0853nobodyさん2009/02/06(金) 16:29:24ID:???
$bosyu の値が1ならば、登録フォームを表示させる。
0ならば、登録フォームを表示させない。
1か0かは、管理人用ページから設定することができる。　という感じでPerlを組みたいのですが、
まだまだ初心者でよく分かりません。
一応、
<input type=radio name=bosyu value=1>表示する
<input type=radio name=bosyu value=1>表示しない
というフォームを作り、登録フォームの表示部分に、
if ( $bosyu == 1 ){
　#登録フォーム
}
else {}
というようにしました。
しかし、管理人画面から1にしようが0にしようが、登録フォームはどのみち消えてしまいました。
この場合、どうしたらよいのでしょう？；
08548532009/02/06(金) 16:30:28ID:???
<input type=radio name=bosyu value=1>表示しない
正しくは、
<input type=radio name=bosyu value=0>表示しない

でした。申し訳ありませんが、ご教示願いますm(_ _)m
0855nobodyさん2009/02/06(金) 16:36:45ID:???
要するに、$bosyuに１がセットされないってことでおじゃるか
ＵＲＬデコード的なものをしてないんじゃ？
0856nobodyさん2009/02/06(金) 16:46:23ID:???
>>855 さん
ありがとうございます。m(。。；)m
URLデコード・・・ですか？今から検索かけてみます；

もしよろしければ、
http://www.77c.org/d.php?f=nk5918.lzh
に本体をアップロードしましたので、修正箇所など教えていただけますと助かります。
私自身が追加しましたのは、行381,行382,行678,行683,行684　になります。
0857nobodyさん2009/02/06(金) 16:51:07ID:???
$bosyuじゃなくて$FORM{bosyu}でやってみれ
0858nobodyさん2009/02/06(金) 17:05:24ID:???
$bosyu == 1
ってやりたいなら明示的に int(入力値) ってやったほうがいい
でなけりゃ 0 or 1 じゃなくて TRUE or FALSE にして、eq を使うとか
0859nobodyさん2009/02/06(金) 17:08:50ID:???
>>857　さん
ありがとうございます。
やってみましたが、やはり0,1に関わらず登録フォームが消えてしまいました；

>>858　さん。
ありがとうございます。
今からやってみたいと思います。
0860nobodyさん2009/02/06(金) 17:17:25ID:???
>>858 さんの方法で試してみましたが、やはりできませんでした。
ご迷惑おかけしてしまい申し訳ないです；
0861nobodyさん2009/02/06(金) 17:33:20ID:???
★三　【 スクリプト改造工房 PART 9 】　★三
http://pc11.2ch.net/test/read.cgi/php/1143834740/
0862nobodyさん2009/02/06(金) 17:36:41ID:???
これまたひどいスクリプト
0863nobodyさん2009/02/06(金) 19:09:08ID:???
>>862
そんなこと無いだろうさすがに

と思ったけど、これは酷いｗ

$bosyu 自体読み込みしてないけりゃ、$bosyu じゃなくて bosyu とかなってる始末

ログにはコメントしか出力してないし、CGI 君はどうやって表示するしないのフラグを知ればいいの？

もっと流れを知ったほうがいい。

あと、このスクリプトは酷いので別のを使ったほうがいい
0864nobodyさん2009/02/06(金) 19:13:45ID:???
コレは酷い
strictすると駄目なので、ログから取得

Unquoted string "bosyu" may clash with future reserved word at 〜.cgi line 681
Name "main::e" used only once: possible typo at 〜.cgi line 538
Name "main::msg" used only once: possible typo at 〜.cgi line 210
Name "main::s" used only once: possible typo at 〜.cgi line 538
Name "main::c" used only once: possible typo at 〜.cgi line 538
Name "main::isdst" used only once: possible typo at 〜.cgi line 145
Name "main::yday" used only once: possible typo at 〜.cgi line 145
Name "main::sec" used only once: possible typo at 〜.cgi line 145
Use of "do" to call subroutines is deprecated at ./jcode.pl line 328
Use of uninitialized value $FORM{"action"} in string eq at 〜.cgi line 226
Use of uninitialized value $FORM{"action"} in string eq at 〜.cgi line 226
Use of uninitialized value $FORM{"action"} in string eq at 〜.cgi line 226
Use of uninitialized value $FORM{"com"} in substitution (s///) at 〜.cgi line 231
Use of uninitialized value $FORM{"com"} in substitution (s///) at 〜.cgi line 231
Use of uninitialized value $FORM{"action"} in string eq at 〜.cgi line 153
Use of uninitialized value $FORM{"action"} in string eq at 〜.cgi line 153
Use of uninitialized value $FORM{"action"} in string eq at 〜.cgi line 153
Use of uninitialized value $FORM{"action"} in string eq at 〜.cgi line 153
Use of uninitialized value $FORM{"action"} in string eq at 〜.cgi line 153
Use of uninitialized value $FORM{"action"} in string eq at 〜.cgi line 153
Use of uninitialized value $FORM{"action"} in string eq at 〜.cgi line 191
Argument "bosyu" isn't numeric in numeric eq (==) at 〜.cgi line 681
08658532009/02/06(金) 19:19:01ID:???
そんなに酷かったのですか・・・
私自身で追加した行は酷いと言われても仕方が無いと思っていましたが、
スクリプト自体が酷い　となるとびっくりです。

ただ、今の私にピッタリのPerlスクリプトなので、どうしてもこれを使いたいのですが・・・
今まで色々と検索かけてみたり、ソースを変更してみたりしたのですが、
やはり私一人の力ではどうしようもできません・・・
もしよろしければ皆さんの「ここをこうすればいい」などの意見を参考にしたいです。
厚かましい願いではありますが、どうかご教示して頂けませんか？；
0866nobodyさん2009/02/06(金) 20:12:20ID:LbIRe9/S
とりあえず、他の部分は見る気にもならないくらいの書き方なので、ピンポイントで。

どこのサーバで動作させるつもりかもわからないけどCGI.pmが入ってること期待して。

use CGI;
my $q = new CGI;
my $is_visible = $q->param('bosyu');

if ($is_visible) {
登録フォーム表示コード
}

で、いけるんじゃね？




0867nobodyさん2009/02/06(金) 20:37:48ID:???
>>866　さん
ありがとうございます。
CGI.pmは先ほど試したのですが、使うとCGI自体の動作がおかしくなってしまうので
使えませんでした。
サーバーはWinXPのApache2で、Perl5を使用しています。
0868nobodyさん2009/02/06(金) 20:44:48ID:???
>>867 自宅サーバ？
0869nobodyさん2009/02/06(金) 20:45:49ID:???
>>868　さん
はい、自宅サーバーで運用しています。
0870nobodyさん2009/02/06(金) 21:08:43ID:LbIRe9/S
どんな風におかしきなる？
CGI.pmでおかしくなるとは考えにくいけど。
use CGI は2行目あたりにきちんとかいてる？
0871nobodyさん2009/02/06(金) 21:18:08ID:???
>>870　さん
はい、
use CGI;　を2行目に挿入した時点では正常に動作していますが、
3行目以降で
my $q = new CGI;
my $is_visible = $q->param('bosyu');
を挿入しますと、サブルーチンで作った画面へアクセスすることが出来なくなってしまいます。
>>856のスクリプトですと、管理画面等に入ることが出来なくなります。
その際、エラー文を吐き出すことは無く、画面が変わらずトップページのまま　といった感じです。
0872nobodyさん2009/02/06(金) 21:37:53ID:LbIRe9/S
なるほど。

それなら
＆decodeの下にその2行をいれてみて。
それでだめなら、decodeファンクションをかきかえないといけないかな。
0873nobodyさん2009/02/06(金) 22:58:05ID:???
>>852
WTCって/bin/ladenのせいで無くなっちゃったんじゃなかった？ｗ
0874nobodyさん2009/02/07(土) 01:10:56ID:???
use Carp; してるモジュールを継承してもcroakが使えないのは何故？
親が使える関数は全て子供も使えるのでは？
0875nobodyさん2009/02/07(土) 01:24:33ID:???
質問です。
既存の配布スクリプトをちょっくら改造しようと思ったのですが、
フォームの内容が空の時のみ処理をするといった部分

if( hogehoge eq "" ) {
#処理
}

これに加えてフォームの内容が特定の内容の場合も処理をするべく

if( hogehoge eq "" || hogehoge eq = "関東") {
#処理
}

このようにやったのですがフォームの内容が関東でも処理してくれません。
日本語がまずいのでしょうか？
どうか解決策をご教授くださいませ。
0876nobodyさん2009/02/07(土) 01:29:49ID:???
>>875
=はいらないんじゃ？

それより、それでエラーでないのか？
0877nobodyさん2009/02/07(土) 01:31:18ID:???
eq = はtypoだよな？
だとしたら、hogehogeの内容をprintしてみては？
0878nobodyさん2009/02/07(土) 01:37:04ID:???
hogehogeって、hogehogeなのか。
0879nobodyさん2009/02/07(土) 02:13:03ID:Bz2XlMXf
ActivePerl-5.10.0.1004-MSWin32-x86-287188.msi
をインストールして、Cからコンバートできるらしいとの情報をみつけたので
hoge.cをつくろうと、
C:\Perl\binへhoge.plをおき
プロンプトで
C:\Perl\bin>perl -MO=C hoge.pl > hoge.c
を実行したところ

Can't locate B/C.pm in @INC (@INC contains: C:/Perl/site/lib C:/Perl/lib .) at (
eval 1) line 18.
BEGIN failed--compilation aborted at (eval 1) line 18.
BEGIN failed--compilation aborted.

とでるのですが、どうやってやればよいのか非常に困っています。
どなたか何卒よろしくおねがいいいたします。
08808752009/02/07(土) 03:07:36ID:???
すみません、=はタイポです。

自己解決しようとバグフィックスして、
結果文字コードが不全だったようで
変数の文字コードを変換したら無事に動きました。

お騒がせすみませんでした。
0881nobodyさん2009/02/07(土) 04:10:24ID:???
>>879
B/C.pmは5.10から標準で無くなった。
B/C.pmを入れるか、5.8系にするかしろ。

…でも正直それだけの価値は無いよ。
コンバートが上手く行くのは、すげえ初歩のスクリプトのみ。
0882nobodyさん2009/02/07(土) 06:37:23ID:???
>>873
オプションを繋げて書くって知らないんですね、わかります。
0883nobodyさん2009/02/07(土) 06:59:37ID:???
これは酷い、ネタだと思うけど

>>873
Perlのオプション知らないの？？>>852の書いてあるのはバラしたら
-w
-T
-c
各々のオプションを一々チェックするのは時間のムダ
上のオプションを繋げて書くと
-wTc(順番は書く人によって変わる、例えば-cwTや-Tcwなんかでもおk)
必要なオプションをつけてテストするのは当然の事だが
-Tオプション知らなかったり、オプションを繋げて書くのを知らなかったり(オプションだと気付いてない？)
少しは勉強してからPerlやれよ
0884nobodyさん2009/02/07(土) 07:19:27ID:???
>>883
ここにいるのはラクダ本どころか入門書すら読んだ事無い香具師がいっぱい
いちいち驚かない方が良い
0885nobodyさん2009/02/07(土) 08:07:35ID:???
初心者スレでいちいち知識を自慢するなよせせこましい
0886nobodyさん2009/02/07(土) 08:37:19ID:???
>>874
継承したいならuse baseか@ISAを使うこと。
0887nobodyさん2009/02/07(土) 08:45:20ID:???
>>883
ってか、ネタで書いてるんだろうからそんなに怖い顔してﾚｽするなよ
0888nobodyさん2009/02/07(土) 09:21:29ID:???
>>883
/bin/ladin にもつっこんでやれよ。
0889nobodyさん2009/02/07(土) 09:23:04ID:???
/bin/laden　だった orz
0890nobodyさん2009/02/07(土) 10:40:23ID:???
>>889
つ　どんまい
0891nobodyさん2009/02/07(土) 14:01:02ID:???
こんな風に秒数から適切な時刻の形式に変換したいです。
45 -> 45
130 -> 2:10
3601 -> 1:00:01
どうしたらいいでしょうか？
DateTime->new(second => 4032)とかしたらyearとかも入れろって怒られました。
0892nobodyさん2009/02/07(土) 14:10:32ID:???
-c は syntax チェックだけで実行しながらのデバッグはできねーぜ？
0893nobodyさん2009/02/07(土) 15:08:36ID:???
>>891
#!/usr/bin/perl -w
use Scalar::Util qw(looks_like_number);
use strict;

sub sec2hhmmss {
　　my $sec = int(looks_like_number($_[0]) ? $_[0] : 0);
　　my $min = int($sec / 60); $sec %= 60;
　　my $hour = int($min / 60); $min %= 60;
　　my $time = join ':', map sprintf('%02d', $_), $hour, $min, $sec;
　　$time =~ s/^[0:]+//;
　　$time || 0;
}

print map sec2hhmmss($_) . "\n", (
　　45, 130, 3601, 86420, 'seconds', undef,
);
__END__
0894nobodyさん2009/02/07(土) 16:20:40ID:dq0WM+XP
ActivePerl Version 5.8.9.825 をいれ直して、
hoge.cをつくろうとC:\Perl\binへhoge.plをおき プロンプトで
C:\Perl\bin>perl -MO=C hoge.pl > hoge.c を実行したところ
Starting compile
Walking tree
Prescan
Tie::StdHash has method TIEHASH: saving package
Tie::Hash has method new: saving package
Tie::ExtraHash has method TIEHASH: saving package
Regexp has method DESTROY: saving package
Errno has method TIEHASH: saving package
Exporter saved (it is in Errno's @ISA)
Net::Ping has method new: saving package
Net::Telnet has method new: saving package
IO::Socket::INET saved (it is in Net::Telnet's @ISA) IO::Socket saved (it is in IO::Socket::INET's @ISA) IO::Handle saved (it is in IO::Socket's @ISA)
POSIX::SigAction has method new: saving package POSIX::Termios has method new: saving package POSIX::SigSet has method new: saving package POSIX::SigRt has method new: saving package
Saving methods
No definition for sub Fcntl::O_LARGEFILE
No definition for sub Fcntl::O_LARGEFILE (unable to autoload) No definition for sub Fcntl::F_SETLK64
No definition for sub Fcntl::F_SETLK64 (unable to autoload) No definition for sub Fcntl::F_SETOWN
No definition for sub Fcntl::F_SETOWN (unable to autoload) No definition for sub Fcntl::O_DSYNC No definition for sub Fcntl::O_DSYNC (unable to autoload)
Can't locate object method "IVX" via package "B::NV" at C:/Perl/lib/B/C.pm line
650.
CHECK failed--call queue aborted.

となり0行のCファイルができました。 どこに問題があるのでしょうか？何卒よろしくお願いします。
0895nobodyさん2009/02/07(土) 16:26:29ID:???
もとの pl さらせよバカチン
0896nobodyさん2009/02/07(土) 18:52:05ID:???
バカチンって関東ではふつうにいうの？
俺は「あたしんち」で初めて知ったから
バカチンって聞くと「あたしんち」のお母さんが
口から火を吐いてる絵が思い浮かぶ
0897nobodyさん2009/02/07(土) 19:28:54ID:???
俺はローマ教皇の姿が思い浮かぶ
■ このスレッドは過去ログ倉庫に格納されています