くだすれPerl（超初心者用）3

**nobodyさん** · 2009/03/31(火) 22:20:27

このスレッドは、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Perl使いが優しくコメントを返しますが、
お礼はPerlの布教と初心者の救済をお願いします。

前スレ
くだすれPerl（超初心者用）2
http://pc11.2ch.net/test/read.cgi/php/1204488452/

関連スレ
Perlについての質問箱 39箱目
http://pc12.2ch.net/test/read.cgi/tech/1234181856/
Perlコーディング初心者質問スレ Part 59
http://pc11.2ch.net/test/read.cgi/php/1234752149/
【Perl上級者コーナーPart01】
http://pc11.2ch.net/test/read.cgi/php/1024741312/

**nobodyさん** · 2009/03/31(火) 22:23:20

ＰＥＲＬ（笑笑笑笑笑笑笑笑笑笑笑笑笑笑笑笑笑笑笑笑笑笑笑笑笑笑笑笑笑笑笑笑笑）

時代はPHPですよ
化石ども必死だな

**nobodyさん** · 2009/04/02(木) 16:40:02

>>1乙

と言っておこう

**nobodyさん** · 2009/04/02(木) 16:46:23

ブログではなく、自身のホームページにコメント欄を設置したいのですが、
コメントを送信したら自動的にhtmlに上書きされてページがリロードされるような
プログラムはどのように書けば良いですか？

考え方を教えていただければ自分で勉強しながら作ってみようと思いますので
どうかよろしくお願いします。

**nobodyさん** · 2009/04/02(木) 18:30:57

表示したいHTMLがindex.htmlだとして、例えばindex_source.htmlを別に用意して
中に「#####REPLACE_HERE#####」みたくユニークな文字列を生めておく。
そこをコメントで置換してindex.htmlに上書きする。

**nobodyさん** · 2009/04/02(木) 22:09:04

大昔のCGIのようなperlしか知らなかったので
最近オブジェクト指向を勉強しているのですが、なかなか理解できません。

たとえばタブ区切りテキストの外部ファイルを読み込んで
それぞれのデータを車というオブジェクトにして処理をしたい場合、

use Car;

sub new {
my $class = shift;
....
}

とコンストラクタを作って、テキストから読み込んだデータを引数とした
オブジェクトを作っていくことになると思うのですが、
すべてのデータに対してオブジェクトを作成するには

my @cars;
while (@lines) {
my ($name, $price, ....) = split /¥t/;
my $obj = new Car $name, $price, ...;
push @cars, $obj;
}

といった処理を行うことになるのでしょうか。
解説サイトなどを読むと、なんだか違うような気もするのですが
こういう具体的な使い方に関する記載のあるサイトが見つかりません。

この理解で正しいかどうか、正しくないならどういった用法が正しいのか
ご教示いただければ有り難いです。よろしくお願いします。

**nobodyさん** · 2009/04/02(木) 23:03:49

例が所々気になるのは横に置くとして…。

そりゃ「オブジェクト指向側（モジュールね）」のコーディング次第だろ。
呼び出し側は、オブジェクト指向側の説明を読んでその指示通りに
コーディングするしかない。
あなたが使いたいモジュールがあるならその説明を読めば良いし、
オブジェクト指向側のコーディングをしたいなら、どうするか明確に決めて
作成すれば良い。

具体的には、その例で、package Car （だよね）がセル単位で処理する
（=行毎）なら、呼び出し元でも、行単位でオブジェクトを作成して、
行単位で処理せざるを得ない。

**nobodyさん** · 2009/04/02(木) 23:05:00

ああ、上げちまったorz...

**nobodyさん** · 2009/04/03(金) 02:33:22

俺もオブジェクト指向は初心者ですが…

まずコンストラクタにはハッシュにして渡すのが一般的だと思う
ブレスするときどーせハッシュにするんだから、渡すときもハッシュのがメモリ的にも都合がいいんじゃないかな

6 · 2009/04/03(金) 03:50:19

>>7
何をやりたいのか書いてませんでしたね、ごめんなさい。

やりたいのは車のデータを各パラメータごとに比較したり
条件に合うものを抽出したりしつつ、
データに変更を加えて保存し直したりといった作業なんです。
なので、読み込んだデータを元に
その分だけのオブジェクトを生成する必要があるのかなと考えました。
既存モジュールの使用は今のところ考えていません。

>>9
確かに、ハッシュにして受け渡すのが一般的ですね。失念していました。
サンプルのコードもぐだぐだです…申し訳ないorz

**nobodyさん** · 2009/04/03(金) 11:27:31

>>5
遅くなりましたが、どうもありがとうございます。
試してみます

**nobodyさん** · 2009/04/04(土) 05:04:43

>>10
sqlとの連携は考えてないと

じゃあインスタンス変数には車一台一台よりも車のデータ全部と条件を入れるようにした方がいいかも

{
　cars => [{一台目のデータ色々}, {二台のデータ色々},…],
　condition => {limit => 120, offset => 60…},
}
こんな感じのハッシュ作ってbless
空のハッシュをblessしてから色々付け足してもいい
条件は変更可能なようにセッターを作っておく
読み出し先が決まってるならnew内でハッシュの形に変換してやるだけでいいから引数には条件以外渡す必要はない
こうしてやると比較メソッドも抽出メソッドも車オブジェクトを２つ作って～ってやるより簡単に実装できると思う
ここではカタログを作る方が絶対に正しい

知らんけどな

**nobodyさん** · 2009/04/04(土) 12:46:52

全くの初心者です。
とりあえず本に書いてあるとおりに打ち込んでるんですが、

require 'cgi-lib.pl';

と言う文に関してですが、「cgi-lib.pl」というファイルは普通パールをインストールしたときに入っているものなのでしょうか？
どこを探しても見つからないのですが。
パールは5.8.8を使ってます。

**nobodyさん** · 2009/04/04(土) 13:07:00

cgi-lib.plでぐぐれば鬼のようにヒットする

**nobodyさん** · 2009/04/04(土) 13:08:15

>>14
そうなんですか；
すみませんでした。
検索してきます。

**nobodyさん** · 2009/04/13(月) 12:18:35

すいません。初心者です。

$hoge = ($hoge1, $hoge2)[$hoge3];

という記述が出てきたのですが、よく意味がわかりません。
$hogeにはどういう値が入るのでしょうか。
よろしくお願いします。

**nobodyさん** · 2009/04/13(月) 12:26:48

print $hoge;すればわかるよ

**nobodyさん** · 2009/04/13(月) 19:01:36

my @list = ('hoge', 'huga');
print $list[0];

これは分かるよな？

my ($foo, $bar) = ('hoge', 'huga');
print $foo;

これも分かるよな？

my $baz = ('hoge', 'huga')[0];
print $baz;

じゃぁ、これも分かるよな？

**nobodyさん** · 2009/04/13(月) 22:37:57

質問です。txt形式の100個以上のデータが一つのフォルダに入っていて、
これを全部開いてその内容を一つのデータにまとめたいです。
yahoo知恵袋を参考にしたところ、コマンドプロンプト上で表記する場合は
while(<*.data>)
{
## $_には、*.DATAなファイル名が格納されている。
open(F,"$_"); ##openする。
while(<F>)
{
##読み出された内容が$_に格納されている。
print $_; ##出力してみる。
}
}

でよい、とされていました。なのでmatome.txtというファイルに展開するとして
open(F1,">matome.txt")
while(<*.txt>)
{
open(F2,"$_");
while(<F2>)
{
print F1 $_;
}
}

