トップページ⇒php
1001コメント371KB

Perlコーディング初心者質問スレ Part 49

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2006/05/31(水) 04:32:28ID:???
Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

過去ログやお勧めサイトは >>2-10
0161nobodyさん2006/06/05(月) 06:47:28ID:???
>>160
うちではどっちもどっちだったよ
$ perl -v

This is perl, v5.8.7 built for cygwin-thread-multi-64int

$ cat hoge.pl
use Benchmark;
my $string = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
timethese(10000*100,
{
'lc' => sub {my $string2 = lc $string;},
'tr' => sub {my $string2 = $string;$string2 =~ tr/A-Z/a-z/;},
});

$ perl hoge.pl
Benchmark: timing 1000000 iterations of lc, tr...
lc: 2 wallclock secs ( 0.58 usr + 0.00 sys = 0.58 CPU) @ 1721170.40/s (n=1000000)
tr: 2 wallclock secs ( 0.54 usr + 0.01 sys = 0.55 CPU) @ 1814882.03/s (n=1000000)

$ perl hoge.pl
Benchmark: timing 1000000 iterations of lc, tr...
lc: 2 wallclock secs ( 0.52 usr + 0.00 sys = 0.52 CPU) @ 1923076.92/s (n=1000000)
tr: 2 wallclock secs ( 0.58 usr + 0.00 sys = 0.58 CPU) @ 1721170.40/s (n=1000000)
0162nobodyさん2006/06/05(月) 07:48:02ID:???
>>161
あれ、ほんとだね。わざわざありがとう。
置換するソースによって違うんかなあ？

うちは google に perl って入れてでてきた 56kb くらいのソースでやったんだけど。
それともアルファベット以外がたくさん入ってると lc は遅くなるとか？ うーん・・・
perl の ver だったらやだなｗ

ちなみに
uc $string : 6.58 [s]
tr/a-z/A-Z/ : 5.50 [s]
0163nobodyさん2006/06/05(月) 11:03:38ID:GKAwUgKi
@xの配列が変動する状態で、
10個目以降全てに対して処理をしたい場合、
foreachで、１〜９回目のループをifで飛ばすようなやり方以外で、
何かスマートな方法はありますか？
0164nobodyさん2006/06/05(月) 11:07:12ID:???
for
0165nobodyさん2006/06/05(月) 11:23:55ID:???
>>163
配列スライスに対してforeachでいいんでね?

