Perlコーディング初心者質問スレ Part 58
レス数が900を超えています。1000を超えると表示できなくなるよ。
0001nobodyさん
2008/08/06(水) 22:54:32ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
お勧めサイトは >2 以降
前スレ http://pc11.2ch.net/test/read.cgi/php/1203935151/
過去ログ倉庫 ttp://user.ftth100.com/mirrorhenkan/perl/
0851nobodyさん
2009/02/06(金) 15:37:21ID:???0853nobodyさん
2009/02/06(金) 16:29:24ID:???0ならば、登録フォームを表示させない。
1か0かは、管理人用ページから設定することができる。 という感じでPerlを組みたいのですが、
まだまだ初心者でよく分かりません。
一応、
<input type=radio name=bosyu value=1>表示する
<input type=radio name=bosyu value=1>表示しない
というフォームを作り、登録フォームの表示部分に、
if ( $bosyu == 1 ){
#登録フォーム
}
else {}
というようにしました。
しかし、管理人画面から1にしようが0にしようが、登録フォームはどのみち消えてしまいました。
この場合、どうしたらよいのでしょう？；
0854853
2009/02/06(金) 16:30:28ID:???正しくは、
<input type=radio name=bosyu value=0>表示しない
でした。申し訳ありませんが、ご教示願いますm(_ _)m
0855nobodyさん
2009/02/06(金) 16:36:45ID:???ＵＲＬデコード的なものをしてないんじゃ？
0856nobodyさん
2009/02/06(金) 16:46:23ID:???ありがとうございます。m(。。；)m
URLデコード・・・ですか？今から検索かけてみます；
もしよろしければ、
http://www.77c.org/d.php?f=nk5918.lzh
に本体をアップロードしましたので、修正箇所など教えていただけますと助かります。
私自身が追加しましたのは、行381,行382,行678,行683,行684 になります。
0857nobodyさん
2009/02/06(金) 16:51:07ID:???0858nobodyさん
2009/02/06(金) 17:05:24ID:???ってやりたいなら明示的に int(入力値) ってやったほうがいい
でなけりゃ 0 or 1 じゃなくて TRUE or FALSE にして、eq を使うとか
0859nobodyさん
2009/02/06(金) 17:08:50ID:???ありがとうございます。
やってみましたが、やはり0,1に関わらず登録フォームが消えてしまいました；
>>858 さん。
ありがとうございます。
今からやってみたいと思います。
0861nobodyさん
2009/02/06(金) 17:33:20ID:???http://pc11.2ch.net/test/read.cgi/php/1143834740/
0862nobodyさん
2009/02/06(金) 17:36:41ID:???0863nobodyさん
2009/02/06(金) 19:09:08ID:???そんなこと無いだろうさすがに
と思ったけど、これは酷いｗ
$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
0865853
2009/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:???ありがとうございます。
CGI.pmは先ほど試したのですが、使うとCGI自体の動作がおかしくなってしまうので
使えませんでした。
サーバーはWinXPのApache2で、Perl5を使用しています。
0870nobodyさん
2009/02/06(金) 21:08:43ID:LbIRe9/SCGI.pmでおかしくなるとは考えにくいけど。
use CGI は2行目あたりにきちんとかいてる？
0871nobodyさん
2009/02/06(金) 21:18:08ID:???はい、
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ファンクションをかきかえないといけないかな。
0874nobodyさん
2009/02/07(土) 01:10:56ID:???親が使える関数は全て子供も使えるのでは？
0875nobodyさん
2009/02/07(土) 01:24:33ID:???既存の配布スクリプトをちょっくら改造しようと思ったのですが、
フォームの内容が空の時のみ処理をするといった部分
if( hogehoge eq "" ) {
#処理
}
これに加えてフォームの内容が特定の内容の場合も処理をするべく
if( hogehoge eq "" || hogehoge eq = "関東") {
#処理
}
このようにやったのですがフォームの内容が関東でも処理してくれません。
日本語がまずいのでしょうか？
どうか解決策をご教授くださいませ。
0877nobodyさん
2009/02/07(土) 01:31:18ID:???だとしたら、hogehogeの内容をprintしてみては？
0878nobodyさん
2009/02/07(土) 01:37:04ID:???0879nobodyさん
2009/02/07(土) 02:13:03ID:Bz2XlMXfをインストールして、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.
とでるのですが、どうやってやればよいのか非常に困っています。
どなたか何卒よろしくおねがいいいたします。
0880875
2009/02/07(土) 03:07:36ID:???自己解決しようとバグフィックスして、
結果文字コードが不全だったようで
変数の文字コードを変換したら無事に動きました。
お騒がせすみませんでした。
0881nobodyさん
2009/02/07(土) 04:10:24ID:???B/C.pmは5.10から標準で無くなった。
B/C.pmを入れるか、5.8系にするかしろ。
…でも正直それだけの価値は無いよ。
コンバートが上手く行くのは、すげえ初歩のスクリプトのみ。
0883nobodyさん
2009/02/07(土) 06:59:37ID:???>>873
Perlのオプション知らないの？？>>852の書いてあるのはバラしたら
-w
-T
-c
各々のオプションを一々チェックするのは時間のムダ
上のオプションを繋げて書くと
-wTc(順番は書く人によって変わる、例えば-cwTや-Tcwなんかでもおk)
必要なオプションをつけてテストするのは当然の事だが
-Tオプション知らなかったり、オプションを繋げて書くのを知らなかったり(オプションだと気付いてない？)
少しは勉強してからPerlやれよ
0885nobodyさん
2009/02/07(土) 08:07:35ID:???0889nobodyさん
2009/02/07(土) 09:23:04ID:???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:???0893nobodyさん
2009/02/07(土) 15:08:36ID:???#!/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+XPhoge.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:???0896nobodyさん
2009/02/07(土) 18:52:05ID:???俺は「あたしんち」で初めて知ったから
バカチンって聞くと「あたしんち」のお母さんが
口から火を吐いてる絵が思い浮かぶ
0897nobodyさん
2009/02/07(土) 19:28:54ID:???0899nobodyさん
2009/02/07(土) 19:57:50ID:3N01Kgc2ググッて見つけた方法をいくつかテストしてみたのですが、全てダメでした。
例：「２ちゃんねる」を「2ちゃんねる」に変換したい。
・テストコードその１（正攻法）
my $txt = '２ちゃんねる';
$txt =~ tr/０－９/0-9/;
結果：文字化け 「0Q0ｿ000ﾋ0」
・テストコードその２（Jcodeを使うといいらしい？）
use Jcode;
my $txt = '２ちゃんねる';
my $txt2 = jcode($txt)->tr('０－９', '0-9');
結果：文字化け 「｣ｲ､d网ﾍ､」
・テストコードその３（tr('[０-９]', '[0-9]')はEUCでないとだめ。スクリプトがSJISの場合は変換必要らしい？）
use Jcode;
my $txt = '２ちゃんねる';
my $from = jcode('０－９')->euc;
my $to = jcode('[0-9]-')->euc;
my $txt2 = jcode($txt)->tr($from, $to);
結果：文字化け 「｣ｲ､d网ﾍ､」
・テストコードその４（スクリプトをEUCにしてjcode.pl使用）
require './jcode.pl';
my $txt = '２ちゃんねる';
jcode::tr(\$txt, '０-９', '0-9');
結果：「２」はOKだが、日本語が文字化け 「2､d网ﾍ､」
どのようにしたら、うまく変換できるでしょうか。
0900899
2009/02/07(土) 19:59:02ID:???「ム板の質問スレってなくなったんでしょうか？」と書くつもりでした。
0901nobodyさん
2009/02/07(土) 20:06:47ID:???0902nobodyさん
2009/02/07(土) 20:18:17ID:???http://www.namazu.org/~tsuchiya/perl/perl-5.8.html
0903nobodyさん
2009/02/07(土) 20:19:34ID:???@num{qw(０ １ ２ ３ ４ ５ ６ ７ ８ ９)}= (0 .. 9);
$s=~ s/(\x82[\x4f-\x58]|[\x81-\x9f\xe0-\xfc].|.)/$num{$1} ne '' ? $num{$1} : $1/ges;
でどうよ
0904899
2009/02/07(土) 20:44:36ID:???馬鹿馬鹿しい話ですが tr('０－９', '0-9'); の「０－９」の真ん中のハイフンまで大文字になっていました・・・。
ここを直してSjisで出力したら、テストコード３でOKでした。
use Jcode;
my $txt = '２ちゃんねる';
my $from = jcode('０-９－')->euc;
my $to = jcode('0-9-')->euc;
my $txt = jcode($txt)->tr($from, $to)->sjis;
Jcodeを使ったのは、ググッて見つけた解説がほとんどJcode使用ばっかりだったからです。
Encodeを使った場合、trするのはどうすればいいんでしょうか。
0905nobodyさん
2009/02/07(土) 20:47:14ID:???0907nobodyさん
2009/02/08(日) 01:46:54ID:???DateTime使ってるんなら簡単な関数作ればいいんじゃね？
#!/usr/bin/perl
use strict;
use warnings;
use DateTime;
my $tz = DateTime::TimeZone->new( name => 'local' );
sub s2dt {
my $duration = shift;
my $now = DateTime->now( time_zone => $tz )->epoch;
my $duration_dt = DateTime->from_epoch( epoch => $now + $duration - $now );
return $duration_dt->hms;
}
use Data::Dumper;
print Dumper s2dt(45); # $VAR1 = '00:00:45';
print Dumper s2dt(130); # $VAR1 = '00:02:10';
print Dumper s2dt(3601); # $VAR1 = '01:00:01';
0908nobodyさん
2009/02/08(日) 12:20:52ID:???ドキュメントの読みの浅さが露呈して申し訳ないです。
ありがとうございました。
が、>>891をやるには、単純に
DateTime->from_epoch(epoch => 3601)
でいけると思ったのですが、
> my $duration_dt = DateTime->from_epoch( epoch => $now + $duration - $now );
はどんな意味があるのですか？
0909nobodyさん
2009/02/08(日) 18:14:28ID:bk/uRgIM0910nobodyさん
2009/02/08(日) 18:30:44ID:???0911nobodyさん
2009/02/08(日) 18:38:25ID:???あれですあれ。perlはどうやってやるのですか？
0912nobodyさん
2009/02/08(日) 18:47:33ID:???0913nobodyさん
2009/02/08(日) 18:55:22ID:???0915nobodyさん
2009/02/08(日) 18:59:30ID:???0916nobodyさん
2009/02/08(日) 19:11:47ID:???http://www.kt.rim.or.jp/~kbk/perl-5.8/perlfaq9.html#how_can_i_get_better_error_messages_from_a_cgi_program
とりあえず、こっちも。
http://perldoc.jp/docs/perl/5.10.0/perldebtut.pod
0917nobodyさん
2009/02/08(日) 22:13:41ID:???自分はこう書いてます。
if () {
} elsif () {
} else {
}
0919nobodyさん
2009/02/08(日) 23:40:09ID:???あ。ごめん$nowいらないな
最初違うやり方で作った後に「差を出せばいっか」ってことに気づいてやったんだけど、
epoch => $duration
だけあればいいね
0920nobodyさん
2009/02/09(月) 00:03:20ID:???If () {
}
elsif () {
}
else {
}
制御文の頭が常に一列目に来るようにこんな感じで。
()の両側には１スペースを入れる。
0921nobodyさん
2009/02/09(月) 00:46:19ID:???} elsif () {
} else {
}
おれはこんな感じ
スタートとエンドが同じタブ位置って考えると、これが自然かなと自分では思ってる。
0922nobodyさん
2009/02/09(月) 03:06:32ID:???if()
{
}
elsif()
{
}
else
{
}
0923nobodyさん
2009/02/09(月) 03:12:05ID:???俺はこう。
if () { }
elsif () { }
else { }
嫌なんだよ、改行が。cssとかもいつもこう書いてる。
0927nobodyさん
2009/02/09(月) 11:44:49ID:???0928nobodyさん
2009/02/09(月) 13:11:50ID:???0931nobodyさん
2009/02/10(火) 00:31:04ID:???0937nobodyさん
2009/02/10(火) 17:59:35ID:???0938nobodyさん
2009/02/11(水) 01:12:17ID:DSvC+HT2for (my $i=0;$i<$num;$i++) {}
for my $i (0..$num-1) {}
# 両方ともしっくりこないのですが、妙案ありませんか?
# ruby の (0...5) みたいなのが希望です
0939nobodyさん
2009/02/11(水) 01:26:15ID:???0940nobodyさん
2009/02/11(水) 01:35:21ID:DSvC+HT2レスありがとうございます。
今回は配列の添字で$iを使いたいのです。説明足らずですいません。
# かといって$[を書き換えるような事はしたくないのでw
0941nobodyさん
2009/02/11(水) 01:40:31ID:???0942nobodyさん
2009/02/11(水) 04:51:02ID:???0943nobodyさん
2009/02/11(水) 06:47:14ID:???0944nobodyさん
2009/02/11(水) 09:12:53ID:???0945nobodyさん
2009/02/11(水) 09:35:29ID:???for(0 .. 4){
my $i = $_;
・・・・
}
0946nobodyさん
2009/02/11(水) 10:55:50ID:???my $num = 5;
my $n = $num-1;
for my $i (0 .. $n) {}
0947nobodyさん
2009/02/11(水) 13:33:22ID:???
レス数が900を超えています。1000を超えると表示できなくなるよ。