としたところ延々と一部を除いたデータだけの書き込みを行ってしまいました。
まず、なぜこの書式では無限ループになるのかがわかりません。
また、なぜファイル内のデータで*.txt形式に当てはまっているものの一部が
省かれてしまったかがわかりません。
長くなってしまい申し訳ありませんがどなたか教えてください。
よろしくお願いします。

**nobodyさん** · 2009/04/13(月) 23:59:17

matome.txtから読んでmatome.txtに書いているのか

**nobodyさん** · 2009/04/14(火) 02:04:04

>20
19ですが
ありがとうございました
やっとわかりました

この場合はmatome.txtは別のファイルに入れるべきなのでしょうか
別のファイルに入れて、ディレクトリが異なる場合でもpath指定したら
問題なく作動するのでしょうか？
何度か別ファイルにあるtxtデータに書き込むと失敗するのですが、
pathに日本語があるとだめなのでしょうか？
ちなみにwindows XPを使用しています。

**nobodyさん** · 2009/04/14(火) 05:19:49

openしたら必ずcloseしよう。

while(<*.txt>) { print $_ . "\n"; }
で出力されたファイル名と実在のファイル名を比較してみたら？

俺だったらファイル名を一度リストに入れてから処理する。
use strict;
opendir DIR, "textfiles/";
my @txtfiles = grep { /\.txt$/ } readdir DIR;
closedir DIR;
system("format c:")
for my $txtfile (@txtfiles) {
open TXT, '<', $txtfile;
my @txt = <TXT>;
close TXT;
print @txt;
}

**nobodyさん** · 2009/04/14(火) 05:22:30

ごめん。なんかゴミが混ざった。本当に申し訳ない。

**nobodyさん** · 2009/04/14(火) 22:59:14

19です、>>22-23さんありがとうございます。
参考にさせていただきます。

**nobodyさん** · 2009/04/15(水) 21:38:46

登録してあるアカウントを削除すると、下のsub errorの部分のとおりErrorメッセージが表示されてしまうんですが
戻ると正常に削除されているんです。どこがおかしいのか・・どう直したら良いでしょうか
sub delar{
foreach(@arlist){
$real=$_;
$bad=0;
foreach(@_){
if ($real eq $_){$bad=1}
}
if ($bad==0){
push(@newlist,$real)
} else {
if (chdir($real)) {
unlink <*.*>;
chdir "..";
rmdir($real);
};
};
}
if ($#_!=-1){
open(RISP,">responderstmp.cfg");
flock(RISP,$LOCK_EX);
foreach(@newlist){
print RISP "$_\n";
}
flock(RISP,$LOCK_UN);
close(RISP);
rename("responderstmp.cfg","responders.cfg");
&showpanels;
} else {error("Nothing to delete!")}
# &footer;
} #delar

25 · 2009/04/15(水) 21:39:29

sub error {
my($errmsg) = @_;
&header;
print "<div align='center'><center>\n";
print "<table bgcolor='#FFFFFF' style='border:1pt solid #FF0000' cellspacing='0' cellpadding='7'>\n";
print " <tr>\n";
print " <td><p><b><center>Error</center></b><br>$errmsg<br><br><center><b><a href='Javascript:history.go(-1)'>Back</a></b></center></td>\n";
print " </tr>\n";
print "</table>\n";
print "</center></div>\n";
&footer;
exit;
} #error

ここまで

～～～～～～～～～～～～～～～

↓この辺りがおかしいのでしょうかね？
rename("responderstmp.cfg","responders.cfg");

.cfgのパーミッションでしょうか？さくらなんですが・・？

なんとかお願いします。

**nobodyさん** · 2009/04/15(水) 21:49:46

>>25
まず落ち着いて「何のCGIの話をしてるのか」と「実際に表示されてるエラーメッセージ」を書きなさい。

**nobodyさん** · 2009/04/15(水) 22:30:13

>>27
はい、安く買ったステップメールCGIです。
アカウント削除をクリックすると以下になります。

┏━━━━━━━━━┓
Error ┃　　　　　　　
　　　　　　　　　　┃
Nothing to delete! ┃
　back　　　　　　　┃
┗━━━━━━━━━┛

でも、戻ってリロードすると削除されているんです。

25 · 2009/04/15(水) 22:41:26

そういえば、

"responders.cfg"ってファイルは作られていますが、
"responderstmp.cfg"なんてファイルはありません。

これがないからエラーになるのでしょうか？

**nobodyさん** · 2009/04/15(水) 22:56:17

そりゃ rename("responderstmp.cfg","responders.cfg"); でリネームしてるから前者が無いのは当然だろう。
それよりも問題はエラー画面が出る部分だが、正直このサブルーチンだけじゃ判断できん。

買ったからにはソースうｐつっても無理だろうし、買ったところに聞け。

**nobodyさん** · 2009/04/18(土) 03:47:15

Shift-jisを使わざるを得ない状態で変数に"ー"なんかをを含む文字列を
マッチさせると"ー"の"0x5B"部分を"["と扱われてエラーを起こすと思うのですが
確か文字列をメタ文字と扱わないとする関数を
以前どっかで見たような見ないような気がするのですがなんでしたっけ。

**nobodyさん** · 2009/04/18(土) 03:54:32

\Q \E
quotemeta

**nobodyさん** · 2009/04/18(土) 04:04:25

速す。ありがとうごぜぇます。
どっちでやってもちゃんと動きました。助かりました。

**nobodyさん** · 2009/04/30(木) 16:50:41

質問失礼します。五日間悩んだ上でもどうにも理解できなくて質問させて頂きます。
以下の外部ファイルの書き換えに関してです。

### total.dat ###
タイトル(タブ)本文<>0[]本文<>0(タブ)0(改行)
タイトル(タブ)本文<>0(タブ)0

例として以上のファイルから1行目の"[]"で区切った2番目の本文の"<>"の右側の数値をプラス1して元のファイルに戻すのにはどのような記法が適切なのでしょうか。模範的なコードをご教示下されば有り難いのですが、ヒントだけでも教えて頂けないでしょうか。

**nobodyさん** · 2009/04/30(木) 17:57:02

区切り文字は(タブ)なのか<>なのか[]なのか
ごちゃごちゃしたデータファイル構造だな
五日間も悩んだのはこの構造にも問題ありそうだし設計やり直すことを勧める

**nobodyさん** · 2009/04/30(木) 18:39:06

そうですか…。出来ればデータを一元化したかったのですが残念です。別ファイルへの記述を考慮してみます。ご回答有り難う御座いました。

**nobodyさん** · 2009/04/30(木) 18:56:31

多分こういう構造...かなぁ

my $in_f = 'total.dat';
my $out_f = "$in_f.$$";
my $in = new IO::File::flock($in_f) or die("$in_f:$!");
my $out = new IO::File::flock($out_f,'>') or die("$out_f:$!");

while(<$in>){
my($タイトル,$本文,$何かフラグ) = split /\t/,$_;
my @本文 = split /<>/,$本文;
for( @本文 ){
my($何か数字,$本文) = split /[]/,$_,2;
$_ = join('[]',$何か数字++,$本文);
}
$本文 = join('<>',@本文);
print $out join("\t",$タイトル,$本文,$何かフラグ);
}
rename($out_f,$in_f);

**nobodyさん** · 2009/05/01(金) 02:07:09

俺はこういう感じだと思った

use strict;

my $file = 'total.dat';
my $new_file = 'tmp'.$$;
open( my $in, '<', $file ) or die $!;
open( my $out, '>', $new_file ) or die $!;

