Perlコーディング初心者質問スレ Part 39
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
04/11/27 11:35:03ID:DJwiGeFM【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0732nobodyさん
05/01/13 20:18:35ID:???http://pc5.2ch.net/test/read.cgi/php/1104624784/2
0733nobodyさん
05/01/13 20:24:29ID:???Shift_JISなら分からなくも無いけど…。
Shift_JISの「ﾐ」も\xD0。
# またはDBの最新バージョンで人柱状態？
>>719
0xF040から0xF9FCの外字なら、予めチェックするしかないかも。
>>731
?
0734nobodyさん
05/01/13 21:16:56ID:???うまくいきません
sub search1 {
local($dir) = $_[0];
local(@filelist, $file, $filename);
opendir(DIR, $dir);
@filelist = readdir(DIR);
closedir(DIR);
$begin = $FORM{'page'} * $hyouji;
$end = $bigin + $hyouji;
if($end > @filelist) {
$end = @filelist;
}
（続く）
0735734
05/01/13 21:17:55ID:???#foreach $file (@filelist) {
for ($a = $bigin; $a < $end; ++$a) {
if ($file eq ".") { next; }
if ($file eq "..") { next; }
$filename = "$dir/$file";
if (-d $filename) {
if ($recursive_flag) {
&search1($filename);
}
} else {
&search2($filename, $dir);
}
}
if ($end < @filelist) {
$nextpage = $FORM{'page'} + 1;
print "<a href=\"$ENV{'SCRIPT_NAME'}?page=$nextpage\">次へ</a>\n";
}
#}
}
0736734
05/01/13 21:19:50ID:???動作も正常に動いてはいないようです
どなたか知恵を貸してください
よろしくお願いします
0737nobodyさん
05/01/13 21:27:49ID:RpTwbNys$begin
$bigin
use strict
を使う癖をつけましょう。
0738734
05/01/13 21:57:15ID:???ご指摘ありがとうございます
うっかりミスです
しかし直しても動作は変わりありません
構文自体が悪いのでしょうか？
頭がテンパってきました
助けてください…
0739nobodyさん
05/01/13 22:01:32ID:RpTwbNysもうちっと、ソースを整理して晒しておくれ。
search2というのが何なのかも分からないし・・・。
0740734
05/01/13 22:21:11ID:???すみません、インデントつけます
sub search1 {
local($dir) = $_[0];
local(@filelist, $file, $filename);
opendir(DIR, $dir);
@filelist = readdir(DIR);
closedir(DIR);
$begin = $FORM{'page'} * $hyouji;
$end = $bigin + $hyouji;
if($end > @filelist) {
$end = @filelist;
}
（続く）
0741734
05/01/13 22:23:11ID:???for ($a = $bigin; $a < $end; ++$a) {
if ($file eq ".") { next; }
if ($file eq "..") { next; }
$filename = "$dir/$file";
if (-d $filename) {
if ($recursive_flag) {
&search1($filename);
}
} else {
&search2($filename, $dir);
}
}
if ($end < @filelist) {
$nextpage = $FORM{'page'} + 1;
print "<a href=\"$ENV{'SCRIPT_NAME'}?page=$nextpage\">次へ</a>\n";
}
# }
}
0742734
05/01/13 22:29:34ID:???#foreachは最初からあったやつで、コメントアウトしています
&search2はソース長いので説明すると
ループさせてファイルの中身を一文字ずつ検索させてるようです
>740の
$begin = $FORM{'page'} * $hyouji;
$end = $bigin + $hyouji;
if($end > @filelist) {
$end = @filelist;
}
この部分と
>741の
if ($end < @filelist) {
$nextpage = $FORM{'page'} + 1;
print "<a href=\"$ENV{'SCRIPT_NAME'}?page=$nextpage\">次へ</a>\n";
}
が自分で付け足した所です
0743nobodyさん
05/01/14 01:17:04ID:???別スレでやってくれ。
★三 【 スクリプト改造工房 PART 8 】 ★三
http://pc5.2ch.net/test/read.cgi/php/1077525387/ 79にテンプレあり
0744nobodyさん
05/01/14 07:32:45ID:3YybYM3/とやると$hogeは455になるのに、
$hoge=int(1.4*325);
とやると$hogeは454になってしまいます。
他の数字でも起こるようです。何故ですか？
というか、意図した通りにさせる方法はありますでしょうか。
0745720
05/01/14 08:13:20ID:???ありがとうございます。
全然誰も答えないからこのスレ、レベルが下がったのかとおもいました；
数スレ前では自分で誰かに回答してあげた覚えもあるんですが、最近の過去ログは
普通の人は見れないようで。
>>all
お前らもっと精進しろよ、な。
0746nobodyさん
05/01/14 09:27:13ID:AgX5dpSc異なる意味をもつ字を*で連結した上の文字列の中から1字を消して連結用のアスタリスクの数も
正常にする。
ということがしたい場合どういうみんなコーディングする？aとdでは処理が変わるんだよね。
しかしそれをなるべく簡潔にしたい。
0747nobodyさん
05/01/14 09:31:58ID:???慣れていないと面食らうがほとんどのプログラミング言語ではそれが標準仕様。
詳しい説明は「浮動小数点数」「精度」などで検索すれ。
防ぐ方法は幾つかある。まぁこのケースなら1が無難かな。
1. 整数同士の演算にする： 1.4*10*325 (1.4*325*10ではうまくいかないことに注意)
2. sprintfで処理する：sprintf '%f', 1.4*325
3. bignumプラグマ： use bignum;print int(1.4*325) (ただし破滅的なほど遅い)
0749nobodyさん
05/01/14 09:35:33ID:az2EqpkZこの２つの変数内の文字列を比較していって、先頭から同じ文字が続くところまで$hoge2から削除するにはどうすればいいでしょうか。
たとえば、$hoge1=a/b/c/d/,$hoge2=a/b/c/d/e/f/だったら、$hoge2=e/f/としたいのです。
0750746
05/01/14 09:37:35ID:AgX5dpSc$a =~ s/a[*]?//;
$a =~ s/[*]*$//;
0751nobodyさん
05/01/14 10:31:14ID:???？
0752nobodyさん
05/01/14 10:56:17ID:???$a .= '*';
$a =~ s/a\*//;
chop $a;
$aを使うのはお勧めできないがそれは置いておこう。
0753749
05/01/14 10:58:23ID:az2EqpkZ例が適切でなかったかも知れません
$hoge1='a/b/c/d/e/f'
$hoge2='a/b/c/d/g/h/'
だったら、
$hoge2='g/h'
にしたいのです
0754nobodyさん
05/01/14 11:42:26ID:LszGQepz「Win32::OLE」は使えないのでしょうか？
もし使えないなら、代わりになるものはありますか？
0755nobodyさん
05/01/14 11:48:36ID:???my $re = '';
foreach (reverse split //, $hoge1) {
my $q = quotemeta($_);
$re = "(?:$q$re)?";
}
$hoge2 =~ s/^$re//;
0756nobodyさん
05/01/14 12:35:06ID:???sub hoge {
my $max = length $_[0];
my $pos = 0;
$pos++ while substr($_[0], $pos, 1) eq substr($_[1], $pos, 1) && $pos < $max;
# 「$hoge2='g/h'」は typo か?
substr $_[0], $pos, length substr +($_[2] ? $_[1] : $_[0]), $pos;
}
print hoge($hoge2, $hoge1), hoge($hoge2, $hoge1, 1); # g/h/g/h
0757734
05/01/14 12:52:14ID:???誘導ありがとうございます
逝ってきます
0758nobodyさん
05/01/14 15:29:10ID:AgX5dpSc現在注文管理部分の注文してくれた客に出す「確認メール」というものを作成するための
メールフォームを作っています。
docomoでは500byteまでという制限があります。
500byteなんてあっというまなので対策を考えてます。
一つ考えたのは500byteを超える場合は２通に分割するという方法です。
しかしマルチバイト文字の途中で分割すると２通目以降が悲惨なことになるので
どうにかしてそれをクリアにしたいです。
「確認メール」の内容はその時によって違うので、先に分割地点を決めるのは無理です。
メールフォームを使うのは500byteの意味を知らないパートさんで、入れ替わりなので
扱う人間に期待をするのは難しいです。
メールフォームでつくられた本文を受け取り送信する側のCGIで何とかしたいです。
日本語を綺麗に途中で分割することってできますか？簡単にできるモジュールなどありましたら
教えてください。
0760758
05/01/14 15:49:19ID:AgX5dpScここを参考にとりあえず配列に文字単位で格納して、
それから@text[0..500]などでやってみようと思います。
ただメチャクチャ重くなるような気がしてるのですが＾＾；
でも何かアドバイスありましたらお願いします。
0762758
05/01/14 16:20:31ID:AgX5dpScJcodeですか。調べてみます。
ところで
$a = 100/3;
のように$aに小数点が含まれる場合は切り上げをしたいんですがどうすればできますか？
切捨てはintで一発ですが、切り上げは一度小数点があるかないかを調べないとダメです如根。
0764nobodyさん
05/01/14 16:30:38ID:???0767758
05/01/14 16:59:43ID:AgX5dpSc感謝ですm(_ _)m
0768nobodyさん
05/01/14 19:11:08ID:???perlメモ風の切り上げ処理は
$tmp2 = int($tmp1) + ($tmp1 <=> int($tmp1));
かな。
>>747
ありがとうございました。整数でやってみます。
0769nobodyさん
05/01/15 13:17:48ID:X2SjZomE何通もメール送られたらユーザーも迷惑でしょ。
0770nobodyさん
05/01/15 14:59:51ID:2P0rPuHEformtest.htmっていうページからformtest.cgiにデータを送信しようと
おもったんですが。formtest.htmには入力フォームが２つあってそれぞ
れdataAとdataBです。dataAはaaaとdataBにはbbbと。それをpostで送信
しました。formtest.cgiには
#!/usr/local/bin/perl
read(STDIN,$buffer,$ENV{'QUERY_STRING'});
print"Content-type: text/html\n\n";
print"<HTML><BODY>\n";
print"$buffer";
print"</BODY></HTML>\n";
とあります。画面にはdataA=aaa&dataB=bbbと表示されるはずなんですが
でません。ちなみにgetとpostの両方で送信してみましたが、出来ません、
でも他に文字を表示させるだけのＣＧＩがあるんですが、それはは動き
ます。
0771nobodyさん
05/01/15 15:11:38ID:???根本的に間違い。
http://www.rfs.jp/sitebuilder/perl/03/02.html
ずっと下にある「GET/POST データを読み込む」でも読みたまえ。
0772nobodyさん
05/01/16 10:58:07ID:LfCWlcLWすぐ2000行とかになっちゃうんですが、普通ですか？
長くなりすぎてちょっとした内容修正の時にも該当箇所までスクロールするのが面倒
だったりします。
みなさんはどうやっておられるのでしょうか？
HTML部分を別ファイルにしてメインプログラムから読み込むだけのような
形式にしてるのでしょうか？
0773nobodyさん
05/01/16 11:01:18ID:???0774nobodyさん
05/01/16 11:05:45ID:???・コードの行数は処理次第。各ページ2000越えるのはありえない。全体で2000行のCGIでショップ運営もありえない
・めんどくさがりすぎ。行ジャンプかインク李メンタルサーチで移動
・HTMLは当然別
0775nobodyさん
05/01/16 11:13:24ID:???ページベースの設計してるPerlCgiは今はそんなにないよ。
0776nobodyさん
05/01/16 12:01:04ID:???思ってる時点でなんかヤバイ気がするんだが
気のせい?
もちろん大量の商品があるのでみつけやすいよう
に検索や分類の機能を作りこむとかで規模増える
ことはあるだろうけれども、そういう意味で言っ
てるようには見えない。
0777nobodyさん
05/01/16 12:06:48ID:???0778772
05/01/16 12:13:57ID:LfCWlcLW多分みなさんレベルから見たらかなりマヌケなコーディングだと思います；
基本的に一つのindex.cgiで全頁のメインを書いてます。
現状ではHTMLもかいてます。それぞれわけるなら全面CGIにする必要性もあまり感じられませんし。
>>776
行数は増えていくと思います。商品の紹介文などを別にしない限りは。
多分みなさんが言うのはHTMLや商品コメント、価格その他はDBに突っ込んで
メインから読み込んで処理しろということだと思います。
現状は商品コメント以外はテキストファイルに作ってありますが、
なんとも中途半端な状態です。
かなりヒントになりました。あちがとうございます。
一つ質問ですm(_ _)m
使い終わった変数をundefしたいというか削除したいのですが、
undef $a;
これだとスカラー一つ筒しかできないのですがどうやればいいんですか？
my ($a,$b,$c,$d) = (undef)x4;
今はこうやってますが、これってほんとに
undef $a;
undef $b;
..
と同じ効果が得られているんでしょうか？一応中身は消えてるみたいですが。
0779772
05/01/16 12:19:44ID:LfCWlcLW書き間違えです。
($a,$b,$c,$d) = (undef)x4;
こっちです。
0780nobodyさん
05/01/16 12:50:22ID:???my ($a,$b,$c,$d) = (undef)x4;
foreach($a,$b,$c,$d){
printf "%sdefined", defiend $_ ?'' : 'Not';
}
0781nobodyさん
05/01/16 12:57:20ID:???アー逆スマソ。
my ($a,$b,$c,$d) = (undef) x4;
printf qq|%s -> %sdefined\r|, $_, defined $$_ ? q|Not| : q|| foreach(qw|a b c d|);
0782nobodyさん
05/01/16 15:40:03ID:???よくわからんが、HTML::Template 使うと幸せになれるとかそういう話じゃないのか
使い終った変数を undef したいというのも、なぜそんなことをしたいのかよくわからん。
巨大なメモリを喰うオブジェクトを destroy して解放したいというならわからんでもないが。
0784nobodyさん
05/01/16 16:22:42ID:???これはご存知？
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlsub.html#Private_Variables_via_my_
> “my”は、それを囲んでいるブロック、条件文 (if/unless/elsif/else)、
> ループ(for/foreach/while/until/continue)、サブルーチン、eval、
> あるいはdo/require/useされたファイルに(lexicalに)閉じ込められる変数を定義します。
{
my ($a, $b, $c) = qw(1 2 3);
}
# 他で参照していない限り、ここで$a,$b,$cは無くなります。
print $a, $b, $c; # use strictならエラー
グローバル変数をundefするというのなら、
undefするより別の名前の新しい変数を作るべきです。
0787784
05/01/16 19:35:11ID:???sortに使う特殊な変数ですね。
http://www.perldoc.com/perl5.8.4/pod/perlvar.html
> $a
> $b
> Special package variables when using sort(), see perlfunc/sort.
> Because of this specialness $a and $b don't need to be declared
> (using use vars, or our()) even when using the strict 'vars' pragma.
> Don't lexicalize them with my $a or my $b if you want to be able to use them
> in the sort() comparison block or function.
0788nobodyさん
05/01/16 21:59:39ID:???> グローバル変数をundefするというのなら、
> undefするより別の名前の新しい変数を作るべきです。
undefにはメモリの開放という働きもあるので、一概にはいえない。
0789nobodyさん
05/01/16 22:18:34ID:???（´,_ゝ｀）ﾌﾟｯ
0790nobodyさん
05/01/16 22:48:38ID:???チンカス君はメモリの開放という表現が嫌いかな?
↓これを
$size = 10;
$a = '0' x (1024 * 1024 * $size);
undef $a;
$b = '1' x (1024 * 1024 * $size);
undef有効にして実行
$ time perl test.pl
real 0m8.430s
user 0m1.549s
sys 0m0.334s
undefをコメントアウトして実行
$ time perl test.pl
real 0m12.044s
user 0m1.540s
sys 0m0.673s
sizeは実装メモリで加減してくれ。
0791nobodyさん
05/01/16 23:26:56ID:???$size = 1;
timethese(10000, {
'(1)' => '&test1;',
'(2)' => '&test2;',
});
sub test1 {
$a = '0' x (1024 * 1024 * $size);
undef $a;
$b = '1' x (1024 * 1024 * $size);
}
sub test2 {
$a = '0' x (1024 * 1024 * $size);
$b = '1' x (1024 * 1024 * $size);
}
Benchmark: timing 10000 iterations of (1), (2)...
(1): 272 wallclock secs (227.82 usr + 40.47 sys = 268.29 CPU) @ 37.27/s (n=10000)
(2): 251 wallclock secs (247.34 usr + 0.08 sys = 247.42 CPU) @ 40.42/s (n=10000)
0792nobodyさん
05/01/16 23:31:53ID:???0793nobodyさん
05/01/17 01:20:52ID:???馬鹿?
実装メモリの1/4位は取ってみろ。
test1は何見てんの $a確保→開放→$b確保→戻る 意味ねー
0795nobodyさん
05/01/17 02:34:12ID:???undef有効の場合
>>790は各々1回しか実行しない。
$a確保→$a開放→$b確保
使用メモリ: $sizeMB
>>793は各々10000回実行する。
$a確保→$a開放→$b確保→$a確保→$a開放→$b確保→
使用メモリ: 2*$sizeMB
全然違う。
0796nobodyさん
05/01/17 03:49:42ID:???$res =~ s/(<br>>|<p>>)(.*?)<br>([^>])/<blockquote><p>>\2<\/p><\/blockquote><p>\3/g;
$res =~ s/(<br>>|<p>>)(.*?)<br>([^>])/<blockquote><p>>\2<\/p><\/blockquote><p>\3/g;
$res =~ s/>>/>>/g;
$res =~ s/([^>])<blockquote>/\1<\/p><blockquote>/g;
としてみました。
$resは書き込まれた内容をp要素で括ったものなので、
<p>>から始まる は、文頭から引用だった場合、
<br>>から始まる は、文頭ではなく、行頭から引用だった場合、です。
最後の行は、もしも、文頭ではなく、行頭だった場合、その前のp要素を閉じる、という処理です。
現状では問題は発生しませんが、
「こんな書き込み方をされたらこんな問題出るだろ」というのとかありましたらお教え下さい。
次はネストに挑戦しようと思ってるんですけど、この段階で穴がありそうな気がして前に進めません。
0797784
05/01/17 07:07:24ID:???確かに変数を増やすのはメモリを使いますが、>>790のような何MBというデータは
果たして本当にグローバル変数で確保しておく必要があるのでしょうか。
メモリの1/4を使うというというのなら、設計から見直して、変数を局所化する方法を
探してみたほうが良いと思います。
0798nobodyさん
05/01/17 07:55:49ID:???想定している$resの内容がちょっとわからないけど、
$res = "<p>>引用<br></p>";
<blockquote><p>>引用</p></blockquote><p></p>
# 続くP要素内がカラになる
$res = "<p>>引用</p>";
<p>>引用</p>
# 引用できない
0799772
05/01/17 08:55:35ID:???作成中はuse strictしてるので、局所化はしています。
undefしたいのは気持ち的な問題で、コードを自分で読むときに
この変数は用無しというのをハッキリさせたいだけです。
あほらしいと思いますが、ブロック内でのローカル変数も
たまにundefしています。メモリ云々は考えていません。
0800772
05/01/17 09:03:45ID:???my ($a,$b,$c,$d) = qw/1 2 3 4/;
print $a,$b,$c,$d,"<br>";
($a,$b,$c,$d) = (undef) x4;
printf qq|%s -> %sdefined\r|, $_, defined $$_ ? q|Not| : q|| foreach(qw|a b c d|);
全部definedになりました。しかし３行目(undef行)をコメントアウトしても結果は同じでした。
どういうことでしょうか？
print defined $a;
でやると結果は変わりました。ちゃんとundefが聞いてるようです。
0802nobodyさん
05/01/17 10:46:32ID:1F0SQQP0この配列の中から0以上50未満の一番大きい数値を値として持っている
のは何番目かを簡単に調べることはできますか？
sort関数はなにやらややこしいので、いまいち理解できていませんが、
やはりsort関数を使わないと難しいでしょうか？
0804802
05/01/17 11:52:05ID:1F0SQQP0ありがとうござまい。とりあえず作ってみました。
１つのサイズの上限を決めて改行分割の最大限サイズで分割するものです
一応動くのですが他に思いつかないので無限ループをしています。
$limitがいくつであってもループから抜けれるようにはしてありますが、
できれば無限ループは怖いし、共用サーバでは他人に迷惑をかける可能性があｒますので
避けたいです。
無限ループを使わずにこれと同じような処理をすることは不可能でしょうか？
0805802
05/01/17 11:55:51ID:1F0SQQP0my $twoBytes = '[\x8E\xA1-\xFE][\xA1-\xFE]';
my $threeBytes = '\x8F[\xA1-\xFE][\xA1-\xFE]';
my $p = "あいうえお\nかきくけこ\nさしすせそ\n";
my @mail = $p =~ /$ascii|$twoBytes|$threeBytes/og;
my @return;
my $i = 0;
foreach (@mail){
if ( $_ =~ /\n/ ) {push @return,$i}
$i ++;
}
@return = sort { $b <=> $a}@return;
my @text;
my $befor = 0;
my $limit = my $limit2 = 4;
while ( 1 ) {
my $limit3 = $limit;
foreach ( @return ){
if ( $_ >= $befor and $_ <= $limit ) {
push @text,join '',@mail[$befor..$_];
$befor = $_;
$limit += $_;
}
}
last if $limit > $#mail + $limit2 || $limit == $limit3;
}
foreach (@text) {print $_ ,"<br><br>"}
0806nobodyさん
05/01/17 12:30:59ID:???$n = (sort {$a[$b]<=>$a[$a]} grep { $a[$_] >= 0 && $a[$_] < 50 } 0..$#a)[0];
あるいはList::Utilのreduce使って
$n = reduce {$a[$b]>$a[$a]? $b: $a} grep { $a[$_] >= 0 && $a[$_] < 50 } 0..$#a;
reduceはO(n)だからO(n×log n)のsortより要素数が多ければ速くなるだろうと
期待できますが、要素数少なければsortの方が速いかも。
0807nobodyさん
05/01/17 16:41:34ID:wVIIMywn値を返したいのですがどうすればいいでしょうか？
0808nobodyさん
05/01/17 17:14:50ID:???2： System("su
passwd
useradd $username その他のオプションも
exit");
これじゃ無理だと思いながらやたンですけどヤパリ無理でした
0811nobodyさん
05/01/17 21:05:30ID:fcKelFvpコードを書くのにforを使って書けば済むのですがgrep等を使ってもっと
簡潔に書きたいと思っています。
しかしgrepは恐らく配列全部参照するので配列数が多くなるにつれて
処理が遅くなってしまうのではないかと思い、以下のようなものを書いてみました。
@test = (1..999999);
$Atime = time;
for($i=0;$i < @test;$i++){
if($test[$i] eq "1"){
print"ひっと\n";
last;
}
}
$rest = time - $Atime;
print"time:$rest\n";
$Atime = time;
print"ひっと\n" if grep ("1" eq $_,@test);
$rest = time - $Atime;
print"time:$rest\n";
sleep(9999);
やはり、forに比べてlastしない分grepのほうが遅くなりました。
grepのように簡潔にかけてforと同じもしくはそれ以上の速度が出せるような
コーディングの仕方はないものでしょうか・・
アドバイスお願いします。
0812nobodyさん
05/01/17 21:39:56ID:???http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlfaq4.html#How_can_I_tell_whether_an_list_o
0813811
05/01/17 22:07:21ID:???大変貴重なページを教えていただきありがとうございます。
How can I tell whether an list or array contains a certain element?
あたりに載ってますね。それ以外にも勉強すべき内容が沢山あって本当に助かりました。
0814nobodyさん
05/01/18 01:27:26ID:5YMtxRb8CIGでアクセスログの取得を考えています。
ログ取得に関する部分は下記の通りです。
if(open(FL,">> $file")){
print LOG "時間\tIP\tHPST\tなど…\n";
close(FL);
chmod 0666,$file;
}
ログの解析や表示に時間がかかるのは問題ないのですが、
保存には負荷がかからないようにと考えています。
追加書込モードなら負荷や破損を押さえられると思うのですが、
20万〜30万行程度の蓄積となると負荷は相当違ってくるものなのでしょうか？
0815814
05/01/18 01:29:10ID:5YMtxRb8ログ取得に関する部分は下記の通りです。
if(open(FL,">> $file")){
print FL "時間\tIP\tHPST\tなど…\n";
close(FL);
chmod 0666,$file;
}
0816nobodyさん
05/01/18 01:43:47ID:Oto1zFxVIEで見た場合、画像が無い時のｘが表示されてしまいます。
これをうまいこと出さないで、imgタグでスクリプトを呼び出す事は出来るでしょうか？
0818nobodyさん
05/01/18 02:46:19ID:sIFYihq9このぐらいの数を管理するのに良い方法ってありますか？
使っているサーバはPHPは使えません。
今まで修正・削除などを
「ファイル開く→全データ取り込む→該当データを検索→処理→処理結果を反映して保存」
この単純な方法でやってきたんですが、もっと良い管理方法がありますか？
0820nobodyさん
05/01/18 03:43:06ID:mDYssaxTprint <<END_OF_MESSAGE;
…
$ { PrintMessage() }
…
END_OF_MESSAGE
sub PrintMessage {
#ここにある配列を加工したものを上に出すにはどうしたらいいでしょう？
}
0821nobodyさん
05/01/18 03:52:41ID:???その関数PrintMessageではデータの加工ぐらいしか行わない方が良い。
${}を使ってヒアドキュメント内で出力させるようにするにはprintを使わないと行けない上に、
出力した物は${}があるところではなくヒアドキュメント内の一番最初に出力される。
だから、一回ヒアドキュメントやめるか、配列とか変数に入れといてヒアドキュメント内で出力した方が吉。
0823nobodyさん
05/01/18 04:22:12ID:mDYssaxT> 出力した物は${}があるところではなくヒアドキュメント内の一番最初に出力される。
げげっ、それは知りませんでした。書き直します。
ありがとうございました。
0824nobodyさん
05/01/18 08:32:39ID:???副作用じゃなくて文字列返す関数にして、スカラー式を
文字列リテラルに埋め込む慣用句の${\(式)}使えばいい。
print <<END_OF_MESSAGE;
…
$ { \PrintMessage() }
…
END_OF_MESSAGE
sub PrintMessage {
my $s = "適当な文字列";
return \$s;
}
0825nobodyさん
05/01/18 10:17:22ID:aExMxO8Wmy $b = "aio,r,3s2r,waaaas,tuuu,huor";
$bの中から$aにないものを削除したいんですが、どうすればいいでしょうか？
$aにあるものを削除するのはわかるので、$aにあるものを$bから新しく$cに移す
という方法は思いついたのですが、なんかいけてないんですよねorz
もっとかっこいいやりかたできませんか？
人間の脳みたいに、違うものという判断をしたら該当部を削除するといった処理を。
0826nobodyさん
05/01/18 12:15:23ID:???こんなんでどうでしょう？
#--------------------------------------------
my $a = "aeo,huor,tuuu,gfd";
my $b = "aio,r,3s2r,waaaas,tuuu,huor";
$a = ',' . $a . ',';
$b =
join ('',
map { (index ($a, ',' . $_ . ',') < 0) ? '' : $_ . ',' }
split (/,/, $b) );
chop $b;
#--------------------------------------------
0827826
05/01/18 12:17:02ID:???私も質問なんですが、
ライブラリとかモジュールは、 @INC の中から勝手にファイル検索して読み込んでくれるんですが、
「そのライブラリの中の階層にあるテキストファイル」
を同じように*簡単に*読み込む方法ってありますでしょうか？
例えば、
--------------------------------------------
lib/
|- Hoge.pm
|- Hoge/
|- Hoge1.txt
|- Hoge2.txt
honya.cgi
--------------------------------------------
があるとして、
--------------------------------------------
# honya.cgi
unshift (@INC, qw(lib ../lib) );
--------------------------------------------
--------------------------------------------
# Hoge.pm
my $dir = ''; # ←ここに勝手にファイルのあるフォルダを検索していれたい
open (TXT, $dir.'/Hoge1.txt');
--------------------------------------------
foreach (@INC) 〜 でやればなんとかできるんですが、
もっと上手い方法でできるなら教えてください。
調べてもわからなかったのです。
そういうことを書いてあるページとかあったらそれでもいいですので。
0828nobodyさん
05/01/18 12:22:27ID:???sub PrintMessage{
my $message;
# ...
return \$message;
}
print <<EOT;
${ PrintMessage() }
EOT
>>821
ごく一般的なイディオムだと思うが？
>>824
知識が半端過ぎますから！残念！
0829nobodyさん
05/01/18 12:33:26ID:???関数の戻り値は文字列にして${}の中でリファレンスとる方が
オレは好きだな。
sub PrintMessage{
my $message;
# ...
return $message;
}
print <<EOT;
${ \PrintMessage() }
EOT
0830820
05/01/18 13:25:04ID:fG6Vu+xI入ってしまいます。
print <<END_OF_MESSAGE;
…
@hairetu
…
END_OF_MESSAGE
配列の中身を出すには、↑のようなやり方はまずいんでしょうか？
■ このスレッドは過去ログ倉庫に格納されています