foreach my $i (@x[9..$#x]) { ... }
0166nobodyさん2006/06/05(月) 12:24:24ID:???
>>162
> うちは google に perl って入れてでてきた 56kb くらいのソースでやったんだけど。
それでやってみた。何回やってもlcの方が速かった。

$ cat hoge.pl
use Benchmark;
use LWP::Simple;
my $string = get('http://www.google.com/search?q=perl');
timethese(10000*100,
{
'lc' => sub {my $string2 = lc $string;},
'tr' => sub {my $string2 = $string;$string2 =~ tr/A-Z/a-z/;},
});

$ perl hoge.pl
Benchmark: timing 1000000 iterations of lc, tr...
lc: 1 wallclock secs ( 0.28 usr + 0.00 sys = 0.28 CPU) @ 3571428.57/s (n=1000000)
(warning: too few iterations for a reliable count)
tr: 0 wallclock secs ( 0.34 usr + 0.00 sys = 0.34 CPU) @ 2932551.32/s (n=1000000)
(warning: too few iterations for a reliable count)

$ perl hoge.pl
Benchmark: timing 1000000 iterations of lc, tr...
lc: 0 wallclock secs ( 0.23 usr + 0.00 sys = 0.23 CPU) @ 4347826.09/s (n=1000000)
(warning: too few iterations for a reliable count)
tr: 1 wallclock secs ( 0.32 usr + 0.00 sys = 0.32 CPU) @ 3115264.80/s (n=1000000)
(warning: too few iterations for a reliable count)
0167nobodyさん2006/06/05(月) 12:35:00ID:???
> 何回やってもlcの方が速かった。
訂正。今やったら逆転した。(warningに気づいてなかったので回数を更に10倍にした)
やっぱりどっちもどっちじゃね？2倍も差が開くとは思えないけど。。ベンチ取ったスクリプトさらしてみて。

$ perl hoge.pl
Benchmark: timing 10000000 iterations of lc, tr...
lc: 4 wallclock secs ( 3.58 usr + 0.00 sys = 3.58 CPU) @ 2797202.80/s (n=10000000)
tr: 3 wallclock secs ( 3.42 usr + 0.02 sys = 3.44 CPU) @ 2911208.15/s (n=10000000)

$ perl hoge.pl
Benchmark: timing 10000000 iterations of lc, tr...
lc: 3 wallclock secs ( 3.41 usr + 0.01 sys = 3.42 CPU) @ 2928257.69/s (n=10000000)
tr: 3 wallclock secs ( 3.45 usr + 0.00 sys = 3.45 CPU) @ 2894356.01/s (n=10000000)

0168nobodyさんNGNG
もう誤差の範囲だろ…
0169nobodyさん2006/06/05(月) 18:57:41ID:???
>>167
ってか、うち1万回で5秒とかなのに、1000万回で3秒とか、どんなPCの性能差だよｗ
AthronXP1700 の 512MB あるんだけどなあｗ perl は 5.6

・・・っと思ったら、

use strict;
use Benchmark;
use LWP::Simple;
my $string = get('http://www.google.com/search?q=perl');
print $string;

これ何もでなくね？ｗ status_line とったら 403 返ってきたよｗ google 内部で弾いてんのかな・・・
こっちはブラウザから見てソース保存して開いてやってた。 〜?q=perl&num=50&hl=ja
こんな感じ。

use strict;
use Benchmark;
my $string;
open (LOAD, 'lc.html'); read (LOAD, $string, -s LOAD); close (LOAD);
timethese(10000, {
'lc' => sub {my $string2 = lc $string;},
'tr' => sub {my $string2 = $string;$string2 =~ tr/A-Z/a-z/;},
});
0170nobodyさん2006/06/05(月) 19:14:18ID:0Db/Ehfs
文字列を一文字ずつ処理して
とある文字が出てきたところで区切って
その区切ったそれぞれの文字を配列に入れるということをしたいのですけど、ｌ
やり方が浮かばなくて・・・
どのようにコーディングすればいいのでしょうか？
0171nobodyさんNGNG
日本語でもう一度
0172nobodyさん2006/06/05(月) 19:28:24ID:???
>>170
split
0173nobodyさん2006/06/05(月) 19:39:21ID:0Db/Ehfs
>>172
あっ　出来ました。　ありがとうございます
0174nobodyさん2006/06/05(月) 19:52:22ID:JTs163rf
CPANのインストールディレクトリってどこにしてる？
デフォの /home/~username/.cpan にしとく？自分用に変える？
dotディレクトリに入れるのがなんか気持ち悪いんだが、、、
0175nobodyさん2006/06/05(月) 21:46:17ID:???
>>174
> dotディレクトリに入れるのがなんか気持ち悪いんだが、、、

そんなことないよ。気持ちいいよ。
0176nobodyさん2006/06/06(火) 01:40:03ID:???
テキストファイルから読み込んだ@listに対して
それぞれ一行ずつを取り出して表示させるにはどうすればよいでしょうか？
0177nobodyさん2006/06/06(火) 01:53:24ID:???
foreach
ていうか、本くらい読め。基本過ぎる
0178nobodyさん2006/06/06(火) 02:06:41ID:???
>>177
本だと私のやりたいことが載ってなかったので質問してしまいました
すいません、、、

@listに代入させた各行の１番目の<p></p>はそのまま、２番目の<p></p>を削除したいのですが、、、
0179nobodyさん2006/06/06(火) 02:11:03ID:???
>>178
その foreach の載ってない本の題名を教えてください。
0180nobodyさん2006/06/06(火) 02:18:35ID:???
以前、正規表現道場というスレがあったと思うのですが、
なくなっちゃったんですか？探してもないんだけど。
0181nobodyさん2006/06/06(火) 02:18:54ID:???
>>178
その s の載っていない本の題名を教えてください。
0182nobodyさん2006/06/06(火) 02:25:49ID:???
>>179>>181
「Perl＆CGI入門」という本です

１番目の<p></p>はそのまま、２番目の<p></p>を削除がちょっと、、、

0183nobodyさん2006/06/06(火) 03:09:49ID:???
本当に本を読んでいるとしたら、もしかして応用力のない子ですか？
正規表現くわしくのってないのかな？ 持ってないから分からん・・。

$line =~ s{^(.*?<p>.*?</p>.*?)<p>.*?</p>}{$1};
↓ (<p class="〜"> とかもあるなら)
$line =~ s{^(.*?<p(?:\s[^>]*)?>.*?</p>.*?)<p(?:\s[^>]*)?>.*?</p>}{$1};

これでいいかな？ 試してないけど。
後で 3番目以降も削除したいんですけど、とか聞かないでね。応用しる。

あまりに正規表現に弱かったら、

if ($line =~ /<p>/) {
$line =~ s{<p>}{\x01};
$line =~ s{</p>}{\x02};
$line =~ s{<p>.*?</p>}{}g;
$line =~ s{\x01}{<p>};
$line =~ s{\x02}{</p>};
}
とでもやればいいんじゃねｗ おすすめはしないけど。
でもなんで 1番目だけいらないんだろうなｗ どう使うのか予想つかないわ。
0184nobodyさん2006/06/06(火) 03:13:16ID:???
>>180
たぶん、ム板にあるからいいじゃんということになったんだと思う
正規表現 part2
http://pc8.2ch.net/test/read.cgi/tech/1131028296/
0185nobodyさん2006/06/06(火) 03:16:48ID:???
>>169
> これ何もでなくね？ｗ status_line とったら 403 返ってきたよｗ google 内部で弾いてんのかな・・・
うはｗｗｗごめんｗｗｗ

同じスクリプトでやってみた。trの方が速いっぽい。まあそれでも2倍も差はつかないけども。。

$ perl -v | head -2

This is perl, v5.8.7 built for cygwin-thread-multi-64int

$ wc lc.html
133 2052 60082 lc.html

$ for i in 1 2 3 4 5 ; do perl hoge.pl ; done
Benchmark: timing 10000 iterations of lc, tr...
lc: 3 wallclock secs ( 2.93 usr + 0.00 sys = 2.93 CPU) @ 3408.32/s (n=10000)
tr: 3 wallclock secs ( 2.47 usr + 0.00 sys = 2.47 CPU) @ 4043.67/s (n=10000)
Benchmark: timing 10000 iterations of lc, tr...
lc: 3 wallclock secs ( 2.97 usr + 0.00 sys = 2.97 CPU) @ 3362.47/s (n=10000)
tr: 3 wallclock secs ( 2.47 usr + 0.00 sys = 2.47 CPU) @ 4042.04/s (n=10000)
Benchmark: timing 10000 iterations of lc, tr...
lc: 3 wallclock secs ( 2.90 usr + 0.00 sys = 2.90 CPU) @ 3443.53/s (n=10000)
tr: 3 wallclock secs ( 2.56 usr + 0.00 sys = 2.56 CPU) @ 3901.68/s (n=10000)
Benchmark: timing 10000 iterations of lc, tr...
lc: 3 wallclock secs ( 2.92 usr + 0.00 sys = 2.92 CPU) @ 3419.97/s (n=10000)
tr: 3 wallclock secs ( 2.49 usr + 0.00 sys = 2.49 CPU) @ 4011.23/s (n=10000)
Benchmark: timing 10000 iterations of lc, tr...
lc: 3 wallclock secs ( 2.90 usr + 0.00 sys = 2.90 CPU) @ 3443.53/s (n=10000)
tr: 3 wallclock secs ( 2.47 usr + 0.01 sys = 2.48 CPU) @ 4027.39/s (n=10000)
0186nobodyさん2006/06/06(火) 06:19:56ID:???
trで代わりの動作が出来る場合はtrの方が早いというのは周知の事実かと思ってたが・・・
0187nobodyさん2006/06/06(火) 10:15:26ID:???
手持ちのカードで何ができるかを考えるのは自分ですよ
自分はこうやってるんだけど他にいい方法ない？ならわかるけどさ。
0188nobodyさん2006/06/06(火) 11:17:16ID:???
どこのはなし？
0189nobodyさん2006/06/06(火) 11:22:27ID:???
>>178あたり。
0190nobodyさん2006/06/06(火) 14:59:19ID:Re1RmuFG
簡易予定表のようなものを組んでみたんですが、なんだかモッサリしてる気がします。
もっと簡潔に書けるような気がするんですが自分ではこれが限界でした。
あと、ファイルロックのやり方が合っているのか自信がありません。
一応動いていることは動いているんですが、問題はないでしょうか。
改良すべき点、根本的にこういう書き方に直した方が良い、とかあればアドバイスお願いします。
大まかな内容は以下のようなものです。

予定として保存する内容は「予定日（月と日）」と
「予定内容（長くても200バイト程度）」の２つでフォームから渡します。
予定を保存するファイルは月単位で作成します。
例えば2006年5月の予定の場合なら「200605.txt」というファイル名です。
保存するファイルがないときはその都度作成し、

6月1日

6月2日

6月3日
.
.
.
という風に日付だけを先に入れておきます。
保存するファイルがあるときは、
フォームから渡された「予定日」とマッチした日付の次の行に「予定内容」を書き込みます。

内容は以上です。次レスにコードを晒します。
0191190（前半）2006/06/06(火) 15:03:27ID:???
# 保存するファイル名
$a = sprintf("%04d%02d",$YEAR,$MON)
$file = "$a.txt";

# 月から日数を出す
if($MON == 1|3|5|7|8|10|12){
$m = 31;
}elsif($MON == 4|6|9|11){
$m = 30;
}else{
if($YEAR % 4 ==0){
$m = 29;
}else{
$m = 28;
}
}

for($i=1;$i<=$m;$i++){
$date .= "$MON月$i日\r\n\r\n";
}
0192190（後半）2006/06/06(火) 15:04:16ID:???
# 該当する月のファイルがなければ作成
if(!open(IN,"$file")){
open(OUT,">$file")
flock(OUT,2);
print OUT $date;
close(OUT);
}
open(IN,"$file");
flock(IN,2);
@A = <IN>;
close(IN);

# 「予定日」とファイル内の「日付」をマッチングさせて該当日付に「予定内容」を書き込む
$loop = @A;
$i = 0;

while($loop > 0){
if($A[$i] eq $plan_day){# $plan_day = "フォームからの情報（予定日）";
$A[$i] .= "$plan_value\r\n";# $plan_value = "フォームからの情報（予定内容）";
}
$loop --;
$i ++;
}

if(!open(OUT, "+< $file")){&error;};
flock(OUT, 2);
truncate(OUT, 0);
seek(OUT, 0, 0);
print OUT @A;
close(OUT);
0193nobodyさん2006/06/06(火) 15:04:28ID:???
>>190-192
自作CGIを評価するスレ
http://pc8.2ch.net/test/read.cgi/php/1049514428/
01941902006/06/06(火) 15:20:53ID:???
>>193
そちらで質問してきます。
0195nobodyさん2006/06/06(火) 17:58:30ID:???
if($MON == 1|3|5|7|8|10|12)

これ斬新だな。当然Warning出るけど一応動くんだｗ
0196nobodyさん2006/06/06(火) 18:26:58ID:???
>>195
動くって、意図した通りに動くっていう意味？
0197nobodyさん2006/06/06(火) 18:31:07ID:???
>>196
いや、意図した通りには動かない。だって15だよ。比較の右辺。
0198nobodyさん2006/06/06(火) 18:34:39ID:???
配列（コンマ区切り）の中身を一定の数ごとに折り返して再び配列（コンマ区切り）に
入れ直したいんですが良い方法が浮かびません。
うまく表現できないので例を挙げると、
「@listの中身は20コあって、5コごとに折り返して再び@listに入れ直す」
という意味は、下のようなイメージです。
$list[0] = $list[0] . $list[5];
$list[1] = $list[1] . $list[6];
$list[2] = $list[2] . $list[7];
$list[3] = $list[3] . $list[8];
$list[4] = $list[4] . $list[9];
$list[5] = $list[10] . $list[15];
$list[6] = $list[11] . $list[16];
$list[7] = $list[12] . $list[17];
$list[8] = $list[13] . $list[18];
$list[9] = $list[14] . $list[19];
0199nobodyさん2006/06/06(火) 18:37:06ID:???
法則性を見つけろ
0200nobodyさん2006/06/06(火) 18:45:28ID:???
>>198
そういう処理が必要になった時点で何か間違ってる
0201nobodyさん2006/06/06(火) 18:46:12ID:???
>>195
そらビット演算するだろなｗ
やりたかったのは
if($MON =~ /^1|3|5|7|8|10|12$/)
こうだろうね
0202nobodyさん2006/06/06(火) 18:47:16ID:???
ぶｗ もろカッコつけるのわすれたｗ アホかｗ
if($MON =~ /^(?:1|3|5|7|8|10|12)$/)
0203nobodyさん2006/06/06(火) 18:56:40ID:???
うるう年の判定も間違ってるし日付関連のモジュールを使うべきだと思った。
0204nobodyさん2006/06/06(火) 19:04:10ID:???
>>199
も、もう少しヒントお願いします。

>>200
例えば、EXCELのフォーマットの関係でCSV出力のときだけ
こういう処理をしたりするのって変ですか？
0205nobodyさん2006/06/06(火) 19:18:40ID:???
ちょと質問です

標準入力の読み込み位置を変更したいのですが
seek STDIN, 0, 0;
ではダメなようでして
なにか術があれば教えてください
0206nobodyさん2006/06/06(火) 19:21:39ID:???
>204
１つのループでいけるかとおもったけど、前半と後半でちゃうのか・・・
処理方法を見直したほうが良いかと思うｗ
0207nobodyさん2006/06/06(火) 19:23:03ID:???
>>198=204
1行でもできるんでない？

ヒントをいえば、
右側は常に list[n] + list[n+5]
になってて、
その n ってのは、左側を list[i] とすれば、
i が 5回ごとに 10 足されていって、それに、 i 回目を 5 で割ったあまりを足したもの。
0208nobodyさん2006/06/06(火) 19:24:49ID:???
STDIN は前方向にしか進めないですよ

(１) 一旦ファイルに書き出したのを利用する
(２)そんなにでかくないのなら read で読み込んだものを利用する

の２通りがあります。
大きいファイル、環境にも夜でしょうが 5MB あたりを境に (１) か (２) かを使い分ければ良いかと思います。
0209nobodyさん2006/06/06(火) 19:29:08ID:???
>>208
そういうことでしたか
ありがとです
0210nobodyさん2006/06/06(火) 19:41:34ID:???
>207
あ〜、無理に $i １つでやろうとしてたから駄目だったかｗ

>204
use strict;

my @list = map{ "str$_" }(0..19);

my $n = 0;
my @newlist = ();
for(my $i = 0; $i < 10; $i++){
　　if($n && !($n % 5)){ $n += 5; }
　　$newlist[$i] = $list[$n] . $list[$n + 5];
　　$n++;
}
print join("\n", @newlist);

0211nobodyさん2006/06/06(火) 19:44:07ID:???
>>198
エレガントじゃないけど、こんなのどうかな・・・

use strict;

sub wrap_list($@) {
    my ($width, @list) = @_;
    return @list if $width <= 0 or @list == 0;

    my @result = (), my $wrap = 0, my $i = 0;
    for (@list) {
        $result[$i++] .= $_;
        if ($i % $width == 0) {
            $wrap = !$wrap;
            $i -= $width if $wrap;
        }
    }
    return @result;
}

my @wlist = wrap_list 5, ('a'..'z');
print "@wlist\n";
0212nobodyさん2006/06/06(火) 20:00:57ID:???
>>198
my @list;
for (my $i = 0; $i < 10; $i++) {
my $j = $i % 5 + 10 * int($i / 5);
$list[$i] = $list[$j] + $list[$j + 5];
}
0213nobodyさん2006/06/06(火) 20:02:43ID:???
すまん自己レス。文字列連結するのか。一行間違った。

>>198
my @list;
for (my $i = 0; $i < 10; $i++) {
my $j = $i % 5 + 10 * int($i / 5);
$list[$i] = $list[$j] . $list[$j + 5];
}
0214nobodyさん2006/06/06(火) 20:05:47ID:???
>>210-213
うはｗ 答え書いちゃうとわざわざヒント出した意味がｗｗ

まあありか。

自分が書いたのは >>213 まんまっす。

配列数がわからない場合、$i < 10 の部分は、事前に
my $limit = (scalar @list) / 2; で $i < $limit; とでも。 # @list は偶数であること。
02151982006/06/06(火) 20:08:34ID:???
>>207
こういうことでしょうか・・・でも結果がうまく出ないです。
どこが間違ってるんでしょうか？

for($i=0;$i<10;$i++){
if($i>=5){
$n = ($i%5) + 10 + $i;
}else{
$n = $i;
}
$list[$i] = $list[$n] . $list[$n+5];
}
0216nobodyさん2006/06/06(火) 20:09:18ID:???
>>198 は「一定の数」って書いてるから20と5はあくまで例じゃないの？
02171982006/06/06(火) 20:10:27ID:???
>>210-213
あわわ、レスあったのに気付かなくてすみませんでした！
ありがとうございます！ゆっくり拝見させていただきます。
0218nobodyさん2006/06/06(火) 20:11:28ID:???
>>215 にﾜﾛﾀ。
0219nobodyさん2006/06/06(火) 20:12:27ID:???
>>216
あ、ズバリその通りです。
ただ、自分の場合いきなり任意の数でできるレベルじゃなかったので・・・。
どんな数にでもすぐ応用できるものがあれば一番良いと思っています。
02201982006/06/06(火) 20:13:40ID:???
219=198です。
>>218
お恥ずかしいです・・・。
0221nobodyさん2006/06/06(火) 20:15:15ID:???
あ、>>213 よ。
$list[10] から先が残ったまんまだぞ。
まあ >>198 見ると残らせるのか残らせないのか分からないけどねｗ
>>198 は残らせないなら @newlist に入れるべし。
0222nobodyさん2006/06/06(火) 20:19:35ID:???
さあ、ここで拡張性のテスト
「>>198の動作を、2行の折り返しから3行の折り返しにしたくなった」
「3行ｂﾇころかn行（任意の行数）に折り返したくなった」

ちゃんと拡張できますか？
0223nobodyさん2006/06/06(火) 20:21:42ID:???
それは回答者へのテスト？ｗ
0224nobodyさん2006/06/06(火) 20:23:45ID:???
>>223
そうｗ　普段から、あとで拡張しやすいように書いてますか？　という抜き打ちみたいなｗ
02252072006/06/06(火) 20:29:44ID:???
>>222=224
んじゃ、ちょっと面白そうなのでやってみた。
>>213 に似た自分のソースでの回答ｗ

use strict;
my $ori = 10;    # ○個ごとに折り返す (自然数)
my $ren = 4;    # 繋げる個数
my @list = map{ " $_ " }(0..119);    # @list の数は $ren と $ori の倍数であること

# loop
my @newlist = ();
my $limit = (scalar @list) / $ren;
for (my $i = 0; $i < $limit; $i++) {
    my $n = int($i / $ori) * $ori * $ren + $i % $ori;
    $newlist[$i] = '';
    for (my $j = 0; $j < $ren; $j++) {
        $newlist[$i] .= $list[ $n + ($ori * $j) ];
    }
}

# print
for (my $i = 0; $i < scalar @newlist; $i++) {
    print "$i : $newlist[$i]\n";
}
exit;

連結に2重 for 使うのはしょうがないよね・・・。
02261982006/06/06(火) 20:29:59ID:???
>>221
そうですね。その点を見落としていました。

>>222
3列の場合は・・・こう？
for (my $i = 0; $i < 30; $i++) {
my $j = $i % 5 + 15 * int($i / 5);
$list[$i] = $list[$j] . $list[$j + 5] . $list[$j + 10];
}
任意の行については・・・もうちょっと待って下さい・・・。
02272112006/06/06(火) 20:30:39ID:???
>>222
引数で$n(行数)を受け取ったとして
$wrap = !$wrap;
$i -= $width if $wrap;
を
if ($wrap++ < $n-1) { $i -= $width }
else { $wrap = 0; }
に直したらできます。
02282222006/06/06(火) 20:37:25ID:???
くっｗ　抜き打ちなのに簡単に修正しやがって！

　　　_、_
　（　,_ﾉ` ） 　 　　　n
￣　　 　 ＼　 　 （ E） ｸﾞｯｼﾞｮﾌﾞ!!
ﾌ 　　　 /ヽ ヽ_／／
0229nobodyさん2006/06/06(火) 20:38:06ID:???
>>211=227 も面白いね。考え付かないなあ・・・。
02301982006/06/06(火) 20:59:42ID:???
みなさん、すごいですねぇ。
解答を見てもよく分からない部分もあるようなレベルなので
参考にしつつ勉強してきます。
お付き合いしていただいた方々、本当にありがとうございました。
0231nobodyさん2006/06/06(火) 21:29:12ID:???
中身が数字のid.txt　というファイルを読み込んで
中身を表示→数字に１を足す　という動作をさせたいのですが、

中身をセットする時点で数字が消去されてしまうようです。

open (ID,">id.txt");
$id = <ID>; #ここの時点で中身が消去？

print "$id";

$id++;
print ID "$id";
close(ID);

例えばファイルの中身の初期値が100ならば、
最初は100、リロードの度に101、102・・・と表示されると思うのですが
上手くいきません。

ご指摘のほどよろしくお願いいたします。
0232nobodyさん2006/06/06(火) 21:35:14ID:???
>>231
>open (ID,">id.txt");
書き込みでopenしているので、中身はこの時点で消去です。
一度読み込んでから、書き込むように変えましょう。
0233nobodyさん2006/06/06(火) 21:35:56ID:???
>>231
openのモードがNG
「>」「>>」「<」「+<」の違いはわかってる？
0234nobodyさん2006/06/06(火) 21:41:43ID:???
+< id.txt
seek
減る事もある場合、桁数に注意
0235nobodyさん2006/06/06(火) 23:19:31ID:???
ねえ、
$word が任意の入力できる文字列で、文字コードが EUC か UTF8 だとして、

$word = quotemeta $word;
$word =~ /$word/;

に、セキュリティホールってある？ 普通に通るかすら。
0236nobodyさん2006/06/06(火) 23:22:01ID:???
なんで $word を $word で検索してんだw
$word = quotemeta $word;
$text =~ /$word/;
こうですた。
0237nobodyさんNGNG
何がしたいねん
0238nobodyさん2006/06/06(火) 23:43:29ID:???
おそらくは検索か
俺は\x00-\x19までを削除してるのと、正規表現で意味のもつものをエスケープする以外はなんもやってない
0239nobodyさん2006/06/07(水) 00:01:52ID:Z9iT2VzK
勉強中の身に、どなたか教えてください。

open(FILE, "<2get.txt") || print "file open error!";
while(<FILE>){
print;
}

とやって、2get.txtの内容を出力する、というのを応用して、
2get.txtの内容を途中まで読み込むCGIを作りたいのですが。

例えばこの2get.xtxの中の１行に、
<!-- ここまで -->
とか書いておきます。

で、CGIで読み込む時に、上から１行ずつ読んでいって
<!-- ここまで -->の行が出てきたら、読み込み終了。

実際に自分で作ってみて、while〜の１行を
while(<FILE> ne '<!-- ここまで -->') ||（以下略）
って書き換えたら、CGIが動かなくなりますた。
どっかで勘違いしてるんだろうと思うんだけど、
勘違いのポイントかヒントだけでも教えてください。
0240nobodyさん2006/06/07(水) 00:16:13ID:???
while(<FILE>)ってwhile($_ = shift <FILE>)と同じなんで、そこで抜ける判定をしなんでも
print; の前に抜ける条件を書いて lastしてみればいいんじゃないかと。
0241nobodyさん2006/06/07(水) 00:41:37ID:DSNCvTMF
勘違いじゃなくて勉強が足りんかったわけですね。
つーか500エラーが出ました。

while(<FILE>) {
if($_ eq '<!-- ここまで -->') { last; }
print;
}

これで合ってますか？
0242nobodyさん2006/06/07(水) 00:47:38ID:DSNCvTMF
あ、できた。

でも<!-- ここまで -->を読んでくれません。
''で囲むんじゃダメなんですかね？
それとも改行コードも考慮しないといけないとか？
0243nobodyさん2006/06/07(水) 00:47:47ID:???
>>240
shift はつかなくね？ $_ = <FILE> じゃ？
0244nobodyさん2006/06/07(水) 00:49:12ID:???
>>242
$_ は最後の行じゃない限り、最後に改行がついてるよ
0245nobodyさん2006/06/07(水) 00:51:05ID:???
>>232>>233>>234
有難うございました。

0246nobodyさん2006/06/07(水) 00:59:40ID:???
>>243
defined($_ = <FILE>) じゃね？
0247nobodyさん2006/06/07(水) 01:03:44ID:???
でもさあ、1行ずつ読み込んで、その都度あるかないかわからない文字列をチェックして途中で終了させるより、
一気に全部読んで文字列に入れてから、その文字があるなら正規表現でずばっと削除したほうが早いよね。
0248nobodyさん2006/06/07(水) 01:09:16ID:???
>>247
んなこた環境とデータセットによる。
0249nobodyさん2006/06/07(水) 01:11:19ID:???
I/Oやメモリをそこまで気にする時代じゃないだろうに
02502482006/06/07(水) 01:18:21ID:???
>>249
「早いよね」ってことだったので、速いか遅いかは読込むデータの傾向や動作環境によるっつー話。
メモリやら I/O の話はどこから出てきた?
0251nobodyさん2006/06/07(水) 01:20:34ID:???
っていうか、いま気づいたんだけど、
>>239 の場合

local $/ = '<!--ここまで-->';
open (FILE, '2get.txt');
$_ = <FILE>;
close (FILE);
print $_;

ってやると解決しないか？
速度的にも一番早い。
0252nobodyさん2006/06/07(水) 01:23:04ID:???
>>240
>>244
ありがとうございました。なんとか動くものになりました。

>>247
正規表現もまだ理解しきっていないので…
今後のメンテナンスの時に考えることにします。
02532512006/06/07(水) 01:24:25ID:???
あ、 print 前に chomp; もか。
0254nobodyさん2006/06/07(水) 01:29:15ID:???
>>251
激しく意味不明のテキストが発生しますた…
0255nobodyさん2006/06/07(水) 01:38:27ID:???
>>254
まじでｗｗｗ
うちではうまくいくけどなあ。
ちょっとこれだけ走らせてみｔ

[2get.txt]
1111111111111111111111111111111111111111111
222222222222222
3333333<!--ここまで-->333333333333

[hoge.pl]
use strict;
{
local $/ = '<!--ここまで-->';
open (FILE, '2get.txt');
local $_ = <FILE>;
close (FILE);
chomp $_;
print $_;
}
exit;

\r\n\r\n ずつデータとるときとかに使えるしｗｋｔｋだと思ったんだがなあ。
0256nobodyさん2006/06/07(水) 01:43:22ID:???
$/ 自体に長さの制限とかあるのかな？
0257nobodyさん2006/06/07(水) 01:52:11ID:???
>>256
どうなんだろ？
とりあえず試しに 200kb くらいのテキスト用意して、

- - - - - - - - - - - - - - - - - - - - - - - - - - -
$/ = '『根掘り　葉掘り　聞き回る』の・・・『根掘り　葉掘り』・・・・・ってよォ〜〜〜
『根を掘る』ってのはわかる・・・・・スゲーよくわかる　根っこは土の中に埋っとるからな・・・
だが「葉掘り」って部分はどういう事だあああ〜〜〜〜〜っ！？
葉っぱが掘れるかっつーのよーーーーーーッ！
ナメやがってこの言葉ァ　超イラつくぜぇ〜〜〜ッ！！
葉っぱ掘ったら裏側へやぶれちまうじゃあねーか！
掘れるもんなら掘ってみやがれってんだ！チクショーーッ
どういう事だ！どういう事だよッ！クソッ！葉堀ってどういう事だッ！
ナメやがってクソッ！クソッ！';
- - - - - - - - - - - - - - - - - - - - - - - - - - -

・・・って入れてやってみたけど、こっちでは無事その前部分だけに切り取られたよｗ
0258nobodyさん2006/06/07(水) 01:52:17ID:???
>>255
ファイル作ってみましたが500エラーです…

おかすい。なぜだ。
0259nobodyさん2006/06/07(水) 01:59:10ID:???
>>258
え、どんなエラーでてる？

ブラウザでやってるなら
#!/usr/bin/perl
print "Content-type: text/html\n\n";
も入れてね？
0260nobodyさん2006/06/07(水) 02:03:21ID:???
>>257
その文章の方が気になりますがw

すんません、Content-typeを入れるの忘れてますた。
んで、今度こそ大丈夫だと思ったら空白ページ。

鯖環境かなんかですかね？
■ このスレッドは過去ログ倉庫に格納されています