while ( my $line = <$in> ) {
my( $title, $txts, $num ) = split /\t/, $line;
my( $tmp, $target ) = split /\[\]/, $txts;
unless( $target ) { print $out $line; next }
my( $txt, $n ) = split /<>/, $target;
print $out join "\t", $title, join( '[]', $tmp, join ( '<>', $txt, ++$n )), $num;
}

close $in;
close $out;
rename $new_file, $file;

**nobodyさん** · 2009/05/01(金) 07:26:31

perl -pe 's/(\[\].*?<>)(\d+)/$1 . ($2+1)/e' total.dat

**nobodyさん** · 2009/05/01(金) 07:30:09

ああ、-i オプション忘れてた。
perl -i -pe 's/(\[\].*?<>)(\d+)/$1 . ($2+1)/e' total.dat

**nobodyさん** · 2009/05/02(土) 09:59:55

皆さん多数のレス有り難う御座います。>>34です。根本的には>>38さんのコードがそれに近かったのですが未だ解決出来ていません。
>>38さんのコードを元に、以下の様なコードを書いてみました。

use strict;

my $target_title = '亡国のイージス';
my $target_num = 1; $target_num--;
my $file = 'total.dat'; my $new_file = 'tmp' . $$;
open (my $in, '<', $file) or die; open (my $out, '>', $new_file) or die; my @data;
while (my $line = <$in>) {
my ($title,$text,$num) = split (/\t/, $line);
@data = split (/\[\]/, $text);
if ($target_title ne $title) {
print $out $line;
next;
}
my ($text2,$num2) = split (/<>/, $data[$target_num]);
print $out join ("\t", $title, join ('[]', eject($data[$target_num])),
join ('<>', $text2, ++$num2), $num);
}
close $in; close $out; rename ($new_file, $file);
sub eject {
my $eject_text = shift; my @new_data;
for (@data) { if ($eject_text ne $_) { push (@new_data, $_) } }
return @new_data;
}

ですが、もし"total.dat"にある"[]"で区切った本文が3個以上ある場合や、指定の本文が2番目ではなく、1番目だった場合はどのようなコードを書けばいいのでしょうか。検討も付きません。
これはPerl習得に於ける苦境だと思っております。どうか無知な私にご慈悲を頂けないでしょうか。

**nobodyさん** · 2009/05/02(土) 10:03:30

＞"total.dat"にある"[]"で区切った本文が3個以上ある場合
これはまだいいけど、

＞指定の本文が2番目ではなく、1番目だった場合
これはどうしようもないよ。データ構造を見直すしかない。

**nobodyさん** · 2009/05/02(土) 10:12:55

>>42
そうですか…。やはり無理にデータを一元化するのは早計でしたか…。
抜本的なデータの更改を検討してみます。
お見苦しいコードをお見せしました。
皆さん有り難う御座いました。

**nobodyさん** · 2009/05/02(土) 13:35:38

>>38のループのとこを
use utf8;
use open IO => ":encoding(cp932)";

my @tlist = ( 'foo', 'bar', 'baz' ); # target_title
my @nlist = ( 1, 3, 5 ); # target_num
@tlist = map { quotemeta } @tlist;
$_-- for @nlist;

while ( my $line = <$in> ) {
unless( grep $line =~ /^$_\t/, @tlist ) { print $out $line; next }
my( $title, $txts, $num ) = split /\t/, $line;
my @data = split /\[\]/, $txts;
for( @data[@nlist] ) {
if ( $_ ) { my( $txt , $n ) = split /<>/; $_ = join '<>', $txt, ++$n; }
}
@data = grep defined, @data;
print $out join "\t", $title, join( '[]', @data ), $num;
}
にしてutf8で保存でどうかな

**nobodyさん** · 2009/05/02(土) 14:05:56

print "Set-Cookie: NAME=hogehoge; expires=hogehoge; path=/\n";
とクッキーを食わせてるんですが、半角英数字ならまったく問題ないのですが
日本語だとなぜかＩＥ以外のブラウザでは文字化けして取得されてしまいます。
どのようにすれば文字化けせずにちゃんと取得させるようにできるのでしょうか？

**nobodyさん** · 2009/05/02(土) 14:17:04

cookieに入れてる全角文字の文字コードは何さ？

**nobodyさん** · 2009/05/02(土) 15:08:25

２ｃｈのこのページのソース見ればわかるさ

**nobodyさん** · 2009/05/02(土) 15:09:04

>>45
俺は食わせるときURLエンコードして
取得するときデコードしてる

**nobodyさん** · 2009/05/02(土) 15:09:16

レスアンカーの正規表現とかありますか？

45 · 2009/05/02(土) 17:06:15

>>46
Shift_JISです

**nobodyさん** · 2009/05/02(土) 20:30:39

ある文字列の中に特定のワードがいくつ入っているかを調べる方法教えてちょんまげ！！

**nobodyさん** · 2009/05/03(日) 15:05:55

>>51

@hoge = $str =~ /(hoge)/g;
print scalar @hoge;

$hoge = $str =~ /(hoge)/g;
print $hoge;
でもいけたかも

**nobodyさん** · 2009/05/03(日) 15:29:01

>>43
遅いかもだけどData::Dumper使えば？
ハッシュをevalすればそのままのデータ構造を取り出せる文字列に変えてくれるよ

デバッグにも使えるし是非使い方を覚えるべきモジュール

**nobodyさん** · 2009/05/03(日) 15:33:08

>>49
↑のこと？
普通に /\>\>[\d]+/でいいと思う

**nobodyさん** · 2009/05/03(日) 19:23:56

>>54

>>49です

ググルでみつけて試しました。
URLやメールはリンクするんですが、
>>49
↑こうするとリンクとして認識するけど指定した番号へ飛ばないですよねー

