Perl コーディング初心者質問コーナー Part36
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
04/07/14 13:23ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0075nobodyさん
04/07/18 07:57ID:???ここがよくわからん
0076nobodyさん
04/07/18 08:34ID:???0077nobodyさん
04/07/18 09:59ID:???data[1〜1000] にそれぞれ5〜9の値が入っていて、
その値に応じて新しい配列(5個)を生成したい、
ってことだと思う。
>>74のいうようにpushとifでできるやぁね
0078nobodyさん
04/07/18 11:04ID:???0079nobodyさん
04/07/18 12:02ID:???効率なんて考えていないので添削キボンヌm(_ _)m
# 5,6,7,8,9 の数字が 1000 個入っている配列（リスト）
# 仮に rand を使って生成。
my @Source_array = map { ((5..9)[int rand 5]) } 1 .. 1000;
# を、それぞれ値 (5 〜 9) によって選別したい。
# でも 5 つも配列を作るのは、のちのちややこしくなるので、ここは 1 つの配列に格納して、
# それぞれを呼び出しやすくする。（リストリファレンスが 5 つ入っているハシュにする）
my %Dist_hash;
push @{$Dist_hash{$Source_array[$_]}}, $_ foreach 0 .. $#Source_array;
# 呼び出し方。
# 値が 7 の @Source_array の添え字を表示する。
my $value = 7; # 範囲は 5 から 9 の間で指定しる。
printf qq|\$Source_array[%s]\n|, join(', ', @{$Dist_hash{$value}});
# 実際に @Source_array の値を表示してみる。
printf qq|\$Source_array[%d] = %d\n|, $_, $Source_array[$_] foreach (@{$Dist_hash{$value}});
008072
04/07/18 14:14ID:???意図してたのはまさに77氏の言うとおりです。
79さんどうも！思ってたことができました。こんなの自分で考え付けるようになりたい。
ありがとうございました。
0081nobodyさん
04/07/18 22:22ID:LXS4mDIw@bb = qw[1 2 3];
$cc = "cc";
&hoge($aa,@bb,$cc);
sub hoge($,@,$){
my $aa = shift;
my @bb = shift;
my $cc = shift;
print "$aa \n";
print "$_\n" foreach(@bb);
print "$cc\n";
}
関数に変数と配列を渡し、関数側でそれぞれ上記のように
スカラ変数と配列を区別させて認識させたいのですが
どのようにすれば良いのでしょうか？
よろしくお願いします。
0082nobodyさん
04/07/18 22:25ID:???リファレンス使え。
0083nobodyさん
04/07/18 22:29ID:???http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlsub.html#Pass_by_Reference
008481
04/07/18 22:30ID:???もし使わずに実現できる方法があれば教えてほしいです。
0085nobodyさん
04/07/18 22:34ID:???動かしたいと考えています。perlを使ったCGIで
ルートユーザかしか使えないコマンドを
入力する方法はないでしょうか？
今、自分が作っているCGIの前に人が作った
認証を通す必要があり、ユーザは自分が指定した
一般ユーザでログインしているという形になります。
通常のコマンドであればシングルコーティションで
囲えばよいことがわかっているのですが、当たり前
ながら一般ユーザではroot専用のコマンドは
入力できません。
方法がありましたら、教えてください
0086nobodyさん
04/07/18 22:51ID:???0087nobodyさん
04/07/18 22:55ID:???配列が一番後ろなら出来る。
が、リファレンスを使った方が問題が起こりにくい。
リファレンスを使わずにやるなら、複雑な方法になるか、問題の起こりやすい方法になるかどっちかだ。
0088黒死犬 ◆EgxBlf8nvc
04/07/18 23:00ID:???Perl5.8以上なら
sub hogging($\[@]$) {
my $top = shift;
my @middle = @{+shift};
my $bottom = shift;
print("top = [$top]");
print("middle = [@{[join(',',@middle)]}]");
print("bottom = [$bottom]");
}
my @unko = (A..Z);
test("Test Start", @unko, "Test End");
これで出来ますよ
0089黒死犬 ◆EgxBlf8nvc
04/07/18 23:02ID:???s/test/hogging/;
0090nobodyさん
04/07/18 23:51ID:???プロトタイプ宣言は 5.002 から利用可能だが。
sub test($\@$) {
my $top = shift;
my @middle = @{+shift};
my $bottom = shift;
...
0091nobodyさん
04/07/19 00:02ID:???hoge($aa,@bb,$cc,@dd) みたく配列が二つ以上ある場合でもできたりします?
0092nobodyさん
04/07/19 00:08ID:???確認ぐらい人に聞かなくてもできるでしょ?
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlsub.html#Prototypes
0094黒死犬 ◆EgxBlf8nvc
04/07/19 13:14ID:???そうなんですか
自分が情報を得ているところでは、[Perl5.8の新機能]となっていた為、誤解をしてしまった様です
ご指摘有難うございます
0095nobodyさん
04/07/19 16:08ID:???0096nobodyさん
04/07/19 21:58ID:54seOava上手く書き込めません。
同じ行に表示されるようにしたいんですが、次の行に改行されてしまいます。
上手く、一つのセルに改行したデータを入れたいんですが、どうすればよいでしょうか？
コードは、下のようなのを使っているのですが・・・・
根本的に間違ってたりするんでしょうか？
$aaa = '123';
$bbb = '456';
@ccc = '789',
'0123';
open(LOGFILE,">>log.csv");
$LOG = "$aaa,$bbb,@ccc";
print LOGFILE $LOG;
close LOGFILE;
0097nobodyさん
04/07/19 22:13ID:???Excelで表示する時の話？セルっつーのが何のことやら。
特定のアプリでの表示の話なら、
逆にそのアプリで改行して保存したものを覗いてみれば分かると思われ。
0098nobodyさん
04/07/19 22:27ID:54seOavaExcelで開いた場合です。説明不足ですみません。
メモ帳で開くと、改行のコードの問題みたいです。
改行コードの変換は
$ccc =~ s/\n/\r/g;
で良いんでしょうか？
0099nobodyさん
04/07/19 22:32ID:OSilZxWFperlコーディングには関係ないが
CSV形式では普通セル内に改行やカンマがあるときは「"」で囲うよ。
で「"」内では「"」を「""」で表現する
それからエクセルではセル内の改行は\r\nではなくて\n
0100nobodyさん
04/07/19 23:24ID:54seOavaエクセル内の改行は\nなんでしょうか？
とすると、
$ccc =~ s/？/\n/g;
「？」の部分には何を入れればよいのでしょう？
上記のように、s/\n/\r/g; として書き込んだファイルを
メモ帳で開くと、見た目はUNIX改行コードっぽくなっているのですが、
エクセルで開くと、セル内改行が出来ていないようです・・・
0101nobodyさん
04/07/19 23:56ID:???１ │３ │４
２ │ │
─┼─┼─
５ │６ │７
│ │８
↓
"１\n２",３,４\r\n５,６,"７\n８"\r\n
あとメモ帳じゃなくてバイナリエディタ使ってみな。
0102nobodyさん
04/07/19 23:59ID:???http://www.din.or.jp/~ohzaki/perl.htm#CRLF_Unify
0103nobodyさん
04/07/20 13:48ID:???ロケットマウスというソフトの設定ファイルをperlで生成して出力させようと
思ったのですが
ロケットマウスでは記号(){},+^~%`と半角スペースは特殊文字として
認識されてしまうのでメタキャラとして設定ファイルとして書き込む場合には
「+あかさたな+」という文字列では
「{+}あかさたな{+}」と置換してからファイルに書き込むようにしなければならないので
my $Name_T = '+あかさたな+';
my $Name_T = ~s/+/{+}/g;
のように置換できたのですが
「+-あかさたな-+」のようなものを上に書いたような形で一発で置換する
ことはできないのでしょうか？
最悪一つ一つ置換していけばOKなのですができればスマートに
できたら幸せになれます。
どうぞよろしくお願いします。
0104nobodyさん
04/07/20 14:08ID:???s/([\x20(){},+^~%`])/{$1}/g;
http://www5a.biglobe.ne.jp/~n_rieko/perl/8.htm
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlre.html
WebProg と関係無い Perl の話はム板のスレへ。
http://pc5.2ch.net/test/read.cgi/tech/1085564875/
0105103
04/07/20 14:24ID:???勉強になります。
次からはム板でさせていただきます。
0106nobodyさん
04/07/22 07:13ID:???@data=<DATA>;
close(DATA);
foreach $data( @data ) {
とやって、同じディレクトリのindex.htmlを読み出して、携帯電話対応に書き換えるスクリプトを作ってたんですが、
ヘッダーをつける
<body>という文字列が見つかるまで、$data = '';に書き換える
次の$dataから書き出す
</body>が見つかったらそれ以降を$data = '';に書き換える
フッターをつける
とやってたんですが、なんか回りくどい気もします。
ヘッダ、body要素の中身、フッタを簡単に分ける方法ってないですかね。
0107106
04/07/22 07:43ID:???@dataから一行ずつ引っ張り出した、<body>〜</body>の$dataを@bodyに格納したいんですが、
$dataを書き直して、@bodyに入れていく、の方法がわかりません。
$dataを書き直して吐き出す、までは出来てるんですけど。
#@bodyをバイト数で割って、「次のページ」というのをやりたいんです。
0108106
04/07/22 08:06ID:???で出来ました……。板汚しごめんなさい。
0109nobodyさん
04/07/22 09:18ID:0RDyhyxo$data .= $_ while read(DATA,$_,1024);
close(DATA);
if ($data =~ m{<\s*body.*?/body\s*>}i) {
$head = $`;
$body = $&;
$foot = $';
}
0110nobodyさん
04/07/22 13:24ID:???#!/usr/local/bin/perl
use strict;
my @body;
m|<body>| .. m|</body>| and push @body, $_ while <DATA>;
shift @body; # <body> を捨てる
pop @body; # </body> を捨てる
print @body;
__DATA__
<html>
<head><title>test</title></head>
<body>
<h1>test</h1>
<p>foo</p>
<p>bar</p>
</body>
</html>
0111nobodyさん
04/07/23 00:29ID:TCCtsz0d指定したURLのファイルの更新時間を取得したいのですが
どうやって取得すればいいのでしょうか？
0113111
04/07/23 00:59ID:TCCtsz0dぐぐってHTTPの仕様と言う事はわかったのですがそれ以上の事は解りませんでした。
それをどうすれば取得できるのでしょうか？
0114nobodyさん
04/07/23 01:09ID:???0115111
04/07/23 01:31ID:TCCtsz0drequire LWP::UserAgent;
$ua = LWP::UserAgent->new;
$request = HTTP::Request->new('GET', 'http://google.co.jp/');
$response = $ua->request($request); # or
$response = $ua->request($request, '/tmp/sss'); # or
$response = $ua->request($request, \&callback, 4096);
sub callback { my($data, $response, $protocol) = @_;
print "$data";
}
0117111
04/07/23 01:39ID:TCCtsz0dHEADだと何も帰って来ないんです。
からっぽです。
0118nobodyさん
04/07/23 01:41ID:???http://www.studyinghttp.net/
http://member.nifty.ne.jp/hippo2000/perltips/LWP.html
0119111
04/07/23 01:43ID:TCCtsz0d両方とも紫色です・・・。
0120111
04/07/23 02:04ID:TCCtsz0drequire LWP::UserAgent;
$ua = LWP::UserAgent->new;
$request = HTTP::Request->new('HEAD', 'http://akky.cjb.net');
$response = $ua->request($request);
($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime($response->headers->last_modified);
$year += 1900;
++$mon;
print "更新時：$year年$mon月$mday日 $hour時$min分$sec秒\n";
0121111
04/07/23 02:06ID:???0122nobodyさん
04/07/23 11:00ID:???ソース：
ttp://tool-ya.ddo.jp/2ch/trash-box/file/20040723105619092.zip
gifcatで連結して出力する場合、ブラウザで確認すると、桁が左側から順に表示されてしまいます。
連結されて一つの画像になっているにもかかわらず、桁ごとに表示されるという現象が起こっています。
一桁ずつ順に表示するのではなく、例えば5ケタなら5ケタ分を一気に表示させたいのですが、
どのように記述すればいいのでしょうか。
0125nobodyさん
04/07/23 14:01ID:???0127nobodyさん
04/07/23 14:18ID:???でもそれじゃあ格好がつかない というわけで
連結(conCATenate)だと由来を後付した。
0128nobodyさん
04/07/23 14:35ID:???0131nobodyさん
04/07/23 15:57ID:???.._ .......､._ _ ／:/l! そんなエサでぬこさまが(ry
:~""''.>ﾞ' "~ ,､､''‐'､| _
ﾞ､'､::::::ﾉ:::::::_,.-=. _〜:、 ／_.}'':,
``､/:::::::::__....,._ `ﾞ'Y' _.ｪ-､....._ ／_ﾞ''iﾞﾉ､ﾉ
,.--l‐''"~..-_'.x-='"ﾞｰ ､`'-､ ,:' ﾉﾞﾉﾌﾞ
" .!-'",／ `'-‐'') /＼ `/ てﾞノ-〈
.-''~ >'ﾞ:: ‐'"ﾞ./ ヽ.,' ~ ／
／/::::: ', / ,:'ﾞ
0133nobodyさん
04/07/23 17:17ID:???foreach $temp (@line) { # @lineはログ
$temp =~ s/\s*$//;
@data = split (/\t/, $temp); # タブ区切りなのでタブで分割
if (index ($data[0] . $data[1] . $data[2], $words) > -1) { # 名前,メール,本文 $wordはフォームから受け取った検索ワード
push (@new, $temp);
}
}
このようにして、@newの中身をforeachで書き出せば、指定語句を含むものだけは書き出せました。
これを、検索ワードをスペース区切りで複数指定可能にしてAND検索をできるようにしたいと思っています。
$word =~ s/\x81\x40/\t/g; # スペースで区切って入力されたフォームの検索ワードをタブ区切りにする
@words = split (/\t/, $word); # 検索ワードをタブで区切って配列に入れる
この2行を追加して検索ワードを複数取得したのはいいのですが、indexの第二引数の部分で@wordsの中身を全て含む場合の記述方法が思い浮かびません。
どのような記述方法があるのでしょうか。
0134133
04/07/23 17:43ID:???@words = split (/\t/, $word);
foreach $temp (@line) {
$temp =~ s/\s*$//;
@data = split (/\t/, $temp);
foreach (0 .. $#words) {
if (index ($data[1] . $data[2] . $data[6], $words[$_]) > -1) {
push (@new, $temp);
}
}
}
このように記述してしまうと、検索ワードを複数指定した場合、
「検索ワードを含む記事の数 * 検索ワード数」分の記事が出てしまうのです。
Ex1.
「オレオレ！ばぁちゃん、車ぶつけて50万必要なんだ」という記事がある場合、
検索ワードを「オレオレ ばぁちゃん 車ぶつけて 50万必要」などとすると、同じ記事が4つ@newの中に入ってしまいます。
Ex2.
「オレオレ！ばぁちゃん、車ぶつけて50万必要なんだ」という記事と、
「オレオレ！ばぁちゃん、車ぶつけて50万必要なんです」という記事がある場合、
検索ワードを「オレオレ ばぁちゃん 車ぶつけて 50万必要」などとすると、
「〜必要なんだ」という記事が4つ、「〜必要なんです」という記事が4つの計8つが@newの中に入ってしまいます。
0135nobodyさん
04/07/23 17:50ID:???0136133
04/07/23 18:00ID:???＞ if (index ($data[1] . $data[2] . $data[6], $words[$_]) > -1) {
この部分は
if (index ($data[0] . $data[1] . $data[2], $words[$_]) > -1) {
の間違いです。失礼しました。
0137nobodyさん
04/07/23 18:18ID:???http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlsyn.html#Loop_Control
0138nobodyさん
04/07/23 18:20ID:???そこまで書けるんならそんな難しい事じゃないと思うぞ。
foreachの中でマッチするたんびにpushしてるからそうなるんであって、
flag設定してflagたった時だけpushするとか、
grepで一個でもtrue返したらpushするとか。
方法はいろいろあると思うけど、もうちょっと自分で考えてみれば？
0139nobodyさん
04/07/23 18:43ID:???無駄フラグ作ったり、grepで全検査するよか
LINE: foreach $temp (@line) {
・・・
foreach (0 .. $#words) {
next LINE if index($data[0] . $data[1] . $data[2], $words[$_]) == -1;
}
push (@new, $temp);
}
のがいいのでは？
>>137はそういうことではないかと。
0140nobodyさん
04/07/23 18:52ID:???いろいろ方法はある訳で、
ちょっとは自分で考えたら？
と言いたいわけですわ
0141nobodyさん
04/07/23 19:22ID:???漏れは元質問者じゃねーが、壷に嵌ったときはさらさらコードを書けるが、ドツボに嵌った時は何をやっても書けない。。。
そんな時つい2ちゃんに書きたくなるんだよ。
0142nobodyさん
04/07/23 19:28ID:???それこそ幾通りも方法はあるし、それじゃ
丸投げと同じじゃんよ。
少しは自分で考えてやってみろって、
それでうまく行かないってんならアドバイスのしようもあるけど、
0145126
04/07/23 20:14ID:???0146nobodyさん
04/07/24 03:47ID:???0148nobodyさん
04/07/24 08:46ID:???おーい、そろそろ次の質問をどうぞー。
みんな暇してるゾ。
0149nobodyさん
04/07/24 10:01ID:???\x8e\x9f\x82\xcc
EOT
\x8e\xbf\x96\xe2
EOU
\x82\xc7\x82\xa4\x82\xbc
EOV
0150133
04/07/24 17:26ID:???もう少し色々実験してみます。
0151nobodyさん
04/07/25 04:48ID:???5000文字に一番近い\nごとに区切りたい（4951文字目のあとに\nが来れば、4951文字目まで、とそれから5000文字に一番近い\nまで、という感じです）のですが、
substrを使ったら\nの個数がでてきたり、と全くわけがわからなくなってしまいました。
ご教授願えませんでしょうか。
0152nobodyさん
04/07/25 06:27ID:RBsrNYZOわけがわからないのはお前の質問だ。落ち着いてわかるように書け。
とりあえず突っ込みどころとしては
配列@fooに文字列が入ってるってどういうことよ?
5000文字に一番近い\nっていうが、4999文字目と5001文字目に\nが
あったらどっちが一番近いのか?
一番近いの\nごとというが、一番近いのは1つじゃないのか?
\nがなかったらどうするよ?
0153nobodyさん
04/07/25 06:47ID:???＠＠＠＠＠＠＠\n
＠＠＠\n＠＠＠＠\n
＠＠＠＠＠＠\n
＠＠＠＠＠＠＠＠＠\n
こんな感じに幅を合わせたいんじゃない？
5000文字目から後ろに\nを探して最初に見つかったところで──って感じかなあ。
正規表現は{,5000}みたいに大きな数字は扱えなかったような気がするので、
ループが入るとは思う。
0154nobodyさん
04/07/25 07:00ID:???>153さんのいうような感じで、5000以下のパケットのようなものを作りたいんです。
具体的に言うと、
ページを携帯電話対応に書き換えるスクリプトを作ってるんですが、
ヘッダをとって、body部分を6KB以下に分けたいんです。
ただ、改行で切らないと、タグの途中で切れたりしちゃうので、それを避けるために一番近い（以前に、です）\nを探す、というのも必要だったんです。
0157nobodyさん
04/07/25 09:25ID:???0158nobodyさん
04/07/25 10:03ID:???href="hoge">
とか二行に分かれてたらどうすんだよ。
0161nobodyさん
04/07/25 16:36ID:???二つのCGIがあり、片方はフォームからPOSTで。
もう片方は<a href= でリンクで飛ばしています。
これらを別のCGIで吐き出されるページで使いたいのですが、
片方ずつならちゃんと動作するのに、両方を同時に設置するとどちらもエラーになります。
GETとPOSTは共存できないのですか？
0162nobodyさん
04/07/25 17:12ID:???0164nobodyさん
04/07/25 17:36ID:???んだ。イメージが全然浮かばない。
クライアントからの１リクエストにGETとPOSTを同時に含めることはできない。
URLにGETもどきのパラメータを仕込んでPOSTすることは可能。
・・・って、くらいしか答えられん。
0165nobodyさん
04/07/25 20:19ID:???substr($x, 0, 1+rindex($x, "\n", 4999))
よくわからんが結局こういうことがやりたいのだろうか?
5000文字以内に改行がないときは空文字列になるけど、
いやなら適当に直してね。
0166nobodyさん
04/07/25 22:29ID:???引っ張ってくる画像が閲覧可能であるか、不可であるのかは判別可能でしょうか？
思考錯誤してますがどうにも苦戦中です。
何卒ご指導お願いします
0167nobodyさん
04/07/25 22:33ID:8FggQcGjhttp://〜/member.dat のようなファイルをHTMLで読見込むにはどうしたらよいでしょう？
勿論Perlでも構いません
教えてください
それで、CGIを実行出来るかアドレスを打ったのですが、
ファイルのダウンロード
ファイルによっては、コンピューターに問題を起こす可能性があります。
以下のファイル情報に関して疑わしい点がある場合や、発信元が完全に信用で
きない場合は、このファイルを開いたり保存したりしないでください。
ファイルを開くか、ファイルをコンピューターに保存するか選択してください。
と、でてしまい開くを押しても何も起こりません。
どうすればCGIを実行出来るんでしょうか？
すません、わかりました。
ありがとうございました。
0171nobodyさん
04/07/26 00:33ID:???それです。完璧です。有難う御座いました。
0172nobodyさん
04/07/26 01:11ID:???呼び出すと、文字化けしてます。content-typeが問題な気もするんですが、どうしたらいいんでしょうか。
0173172
04/07/26 01:20ID:???0174nobodyさん
04/07/26 05:28ID:???■ このスレッドは過去ログ倉庫に格納されています