Perlコーディング初心者質問スレ Part 46
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2006/01/18(水) 02:17:46ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0384nobodyさん
2006/01/31(火) 22:12:12ID:POWreMm8新しいファイルlog_new.cgi書き込み、書き終わったところで古いファイルをlog_old.cgiに
rename、新しいファイルをlog.cgiにrenameとしました。
この方がメモリ使用量が少なく、書き込みの時に異常停止した場合ログ破壊が起こり
にくいと考えました。 しかしファイルのパーミッションを600にしたいのですが、open
では出来ず、sysopenでしか出来ないと知って困ってます。 パーミッションだけの
ためにファイルI/Oは全てsys*にしないとならないのでしょうか？
0385nobodyさん
2006/01/31(火) 22:34:56ID:???0387nobodyさん
2006/01/31(火) 22:44:35ID:???バッファリングの問題なんだからsysopenだけなら他はシステムコールにしなくてもいいんでは？
実際perlfaq5で以下みたいな例文でてるし。(話題そのものは別のもの)
use Fcntl qw(:DEFAULT :flock);
sysopen(FH, "numfile", O_RDWR|O_CREAT) or die "can't open numfile: $!";
flock(FH, LOCK_EX) or die "can't flock numfile: $!";
$num = <FH> || 0;
seek(FH, 0, 0) or die "can't rewind numfile: $!";
truncate(FH, 0) or die "can't truncate numfile: $!";
(print FH $num+1, "\n") or die "can't write numfile: $!";
close FH or die "can't close numfile: $!";
0389nobodyさん
2006/01/31(火) 23:06:49ID:???がーん。そうでしたか。
sysopenだと他も全部システムコールにしなくちゃいけなくてイヤって言ってるのかと思いました。
387はスルーしてください。
0390nobodyさん
2006/01/31(火) 23:21:07ID:???sysopen とどちらが楽かは微妙だが、一時的に umask を変える。
my $orig_umask = umask 077;
blah, blah, blah...
umask $orig_umask;
0391nobodyさん
2006/02/01(水) 00:00:28ID:???結果が文字化けするなら分かるけど、
動作しないってのは分からん。
>>384
IO::FileかFileHandle使うと便利。
0392384
2006/02/01(水) 01:05:17ID:ngruutodopenだけを入れ替えられるとは思いもしませんでした。 >>391も便利そうですね。
試してみます。
0393nobodyさん
2006/02/01(水) 18:32:10ID:???Use of uninitialized value in 〜
といったエラーが出てきました。
エラーが出た個所を見てみると
$in_method = $ENV{'REQUEST_METHOD'};
のように環境変数を代入してるほとんどでエラーが出ています。
環境変数から値を持ってくるときは = で代入しちゃいけないんでしょうか？
0394nobodyさん
2006/02/01(水) 18:41:34ID:???正規表現でマッチさせて代入させればいいよ。
0395nobodyさん
2006/02/01(水) 18:58:32ID:???エラーメッセージの内容とそれが出ている行番号を確かめるんだ。
http://search.cpan.org/~nwclark/perl-5.8.8/pod/perldiag.pod#Use_of_uninitialized_value%s
http://perldoc.jp/docs/perl/5.6.1/perlfunc.pod#item_defined_EXPR
#!/usr/local/bin/perl -W
use strict;
my $path = $ENV{'PATH'}; # 定義済の値
my $nvar = $ENV{'NONEXISTENT_VARIABLE'}; # 未定義の値
print "PATH:$path\n";
print "NVAR:$nvar\n";
__END__
>>394
それは -W じゃなくて -T 。
0396nobodyさん
2006/02/01(水) 19:11:50ID:???ここに注目して、環境変数も中身がちゃんとあるかどうかチェックしながら代入するようにしてみました。
エラーは無くなったものの、面倒くさいなぁｗ
0397nobodyさん
2006/02/01(水) 19:15:12ID:???エラーのあったときの記述
$in_type = $ENV{'CONTENT_TYPE'};
修正した記述
$in_type = $ENV{'CONTENT_TYPE'} ? $ENV{'CONTENT_TYPE'} : "";
CONTENT_LENGTH のときは "" じゃなくて 0 を入れるようにした。
0398nobodyさん
2006/02/01(水) 19:28:22ID:???$len = $ENV{'CONTENT_LENGTH'} or 0;
でもできるよ。
ただこの場合、偽の時は常に空になっちゃうから、
空文字列、0、未定義値を見分ける必要がある場合はやめたほうがよい。
0399nobodyさん
2006/02/01(水) 19:31:21ID:???コード自体を書き換えなくとも、未定義値の警告だけを出なくすればいい。
http://search.cpan.org/~nwclark/perl-5.8.8/pod/perllexwarn.pod
#!/usr/local/bin/perl
use strict;
use warnings qw(all);
no warnings qw(uninitialized);
print my $foo, 'foo!';
__END__
まぁ defined $var ? $var : '' するのが正道なので、これを機に全部
書き換える事をお勧めするが。
0400nobodyさん
2006/02/01(水) 19:36:37ID:???> $in_type = $ENV{'CONTENT_TYPE'} or '';
これは
($in_type = $ENV{'CONTENT_TYPE'}) or '';
こういう意味になる。
書くなら、
$in_type = $ENV{'CONTENT_TYPE'} || '';
$in_type = ($ENV{'CONTENT_TYPE'} or '');
このどちらか。
0もfalse扱いされるから扱いに注意。
0402nobodyさん
2006/02/01(水) 19:52:46ID:???$in_type = $ENV{'CONTENT_TYPE'} || '';
って書き方がいいかなと思ったんですが、
>399さんの最後の一言を考えて、
$in_type = defined($ENV{'CONTENT_TYPE'}) || '';
っていうのじゃ駄目ですか？
とか書いた瞬間に駄目と気付いたｗ
defined を使うなら
$in_type = defined($ENV{'CONTENT_TYPE'}) ? $ENV{'CONTENT_TYPE'} : '';
ぐらいにしからないですかね。
とりあえず
$in_type = $ENV{'CONTENT_TYPE'} || '';
が見た目的にも、自分てきには見やすいかな
0403nobodyさん
2006/02/01(水) 19:55:44ID:???0404nobodyさん
2006/02/02(木) 02:58:46ID:???@k=split(/\\/,$test);
$testの中身を\で分割したいんだけど↑じゃできねぇ
何かいい方法ない？
0405nobodyさん
2006/02/02(木) 03:08:11ID:???0407nobodyさん
2006/02/02(木) 14:40:58ID:???0408nobodyさん
2006/02/02(木) 23:57:22ID:6Tw8pfAF#!/usr/bin/perl -w
use strict;
use LWP 5.64;
my $word = shift;
$word or die "Usage: perl altavista_post.pl [keyword]\n";
my $browser = LWP::UserAgent->new;
my $url = 'http://www.altavista.com/web/results';
my $response = $browser->post( $url,
[ 'q' => $word, # the Altavista query string
'pg' => 'q', 'avkw' => 'tgz', 'kl' => 'XX',
]
);
die "$url error: ", $response->status_line unless $response->is_success;
die "Weird content type at $url -- ", $response->content_type
unless $response->content_type eq 'text/html';
if ( $response->content =~ m{ found ([0-9,]+) results} ) { print "$word: [RETURN]
$1\n"; }
else { print "Couldn't find the match-string in the response\n"; }
↑のようなコードが出てきたんでコピペしてDosプロンプトで実行したら
C:\Perl\bin>perl altavista_post.pl tarragon
http://www.altavista.com/web/results error: 302 Found at altavista_post.pl line 13.
のようなエラーが出ました。どこが間違ってるのでしょうか？
Windowsで通るようにするにはどうすればいいのでしょうか？
0409nobodyさん
2006/02/03(金) 00:03:11ID:???斜め読みだけど、302が返ってきてるからリダイレクト指示でしょ。
んで、そのスクリプト200以外の応答は全部エラーにしてるみたい。
というわけで、$urlの値の末尾に/つければいけるんじゃない。
0410nobodyさん
2006/02/03(金) 00:07:29ID:PieRIOHfAltavistaってまだあったんだw
このコードはどこでも動かないよ。 サイトの仕様が変わってる。見てみたらいまじゃ
Yahooに投げてるだけ。
0411408
2006/02/03(金) 00:11:00ID:HpXFHvtB即レスありがとうございました。>>409-410
0412無知ですまそ
2006/02/03(金) 02:46:12ID:SfkSG4GRパスワードチェックで
if ($FORM{'pass'} ne 'aaa') { &error("パスワードが違います"); }
としたのだけど、aaaとbbb以外は違うとするにはどうすればいいのか教えてください。
0413nobodyさん
2006/02/03(金) 02:55:40ID:???0414無知ですまそ
2006/02/03(金) 02:58:13ID:SfkSG4GR0415無知ですまそ
2006/02/03(金) 03:02:22ID:SfkSG4GR0416nobodyさん
2006/02/03(金) 07:47:24ID:???if ($FORM{'pass'} ne 'aaa' || $FORM{'pass'} ne 'bbb')
0418nobodyさん
2006/02/03(金) 10:40:30ID:???unless ($valid_pass{$FORM{'pass'}}) { &error("..."); };
0419nobodyさん
2006/02/03(金) 12:33:50ID:???こつこつとif文しか使ってないや。
0420nobodyさん
2006/02/03(金) 13:25:53ID:???っていうだけのことじゃなくて？
0421418
2006/02/03(金) 15:53:17ID:???条件式が単純な場合は unless の方が「〜でない」という意図がハッキリ伝わる
ような気がするので unless を使うようにしている。
変かな？
0422nobodyさん
2006/02/03(金) 16:10:15ID:???0423nobodyさん
2006/02/03(金) 19:06:09ID:???if ( not hoge ) { kuso; }
しか使わない漏れが来ましたよ。
0426nobodyさん
2006/02/04(土) 14:26:20ID:???せっかくあるんだし、そういう条件付ならいいかも。
ただ、ほとんどの場合は if ＋ !式 の組み合わせの方が
タイプが少なくて済むんだよね。
until は while と同じだからいいんだけど。
0427nobodyさん
2006/02/04(土) 14:29:47ID:???if ( hoge ) { unko; } else { kuso; }
でいいんじゃないのか？
0428nobodyさん
2006/02/04(土) 15:04:46ID:???この二つのパターンしか使ってないよ
っていう意味じゃないの？
0429nobodyさん
2006/02/04(土) 23:39:17ID:???BBB
CCC
DDD
EEE
↓
├AAA
│ └BBB
│ ├CCC
│ └DDD
└EEE
階層は無限。
どういうコーディングすればよいのかちょっと分からないのでお助けを．．．
0430nobodyさん
2006/02/05(日) 00:37:52ID:???質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
0431nobodyさん
2006/02/05(日) 01:13:47ID:???たぶんインデントされたものを罫線付きで表示したい
って意味だと思うの
0432nobodyさん
2006/02/05(日) 01:15:08ID:???階層数を記憶しておいて、それに見合った「│ 」やら「└」を出力すればおｋ
0433nobodyさん
2006/02/05(日) 01:37:06ID:???0434429
2006/02/05(日) 02:17:56ID:???やりたいことは、エスパー魔美ﾀﾝの言う通りです。>>431 >>433
行毎に文字列が書かれている
インデント無しなら1階層目、インデント1つなら2階層目、インデント2つなら3階層目・・・∞
「│」「├」「└」を使用して全て繋がっている木構造を出力する
かなりの難問です。ｽﾐﾏｾﾝ。
0435nobodyさん
2006/02/05(日) 02:18:04ID:???うーん、汚い。
my @result;
my $maxdepth = 0;
while(<DATA>){
/( *)(.*)/s;
my $depth = length $1;
push @result, [(" ")x($depth+1), $2];
$maxdepth = $depth if $maxdepth < $depth;
}
for my $d ( 0 .. $maxdepth ){ # $d=注目階層
my @class = grep { 2+$d == scalar @{$result[$_]} } 0..$#result;
$result[$_][$d] = "┃" for $class[0] .. $class[-1];
$result[$_][$d] = "┣" for @class;
$result[ $class[-1] ][$d] = "┗";
}
print join '',@$_ for @result;
__DATA__
AAA
BBB
CCC
DDD
EEE
0436429
2006/02/05(日) 02:36:19ID:???デキタ！と思ったら反例が見つかったのでご報告。ｽﾐﾏｾﾝ
AAA
BBB
CCC
DDD
EEE
FFF
GGG
0437nobodyさん
2006/02/05(日) 03:05:55ID:???ＡＢ
ＡＢＣ
ＡＢＤ
ＡＢＥ
ＡＢＥＦ
Ｇ
ループしながらスタックでこんなの作ってやれば
親が末っ子かどうかで" "か"┃"を塗り分けて
自分が末っ子かどうかで"┗"か"┣"を塗り分けられそうだ
後はパス
0438nobodyさん
2006/02/05(日) 03:38:38ID:???んで再起で呼ぶときに行頭のスペースの数を渡してやって、それに一致しなければ抜けるようにすればいい
と思う
明日中に解決してなければ、まぁ微妙に面白そうだしやってみようかなとか思う
0439nobodyさん
2006/02/05(日) 07:20:36ID:V48VHYZU１．$wordの文字列から6バイト目以降か7バイト目以降を削除したい
２．5バイト目が半角英数字なら6バイト目以降を削除（つまり1〜5バイト目残し）
３．5バイト目が日本語コードなら7バイト目以降を削除（つまり1〜6バイト目残し）
どうやれば一番効率がいいですか？
0440nobodyさん
2006/02/05(日) 08:54:14ID:???0441nobodyさん
2006/02/05(日) 09:45:39ID:???my $level = -1;
my @stack;
my $base = (my $p = [['*root*', []]]);
while(<DATA>){
m/^( *)(.*)$/;
my $count = length($1);
if ($count > $level){
$count > ($level+1) and die "Illegal data.";
push(@stack, $p);
$p = @{$p}->[-1]->[1];
} elsif ($count < $level){
foreach(1..($level-$count)){
$p = pop(@stack);
}
}
$level = $count;
push(@{$p}, [$2, []]);
}
array_dump($base->[0]->[1], '');
0442441
2006/02/05(日) 09:48:46ID:???{
my ($p, $marker) = @_;
my $mark = ['├', '│'];
foreach(0..$#{$p}){
$_ == $#{$p} and $mark = ['└', ' '];
print $marker, $mark->[0], $p->[$_]->[0], "\n";
@{$p->[$_]->[1]} and array_dump($p->[$_]->[1], $marker. $mark->[1]);
}
}
__END__
AAA
BBB
CCC
DDD
EEE
FFF
GGG
0443nobodyさん
2006/02/05(日) 10:33:20ID:V48VHYZU$word =~ s/^....[0-9]/^...../g; …？
0445nobodyさん
2006/02/05(日) 11:27:05ID:V48VHYZUだめぽなんです
0446nobodyさん
2006/02/05(日) 11:35:15ID:V48VHYZUあれ書きかけで送信してしまった
いちおう自分でどうにか書いたんですが\x81が
おかしくなるんですよね
$words = substr($word,0,6);
if ($words =~ m/^....[\x20-\x7f\xa0-\xdf]/)
{
$words = substr($words,0,5);
}else {
$words;
}
0447nobodyさん
2006/02/05(日) 11:40:22ID:???0448nobodyさん
2006/02/05(日) 11:45:31ID:V48VHYZU”どこを”ですか？
0449nobodyさん
2006/02/05(日) 11:47:52ID:???0451nobodyさん
2006/02/05(日) 12:17:55ID:???0453nobodyさん
2006/02/05(日) 12:48:54ID:???0454nobodyさん
2006/02/05(日) 12:51:06ID:???正規表現を使うことすら頭に出てこないお子様なんだろうがな
おっと触っちまった、以下スルーよろ
0455nobodyさん
2006/02/05(日) 13:12:20ID:EWGu37QNその程度の知識でいきがってるようじゃw
0456nobodyさん
2006/02/05(日) 13:25:38ID:???0457nobodyさん
2006/02/05(日) 13:29:19ID:???0458nobodyさん
2006/02/05(日) 13:34:12ID:???0459429
2006/02/05(日) 22:55:31ID:???華麗なコーディングありがとうございました。
完璧です。多重配列を使いこなせる人はスゴイ。
自分もいろいろと考えてみた結果
・自分の状態("└"か"├")
・自分の全ての親の状態("│"か" ")
が分かれば木構造が作れるのに気付いたので
1. 逐次走査して全項目の状態("└"か"├")を調べて記録する
2. もう一度逐次走査して親の情報を作りながら木構造を作っていく
とすることで目的の処理ができました。(再帰と多重配列は使わず)
お世話になりましたー。
0460nobodyさん
2006/02/06(月) 11:55:45ID:kZ4iy7FBhtmlのtextareaの内容を入力として、外部の実行ファイル(例えばsort等)に投げて、
htmlとして出力を得るような方法はありますか？
perlコーディングと関係ないかもしれませんがよろしくお願いします。
0461nobodyさん
2006/02/06(月) 12:16:51ID:???>>1
> 1： 自分はこういう事がしたい。
> 2： それでこんな風にやってみたが･･･
> 3： こんなエラーが出て上手く行かなかった。
■こんなCGI作ってください■ Part.2
http://pc8.2ch.net/test/read.cgi/php/1133361560/
0462nobodyさん
2006/02/06(月) 18:28:41ID:???そのコードを見てみたかったな。
考えてみたけど、こんなのしか考えつかなかった。
my @data;
my $max = -1;
while(<DATA>){
m/^( *)(.*)$/;
my $level = length($1);
push(@data, [$level, $2, '']);
($level > $max) and $max = $level;
}
foreach my $level (0..$max){
my $found = 0;
foreach(reverse(0..$#data)){
if ($data[$_]->[0] < $level){
$found = 0;
} elsif ($data[$_]->[0] == $level){
$data[$_]->[2] .= ($found ? '├' : '└');
$found = 1;
} else {
$data[$_]->[2] .= ($found ? '│' : ' ');
}
}
}
foreach(0..$#data){
print @{$data[$_]}[2, 1], "\n";
}
0463429
2006/02/06(月) 23:52:11ID:???#勉強がてらに多重配列を使ってみました
while (<DATA>) {
m/^( *)(.*)$/;
$now = length $1;
push @data, [$now, $2, 0]; # [階層の深さ, 項目名, "├"なら0、"└"なら1]
$tmp[$now] = $.-1; # 階層毎に一番最後に出現した行の「行番号-1」を記録
$max = $now if $now > $before;
if ($now < $before) {
$data[$tmp[$_]][2] = 1 for $now+1..$max;
$max = $now;
}
$before = $now;
}
$data[$_][2] = 1 for @tmp;
$before = 0;
@tree = ('│', ' ', '├', '└');
for (0..$#data) {
$now = $data[$_][0];
if ($now > $before) { push @parent, $data[$_-1][2]; }
elsif ($now < $before) { pop @parent for 1..$before-$now; }
print $tree[$_] for @parent;
print $tree[$data[$_][2]+2], $data[$_][1], "\n";
$before = $now;
}
0464nobodyさん
2006/02/07(火) 01:09:36ID:???なるほど。
> if ($now < $before) {
> $data[$tmp[$_]][2] = 1 for $now+1..$max;
> $max = $now;
> }
この処理で、一回のループで行けるわけですね。
ありがとう。
0465nobodyさん
2006/02/07(火) 06:10:53ID:wug3jbil1： 自分はこういう事がしたい。→ 計算機
2： それでこんな風にやってみたが･･･ → やってみましたけど…
3： こんなエラーが出て上手く行かなかった。
→ 2**64 = 1.84467440737096e+019
実数ではなくてこんななっちゃいましたorz
アドバイスお願いします
0466nobodyさん
2006/02/07(火) 06:19:53ID:???0467nobodyさん
2006/02/07(火) 06:28:08ID:wug3jbilこんな時間にありがとうございます
多倍長整数なんて初めて聞きました
bigintをどうすればおｋなんでしょうか？
0468nobodyさん
2006/02/07(火) 06:28:57ID:???0469nobodyさん
2006/02/07(火) 06:32:44ID:wug3jbil#!/usr/bin/perl
use bigint
↑たったこれだけっすか？
0470nobodyさん
2006/02/07(火) 06:35:16ID:???";" を忘れずに
0471nobodyさん
2006/02/07(火) 06:38:16ID:???$ perl -e "use bigint;print 2**64;"
18446744073709551616
0472nobodyさん
2006/02/07(火) 06:39:39ID:wug3jbilん〜エラーになるんですよね…
Error 500
CGI エラー - Content-Type ヘッダが正しくありません。
CGI 出力メッセージ:
Can't locate bigint.pm in @INC (@INC contains: C:/Perl/lib C:/Perl/site/lib .)
at C:\httpd\www\tes.cgi line 3.
BEGIN failed--compilation aborted at C:\httpd\www\tes.cgi line 3.
0473nobodyさん
2006/02/07(火) 06:41:39ID:???＿＿＿＿ ､ミ川川川彡
／:::::::::::::::::::::::::""'''-ミ 彡
//, -‐―､:::::::::::::::::::::三 ギ そ 三
＿＿_ 巛/ ＼::::::::::::::::三. ャ れ 三
＿-=三三三ミミ､.//! ｌ､:::::::::::::三 グ は 三
=＝三＝￣ 《|ll|ﾆヽ l∠三,,`＼＼::三 で 三
/ |||"''》 ''"└┴‐` `ヽ三 言 ひ 三
! | / 三 っ ょ 三
|‐-､:::､∠三"` | ヽ= U 三. て っ 三
|"''》 ''"└┴` | ゝ―- 三 る と 三
| / ヽ "" ,. 三 の し 三
| ヽ= ､ U lヽ､＿__,,,...-‐''" 三 か て 三
. | ゝ―-'′ | |::::::::::::＿,,,...-‐'"三 !? 三
ヽ "" ,. | |￣￣￣ 彡 ミ
ヽ､＿__,,,...-‐''" ,,..-'''~ 彡川川川ミ
厂| 厂‐'''~ 〇
|￣＼| ／
0475nobodyさん
2006/02/07(火) 06:52:10ID:???0476nobodyさん
2006/02/07(火) 06:55:34ID:wug3jbilもダメぽ・・
5.6…だたよﾏﾏﾝ
0477nobodyさん
2006/02/07(火) 13:36:58ID:???print "content-type: text/plain; charset=Shift_JIS\n\n";
Shift_JIS のところは編集してるファイルの文字コードにあわしてね
0479nobodyさん
2006/02/07(火) 14:04:11ID:???いい加減にしろよ
0480nobodyさん
2006/02/07(火) 14:26:12ID:???それかコンソールで確認するか…
0481nobodyさん
2006/02/07(火) 14:33:11ID:???require "./jisaku.pl";
などファイルをインクルードする文を実行する命令を付け足すと、画面が真っ白になってどうにもなりません。
require命令を消して実行すると上手くいきますが、
どうしてもファイルを分割してコーディングしたいです。
どうにかなりませんか。
0482nobodyさん
2006/02/07(火) 14:36:58ID:???■ このスレッドは過去ログ倉庫に格納されています