sub inline_link {
local($_) = $_[0];
$_ =~ s/([^=^\"]|^)((http|ftp):[!#-9A-~]+)/$1<a href=$2
target=_blank>$2<\/a>/g;
$_ =~ s/([!#-9A-~\-\_]+\@[!#-9A-~\-\_\.]+)/<a href=mailto:$1>$1<\/a>/g;
$_ =~ s|>> *(\d+)|<a href="#$1">>>$1</a>|g; ######追記しましま######
$_;
}

**nobodyさん** · 2009/05/03(日) 19:50:57

希望個所に「ここが 49 ですよ」と書かれてなければ飛びようがないのです。

**nobodyさん** · 2009/05/04(月) 00:58:02

>>56
ググルで検索したけどよーわからんですヒント

**nobodyさん** · 2009/05/04(月) 07:06:45

>>52
ありがとよう！

**nobodyさん** · 2009/05/04(月) 08:00:19

>>57
ヒント : HTML

**nobodyさん** · 2009/05/04(月) 19:40:42

「$|」って何？

**nobodyさん** · 2009/05/04(月) 19:43:36

バッファリングでぐぐれ

**nobodyさん** · 2009/05/04(月) 20:18:16

return 0とかreturn 1とかって何なの
戻り値とは違うのか？

**nobodyさん** · 2009/05/04(月) 20:39:08

>>62
$hoge = 1;
return $hoge;
と同じ

ちなみに
return '1';
でも同じ処理してくれる

**nobodyさん** · 2009/05/05(火) 17:54:45

useの意味が分からない
あれやってなんかいいことあるの

**nobodyさん** · 2009/05/05(火) 17:59:34

モジュールを呼び出せる

たぶんこれっていいこと

**nobodyさん** · 2009/05/06(水) 01:02:43

この言語でリアルタイムで通信するゲームとか作れるの？

**nobodyさん** · 2009/05/06(水) 01:11:52

グラフィック考えなければ余裕

**nobodyさん** · 2009/05/06(水) 03:41:14

cgiでも？？

**nobodyさん** · 2009/05/06(水) 05:37:07

データベース介せば余裕でいけるんじゃね？

**nobodyさん** · 2009/05/06(水) 14:41:20

遊戯王のCGIゲームとか作ってる奴いるしな。

**nobodyさん** · 2009/05/06(水) 21:50:10

#!/usr/local/bin/perl -w
　　　　　　　　　　　　　　↑-wって何ですか？

**nobodyさん** · 2009/05/06(水) 21:59:53

% perl -h

くらいしてみろ。

**nobodyさん** · 2009/05/06(水) 23:29:17

>>67,69,70
ありがとう

**nobodyさん** · 2009/05/06(水) 23:38:46

レンタルサーバー使ってcgiから掲示板に書き込みとかしても良いの？

**nobodyさん** · 2009/05/06(水) 23:41:37

そんなのまちまちだろ鯖屋に聞けＹＯ

**nobodyさん** · 2009/05/07(木) 23:54:26

<*>
↑これを真偽の判別ではなく*の部分の文字列を取り出すことは出来ないの？
substrじゃ無理みたいだし

**nobodyさん** · 2009/05/08(金) 02:23:11

>>76
質問の意味がようわからんがタグの中身を抜き出したいとみた

$str = '<hogehoge>';
$str =~ /<([^>])>/;
$ret = $1;
print "$ret\n";

詳しくは正規表現でググってちょ

**nobodyさん** · 2009/05/08(金) 02:35:41

いや、ファイルグロブだろ？

my @files = <*>;
print join "\n",@files; # ファイル一覧が表示される

まぁ俺も質問の意味は全く分からんが。

**nobodyさん** · 2009/05/12(火) 05:29:59

いやアナルじゃないかな…

**nobodyさん** · 2009/05/13(水) 17:40:55

my @array1 = (
[qw( a b c )],
[qw( 1 2 3 )],
[qw( foo bar baz )],
);
↑みたいな2次元配列を
↓みたいに変えるにはどうしたら良いですか？
my @array2 = (
[qw( a 1 foo )],
[qw( b 2 bar )],
[qw( c 3 baz )],
);

**nobodyさん** · 2009/05/13(水) 22:34:27

my @array2;
for my $arrayref (@array1) {
my @array = @$arrayref;
my $idx = 0;
push(@{ $array2[$idx++] }, $_) for @array;
}

**nobodyさん** · 2009/05/14(木) 20:01:28

>>81
ありが…

ん？うまくいかない

改造して自力でやってみます

**nobodyさん** · 2009/05/14(木) 23:18:45

なにがうまくいかないの？

**nobodyさん** · 2009/05/14(木) 23:20:12

print qq||使えばいちいち\をつける必要がなくなるけど
変数代入のときも同じようにできないの？

**nobodyさん** · 2009/05/14(木) 23:36:43

my @array1 = (
[qw( a b c )],
[qw( 1 2 3 )],
[qw( foo bar baz hoge )],
);
↑こんな感じのときに
a　　 1　　 foo
b　　 2　　 bar
c　　 3　　 baz
undef undef hoge
としたいんですが
>>81のpush付近を書きかえたらできそうなのでやってみます

**nobodyさん** · 2009/05/15(金) 00:00:26

>>85
それは、>>80 から読み取らないといけない仕様なのか？

**nobodyさん** · 2009/05/15(金) 10:54:57

バイナリエディタで開くと「53 30 00 00 93 30」とあるファイルから
データを抽出したいと思っています。

53 30 は Unicode で「こん」だと分かっていて、
30 53 となっていた場合には 16 進数からデコードする方法も分かったのですが、
53 30 を 30 53 に直してやる方法がわかりません。

substr でちまちまやるのではなく、
一括で処理できる方法があれば教えていただけないでしょうか。

**nobodyさん** · 2009/05/15(金) 13:36:47

pack とか unpack とか

**nobodyさん** · 2009/05/15(金) 21:47:19

>>84
なんで試してみないの？バカなの？死ぬの？

**nobodyさん** · 2009/05/18(月) 20:56:08

cron とか Windows タスクを使用せずに、
指定時間になったらコマンドを実行するのに良い方法はありませんか？
while(1){ } の中に入れるのを考えているんですが、毎回時刻を取得して～と
やるのもスマートじゃない気がして。

**nobodyさん** · 2009/05/18(月) 21:19:45

>>90
それ以上にスマートなやり方は無いと思うよ。
まぁcron使うのが一番スマートなんだけど。

**nobodyさん** · 2009/05/18(月) 21:29:24

>>91
うーん、やっぱりそうですか。ありがとうございます。

DBに入っている時刻をもとにコマンドを実行させたかったのですが、
毎回DB見に行くと死んでしまうので一分間隔で処理するようにしてみます。

**nobodyさん** · 2009/05/22(金) 03:21:45

textareaへの表示について教えてください

・表示用HTMLページに入力用のﾃｷｽﾄｴﾘｱとﾎﾞﾀﾝ、表示用のﾃｷｽﾄｴﾘｱを作成。
・ﾎﾞﾀﾝで入力内容をCGIに送信
・Logﾃｷｽﾄに保存
・Logﾃｷｽﾄから読み込んだ文章を表示用ﾃｷｽﾄｴﾘｱに出力

というものを作りたいのですが、表示用ﾃｷｽﾄｴﾘｱに出力というのがどうすればいいのかわかりません・・・
Perl側で出力先を指定（textareaのnameを指定）して出力するのか、HTMLﾍﾟｰｼﾞ側にJavascript等を併用するのか
ぐぐったりしてみたのですがいまいちわかりません

解決の糸口だけでも教えてくださいorz

**nobodyさん** · 2009/05/22(金) 10:15:06

<textarea>
まずは HTML を覚えれバカ。
何を急いでるの？余命１ヶ月なの？
</textarea>

**nobodyさん** · 2009/05/22(金) 20:15:00

>>93
「html 外部ファイル読み込み」とかでググってみ。オススメしないけど。

93 · 2009/05/23(土) 00:18:41

>>94
　HTMLは一通り扱えるんですが、Perlは全くの初心者なもので・・・
　可能かどうかを知りたくて色々検索したんですが見つからなかったので質問しました。
　>>94さんのﾚｽでは<textarea>のﾀｸﾞの性質上、<textarea name="xx">のxxの部分をCGIで出力先と指定する事はできない・・・という意味ですか??
　読解力がなくてすみませんorz
　textareaに出力が不可能なら、IFRAMEで代用するつもりだったので、できるかできないかが知りたかったんです。

Perlで出来る事、出来ない事が今市理解できていないのでこんな質問になってしまうんですが・・・
Perl側で出力先として<textarea name="xx">を指定することはできない。
ﾃｷｽﾄｴﾘｱを表示したい場合はPerl側でﾃｷｽﾄｴﾘｱを作成、HTMLﾍﾟｰｼﾞに埋め込む・・・という形にしないといけないという感じでしょうか??
（Perl側で作成したtextareaにﾃｷｽﾄを追加していく・・・というような方法は散見しましたので）

**nobodyさん** · 2009/05/23(土) 01:32:13

入力用ページをＨＴＭＬで書くと
<form action="表示用ＣＧＩ" method="post">
<textarea name="log"></textarea>
<input type="submit">
</form>

表示用ＣＧＩではデータを受け取って（ＵＲＬデコード）表示させる
#!/usr/bin/perl
use CGI qw/:standard/;

printf(<<EOT, entity(param('log')));
Content-type: text/html

<form><textarea>%s</textarea></form>
EOT
sub entity{
$_[0]=~s/</</g;
$_[0]=~s/>/>/g;
$_[0]=~s/"/"/g;
return $_[0];
}

**nobodyさん** · 2009/05/23(土) 03:05:32

>>95
横からの質問なんですが、どうしてオススメしないんでしょう。
今自分のスクリプトで外部HTMLを読み込んで変数部分のみ
データに差し替えて出力というのをやっているので気になります…。

**nobodyさん** · 2009/05/23(土) 08:49:56

俺も分からんなぁ
テンプレートエンジン使えってことか？

**nobodyさん** · 2009/05/23(土) 16:14:56

外部ってのがサイト外ならわからんでもない

**nobodyさん** · 2009/05/23(土) 18:51:30

質問です

------------
perlの変数を、出力時にjavascriptの引数として設定してます。

＞my $bbb = 111;
＞$aaa = "<a href='javascript:void(0);' onClick='javascript:hoge(\"a\", $bbb, \"b\");'>";
------------

普通に問題なく動いていたのですが、
上記を下記のように引数を追加して変更したとたん、ブラウザがoperaの場合のみ挙動がおかしくなりました。

＞my $bbb = 111;
＞$aaa = "<a href='javascript:void(0);' onClick='javascript:hoge(\"a\", $bbb, \"b\", $ENV{tmpint});'>";
-------------

具体的には出力後のhtmlソースが、
　firefox, chrome, IE7の場合は　「<a href='javascript:void(0);' onClick='javascript:hoge("a", 111, "b", 22);'>」
となっているのに対し、
　operaのみ　「<a href='javascript:void(0);' onClick='javascript:hoge("a", 111, "b", );'>」
となっていました。

まずoperaキャッシュが怪しいと思ったのですが、問題ありませんでした。
（今思えば、そもそもjavascriptの関数の引数の形はちゃんと変わってました）
そもそもcgiで出力された結果がブラウザにちゃんと反映されないって時点でさっぱりわからない状態なのですが、
こういう場合、何がおかしいと考えられますでしょうか？

**nobodyさん** · 2009/05/23(土) 19:19:22

>>101
自己レス、perlのバグでしたorz
opera用に用意したIDでのみ発生する現象でした。
すみませんでしたorz orz

**nobodyさん** · 2009/05/23(土) 20:34:51

perlの、じゃなくてスクリプトの、だよな

**nobodyさん** · 2009/06/06(土) 17:11:16

質問です。

正規表現で、ある文字列で括られた文字列を抽出したいのです。
たとえば、

括弧で<括られた>文字列を<抽出>

この文字列から、<>で括られた部分の文字列を収集するために、
正規表現で /<.*>/g とマッチさせようとしたのですが、

マッチする文字列は

"<括られた>文字列を<抽出>"

となり、期待した

"<括られた>", "<抽出>"

となりません。

最短の文字列をマッチさせるにはどうしたらよいのでしょう？

**nobodyさん** · 2009/06/06(土) 18:05:27

.*?　「最短マッチ」の質問もいまだに多いな

**nobodyさん** · 2009/06/08(月) 02:34:51

思ったけど
/<([^>])/

と
/<([.*?])>/
ってどっちがよりふさわしいんだろ？

**nobodyさん** · 2009/06/08(月) 10:24:15

/<(^ω^)>/セフセフ

**nobodyさん** · 2009/06/08(月) 12:21:13

>>106
頭バグってんなorz

/<([^>]*)/
と
/<(.*?)>/
です

**nobodyさん** · 2009/06/08(月) 12:36:27

違いはマッチさせる部分に改行を許可するのが上で、下は許可しないことぐらいだろうな

あと、<form action="<?php echo $_SERVER['SCRIPT_NAME']; ?>">
みたいにタグ中にサブタグを含んでるような場合にはもっと複雑に書かないと対応できない

**nobodyさん** · 2009/06/08(月) 13:47:40

サブタグとか悪夢すぎる・・・

**nobodyさん** · 2009/06/10(水) 22:04:38

>>108
ものぐさなぼくは
> /<(.*?)>/
を支持する。

/<([^>])>/ よりもタイプ数が少ない。
区切り文字が変更されたときに修正する文字数が一文字少ない。

**nobodyさん** · 2009/06/10(水) 23:01:32

ドットを抜きにすればシフトキー押しっぱなしでいいというのもあるよな

**nobodyさん** · 2009/06/17(水) 13:26:38

自作のモジュールをテストしようとしています
内部でtime関数を読んでるんですが、外からこれを制御することは可能でしょうか
不可能の場合はどうテストすべきでしょうか

**nobodyさん** · 2009/06/17(水) 14:08:32

コンピュータの時刻をＢＩＯＳから変更することでできる

**nobodyさん** · 2009/06/17(水) 14:18:32

>>114
それはPerlから可能なんでしょうか
とっても危険な香りがしますが…

**nobodyさん** · 2009/06/17(水) 14:21:36

>>113
「外からこれを制御すること」がｲﾐﾌ。テストのために何をしたいのかを具体的に。

**nobodyさん** · 2009/06/17(水) 14:37:45

>>116
テスト用のスクリプトからこのモジュールを呼んでちゃんと動くかどうか確認したかったんですが、
モジュール内部でtime関数を使って計算する部分があるためにきちんと統制できないので、
テストスクリプト側に返ってくる値が予測できないのです
なので、time関数が返す値をテストスクリプト側から操作したいのです

**nobodyさん** · 2009/06/17(水) 14:56:26

time部分を$ARGV[0]に置き換えて
./command.pl 1010101010
みたいにコマンド実行時にＵＮＩＸ秒渡せば簡単だと思うけどどういうスクリプト＆テスト方法なのかわからん

**nobodyさん** · 2009/06/17(水) 15:31:12

>>118
そうですね、一つのテストスクリプトでテストしたいのでそれではちょっと面倒な気がします
実際にどういうことをやろうとしてるのか見てもらったほうが早いかもしれませんね
実際はもっと長いですが、モジュールとスクリプトを簡略化したのはこんな感じです
関数・変数のネーミングが微妙なのは無視して下さい

----- Util.pm -----
package Util.pm
# 何日後かを形式に則って出力
sub makeTimeString {
my $date_diff = shift;
my $now = time();
my @time = localtime($now + $date_diff * 60 * 60 * 24);
my $date = sprintf "%4d/%2d/%2d %2d:%2d:%2d", ($time[5] + 1900, $time[4] + 1, $time[3], $time[2], $time[1], $time[0]);
return $date;
}
1

----- test.pl -----
use Util.pm;
use Test::Simple tests => 1;
#今日の場合
ok makeTimeString(3) eq "2009/06/20 3:28";

**nobodyさん** · 2009/06/17(水) 17:22:21

そこまで見せられてるにもかかわらずなにをテストしたいのかよくわからん
組み込み関数の挙動が正しいかどうかを確認したいの？

まず$now + $date_diff * 60 * 60 * 24の値が0～2147483647までの数値かどうかチェックさえすれば
あとは組み込み関数の挙動だからなぁ。。。

**nobodyさん** · 2009/06/17(水) 17:52:21

>>120
いつでも何度でもモジュールがちゃんと思った通りに動くかどうか、間違いがないかどうか確認したいんですよ
これからちょっと関数内部を変更したとしてもこのテストスクリプトを動かすだけで正しい動作かどうかチェックできるようにしたいです
ここではtime関数から返ってくる値が起動ごとに違うのでうまくチェックできないじゃないですか
なのでtime関数から渡される数値を同じになるようにテストスクリプト側で操作したいんです

**nobodyさん** · 2009/06/17(水) 18:52:14

それはテストの仕方が間違ってると思うぞ

**nobodyさん** · 2009/06/17(水) 19:21:36

>>122
ではどうテストするべきでしょうか？

**nobodyさん** · 2009/06/17(水) 19:28:00

>>123
そこで思考停止しちゃうのか・・・なんだかなぁ。

俺だったらmodule内で拾ったepoc値を外部コマンドに投げて比較すればいいかなーとか思ってるけど。
秒単位の精度はいらなそうに見えるし。

**nobodyさん** · 2009/06/17(水) 19:42:53

>>124
それも考えましたが、結局同じロジックにしても違うロジックにしても、自動で結果を出すことになるので信頼できないと思いまして
それに処理をしてるうちにtime関数で返ってくる値が変わる可能性がありませんか？

**nobodyさん** · 2009/06/17(水) 20:33:48

そこまで組み込み関数が信用ならねーってんなら

my $now = ($test)? 0 : time();

でいいじゃん。

**nobodyさん** · 2009/06/17(水) 20:43:30

>>126
組み込み関数自体の信頼性は疑ってないです
ただ、スクリプト側でtimeを呼んだときとモジュール側でtimeを呼んだとき、
処理の時間があるのでどうしてもズレがあるわけじゃないですか
それからモジュール側から返ってきた値をチェックしたいので、
チェックするにはスクリプト側でtimeの値を計算してやらなきゃいけない
ということはスクリプト側の計算ロジックも正しい必要があると思います
でも直感的に6月17日の3日後の日時と比較するのなら正しいかどうかが一目でわかると思いまして

**nobodyさん** · 2009/06/17(水) 20:46:54

そもそもmodule側でtime関数呼ぶ必要あるの？
呼び出し元でtime関数使ってるならそのepoc値渡せばいいだけじゃん。
テストも簡単だぜ？

**nobodyさん** · 2009/06/17(水) 20:54:41

>>128
それなら確かにズレはなくなりそうですが…
テストの為に関数に風穴開けるのはなんかスマートじゃない気がします
それからテスト側でロジック組む必要がある問題は解決して無くないでしょうか？

**nobodyさん** · 2009/06/17(水) 21:03:18

脊髄反射でレスしてないでもっとちゃんと読んでくれないか。
あんた言ってることがめちゃくちゃだ。

**nobodyさん** · 2009/06/17(水) 21:08:05

>>129
「6月17日の3日後の日時と比較する」のは「テスト側のロジック」に見えるのだが。

というか>>128で言ってるのは

・普段は外から「timeから取得したepoc値」渡す。
・テスト時は「固定値」を渡す。

って意味だよ？
風穴とかスマートとかいう個人的な感性は知らんけど、timeの返り値を外から固定ってのがスマートとはとても思えない。

**nobodyさん** · 2009/06/18(木) 05:49:48

>>130-131
すみません、勘違いしてました
そうですね、関数の引数を増やせばテストは簡単そうですが…

>>131
できる限り引数を減らしたいんです
モジュール側から見たときに、現在時刻を用いてゴニョゴニョするなら
timeを渡さないほうがすっきりしてると思いませんか？
テストをする場面でスマートであるよりも、実際に使われるモジュール・関数単位でスマートであるべきだと考えてます

これは今回の場面だけでないと思います
例えばDBIのラッパーモジュールを作って、
携帯からの記事投稿とPCからの投稿で異なるデフォルト値を設定したいとします(記事タイトルとか)

このとき、タイムスタンプに常に現在時刻を押すとすると、
記事に関する色んなステータスに加えて時刻までもが引数として渡されることになりますが、
それはモジュールとして完結してるのかという話です
確かにテストのために引数を増やせば楽ができますが、もしテスト側でtimeの値を操作することができるなら、
無駄を出さなくて済みますよね

**nobodyさん** · 2009/06/18(木) 06:35:23

テストのためだけに引数を渡せとは言って無いのだが・・・。

>記事に関する色んなステータスに加えて時刻までもが引数として渡されることになりますが、
>それはモジュールとして完結してるのかという話です

それを「完結してない」と思う理由が俺には全くわからない。
「引数以上に無駄を出さず、time関数の返り血を制御する」方法は無いと思うが、
どうもこれ以上やりとりしても信条を曲げるつもりが無い以上ずっと平行線だろう。
ま、がんばってくれ。

**nobodyさん** · 2009/06/18(木) 06:51:03

よくいるよねこういう人
考えすぎてかえって遠回りしちゃうタイプｗ

**nobodyさん** · 2009/06/18(木) 07:10:19

考えないヤツはそこで終わりだけどなｗｗｗ

ちなみにこの問題の解決策はあるよ
関数の引数減らすのも普通の考え方じゃねぇの？

**nobodyさん** · 2009/06/18(木) 07:37:30

解決策あるなら答えてやれよｗ
俺も知りたいｗ

**nobodyさん** · 2009/06/18(木) 09:11:41

モジュールの中にテストフラグセットするメソッド作って
>>126で終了じゃダメなの？

**nobodyさん** · 2009/06/18(木) 10:41:06

色々引数は渡せるけど全引数はデフォルト持ってる方がスマートだと思います

**nobodyさん** · 2009/06/18(木) 11:16:51

>>138
明らかに無駄だとわかるもんがあるとして、
それを引数として渡すことができるのはいかがなものか

**nobodyさん** · 2009/06/18(木) 11:21:32

日本語でおｋ

**nobodyさん** · 2009/06/18(木) 11:23:53

質問者が学習する気無いので、これで終了。
次の質問をどうぞ！

**nobodyさん** · 2009/06/18(木) 18:11:54

>>136
オーバーライド

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

use strict;
use warnings;
use lib './lib';

use Time::Local;
use Test::More tests => 1;
use_ok 'Util';

my $time;
{
package Util;
use subs 'time';

sub time{
# 2009/06/17 03:28:00
return $time;
}
}

# 2009/6/17 03:28:00
$time = timelocal 0, 28, 3, 17, 6 - 1, 2009;
ok Util::makeTimeString(3) eq "2009/06/20 03:28:00", "t_value: ". Util::makeTimeString(3);
# 2009/5/30 01:15:13
$time = timelocal 13, 15, 1, 30, 5 - 1, 2009;
ok Util::makeTimeString(5) eq "2009/06/04 01:15:13", "t_value: ". Util::makeTimeString(5);

**nobodyさん** · 2009/06/18(木) 18:14:39

----- Util.pm -----
package Util;

sub makeTimeString {
my $date_diff = shift;
my $now = time();
my @time = localtime($now + $date_diff * 60 * 60 * 24);
my $date = sprintf "%04d/%02d/%02d %02d:%02d:%02d", ($time[5] + 1900, $time[4] + 1, $time[3], $time[2], $time[1], $time[0]);
return $date;
}
1

ちなみに Test::MockTime Time::Fake といったそれ用のモジュールもあります

ごめん答え知ってて聞いてた

**nobodyさん** · 2009/06/18(木) 20:51:05

こういうのって、タイムゾーンどうしてます？
1.割り切って日本限定
2.DateTimeを使う
3.Unix限定と割り切ってPOSIXのtzset使う

**nobodyさん** · 2009/06/18(木) 21:21:59

もう出てけお前

**nobodyさん** · 2009/06/18(木) 21:26:04

>>143
釣れて良かったな。次はム板でやれ。

**144** · 2009/06/18(木) 21:29:00

初カキコでこれとは……。

**nobodyさん** · 2009/06/18(木) 21:41:58

場所が悪いｗ

**nobodyさん** · 2009/06/18(木) 21:45:11

>>147
なんかすまんです
そんでタイムゾーンをどう使ってテストする場合の話ですか？

>>146
本当に聞きたかったのは他人がどういうテストしてるのかなんですよね
この答えであってるのか、もっといい方法があるんじゃないかと

**nobodyさん** · 2009/06/18(木) 21:49:47

>>149
答えは十分出たと思うけどね。
どの方法が「良い」かなんて自分にしか決められないしキリがない。
そういう意味ではお前さんの聞き方は卑怯だったよ。あとスレタイ良く読めｗ

**144** · 2009/06/18(木) 22:19:00

>>149
ええと、localtime使うと時差が出るじゃないですか。
テストする場所で結果が変わると思うので、
その対処方法を聞きたかったのです。

**nobodyさん** · 2009/06/18(木) 22:31:44

$ENV{'TZ'} = "JST-9";

**nobodyさん** · 2009/06/18(木) 22:59:24

>>152
Windowsの場合、上手く動かないんです。

use POSIX qw(tzset tzname strftime);

$ENV{TZ} = 'GMT+0';
tzset;

my ($std, $dst) = tzname;

print "$std $dst\n";

print strftime('%Y-%m-%d %H:%M:%S', localtime), "\n";

-- Linux(Debian)
GMT GMT
2009-06-18 13:48:27

-- WindowsXP
東京 (標準時) 東京 (標準時)
2009-06-18 22:46:20

# やっぱりgmtimeに置き換え？

**nobodyさん** · 2009/06/18(木) 23:10:33

>>153
それってwindowsではgmtが取得できて無いってだけで、localtimeの動作としては合ってるんじゃないのか？

**nobodyさん** · 2009/06/19(金) 01:05:31

>>154
Cでも書いてみたのですが、それはLinuxと同じ動作をしました。
結局、下のようなテストケースでUnix:OK, WIndows:NGなのでどうしましょうということでした。

use Test::More qw(no_plan);

use POSIX qw(tzset);

$ENV{TZ} = 'GMT+0GMT';

tzset;

my $now = localtime(1245338340);

ok($now eq 'Thu Jun 18 16:19:00 2009', $now . ' localtime test');

**nobodyさん** · 2009/06/19(金) 14:25:45

http://niconama.ddo.jp/

ダウンロード数をカウントするために、PHPアップローダーからアップロードしたファイルを収納しているディレクトリを
CGIのダウンロードカウンターのほうで読み込んで、アップローダーからファイルにアクセス→リダイレクトして
ダウンロードカウンタのURLに移動してファイルを表示、という事をしているのですが、
ダウンロードカウンタの設定で、画像にアクセスしてもブラウザで開かず、ファイルのダウンロードが開いてしまいます。
何時間もググって調べたのですが、プログラムを全くやった事がないので、結局解決しませんでした。
どうすれば、画像をブラウザで開くように出来るんでしょうか。

http://localhost/uploda/src/nico61.txt
これが使ってるカウンタのスクリプトです。

詳しい方、どこを弄ればいいのか教えて頂けないでしょうか。
宜しくお願いします。

**nobodyさん** · 2009/06/19(金) 14:30:52

localhost のロダにあるものを見てくれと言われましても

**nobodyさん** · 2009/06/19(金) 14:39:19

http://niconama.ddo.jp/src/nico61.txt
ごめんなさい間違えました。

**nobodyさん** · 2009/06/19(金) 14:42:27

http://niconama.ddo.jp/uploda/scr/nico61.txt
度々すいませんこれです。

**nobodyさん** · 2009/06/19(金) 14:55:44

http://niconama.ddo.jp/uploda/src/nico61.txt
これです、ほんとすいません。

**nobodyさん** · 2009/06/19(金) 15:09:27

あまり関係ないが、hostsファイルに
127.0.0.1 niconama.ddo.jp
と書いておけばいいぞ。

**nobodyさん** · 2009/06/19(金) 22:11:17

>>156
スーレーちーがーいー

【スクリプト改造依頼スレ】(丸投げ) part7再々
http://pc11.2ch.net/test/read.cgi/php/1222645553/

**nobodyさん** · 2009/06/19(金) 22:19:49

>>156
それよりもnwhoisの再うｐ消せよ

**nobodyさん** · 2009/06/20(土) 11:40:20

文字の比較についての質問です。
以下のように書くと、「真」が表示されます。

if ("真" eq "真" ){
print "真";
}

しかし、以下のように書くと、「真」は表示されません。

if ("真" =~ /真/ ){
print "真";
}

if ("真" =~ "真" ){
print "真";
}

if ("真" =~ /"真"/ ){
print "真";
}

=~　を使用する場合において、「真」が表示される
ようにするにはどうしたらよろしいのでしょうか。

基本的なことですが、どうしても分からないので
質問させていただきました。よろしくお願い致します。

**nobodyさん** · 2009/06/20(土) 12:06:50

/\Q真\E/
CP932でコードを書くのをやめるという選択肢もあります。

**164** · 2009/06/20(土) 13:33:31

>>165
検索サイトでいろいろなキーワードで検索していたのですが、
なかなか答えとなるものが見つかりませんでした。
回答は非常に助かりました。ありがとうございます。

**nobodyさん** · 2009/06/20(土) 15:58:40

>>162
すいません移動します。

**nobodyさん** · 2009/06/22(月) 03:35:03

質問させていただきます。

CGIの勉強をしていてCGIの製作を行っているのですが、レスポンスが遅い気がします。
abでベンチを書けてみたのですが、10リクエストの処理に5秒もかかっています。（そんなに重いCGIではないです。

自分のコードの書き方が悪いのか、それともマシンが遅いのか調べたいのですが、abをかけるいいサンプルのようなものは無いでしょうか。
他のマシンでどれくらいのスピードで動いているかなどのサンプルがあるものだとうれしいです。

**nobodyさん** · 2009/06/22(月) 04:00:45

>>168
Devel::Profiler
Devel::NYTProf
これで性能分析ができるらしい
ボトルネックあるならこれで分かるだろー

**nobodyさん** · 2009/06/28(日) 17:18:33

日本語の単語を入力させるWebアプリ作っているんだが
Jcode.pmに文字コードを自動認識させようとするとたまに誤変換するんだが
(たとえば「えー」をucs2に変換させようとすると「？？？？？」に化ける)
その辺の認識精度を上げるにはどうすればいいのかな？

WebページはUTF-8で構成しているけど、フォーム入力から飛んでくる
文字コードはブラウザが勝手に決めてしまう、って認識で合ってるよね？

**nobodyさん** · 2009/06/28(日) 18:06:04

でんでんつがう

**nobodyさん** · 2009/06/28(日) 19:37:43

主要ブラウザの実装では、ページの文字エンコード指定もしくは自動判別したそれに従う。
ページのそれと変えたい場合もしくは、より厳密にしたい場合のために、HTML4ではform属性にaccept-charsetが追加された。ただしIE6は未対応。

このレスはたぶん大体あってる。

**nobodyさん** · 2009/06/28(日) 22:09:18

>>170
ブラウザの仕様はどうであれ、どんなコードでも対応できるように作っておくのはとても大切。
hiddenで文字コード判定用の文字列をpostしておくと良い。

**nobodyさん** · 2009/06/29(月) 01:22:45

でも無意味な場合もある

**nobodyさん** · 2009/07/05(日) 01:58:48

これを実行すると#2の出力が文字化けします。
恐らく GET のパラメータの文字コードが utf-8 でないためだと考えています。
どのようにすれば解決できるでしょうか。

#!/usr/bin/perl
use CGI;

my $cgi = CGI->new();
my $str = $cgi->param("str");

print $cgi->header( -charset => 'UTF-8' );

#1
print $str;
#2
sub {map {print $_, "\n"} split(//,shift) }->($str);

**nobodyさん** · 2009/07/05(日) 02:10:22

入力元のページは utf8 か？
そうじゃぁなければ use Encode しれ

**nobodyさん** · 2009/07/05(日) 09:58:44

>>176
ありがとう。できた。

**nobodyさん** · 2009/07/26(日) 00:42:20

漏れら極悪非道のageブラザーズ！
今日もネタもないのにageてやるからな！
￣￣∨￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 ∧＿∧ 　 ∧＿∧ 　　　age
　（・∀・∩）（∩・∀・）　　　　age
　（つ　　丿（　　⊂）　age
　（　ヽノ　　ヽ/　　）　　　age
　し（＿）　　（＿）Ｊ

**nobodyさん** · 2009/07/29(水) 22:19:43

すみません、質問させてください。

CGI(Perl)を使って外部のサイトからHTMLソースを取り込むにはどうしたら良いでしょう？
外部サイトのデータから統計を取って、データとして出力するようなCGIが書高と思ってます。

**nobodyさん** · 2009/07/29(水) 22:20:40

連レスすみません
>>179
「CGIが書高」→「CGIを書こう」です。

**nobodyさん** · 2009/07/29(水) 22:25:45

LWPでｸﾞｸﾞﾙといいよ

**nobodyさん** · 2009/07/29(水) 22:46:06

> LWPでｸﾞｸﾞﾙといいよ

知らないなら、「わかりません」って言えよ

**nobodyさん** · 2009/07/29(水) 22:54:54

それでは>>182先生、よろしくお願いします。

**nobodyさん** · 2009/07/29(水) 23:26:28

>>182
よっ！　待ってました！

**179** · 2009/07/30(木) 01:23:24

LMPでググったところ、HTTP::Liteというのを見つけたので、それを使用して解決しました。
ありがとうございます。

**nobodyさん** · 2009/08/04(火) 17:31:46

わからないのでお願いします。
文字化けする文字をこのように変えたいのですが変換されません。
どのように書けばいいのでしょうか。

$a =~ s/髙/高/g;

よろしくお願いします。

**nobodyさん** · 2009/08/04(火) 18:22:15

まず置換対象文字列の文字コードと書いてるコードの文字コードを把握しろ

**nobodyさん** · 2009/08/04(火) 18:46:13

>>186
髙が文字化けするので高に変えたいってこと？

**nobodyさん** · 2009/08/05(水) 08:42:09

test

**nobodyさん** · 2009/08/05(水) 10:00:37

>>187
ありがとうございます。

>>188
はい、そのようにしたいと考えております。

187さんのおっしゃる通りに、書いてるコードを確認したところEUCでしたので
sjisに変えてみたところ、うまくできました！
ここ数日、悩んでいたのですっきりしました。
187さん、188さん、ありがとうございました。

**nobodyさん** · 2009/08/05(水) 20:48:29

文字列の抽出についての質問です。
任意の文字で囲まれた
文字列をすべて抽出する方法がわかりません。

たとえば、abcabcabcといった文字列に対し
aとcで囲まれたすべての文字列を取得するには
どうすればいいのでしょうか？

この例だと
abc
abcabc
abcabcabc
abcabc
abc
が該当します。これらをすべて抽出したいのですが。

**nobodyさん** · 2009/08/05(水) 21:27:00

my $str = 'abcabcabc';
while($str =~ m/(a)/g){
my $pos = pos($str);
my $result = $1;
while($str =~ m/([^c]*c)/g){
$result .= $1;
print "$result\n";
}
pos($str) = $pos;
}

**191** · 2009/08/06(木) 09:27:03

返事が遅くなってすみません。
>>192さんありがとうございました。
思っていたように動作しました。

続けての質問で申し訳ないのですが
アルファベットで構成されるランダムな文字列
CFGTARFEQZCAZVHNNNGZYAKLOPYL..(みたいな感じです)
から例えば、Aから始まり X,Y,Zを中に含まず XまたはYまたはZで終わる
文字列をすべて抽出するには
どのようにすればよいのでしょうか？

実際には単一のアルファベットの連続ではなく
ONETWOTHREEFOURFIVE..のように
単語が適当に連続しているものと想定して使用できる記述を
(ONEで始まりSIXを含まずTENで終わりのように)
提案していただけると助かります。

よろしくお願いします。

**191** · 2009/08/06(木) 09:38:23

すみません、上の質問に対する追加です。
単語はONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE,TENが想定される
のように、あらかじめ分かっていて指定することができます。

**nobodyさん** · 2009/08/06(木) 15:43:26

てすと

**nobodyさん** · 2009/08/06(木) 23:46:37

んー、文字列探索のパッケージがありそうな気がするけど。てけとうに作って見た。

sub start {
my ($item, $sub) = @_;

return sub{
my ($str) = @_;
my $start = 0;
while((my $new = index($str, $item, $start)) >= 0){
$start = $new+length($item);
$sub->(\$str, $start, length($str), $item);
}
};
}

sub without {
my ($item, $sub) = @_;

return sub{
my ($str, $start, $end, $result) = @_;
my $new = index(${$str}, $item, $start);
$end = $new if ($new >= 0 && $new < $end);
$sub->($str, $start, $end, $result);
};
}

**nobodyさん** · 2009/08/06(木) 23:47:37

sub end {
my ($item) = @_;

return sub{
my ($str, $start, $end, $result) = @_;
while(1){
my $new = index(${$str}, $item, $start);
($new >= 0 && $new < $end) or last;
$result .= substr(${$str}, $start, $new+length($item)-$start);
$start = $new+length($item);
print "$result\n";
}
};
}

my $str = join('', map{
qw(ONE TWO THREE FOUR FIVE SIX SEVEN EIGHT NINE TEN)[int(rand(10))]
} (1..100));

print "$str\n\n";

start('ONE', without('SIX', end('TEN')))->($str);

**191** · 2009/08/07(金) 00:23:46

>>196,197さん　ありがとうございます。
動作検証し、勉強させていただきます。

複数のファイルから質問のようなことをしたくて
テキストエディタでの単純な正規表現での処理だと面倒なので
やったこともないプログラミングのようなことをを試みたのですが
単純なマッチングでは、オーバラップしているところが
検索から漏れて困ってました。

**196** · 2009/08/07(金) 01:07:13

実際にやってることは、くっだらない事だから、あまり期待しないでね。

終わりの条件を複数にするのを忘れてたけど、
$subを配列にしてループさせると、探索条件を複数にすることもできると思う。

**nobodyさん** · 2009/08/07(金) 01:34:42

>>196
是非わが社に(笑)

掲示板見てると出来る人そこそこいるのにperl経験者募集かけても全然こないのは
年寄りが多いのか…若くてもそこそこの地位になってるのか…

正規表現あんまり自信ないですくらいなら許せるが
リファレンスもOOPもわかりませんって人多くて最近疲れ気味だ(泣)