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

**nobodyさん** · 2008/03/03(月) 05:07:32

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

**nobodyさん** · 2008/03/03(月) 12:33:59

テンプレとかないの？

**nobodyさん** · 2008/03/03(月) 19:13:48

>>0
あ？ほんとに分かってんのか？
「はい」ってのはな「はい、わかりました」を略して「はい」なんだよ
頭だけでわかったって言わねんだぞ？学校の勉強じゃねえんだから
社会では？お？実際に出来て初めて「わかった」言うんだ
出来もしねえ奴が軽々しくはいなんて言うんじゃねえよ
お？聴こえてんのかよコラ？あ？
やる気がねえんだったら来なくていいぞ？
お前ナメてんだろコラ？
仕事中だと思って優しく口で言ってりゃ調子に乗んじゃねえぞコラ？お？
外で遭ってたら今頃カタワだぞお前？とっくに

**nobodyさん** · 2008/03/03(月) 22:02:10

なんだ、この馬鹿？
ケツの三行が間抜けすぎるんだけどｗ

**nobodyさん** · 2008/03/07(金) 19:19:52

とにかく、画像とか抜きにしてテキストベースでじゃんけんゲームとか数当てゲームを作ってみれば良い。
とりあえず機能的には、繰り返し挑戦出来るとか残り回数があるとか。
○○より小さいです。　って表示させたりだ。

そうすることで　判定・繰り返し・変数を大まかに理解出来るだろう。

**nobodyさん** · 2008/03/13(木) 15:16:54

どのバージョンをDLしたらいいのかわかりません（WIN）

**nobodyさん** · 2008/03/13(木) 21:47:41

掲示板でデータを逆順に表示するリンクをつけたいのですが
reverse リスト　
をリンクとしてできるようにするにはどのようにしたらいいのでしょうか？
具体的には<a href=???>古い順</a>
といったリンクをつけたいです

**nobodyさん** · 2008/03/14(金) 00:10:56

$aaa=1;
if($aaa==1||$aaa==3)
これをもっと簡潔に書く方法がわかりません。

もうひとつ、
$aaaが8nなら、というのはどうやればよいのでしょうか。
調べてもわかりませんでした、おねがいしますm(_ _)m

**nobodyさん** · 2008/03/14(金) 01:46:19

>>7
リストをreverseさせるルーチンはあるのか？
だったらそこにジャンプさせる為の判別用の文字列をqueryで送ってやれば良し

>>8
これ直前で$aaaに1を代入してれば3になる可能性は皆無なんじゃないか？
$aaa==3 は必要無いだろ

if($aaa eq '8n')
これを調べても分からないんじゃヤバいぞ

**nobodyさん** · 2008/03/14(金) 01:49:59

8n って文字列かと思ったじゃねぇか
あとマルチポストは控えめに

**nobodyさん** · 2008/03/14(金) 11:05:45

正規表現で>>1というようにアンカーが付くとリンクされるというのは出来たのですが、>>1のように単体でログを表示するやり方が分かりませんm(_ _)m

**nobodyさん** · 2008/03/14(金) 13:36:44

先生∩

sub uniq　　　　#重複行削除
{
　　my %seen;
　　return (grep { ! $seen{$_}++ } @_);
}
sub uniqu　　　 #1回のみの行
{
　　my %seen;
　　$seen{$_}++ for @_;
　　return (grep { $seen{$_} == 1 } @_);
}

な感じの物を見つけたのですが、何が起きてるかさっぱり解りません。
そこで質問です。
以下は2行以上あるものだけの出力になるっぽいのですが、合ってるでしょうか？
sub uniqd
{
　　my %seen;
　　return (grep { $seen{$_}++ == 1 } @_);
}

**nobodyさん** · 2008/03/14(金) 18:49:24

>>11
アンカー先のURLで記事を表示できるようにする必要ががある。
例えば<a href="./bbs.cgi?No=100">100</a>とするなら、
No100の記事をファイルから取得して表示する。

>>12
foreach(@_)としてるのと同じ感じで、配列の各値が$_に一時的に格納される。
んで{}内で$seen{$_}に1を代入してるわけ。
ハッシュのキーは重複しないので++でカウントできる。おｋ？

この際ついでにgrepとmapについて勉強したほうがいい。
Perlの中でも強力な部類の関数だから

**nobodyさん** · 2008/03/14(金) 19:17:40

>>12
暇だから、、、
最後の質問は正解。

一番上の grep BLOCK の中だけ解説。
1. $seen{$_} で %seen に $_ が登録されてるかどうか調べる。
　当然最初の一回目は無いから偽。二回目以降は真。
2. ! によって1.の条件が偽の時のみ真。
3. ++ によって $_ を %seen に登録。（++によって数値と見なされ偽を0と
　解釈。で普通に1足される）。
4. 1. に戻るが、同じ物が二回目に出てくると真、なので 2. の条件に
　当てはまらない。
結果、 uniq なもののみがトラップされる。

uniqu はまあ論外。uniqd は ++ の挙動さえ理解してれば問題ない。
（ $seen{$_} == 1 が解釈された後に $seen{$_} に1が足される。
ちなみに ++ $seen{$_} == 1 は uniq と同じ挙動になる。）

　

**nobodyさん** · 2008/03/14(金) 20:49:41

>>13
有難う御座います
BLOCK部の$seen{$_}の動きが解りました
grepとmapですね、精進しますorz
どうもperlの配列マジックが苦手で…

>>14
詳細な解説有難う御座います！
BLOCK部の動作が解って来ました
今迄一行スクリプト見ても"凄い"で終っていましたが、
何が起きているか理解できる様にしたいと思います

**nobodyさん** · 2008/03/15(土) 01:02:29

>>13
# アンカー表示
　　　　if($FORM{'comment'} =~/>>(\d{1,4})/){
$no = $1
$DATA[$no]　 = $ENV{'SCRIPT_NAME'}?no=$no
print "<a href=\"htttp://url&no=$no\">>>$no</a>";
といった感じでやってみたのですがうまくできません・・・
間違いだらけだと思いますが、何かとご指摘よろしくお願いします。

**nobodyさん** · 2008/03/15(土) 01:23:16

>>16
スクリプト自体に「no=123 を受け取ったら No.123 の記事だけを吐く」みたいな
機能が存在しないまま、アンカーのことばかり気にしてたりしないか。

**nobodyさん** · 2008/03/15(土) 03:38:52

LWPやXMLといったモジュールをフリー鯖で使用するにはどうすれば

**nobodyさん** · 2008/03/15(土) 12:35:24

>>18
pure perlなモジュールなら、自前の鯖にインスコされてる.pmファイルをうｐすれば桶じゃね？

**nobodyさん** · 2008/03/17(月) 06:27:56

LWPって標準モジュールでなかったっけ？
XMLはモノによるけど有名どころはXPAT？必要だからインストール無しだと厳しい

**nobodyさん** · 2008/03/20(木) 15:51:16

>>17
具体的にどのようにしたら良いのでしょうか？

**nobodyさん** · 2008/03/24(月) 12:00:22

どこで質問してよいのかわからなかったのですが、
使うプログラムがPerlなので、こちらでさせて頂きます。

ウィンサーバーで、お問い合わせフォームを使おうと思っています。
http://www.winserver.ne.jp/

使うお問い合わせフォームは、「フォームメール」です。
http://www.rescue.ne.jp/cgi/webform/

以下のFAQをみると、「次のコードを記述下さい」とコードが
書いてありますが、どこに入れればよいのかわかりません。
http://www.winserver.ne.jp/faq/index.html#70

webform.cgiに入れればよいのかと確認しても、
「サポート外だから教えられない」と言われてしまいます。
webform.cgiに入れて試してみても、
「CGI Error
　The specified CGI application misbehaved
　by not returning a complete set of HTTP headers.」
と出てしまいます。

どうしたらよいのか、ご助力頂ければ幸いです。

**nobodyさん** · 2008/03/24(月) 14:22:47

エラーメッセージ見てまず何が原因かと思った？
そっから考えろ

**nobodyさん** · 2008/03/24(月) 15:00:22

そのコードは記述する必要がないんじゃないか？

22 · 2008/03/24(月) 15:26:00

>>23,24
CGI/Perlについては、設置程度はできるのですが、
それ以上はわからないのです・・・。
ウィンサーバーはパーミッションの設定はできないし、
>print "Content-type: text/html\n\n";
とあるので、とりあえずwebform.cgiの中で、
「Content-type」ああるところを上記の物に変更しても、
同じメッセージがでるしで・・・。
行き詰まっています。

**nobodyさん** · 2008/03/24(月) 15:35:26

webform.cgi　の中の受信先メールアドレスを自分のアドレスに書き換えて設置するだけでは？

**nobodyさん** · 2008/03/24(月) 15:58:36

basp21 使えってサーバみたいだから sendmail(互換) 前提のスクリプトが
動くようにするのは「設置程度なら」の人にはきついと思う。

**nobodyさん** · 2008/03/24(月) 16:35:00

>>22
もう諦めて、無料のﾚﾝﾀﾙﾌｫｰﾑ使ったら？fc2とかの

**nobodyさん** · 2008/03/26(水) 21:12:26

Talk2chを参考にしてSOCKETを使い、スレのDATを取得したんですが、
取得したものを変数に格納する方法が分かりません

print SOCKET "GET /PC11.2ch.net/dat/10000000.dat HTTP/1.0\r\n";

↑こんな感じです

24 · 2008/03/26(水) 21:14:23

ID忘れてました
スイマセン

29 · 2008/03/26(水) 21:15:27

29でしたorz

**nobodyさん** · 2008/03/26(水) 21:27:35

既視感が。

>>29
http://pc11.2ch.net/test/read.cgi/tech/1199977642/737 (738が俺)
向こうで続けてもいいと思うんだけど。

**nobodyさん** · 2008/03/27(木) 06:27:10

>>32
低レベルすぎると思って

**nobodyさん** · 2008/04/03(木) 16:38:03

会社で、サブルーチンの中でグローバル変数?($_とか)を
使わんほうがいいということで、
print &gokei('山田<>1','菊池<>2','田中<>3');

sub gokei{
　　local @lines = @_; local $gokei =0;
　　foreach(@lines){
　　　　my ($name,$pt) = split(/<>/,$_);#もしくはsplit(/<>/);
　　　　$gokei += $pt;
　　}
　　return $gokei;
}
ってやってたのを軒並み
foreach my $line(@lines){
～ = split(/<>/,$line);
～;
}
に変更されちゃったんですが、そういうものなんですか？
なんかいろんなところで不便なんですが…。

**nobodyさん** · 2008/04/03(木) 16:51:17

プログラムの流れとか関係ない処理とかなら$_使ってもいいと思うけどなぁ
省略したほうが読みやすいときも個人的にいっぱいあるし

他のPerlをあまり使わない人のためじゃない？

あと、my変数と違ってlocal変数は本当はグローバル変数だよ

34 · 2008/04/03(木) 17:34:30

返事ありがとうございます。
$_が出てくるときは長々と複数行引きずる事はないですから、
害はないとは思うんですが・・・。

あと、上記ならまだいいんですが、
$yamadacount = grep((split(/<>/,$_))[0] eq '山田',@lines);
みたいな使い方してる場合はもうどうした物やら…

**nobodyさん** · 2008/04/03(木) 17:34:52

>>34
それよりも local @lines =@_ , (略) のが変。
$pt もグローバルだし。
perl4 時代のプログラム書くなよ。

まあ、$_ に関しては 35氏と同意見だけど、コーディング規約なら仕方ない部分はある。
（が、上記の理由により、貴社のコーディング規約が時代に則ったものとは判断しがたい。）

真相は、スパゲティをみかねた上司が手を入れちゃったって所じゃねえの？

**nobodyさん** · 2008/04/03(木) 19:35:33

失礼、$pt はグローバルじゃなかった、orz...
あと、（）の行は「（が、仮に規約があったとしても、…」って書いたつもりだった。
>>36
$yamadacount
　　= grep{
　　　my $line = $_ ;
　　　( my $name, undef ) = split /<>/, $line ;
　　　$name eq '山田' } @lines ;

後、それを $_ を用いて書くなら（エンコーディングの話しは抜きにして）
$yamadacount = grep /^山田<>/, @lines ;
なりなんなりもっとすっきりしたコードが書けるんじゃね?

**nobodyさん** · 2008/04/03(木) 20:07:16

名前も付けなくていいし。

**nobodyさん** · 2008/04/03(木) 20:17:54

foreachループの制御変数（デフォルトで$_ ）は使った後もとの状態に戻されるよ

34 · 2008/04/04(金) 10:01:42

いろいろ返事ありがとうございます。
さきほど以下のような形でまわしてみたところ、
@aaa = ('a','b','c');@bbb = ('A','B','C');
$_ = "HELLO";
foreach(@aaa){
　　foreach(@bbb){
　　　　print;
　　}
　　print;
}
print;
結果は'ABCDaABCDbABCDcABCDdHELLO'となりました。
ということはやっぱり>>40さんの言うとおり少なくとも
foreachで用いる$_は別段問題ないって事ですよねえ。
$_に直接何か入れる事なんてあんまりないですし。
もうちょっといろいろ試して勉強してみます。。

**nobodyさん** · 2008/04/04(金) 12:31:56

2種類のファイル（それぞれ複数あります）から必要部分を抽出して
リンク付きリスト作成したいのですがよろしくお願いします
perlで使う命令の意味もわからないレベルです（できれば丸投げ希望です）

1種目：ｈｔｍｌから抽出したい箇所
・<title>文字列</title>　#1行構成
・<title xml:lang="ja" lang="ja">
文字列</title>　#2行構成
・【住所】文字列　#1行の時と備考があって2行で構成されているファイルがある
・【TEL】半角数字で電話番号-ハイフン付き（03-3333-XXXX）10桁構成もしくは携帯（090-1234-XXXX）11桁構成

2種目：TXTから抽出したい箇所
＜アピール＞文字列＜アピール＞
約200文字～300文字が改行無しに記載されている場合と
改行ありで2行から構成されている場合があります

★抽出したファイル名の一覧は<a href c:\test\list\ファイル名 </a>でリンク付き一覧
一覧表の構成（ソートは<title>の昇順）一覧表は.htmlで保存したいです

・<title>（htmlから抽出）
・【住所】（htmlから抽出）
・【TEL】（htmlから抽出）
・リンク付きでファイルネーム（htmlから抽出）
・＜アピール＞（TXTから抽出）
・リンク付きでファイルネーム（TXTから抽出）

それぞれの種類で複数あるファイルから上記部分を抽出して1枚の一覧表作成が目標です
どなたかよろしくお願い致します

**nobodyさん** · 2008/04/04(金) 12:58:40

丸投げスレ池

**nobodyさん** · 2008/04/04(金) 20:30:27

>>42です
>>43さん丸投げスレってあるのですか
私にピッタシのスレだ^^;
探してみるねお邪魔しましたノシ

**nobodyさん** · 2008/04/05(土) 13:15:12

こんにちは>>42です
丸投げスレを探したのですが既にあるスクリプトを改造するスレでした
私は改造とはちょっと違うのでこちらで勉強させてくださいお願いします
2枚のファイルから1枚にするより1枚の2箇所からのほうがいいかと思い結合させました
質問内容が>>42から変更します申し訳ないです

1枚のhtmlから異なる箇所にある複数行を読み込んで別ファイルを作る方法を教えて下さい
-------------------------------------
<h1>今日も晴れハレ^^</h1>
<h2>お友達を募集する</h2>
<h3>はじめまして<br>
元気だけがとりえの私です<br>
よろしくね</h3>
<h4>今日のラッキーカラーは黄色</h4>
-------------------------------------
<h1>～</h1>と<h3>～</h3>（複数行にまたがってる）の2箇所を読み込んで
読み込んだ部分だけ別のファイルに書き込んで保存したい（ファイルは新規作成）

部分的にでもアドバイスお願いできないでしょうか？
特に<h1>～</h1>を読み込んだ後、離れた箇所にある<h3>～</h3>の複数行を読み込ませる部分お願いしたいです
どなたかよろしくお願いします

**nobodyさん** · 2008/04/05(土) 13:22:57

>>45
while (<>){
　next if !( /<h1>/i .. /<\/h3>/i ) ;
　print ;
}
h3 が二箇所あるとかだったら知らん

**nobodyさん** · 2008/04/05(土) 13:31:19

ああ、思いっきし間違えた。
h1 と h3 だけ抽出したいのね。
while(<>){
　next if !( /<h[13]>/i .. /<\/h[13]>/i ) ;
　print ;
}
こっちだわ

**nobodyさん** · 2008/04/05(土) 14:40:16

>>45
ついでに

use strict;
my $joined = join "", <>;
my @matches = $joined =~ m{(<h[13]>.*?</h[13]>)}isg;
print map "$_\n", @matches;

でなったけど

リャマ本から省略して書くと
htmlみたいなマークアップ言語には多くの落とし穴があるから単純なパターンは使わずそれ用のモジュールを入手したほうがいいらしい。

**nobodyさん** · 2008/04/05(土) 15:04:15

>>46->>48
お忙しい中、レスありがとうです
>>45です
もしタグ名が違う場合はどう書けばよいでしょうか？
例にあげた文ではサーチする文字列のkeyは2箇所とも<h>ですが
<h>と<span>の2種類の場合はどうすればいいですか
丸投げですねすいません恐縮です

>>48のそれ用のモジュールってあるんですか
もしよろしければこちらも教えて下さい
何度もお手数をお掛けして申し訳ないです

**nobodyさん** · 2008/04/05(土) 16:02:34

>>49
use strict;
my $joined = join "", <>;
my @matches = $joined =~ m{(<h\d>.*?</h\d>|<span>.*?</span>)}isg;
print map "$_\n", @matches;

モジュールは探したけどわからんかった。すまん
それと、書いといて難なんだが勉強不足で>>47さんのコードがよく分からないけど
こっちのコードだと、でかいファイルを処理するときにjoinで全部繋げてからやってるから
たぶん、>>47さんのコードより表示するのが遅くなる
キーボード打つ回数も多くなるし

**nobodyさん** · 2008/04/05(土) 16:21:20

お世話になります>>45です
早速教えていただいたことを取り入れようとしてみたのですが
上手くいきませんでした

2種類あるタグは変数も２つに分けたほうがいいのでしょうか？
格納の仕方を教えて下さい

my $fileに<h1>～</h1>を格納
my $file2に<span>～</span>（複数行にわたる）を格納

２つの変数が格納された後
$file と $file2 の２つの変数をmy @files取り入れるのはどうすればいいですか
ハッシュは%linksとしたいです

書き込む時の事も２つになればどうすればいいのか？よくわかっていません
foreach my $file (sort keys %links) { print FH qq|\t<li><a href="$file">$links{$file}</a></li>\n| }
foreach my $file2 (sort keys %links) { print FH qq|\t<li>$file2</li>\n| }
でいいのか変数格納できていないので確かめていないです
どなたかよろしくお願い致します

**nobodyさん** · 2008/04/05(土) 16:24:30

>>50さん
>>45です
私が書き込む寸前にレスしてくれたんですね
入れ違いになってしまい申し訳ないです
（ソースを見ながら書くと遅くなってしまいました）
>>50さんに教えていただいたようにパイプを使ってやる方法を模索してみます
ありがとうございます

**nobodyさん** · 2008/04/05(土) 16:33:54

>>52
パイプは使ってないよ
m{(<h\d>.*?</h\d>|<span>.*?</span>)}isg
の縦棒（|）は右側か左側どっちかにマッチするようにしてるだけ
それと、このコードは
<span><span></span></span>とか入れ子になってると<span><span></span>にマッチしちゃう
正規表現の部分のコードのはてな（?）を取り除くと<span>aaa</span>……<span>bbb</span>のようになってるとき<span>aaa</span>……<span>bbb</span>にマッチしちゃう

だから、やっぱり書いておいて難なんだけどこのコードはおすすめできない

**nobodyさん** · 2008/04/05(土) 16:37:59

>>50さん
>>45です
my @files = glob("$dir*.html");
globでファイル名を配列として
そのあと
foreach my $file (@files) {
としてファイルを１つづつ読んでいます
ファイルの中が1箇所の時は大丈夫だったんですが
2箇所になると難しくなって困っています（例で言うと<h1>の部分と<span>の部分です）
アドバイス頂ければ嬉しいです
よろしくお願い致します
何度もすいません

**nobodyさん** · 2008/04/05(土) 16:42:14

>>50
モジュールは (HT|X)ML::Parser とか。
正規表現だけではネストに出くわしたときに「落とし穴」にはまる、と。

そのコード書ける人が>>47さんのが把握できないってのが腑に落ちんのだけど
どこが謎なの？

>>45
http://pc11.2ch.net/test/read.cgi/php/1203935151/277　かつ
http://pc11.2ch.net/test/read.cgi/hp/1205922529/50　な者ですが。
↑こんなやっつけ仕事を使い回そうとせずに「きちんと丸投げ」してくださいな。
自分より腕のいい人はたくさんいるから、暇つぶしで相手してくれるかもしれないし。

でも正直、あなたは丸投げ && 仕変連発を平気でなさるので業者に依頼して欲しい。

**nobodyさん** · 2008/04/05(土) 16:46:38

>>53さん
詳しくありがとうございます
>>45です
右か左かを選ぶって意味ですね
そうすると最長一致って事で<h1>の下にある<span>ばかりを選ぶことになりますね
どうすればいいのか・・・
ちょっと頭冷やして再考してみます
ありがとうございました
お返事頂けてよかったです

**nobodyさん** · 2008/04/05(土) 17:10:33

>>55さん
お世話になります
コーディング初心者スレで場所が違うと指摘を受けて自分が質問させてもらえるところを捜していたので
あなたとお会いできるとは思わなかったです
書いてくれた人にもう一度聞きたかったんだけど
みんなに迷惑だと言っていたのであなたに聞けなかったんですよ
また教えていただけないでしょうか？
お願いします
先のレスで書いたように別々のところ2箇所から取り出さなければいけない事がわかりました
以前お話したようにファイルリストを作りたいのですが
タイトルの下にもう1行ありました
タイトルにファイル名のリンクその下に1行書かなければいけなかったんです
もしよろしければお時間のある時にでもまた教えて下さい
お願い致します

**nobodyさん** · 2008/04/05(土) 17:13:24

>>55
なるほど。ありがとうございます

「/<h[13]>/i .. /<\/h[13]>/i」の部分が分かりません
$_に対してマッチしようとして真か偽を返すというのは分かるんですが範囲指定演算子がどういう役割をしてるか分からないです

>>56
何もできずにすまん
やっぱり>>55さんが紹介してくれたようなモジュールを使ったほうがいいよ

**nobodyさん** · 2008/04/05(土) 17:46:59

>>57
うーん、仕変が激しすぎるので…仕事だったら請けてるんでしょうけど。
とりあえず
http://pc11.2ch.net/test/read.cgi/php/1203935151/278
という声もあったので、ちと考えてみます。

>>58
そこの .. でしたか。

説明しようとするとウソを書きそうなので
perldoc perlop や
ttp://perldoc.jp/docs/perl/5.8.8/perlop.pod
の説明やサンプルを眺めてみてください。

**nobodyさん** · 2008/04/05(土) 18:14:08

>>59
すみません、perldocに目を通すのを忘れていました
コンテキストで役割が違うんですね
勉強になりました
本当にありがとうございました

**nobodyさん** · 2008/04/06(日) 14:25:12

こんにちは>>57です
>>59さんレスありがとうございます
わかりました
この先どんな問題が出てくるのか予想も出来ないので取り合えず自分でできるように頑張ってみます
２ｃｈで聞く時に「質問者は環境とやりたいことを出来るだけ詳しく」ということなので
やりたいことを詳しく書く、そしたら解答してくれる前に新しい問題点を発見して「質問内容を変更します」って繰り返してしまいました
解答してくれる方にはご迷惑をお掛けして反省しています
perlを始めて1週間、変数について勉強しているとこです
スカラ変数を2個にして配列変数0、1とすればいいのかなって思いました
それで正解なのかはわかりませんが取り合えずタイトル以外にもう1個スカラ変数を増やして読み書きできる事を目指してみます
ありがとうございました

**nobodyさん** · 2008/04/06(日) 22:29:28

perlの正規表現マッチングで、
htmlを読み込んだ$contentsから
<li>～<li>の～部分を抜き出したいと考えがえています。

for( my $i=1; $i <= 20; $i++){
if( $contents =~ m,^<li>(.*)</li>(.*),g ){
$block = $1;
$contents = $2;
}
}

この場合、i=1の時、
最後<li>のマッチングにかかる部分しか摘出できず、
うまい正規表現がないかと色々調べては回ったのですが、
ハマってしまいました。

$contensの初めからマッチングするようなコードを
ご教授お願いします。

47 · 2008/04/07(月) 07:06:59

誰向けでもなく一応のフォロー。　
my $cnt = 0 ;
while(<>){
　print $cnt . q{ } . $_ if $cnt != 0 or m{<span>}i ;
　$cnt += m{<span>}ig ;
　$cnt -= m{</span>}ig ;
}

>>62
my @res = $contents =~ m{<li>(.*?)</li>}gs ;

**nobodyさん** · 2008/04/07(月) 14:14:44

>>47さん
せっかく教えてくれたんだけど
今の私には理解できていないんだ(;´д⊂ヽ
後に参考になるかもしれないのでメモして大切に保存しておくよ
活用できなくて申し訳ない
ほんとにありがと

**nobodyさん** · 2008/04/07(月) 19:50:52

動画ファイル（youtube.flv）のハッシュ（SHA-1）を求める方法を教えてください。

65 · 2008/04/07(月) 20:57:10

あれからずっとググってやっと見つけました。
ありがとうございました。

**nobodyさん** · 2008/04/08(火) 00:48:13

perl/cgi逆引き大全600って本を1ページ目から読んでるんだけど
スカラと配列とハッシュがよくわかんない
スカラは値$
配列@は複数のスカラ値$
@があればスカラ変数$はいらないのでは？
@が複数のスカラ値と記載してあるんだけど
@へ複数の変数を入力する方法は記載されていないここが知りたいのに見当たらないね
最終的にソートする予定があればキーと値%のハュシュにしておいた方がいいのかな？
ソーと機能の所読んだらキーでソートするって書いてある
ハッシュをいくつも作って複数のハッシュを並べ替えてから書き込み
ってのが最終目標にすればいいのかな

39ページ目にして出てきたqwとはなんだろか？？
目次にもTips検索にもない
ネットで調べたら
qw
シングルクォートで囲んだ文字列をスペースで split するのと同様です
命令を命令で説明しているところばかりだsplitってわかんない
splitを調べたsplitを使ってデータを分割と記載されている
・・・
qwはデータを分割するための命令なのか？？
なんで日本語で解説しないんだ
先日もわかんない単語があった
ネットで調べたストリングと一緒と説明されていた
ストリング？？ギターの弦か？？ワケワカメ

**nobodyさん** · 2008/04/08(火) 05:45:29

Perlの前に日本語から勉強しなおせ

**nobodyさん** · 2008/04/08(火) 06:18:13

お前もな

**nobodyさん** · 2008/04/08(火) 06:31:50

ここが一番わかりやすかった
perlのアレコレ
ttp://furyo.on-air.ne.jp/linux/perl.html

私は10日ほど前からperlに興味を持ちお勉強してたんだよね
perl解説本3冊
ググルこと１００サイト
初心者用ばかり選んでいるのにわかりにくいね

「簡単」「入門」「初級」で探してみるんだけど
中身は自分の思い出すためのメモ帳だね
全然わかんない
命令の説明に命令使って「入門」はないだろｗ
一般社会なら後進指導の立場には向いていないね
命令を説明するのに「○○はこんな感じです」と
その下にサンプル書いているだけではわかんね

私が選んだサイトは文脈からして10年くらいは経っているのではないかと思うがわかりやすいね
ヘンテコな広告も一切なくて集中して見れたな

「perlのアレコレ」管理人さんここを見ることはないかもしれないけど
ありがとう。

**nobodyさん** · 2008/04/08(火) 07:04:21

>>70
…そこもたいして他と変らんよ。多分、覚えたての頃に書いたんだろ。
ヘタに丁寧に書いてある分不味い。
# 範囲演算子の第二の用法（このスレの46）なんかは、まあ省くのは
# しかたないとして。
初心者向けと言うのを加味しても、for の項の例文の無意味な代入とか、
\w の説明とか、
if($target =~ /my main editor is (\w+)/)
{
　print "bad!\n" if $1 =~ /emacs/i;
　print "good!\n" if $1 =~ /vi/i;
}
こんな例文とか。ちょっと眺めただけでも突っ込み所がある。

**nobodyさん** · 2008/04/08(火) 23:43:12

$+　の意味はなんですか？
$#　は探してたんでやっとわかった。最後の変数ね

大全６００ダメだ
ゴミ買って来た様なもんだな使えねえ
他の解説書に気になるサンプルがあった
よく読んでもサンプルに出てくる$+の意味は解説されていない
仕方ないので意味を調べて廻る
くだらない時間が過ぎていく・・・
意味わかんないので他の解説書で調べたり
ググって調べたり無駄な時間ばっかりだ
それで答えは出てこない
どうなってんだ？
hello、perl以外作ったことないよ

グーグルで$+　と$#　と半角でぐぐったら1件もヒットしない
なぜなんだろか？？
怪しい命令なのかね

**nobodyさん** · 2008/04/08(火) 23:57:18

>>72
http://www.google.com/search?hl=en&q=perlvar

**nobodyさん** · 2008/04/09(水) 00:44:21

>>73
ありがと
ラストプレーンマッチ
最後にマッチする括弧がどれかわからない場合に使うと便利
まさにこれですよ＾＾
ありがとう

while (<FH>) { $links{$title} = $1 and last if (m!<title>(.+?)</title>!) }
これの　m!　の部分はマルチオプションっていうのかな
後ろに！が付いているので複数行はダメという意味でよい？

これを複数行対応にしたいのでシングルモードに！にしてみると
while (<FH>) { $links{$title2} = $1 and last if (s!<title>(.+?)\n(.+?)</title>!) }
デバッグでエラーになるんだよね

複数行対応にするにはどうしたらいいですか？
ここが$+の使いどころかな？
わかんない・・・

◆EtAiUEg7/Q · 2008/04/09(水) 01:15:30

あぼーん用に捨てトリ。>>55です。

>>74
だからそのコードは使い回さずに書き直してくださいと（ｒｙ

m! … スラッシュのエスケープが面倒だった。 / 以外の記号でパターンを囲むとき用。
後ろの ! … m! で始めたんだから終わりも同じ記号。
複数行 … http://pc11.2ch.net/test/read.cgi/tech/1186030400/638+642 で教えました。

ついでに言うと
http://pc11.2ch.net/test/read.cgi/tech/1186030400/673
も私です。「gawkで片づいたら、くだすれPerlのアレは全部無駄ですか」という気持ちがあのレス。
ご自分でお書きのとおり「残念」です。

あと、ここもム板の正規表現スレも自分の日記を書くとこじゃありません。

◆EtAiUEg7/Q · 2008/04/09(水) 01:55:27

忘れてた。

while (<FH>) { # 1行ずつ読み込んでループする。$_ に入ってるのは1行だけ }

**nobodyさん** · 2008/04/09(水) 02:43:19

>>75さん
こんばんわお世話になります^^
正規表現の「残念でした」は先の言葉が「次はなんだろう」だったので
クイズのノリなのかと思って
perl→gawkは正解じゃないので「残念でした♪またどーぞ♪」のノリでお答えしたのですが
言葉は難しいですね
ご心配無用ですよ
私がやりたい事を理解できればスグ消えます
ただ思ったよりかなり時間はかかっていますが
パソコンには関係のない商売なのでこればっかり調べたり勉強してとかは実際無理なので。
例の教えて頂いたコードを参考にさせて頂いているのですが
コードって元コードを理解しないと書けないですね^^;

あのコードで特にわからないの所は2箇所あります
1箇所目は複数行
2箇所目は下から3行目のループ
1行で$fileを３回使っていますよね
２回目$fileはファイル名だとわかるのですがlist_fileの宣言をすれば自動的に省略して$fileでOK？？
１回目はmyが初めについているのでこの行で宣言してるってことなのだろうか？
３回目はlinksになっている何故$file（同じ文字なのに）動作は違うのかがよくわかりません
タイトルの下にデータ行と備考項目と増やしたいのですが何故か最初の５バイトが無くなるんです
まあ気長にやってみますよ
オヤシミ^^

◆EtAiUEg7/Q · 2008/04/09(水) 03:07:32

>>77
# 「こんぴーたに無関係な商売なので、用事が済めばあんたらにもプログラミングにも用はない」と
# 言ってることに気づいてるのかなあ。

・複数行のこと。
ループ書き直すのが面倒な心境なので略。

・foreach my $file (sort keys %links) { print FH qq|\t<li><a href="$file">$links{$file}</a></li>\n| } のこと。
foreach (sort keys %links) { print FH qq|\t<li><a href="$_">$links{$_}</a></li>\n| }
# 動作は同じ。

**nobodyさん** · 2008/04/09(水) 03:29:44

>>78
よくわかんないけど
可哀相な人だ
ヘンテコなとらえ方してるね
あなたには感謝しているけど
仕事を放ったらかしでは生きていけませんという意味なのだが・・・
とにかくありがとう
>>78に記載してくれたコードも猫に小判
私には理解できていない
自力でなんとか頑張ってみるよ
あなたはとてもお人好しでいい人だ
知識もある
短気なところ直せば世界が変わると思うよ
オヤシミ^^

**nobodyさん** · 2008/04/09(水) 10:21:11

>>74
m//
http://perldoc.perl.org/perlop.html#Regexp-Quote-Like-Operators

複数行対応
http://perldoc.perl.org/perlre.html#Modifiers

**nobodyさん** · 2008/04/09(水) 11:43:17

>>◆EtAiUEg7/Q
アンタ良い人だよ、おつかれさんｗ

**nobodyさん** · 2008/04/09(水) 16:26:01

>>80
ありがと
$str =~ s/<aaa.*?>(.+?)<aaa>/$1/s;
これまだ活用できていないんよ^^;
検索するところに("$str")や("$1")とかしてみるんだけど結果が出ない
んで書き込みのところも同じようにしてみた・・・結果は出ない
命令の前にmyを付けてmy $str =~ s/<aaa.*?>(.+?)<aaa>/$1/s;とかやってみたけど同じだ
この複数行対応はまだまだ先の課題のようだorz

%linksこれって特別な命令ですか？
どうもこれがわかっていないと検索文字がおかしくなるみたい

(m!<title>(.+?)</title>!)これの場合対応したファイルは狙い通りに処理が終わる
(m!<title(.+?)/title>!)こうすると　＞タイトル＜　という感じで両端に＞＜がひとつづつくっついている
他の<で始まる文字列を検索してみた
自分で適当に作った<aaa>とかは思い通りに処理してるけど
<objct>をターゲットにしてみた<object(.+?)object>
なぜか先頭部分と後部は消えている

%linksを%teslinkstesという変数名に変えてみた
構文チェックはエラーなし。しかし起動しなかった^^;

%linksを調べてみた
相変わらず全集６００には当然のように記載されていない
ネットだけが頼りか・・・
リンク集ばかりヒットする
ググル文字を変えて「perl　命令」「perl　索引」「perl　逆引」
期待できそうなサイトはあったけど%linksは見当たらない

みんなどこで覚えてるんだろうか学校行ってたのかな？
サンプルを参考にさせて貰う以前の問題だな
%linksは明らかに特別な変数のような希ガス

**nobodyさん** · 2008/04/09(水) 16:33:39

「perl 特殊変数」でぐぐるといい
もしくは
perldoc Perlvar

特殊変数以外は自分で定義してるはず。

**nobodyさん** · 2008/04/09(水) 17:22:09

>>82
せめて>>70のリンク先（決して推薦はせんが、ま、しかたない）の全部を
「実践」- 読むだけじゃなく実際に実行してみること - してから
質問してくれんか？

答える気にもならんよ。レスしても「理解出来ない」で終りだし。
◆EtAiUEg7/Q はよくもまあこんなのに色んなスレで付き合ったもんだ。

**nobodyさん** · 2008/04/09(水) 17:51:57

>>83さん
＞特殊変数以外は自分で定義してるはず。
これのようだ
ありがと

>>84
スレタイ嫁としかいいようないな
質問もアドバイスもしないあなたは何者？
どっか逝けばいいよ

**nobodyさん** · 2008/04/10(木) 13:21:24

超初心者用ってもPerlのって事だろ
日本語の初心者やそれ以下のヒトとしての初心者はどうかと思うがな

**nobodyさん** · 2008/04/10(木) 16:30:12

なんか思い込み激しいね
こんなの呼ばわりやそれ以下呼ばわりするほうが
よっぽど人として恥ずかしいので覚えておくといいよ
perl書けたから何？エライの？勘違いもイイトコだ実社会ではね
私はperlに関係あることを書き込みに来ているわけで
単語もわからないので超初心者だと自覚してるよ
まぁそういうのここでは関係ないでしょ
子供の言い合いみたいなのに付き合ってられないので
以降その手の話題は私にはしないで結構ですレスもしないです
今のところ解答者は2名のようだが居なくなるかもしれないし
気まぐれな方が通るかもわかんない
気長に待ってみてもレスもなく、このスレ消滅ってって事でも
それはそれで仕方ない私がどうこう出来ることでもない
煽るだけのレスよりかはいいと思う

今日のわからないこと。
取得タイトル部分は <a href でファイル名にリンクが張られている
後にprintした結果のタイトルには<title>のタグは付いていない
その部分を真似て他の部分を取得しようと試してみた
文字列だけがprintされているタグは前後ともに切れている
わからなかい例の1行で3回fileを使っている部分が味噌だな
その部分のスグ下で　print FH qq|"$file"\n|;　を記載してみた
何も取得しない・・・$fileを他の形式にしても同じようだ
謎の1行はその1行で3個の$fileを育成しているのか？？
文字列の取得だけの場合は応用が利くって事がわかった
タグ付きの部分の取得はまた別にしたほうが良さげ
perlでタグ付き文字列取得の謎ってことで今日はおいておこ^^

**nobodyさん** · 2008/04/10(木) 16:57:06

質問にはわかる範囲で答えてあげたいけど、マナーや礼儀も必要。

質問は簡潔に。
煽りはスルーで。
回答には感謝を。
おっぱいうｐ。

**nobodyさん** · 2008/04/10(木) 17:04:46

せっかく和みレスが入った所悪いが、、、
>>87
俺は47=71=84≠86。
全く進歩しない奴にレスしてもつまらん。
お前が（無いと思うが）俺を回答者としてカウントしてるなら外してくれ。
「超初心者」と自覚してるならば、誘導URLを見て、変数、配列、ハッシュ
辺りの基本用語を頭に入れるくらいの礼儀は心得ろ。
# 正規表現スレにお前が表われて7日。全く進歩してないんだもん。
# 教えて君にも程がある。
煽ってくれても構わんが、その煽りの文章を考える暇があったら（中級以上の
リファレンスを買うんではなく）初心者本でも素直に買って読めよ。

空気悪くしてすまん、他の人。しばらくレスは自粛します。

**nobodyさん** · 2008/04/10(木) 17:07:35

マナーや礼儀ってあなたが決めてるの？
「マナーたるものこういうものである」
「礼儀とは云々・・・」思い込み激しいと疎外しちゃうよ
なんか勘違いしてるね
ペコペコしろという上から目線
キンモ～～としか言いようないなｗ

**nobodyさん** · 2008/04/10(木) 17:23:04

>>90
俺、>>81=>>83=>>88
質問者=初心者ではないし、回答者=エライわけでもない。
わからないことは質問する、わかることは答える。
ただ、教えを請う立場なら礼儀は必要だと思う。
でも勘違いしてるならしょうがない、以後回答は控えます。

**nobodyさん** · 2008/04/10(木) 17:30:12

>>91
あ、そうなんだ
お世話になったねありがと
お疲れちゃん

**nobodyさん** · 2008/04/10(木) 17:54:14

情報が只でもらえると勘違いしてる質問者か。
俺も抜ける。まぁ、頑張れ。

**nobodyさん** · 2008/04/10(木) 17:57:34

>>93
こんなとこで客を探してる暇な業者さんなのだろか？
さよなら
公然の場所で恥ずかしげもない
その発言が面白すぎて
釣られたー

**nobodyさん** · 2008/04/10(木) 18:09:05

久々に香ばしいのが沸いたなあ
ま、一所懸命煽ってがんばってくれ
俺も抜けるよー

**nobodyさん** · 2008/04/10(木) 18:15:14

>>95
ていうかさっきからここで発言してるの
あなたと私だけじゃないでしょうか？
まぁ解答しないよってのはよくわかったのだが
それで何？くらいにしか思わないのだがｗ
ま、さよなら
お元気で^^

◆EtAiUEg7/Q · 2008/04/10(木) 18:30:14

>>85
スレタイの「超初心者」ってのは…
--
use strict;
my %doubutsu; # どうぶつハッシュ
# $doubutsu{'いぬ'} = 'ポチ';
# $doubutsu{'ねこ'} = 'タマ';
# はじめはこうしてたのですが、種類を増やしやすいように工夫してみました。

my @kumiawase = ('いぬ','ポチ','ねこ','タマ','へび','ガララ');
for (my $i = 0; $i < $#kumiawase; $i++) {
　　$doubutsu{$kumiawase[$i]} = $kumiawase[$i+1];
}
foreach (keys %doubutsu) {
　　# 「うちのタマの名前はへびです。」という大惨事が！ヒントください！
　　print "うちの $_ の名前は $doubutsu{$_} です。\n";
}
--
…こういう「プログラミングを身につけるのが目的」の超初心者さんのこと。

「そりゃそうなる。$i++ を $i+=2 に変えてみ。つーか、ガララかよｗ」とか
「("いぬ\tポチ",...) 形式にして foreach と split(/\t/) 使ったらどう？」とか
気のいい回答者さんたちが相手してくれる。

結果だけが目当てなのに業者依頼もせず、気長に取り組むつもりも全くなく、
先を急ぎまくって質問を次々に投げる人は、初心者でも何でもありません。

> 仕事を放ったらかしでは生きていけません

そうですよ。
あなたのような方から「要求定義262,500円 + 制作3,150円 = 計265,650円」をいただく立場の人たちが
仕事をほったらかしてタダでできるのは、冒頭のような初心者さんのお手伝いぐらいです。

◆EtAiUEg7/Q · 2008/04/10(木) 18:30:49

>>89
今更ですが range operator の誰向けでもないフォロー、ありがとうございます。
説明しようとして「左項が真になるとスイッチが入り…えーと…perldoc」でしたので。

「よくもまあ」ではあるんですが、仕事もヒマな時期でしたし
・いつも見てるスレに何かが来る
・自分が回答
・「理解できない。でもありがとう」と言って（一旦）去る
…これで他の方の被害が少しは減るのなら、と。
ソフ板辺りも壮大なことになってそうですが、あちらは見てないので関わってません。

教えてちゃんですらないんですよね。
結果が欲しい、手法には興味がない（と書くと「違う」と返されるだろうけど）、と。
そんなわけだから処理系自体がコロコロ変わったりもするわさ、と。
腰を据えて初心者本でお勉強という方向へは行かない人なのでしょう。

本当は自分もこんな話は書きたくないんですが、誰かが書かないと日記が延々と続くんだなあ
と思ったので、NG用に捨てトリつけた次第です。

>>96
短気を起こしていろんな人を煽っても、いいことないですよ。
そういえば、私の短気なとこを直せば世界が変わると教えてくれた人がいました。

(レス|回答)自粛の方が続出、と。まあ、仕方ないというか自然な流れでしょうな。
捨てトリももう要らなくなって、ここは素敵な日記スレに移行かな。

**nobodyさん** · 2008/04/10(木) 18:31:42

>>96はKY

**nobodyさん** · 2008/04/10(木) 18:35:01

まーくだすれだしアリっちゃアリ。

◆EtAiUEg7/Q · 2008/04/10(木) 18:37:23

>>99 =~ s/96/97/; # 勝手に直しとく

**nobodyさん** · 2008/04/10(木) 18:44:02

>>97
おぉやっぱりあなたか
あなたが顔を真っ赤かにしながらレスしている姿は笑えないよ
（まぁ吹いちゃってしまったのだがｗｗｗ）
なんか難しい説明されてもよくわからない
くだすれ　＝　くだらないスレ　と教えてくれたのですが
しかも超初心者とまで付け足してあるｗ
まさに私のためのスレだと思ったよ
スレタイは業者の釣りえさだったのか
気づけよ＞＞自分ｗｗｗ
そんなに必死になるほどのことでもないので
むしろどーでもいいことなんだけど
気になったからやってるだけで
質問者は回答に飢えている
この心理を突いた網だったのだ
ネットでネット（網）張ってましたねｗ
洒落にもならないけど実際そういう人がいてたのか・・・
必死やのー
ま、気長にやっていくのであなたは私を気遣う必要ないですよ
んじゃね

**nobodyさん** · 2008/04/10(木) 18:52:33

>子供の言い合いみたいなのに付き合ってられないので
>以降その手の話題は私にはしないで結構ですレスもしないです

リャマ本からの引用
「Perlは、少なくとも毎日20分間はプログラムを書く--そしてほとんどのプログラムをPerlで書く--人向けの言語です。」
もし、毎日書くか事情があるなら>>89の引用
>その煽りの文章を考える暇があったら（中級以上のリファレンスを買うんではなく）初心者本でも素直に買って読めよ。

腰を長くすえるなら応用のきくやつを学べ。
アドバイスいっぱい転がってるじゃん。
あと、おまえなじられたら死ぬのか？

**nobodyさん** · 2008/04/10(木) 18:54:15

　　　　　　　　　　　　　　　　　　　 |
　　　　　　　　　　　　　　　　　　　 |
　　　　　 ∩＿＿＿∩　　　　　　　　　 |
　　　　　 | ノ　 _,　　,_ ヽ　　　　　　（（　 |　ﾌﾟﾗﾌﾟﾗ
　　　　 /　　●　　　● |　　　　　　　　　(=)
　　　　 |　　　　( _●_)　ミ　＿　(⌒)　　J　　））
　　　　彡､　　　|∪|　ノ
⊂⌒ヽ　/　　　ヽノ　ヽ /⌒つ
　＼　ヽ　 /　　　　　ヽ　/
　　　＼_,,ノ　　　　　　|､＿ノ

　　　　　　　　　　　　　　　　　　　　　　　　/
　　　　　　　　　　　　　　　　　ぷちっ　　/
　　　　　　　　 ∩＿＿＿∩　　.　　从　/
　　　　　　　　 | ノ　　　　　ヽ　　　　　 /
　　　　　　　　/　　●　　　● |　　(=)ヽし
　　　　　　　 |　　　　( _●_)　ミ／｀　ﾉ
　　　　　　　彡､　　　|∪|　　ノ　　／
　　　　　　　　　/　　ヽノ　　　／　　ﾉﾉ
　　　　　　　　/　　　　　　／
　　　　　　　 /　　　　　　　 /

　　　　　　　　　　　ムシャ　　　　　　　　　|
　　　　　　　　　　　　　ムシャ　　　　　　　|
　　　　　 ∩＿＿＿∩　　　　　　　　　|　　ぷらぷら
　　　　　 | ノ　　　　　ヽ　　　　　　（（　 |
　　　　　/　　●　　　● |　　　　　　　　　J　　））
.　（（　　|　　　　( _●_)　ミ　・
　　　　彡､　　　|∪}=) ,ノ　∴
　　　　　/　　　ヽ/＾ヽ　ヽ　。
　　　　　|　　　　ヽ　＼　|
　　　　　|　　　　　　ヽ＿_ﾉ

◆EtAiUEg7/Q · 2008/04/10(木) 18:57:11

>>102
何か、私にはわからない謎の陰謀にお気づきになった様子ですが
自分が>>78の次に書いたのは>>97ですよ。
「私＝ここで客を待ち構えてる業者」ということにしたいのでしたら、どうぞご自由に。

# こんなとこで客を拾うのってめんどくさそうだなーとしか思えないけど。

**nobodyさん** · 2008/04/10(木) 19:00:59

よくわからんが私の質問どっかいっちゃったのは確か棚

**nobodyさん** · 2008/04/10(木) 19:01:12

久々に叩かれまくられてるのを見た
超初心者でもここまでの香具師はそうそういまい

**nobodyさん** · 2008/04/10(木) 19:02:32

レスしてるのは俺ひとりなんだけどな。

**nobodyさん** · 2008/04/10(木) 19:09:35

電波役になったり電波に煽られる役になったり◆EtAiUEg7/Q役になったりしながら
ひとりでスレ回すのってマジ大変。

**nobodyさん** · 2008/04/10(木) 20:06:37

くだすれ　＝　くだらないスレじゃなくて
詳しい人が見たらくだらない質問だと思ってたけどな。
>>1を読んでもそう取れる。

**nobodyさん** · 2008/04/10(木) 23:57:10

>>102
おまえ、キチガイで名をはせたヨシオカヒデノリだろ。キチガイっぷりがそっくりだ。

**nobodyさん** · 2008/04/12(土) 00:00:56

>>87
>>なんか思い込み激しいね

が>>87を見ても>>102を見ても自分の発言に対して書いてるようにしか思えない点について

**nobodyさん** · 2008/04/13(日) 13:47:51

元気でやっとるかね^^
ちょっとわからないことがあってまた落書きしに来たのだｗ
解答いただけたら嬉しいけど期待できないのはわかっているので
気長に解答者さん待ってみるよ^^;

①抽出部分の検索文字を　<object (.+?)object> にすると
(.+?)の部分だけが取れて
始めに出てくるはずの　<object　と　最後の　object>　が現れないんだよね
変数宣言の名前を全部変えてみたけど動くので特別な変数名は使っていないようだ
perl自体がそういう仕様なのかね？？

②それから複数行抽出なんだけど
1行もしくは2行もしくは3行ってのはダメなのかな？
(s<title(.+?)title>|<title(.+?)\n(.+?)title>|<title(.+?)\n(.+?)\n(.+?)title>s);

③それからまだあるんだよね
<title>
<object>
<span>
この3箇所を抽出したいんだけど何故か最後に書いたトコだけが取れるんだ
{　と　}　の間に3つとも書いているんだけど
ファイルクローズして改めてファイルオープンするって手順にするべきなのだろうか？
今はソースぐちゃぐちゃでワケワカメになってきたｗ

全集６００ダメだ
オープン　オブ　ダイ　で　ダイの部分が予約語なのか調べて見てもわかんない
他の本でdieの意味がわかる
せめて予約語は全部掲載してもらいたいもんだ

それでは①～③よろしく願います
また会おう^^；
シーユーあげ印ｗ

**nobodyさん** · 2008/04/13(日) 15:31:39

(～´-｀)～

**nobodyさん** · 2008/04/13(日) 18:34:17

向うでデリミタの質問をしたのもコイツか？
お前のせいで、他の人の質問でも答える気にならんのだよ自重してくれんかね。

**nobodyさん** · 2008/04/13(日) 18:44:46

便乗したのがコイツだろ…進歩の無いコテが答えたからいいけどさ
あのコテも短レスで時々全然ボケた答え返すんだよなあ消えてくんねえかな

**nobodyさん** · 2008/04/14(月) 01:20:54

('A`)前進しないよ
これの27行目 closedir(DIR);　でエラーになるんだけどなんで？
#!/perl/bin/perl
use strict;
use warnings;
print "<html>\n";
&traverse_html(".");
print "</html>\n";

sub traverse_html {
my $dirname = shift;
my $delim = '/';
if ($dirname =~ /[\/\\]$/) {
$delim = '';
}
print "<ul>\n";
opendir(DIR, $dirname) or die "$dirname: $!";
foreach my $entry (readdir(DIR)) {
next if ($entry eq '.');
next if ($entry eq '..');
my $filename = "$dirname$delim$entry";
if (-d $filename) {
print "<li>$entry\n";
&traverse_html($filename);
} else {
&do_html($filename, $entry);
}
}
closedir(DIR);
print "</ul>\n";
}

**nobodyさん** · 2008/04/14(月) 08:31:02

>>117　
再起してるからじゃね？先にファイル一覧を取得してclosedirしてから再起呼び出しするか、
ディレクトリハンドル(DIR)をローカル変数に浮かすかすればｲﾝｼﾞｬﾈ?
traverse_html ※1 の中で traverse_html ※2 を呼び出す
→ ※1のDIRを※2で上書きする
　 → ※1に戻ったとき ※2のDIRはclose済み
テストしてないから動くかは知らんけどこんな感じ。
sub traverse_html {
my $dirname = shift;
my $delim = '/';
my @entrys = undef;
my $i = 0, $j = 0;
if ($dirname =~ /[\/\\]$/) {
$delim = '';
}
print "<ul>\n";
opendir(DIR, $dirname) or die "$dirname: $!";
foreach my $entry (readdir(DIR)) {
next if ($entry eq '.');
next if ($entry eq '..');
$entrys($i++) = $entry;
}
closedir(DIR);
for ($j=0;$j<$i;j++){
my $filename = "$dirname$delim$entrys($j)";
if (-d $filename) { print "<li>$entrys($j)\n"; &traverse_html($filename); }
else { &do_html($filename, $entrys($j)); }
}
print "</ul>\n";
}

**nobodyさん** · 2008/04/14(月) 13:27:25

>>118さん
レスありがとう^^
試してみたら
my @entrys = undef;
my $i = 0, $j = 0;
部分でエラーになって以下関連箇所もエラーになるんだよね

>>117のコードでのエラー文こんな感じ
closedir() attempted on invalid dirhandle DIR at itiran-tes.pl line29
構文チェックではエラーにならない
デバッグの識別子チェックというのを実行してみたらエラー箇所がわかって
タイトルとファイル名は取得されていてリンクも貼られているようだ

>>117の closedir(DIR);がエラーにならないように出来たら
ワンステップだけど前進出来そうなんだよね
もうちょっと色々試してみるよ
朝のあわただしい中わざわざレスしてくれてありがとう
丁寧に教えてくれて感謝してまふ
んじゃ

**117** · 2008/04/14(月) 13:33:05

>>117には続きがあるんだけど
2chの文字数制限で記載できなかったんだ

#ここに>>117の部分がある
sub do_html {
my ($filename, $entry) = @_;
return unless ($filename =~ /\.html?$/);
open(FILE, $filename) or die "$filename: $!";
my $file = join('', <FILE>);
close(FILE);
my $title;
if ($file =~ m|<title>(.*?)</title>|si) {
$title = $1;
$title =~ s/[\r\n]//g;
} else {
$title = $entry;
}
print qq|<li><a href="$filename">$title</a>\n|;
}

**118** · 2008/04/14(月) 15:57:05

とりあえず、Linux Perl v5.8.6で動かしてみた。
117と120をつなげて動かしたら動いたよ。
OSやPerlインタプリタのの問題かな？

**nobodyさん** · 2008/04/14(月) 16:17:14

>>121
「オープン　オブ　ダイ」の話を書いてから12時間で
readdir でぶん回して再帰もしちゃうんだぞ、ってところが問題なんだと思うよ。

**117** · 2008/04/14(月) 16:47:14

>>121さん
そうなんだ
わざわざテストしてくれたんだ(;´д⊂ヽありがとう
WindowsXP
アクティブパール5.88
シグウィンでもっかいテストしてみて作者にメールしてみるよ
ありがと

>>122
何が問題なのだ？
質問も解答もしないのに横から茶々入れてるあなたのほうがよっぽど問題なのだが・・・
購入した本にサンプルが付いていた
動かないので自分で解決できないか模索した
どこがおかしいのだ
あんたの頭かｗ

**nobodyさん** · 2008/04/14(月) 17:20:05

向うで再帰の質問をしたのもコイツか？
お前のせいで、他の人の質問でも答える気にならんのだよ自重してくれんかね。
>その煽りの文章を考える暇があったら（中級以上のリファレンスを買うんではなく）初心者本でも素直に買って読めよ。

**117** · 2008/04/14(月) 17:21:37

cygwinで動いたんだけどcdのhtmlからの取得はしていなかった
サビフォルダーに置いていたhtmlからの取得は全部おｋ
コマンドプロンプトで確認したんだけど
ファイルは作成されていない
コマンドプロンプトの操作画面に現れたものを
ファイルに保存するのはどうすればいいですか？

取りあえず>>122は答えなくていいよ
どうせ野次るだけなのは明白だ
自分でも探してみるけど
私に理解できるように答えれる方おられましたらよろしくお願いします

**nobodyさん** · 2008/04/14(月) 17:22:29

>その煽りの文章を考える暇があったら（中級以上のリファレンスを買うんではなく）初心者本でも素直に買って読めよ。

**nobodyさん** · 2008/04/14(月) 17:23:21

>>124
それ勘違い
再起わかんないので具体的な質問できないよ
その質問には答えてあげればイイヨ
どうせ私が見てもわかんないのでヨロシコ

**nobodyさん** · 2008/04/14(月) 17:25:31

再帰を「再起」と書く初心者が同じ日に二箇所に現われるもんかねえ。

**nobodyさん** · 2008/04/14(月) 17:27:06

>>126
「超初心者用」と「初心者用」購入したんだけど
ささっと変数を解説したらCGIの話ばかりで
ファイル操作は最後のほうでちょびっとだけ解説してるんだ
なぜかperlの解説本は「CGI」「CGI」の連呼でキモい

**nobodyさん** · 2008/04/14(月) 17:29:05

>>128
誤字がどうしたのだ？
そんなの関係ないと思う
小心者だねｗ

**むこうの928** · 2008/04/14(月) 18:04:05

>>124,>>128
激しくゴメン。別人です。
何日か前から、こっちがこんなことになってるから、むこうで聞いてみた。
(まあ実際WebProgではないんだけど)

しまった”再帰”か～。
つっても再起でコケてるわけではなくて、（まただw)
どうも =~ s///e の”e”でこけてるようなんだ。

正規表現絡みで、しかもこっちこんな状況だったからあんま書き込みたくなかったんだけど
案の定つっこまれてしまった。

まあいいや、今は時期が悪かったってことで、暫く消えます。

**nobodyさん** · 2008/04/14(月) 20:11:42

一応、お詫びします。迷ったけどこっちに書きます。
貴方が本当に別人なら理解出来るでしょう。
======================
当方、確認の術を持たないので（win環境なし）。
s///e の問題にしろ再帰の問題にしろ、再帰を使うほどの
ネタでは無さそう。あくまでも適当に書いた例だけど。
# Wide character warning が出るのは御愛嬌。
use utf8 ;
my %hash
　= map{
　　my $new = $_ ;
　　$new =~ s/(\d)(\d)/$1十$2/ if length $new == 2 ;
　　$new =~ s/1十(\d)/十$1/ ;
　　$new =~ tr/123456789/一二三四五六七八九/ ;
　　$new =~ s/0// ;
　　$_, $new ;
　} 1 .. 99 ;

while(my $line=<DATA>){
　 $line =~ s/(\d+)条/$hash{$1}条/; print $line ;
}
__DATA__
3条
24条
10条

**nobodyさん** · 2008/04/14(月) 20:48:09

こっちでいいのかな？

>>131
ActivePerl5.8.8(build816) で試そうとしたんですけど、標準入力からうまく食ってもらえず。

で、__DATA__ と <DATA> にしたり
open(IN, '<', 'list.utf8'); binmode(IN, ":utf8"); 以下略にしたりしてみたら
意図どおり(のはず)の出力になりました。perl.exe も落ちず。

# CP932 な環境で binmode(STDIN, ":utf8") って考えたこと自体がないのでよくわからない。

>>115 >>124
諸事情により疲れすぎて疑心暗鬼になってるように見えますよ。
諸事情のほうは継続の気配なので、少し休まれては如何かと。

**130** · 2008/04/15(火) 02:25:32

こっちにレスがついてた。みんなサンクス

>>132
イエッサー。わかりますとも。自分でも向こうに書き込んだ後に、ハッシュ使えばs///eも再帰も必要ないかなって思った。
処理速度もこっちのほうが速いし。でも自分で書いたのはこんなの。うーん、いまイチスマートにならないなあ。

my $kanj;
for (1..99){
    my $kan = $_;
    $kan =  substr($_,0,1) . '十' . substr($_,1,1) if($_ >= 10);
    $kan =~ tr/123456789/一二三四五六七八九/;
    $kan =~ tr/0//d;    $kan =~ s/一十/十/;    $kanj->{"$_"} = $kan;
}

**130** · 2008/04/15(火) 02:26:02

>>133
あれ、ちゃんと動きましたか？
うちでは昼間とは別のPC(PerlのVerは同じ)でやってみたけど、やっぱり例のWindowsダイアログが出て落ちる。
で、いろいろあがいてみたところ、上では、再帰ではないっぽいこと言ったけど、やっぱり再帰に問題ありかと。
特にif($num>=20)のところで、$1と$2を同じ関数に再帰してるとこで、次の正規表現マッチで$1$2あたりが壊れるんではないかと。
(ちなみに、これまたCentOS4,Perl-5.8.8-5.rpmだと期待通りに動く)

上で再帰ではないと思ったのは、あのスクリプトを、use utf8;とbinmode関係コメントアウトして実行してみると、
(当然tr/123.../のところで文字列がぶっ壊れるけど)、最後まで落ちずに走ることと、
以前に正規表現($1$2や$'$`$&も)使いまくりで、さらに6-7段ぐらいネストした関数書いた時も、期待通りに動いてくれたんで、
ちゃんと覚えてくれてるものかと思ってた。これからは、どうやらこれを改めないといけないようだ。

> # CP932 な環境で binmode(STDIN, ":utf8") って考えたこと自体がないのでよくわからない。
自分は、Win上でもtextは基本的にUTF-8で保存してるもんで、(本番環境がLinuxなのもあるけど)ワンライナ＝[っぽく書くとｂｫは、
コ＝[ドの中でopenｂ竄轣Aencode(decode(...))やら書くのメンドいんで、perl script.pl < infile.txt > puts.txt みたな感じを多用してます。
ちなみに、向こうのコードをopen(IN...）とかでやっても、ウチの環境ではやっぱりperl.exeが落ちるのは変わらない。

**134,135** · 2008/04/15(火) 02:27:42

ごめん、激しくゴメン。
名前欄>>131の誤りです。
やっぱり消えます。

**nobodyさん** · 2008/04/15(火) 04:16:40

>>135
大変失礼しました、重ねてお詫びします。

>>133
>諸事情により疲れすぎて疑心暗鬼になってるように見えますよ。
>諸事情のほうは継続の気配なので、少し休まれては如何かと。
ほんとにその様です。穴があったら入りたいw

**nobodyさん** · 2008/04/15(火) 04:17:12

俺も穴があったら入りたい(性的な意味合いで)

**nobodyさん** · 2008/04/15(火) 15:19:10

これからジュンク堂とヨドバスカメラとbook1stとアサヒヤと紀伊国屋行ってみる
りゃまbonがいいんだね
先日、立ち読みしたラクダの本かな？
アレファイル操作詳しく載ってるの？
取りあえず今日はperlの絵本というのを探してみようかと思う
ま行ってみるよ
んじゃ

**133** · 2008/04/15(火) 17:04:26

事故レス。
> 標準入力からうまく食ってもらえず。

test.pl < list.utf8 > converted.utf8　# 0バイトのファイル生成で頭抱える。
test.pl < list.utf8　# 何も吐いてくれない。
perl test.pl < list.utf8 > converted.utf8　# …ちゃんと食ってくれますね。

他人様の疲れを気にする前に、寝ぼけた自分をどうにかしろと。

>>135
要件通りに動くことより「なんで perl.exe が落ちるのはどうして？」が本題ですよね。
ちと時間があったので追試しました。

# 上記寝ぼけから醒めたので STDIN から食う元通りのコード
# 食わせたのは for (1..99) { print "ふんにゃか市$_条\n" } で作ったファイル

5.8.8-816 on Win2kSP4 → 正常動作。
5.8.8-819 on WinXPSP2 → 正常動作。
# ビルドを上げる
5.8.8-822 on WinXPSP2 → アッー！
# 本当に落ちたので下げた
5.8.8-820 on WinXPSP2 → 正常動作。

build822 だと見事に落ちますねえ。

**nobodyさん** · 2008/04/15(火) 19:22:38

みごとな検証、お疲れ様。
質問者様が見てくれるといいが。

**nobodyさん** · 2008/04/15(火) 23:20:39

>>140
原因が同じか違うかもさっぱりわからないが、
5.8.8 build822だとStorableを使ったコードで
大量のstorableデータ(50MB強)を読み込ませると読み込みが終わらない、
という現象にあたったことがある。
同一コードで、build817、あるいは5.10.0 build1001, 1002 では問題なかった。

というわけで、個人的にbuild822は信用していない。
参考情報と言うことで。

**nobodyさん** · 2008/04/16(水) 16:55:29

*本当の検証*が向こうに出てたので、>>131さんもご覧になるでしょう。
まあ、元々向こうのネタですし。
# きちんと問題の切り分けして再現する最小コード出す辺りが「向こう」なのかも。

自分のは検証でなく、「おらの環境では動いたずら」だけではひどいと思ったので
補足した程度ですから。

>>142
build822 をインスコすると build821 用の release.(html|txt) が入ってて萎えるんですが
CHANGES.txt で build821, 822 だけに書かれてる
> plus additional selected changes from the Perl 5.9 development branch.
これが気になってます。

> Build 821 was only distributed for HP-UX.
ここは…笑うところなのかな。

build822 が5.8系の latest ではあるんですが、自分も同じ印象です。
配布CGI＋改造のテスト程度は大丈夫なんでしょうけどね。

**135** · 2008/04/16(水) 20:08:19

みなさん本当にありがとうございます。
向こうで見事な回答を頂きました。（Cコードを読み解く力がないので具体的なことはよくわかりませんが・・。)

>>140
わざわざ試して頂いてありがとうございます。
自分の記憶では、817->819と820->822でバイナリ互換が崩れる(DBIやEncode、Uni-Jpなんかを再ビルドしないといけない)ので、
古いバージョンに戻してまでやってみようと言う気が起きませんでした。
(ちなみに819->820は再ビルド無しでモジュールが動きました。)

>>142,>>143
そうですか、build822はあんまりよろしくないのかな？
向こうの返答では、5.10系でも同様に落ちるらしいので、むしろこのコードで動いているほうがよろしくないってことで
修正されたんではないかと思いますが、実際のところよくわかりません。(動くことによる不具合が思いつかない。)
今度ヒマな時にでも、Linux環境でperl-5.10をソースからコンパイルして同じコード試して見ます。

まあどちらにせよ、再帰の中で、tr///(s///も？)を使うようなコードは書かないようにしないといけないっぽいですね。

質問 · 2008/04/16(水) 23:05:19

ブラウザを閉じると、指定したファイルのデータを消すようにしたいのですが
perlで良い方法がありましたら教えてください。

**nobodyさん** · 2008/04/17(木) 09:24:21

>>145
サーバにいるPerlさんは、クライアントのブラウザが閉じたかどうかを知らないよ。

**nobodyさん** · 2008/04/18(金) 01:33:43

JavaScript併用

**145** · 2008/04/18(金) 07:47:12

>>146
サーバサイドだからやっぱり無理なんですかね・・　いいモジュールとか有ると期待していたんですが。。。

>>147
JavaScriptのどういったものが教えてください

**nobodyさん** · 2008/04/18(金) 10:00:46

閉じたら消すじゃなくて
開いたら消すにすれば？

**nobodyさん** · 2008/04/18(金) 14:57:49

JavaScriptならonUnloadで消去用のスクリプトを実行させれば？
もしくは実行終了のタイミングが予測出来るなら
folkなりthreadなりで子プロで消すとかね

そもそも消さなきゃならないデータなんて置かなきゃ良いんだよw
どうせダウンロードされたくない画像やら動画やらなんだろうけど
そんなもんはブラウザのキャッシュからいくらでも回収出来るからなぁ

**nobodyさん** · 2008/05/01(木) 01:13:00

foreach で読み込むときに異なる行を複数取得教えてください
foreachの前で下記のようにやってみたらエラーになります
$str1 =~ /あいうえお/;
$str2 =~ /さしすせそ/;

**nobodyさん** · 2008/05/01(木) 01:16:22

日本語が良くわかんない（＞＜）

**nobodyさん** · 2008/05/02(金) 11:14:09

2chの日付の後に付くIDはどうやって算出しているのですか？
よろしくお願いします。

**nobodyさん** · 2008/05/02(金) 23:30:24

http://pc11.2ch.net/php/#9のように？とは＆使わずに引数使うのどうするの？

**nobodyさん** · 2008/05/03(土) 00:23:50

>>154
mod_rewriteとか。

実をゆうと http://localhost/file.cgi/aaa=bbb
とかで、/の後ろを引数として渡したり出来るんだけど、
色々と混乱しそうだから、俺は使わない。

**nobodyさん** · 2008/05/04(日) 16:40:15

どうやったら、変数に何も値が入ってないってことを確かめられるの?

**nobodyさん** · 2008/05/04(日) 18:06:42

$hensu or print "ナイヨ（＞＜）\n";

**nobodyさん** · 2008/05/04(日) 18:19:28

$hensu = 0;
で破綻するので>>157はデタラメ。

defined($hensu) or print "ナイヨ（＞＜）\n";
が正解。

**nobodyさん** · 2008/05/04(日) 19:26:18

>>156にとっての「何も値が入ってない」によって答えが変わるでしょ。

my $var = ''; # これが「長さ0の文字列が入ってる」のか「何も入ってない」のか
print "どっちが正解かわかんないんです（＞＜）\n" if $var xor defined($var);

**nobodyさん** · 2008/05/04(日) 22:15:41

三値論理

**nobodyさん** · 2008/05/05(月) 18:10:43

use Socketと書かなくても、gethostbyname関数が使えるのはなぜ?
ドメインを入力してIPアドレスを出力するだけの、単純なスクリプトを作りたいので

**nobodyさん** · 2008/05/07(水) 13:21:17

記事の中の
　a href=" URL "
もしくは
　img src=" URL "
のURLが相対パスになっていた時に絶対パスに変換されるようにするには
どうしたらいいですか？

**nobodyさん** · 2008/05/07(水) 19:46:59

HTMLタグに「絶対パス」を入れても表示出来ないよ

**nobodyさん** · 2008/05/07(水) 21:26:07

いまapache?でcgiのテストをしてるんですが。
長居のでソースは遠慮するんですが、そのcgiを指定するとPLファイルをブラウザで表示したみたいに自分の打ったテキストがそのまま出てしまうのですが、このとき考えられるミスを教えて下さい。

**nobodyさん** · 2008/05/07(水) 22:20:31

>>161
use strict; use warnings;
#use Fcntl qw(:flock); use Socket;

open(LOG, '>', 'test.tmp') or die $!;
flock(LOG, 2);
#flock(LOG, LOCK_EX);
print LOG scalar gethostbyaddr(pack('C4', 127, 0, 0, 1), 2), "\n";
#print LOG scalar gethostbyaddr(pack('C4', 127, 0, 0, 1), AF_INET), "\n";
close(LOG);

use Fcntl qw(:flock) や use Socket しなくても flock() も gethostbyaddr() もつかえる。ふしぎ！

>>162
よくわかんないけど $ENV{'SERVER_NAME'} とか $ENV{'SCRIPT_NAME'} とか
ttp://search.cpan.org/~gaas/URI-1.36/URI.pm
ここの URI->new_abs() とかを眺めるといいんじゃないかと。

>>164
・自鯖板ネタなのにここに書いてる。
・よくわかんないまま共用レン鯖でテストしてる。
・ファイル名がなんたら.cgi だけど .htaccess で .cgi が text/plain になるよう仕込んである。
・ファイル名がなんたら.pl で実行属性がついてない。
・実は Perl と無関係な問題。
…1つぐらいは当たってると思います。

**nobodyさん** · 2008/05/07(水) 22:27:20

これじゃね？→Content-Type: text/html;

**nobodyさん** · 2008/05/07(水) 22:44:41

>>165
あ、すいません。自鯖板ネタなんだと思います。
そんな板があると知らなかったので・・・何回か色々とググったら、たぶんapacheの設定ミスみたいです。
見直してみます。
ご迷惑おかけしました。
>>166
そっちは試してみたので。スクリプト的にはたぶん問題ないです。
helloworldレベルの奴でも出なかったし、本丸写しでも無理でしたし。
ありがとうございました。

**nobodyさん** · 2008/05/08(木) 00:03:38

$HOGE = ABC
DEF123　を　ABC123 に置き換えたい時は
$str =~ s/DEF123/$HOGE123/g;
では駄目ですよね？　どうしたらいいですか？

**nobodyさん** · 2008/05/08(木) 00:16:04

$str =~ s/DEF123/${HOGE}123/g;

**nobodyさん** · 2008/05/08(木) 00:50:06

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

**nobodyさん** · 2008/05/08(木) 10:10:29

>>161
組み込み関数だから使える。

**161** · 2008/05/08(木) 18:42:19

>>171
thx

**nobodyさん** · 2008/05/08(木) 20:29:16

ABC/DFG/HIJ/../　　→　　ABC/DFG/
こういうのが　　　　　　　　　こういう感じで置き換わるように

$str =~ s/\/[^\/]*\/\.\.\//\//g;
こうやってみたのですが

ABC/DFG/HIJ/../../　　→　　ABC/DFG/../
こういうのは　　　　　　　　　こうなっちゃいます

ABC/DFG/HIJ/../../　　→　　ABC/
こうなってくれるにはどうしたらいいですか？

**nobodyさん** · 2008/05/08(木) 20:46:01

../　を消すだけじゃ駄目？

$str =~ s{\.\./}{}g;

こんな風に。

**173** · 2008/05/08(木) 20:59:09

>>174
../　が前方を巻き込んで消えるようにしたいのです
一行では無理でしょうか

**nobodyさん** · 2008/05/08(木) 21:06:50

ごめんなさい。
完全に勘違いしてました。

こういうこと？

$str =~ s{[^/]*/(\.\./)+}{}g;

**173** · 2008/05/08(木) 21:22:58

>>176
すみませんお手数おかけして…
それだと
ABC/DFG/HIJ/../　　　の時も
ABC/DFG/HIJ/../../　　の時も
ABC/DFG/　　になってしまいます

ABC/DFG/HIJ/../../　　の時には
ABC/　　　になるようにしたいのです

**nobodyさん** · 2008/05/08(木) 21:29:39

正規表現でどうにかする方向は>>176さんに任せつつ。

>>173
use File::Spec;
print File::Spec->canonpath('ABC/DFG/HIJ/../../');　# ABC

末尾のデリミタが消えたりしますが。

**176** · 2008/05/08(木) 21:40:41

質問の趣旨がようやくわかった。ファイルパスの操作か。
こんなことしてどうするんだろうとか不思議に思ってた。
なんか寝ぼけてるな。
これを正規表現でどうにかしたのをみてみたい。

**173** · 2008/05/08(木) 22:04:20

わ、最初からファイルパスと言うべきでした。すみません。
RSS出力のCGIをいじってて、文章中にあるリンクやimgタグがRSSフィードでは
絶対パスでないと働かないので、相対パスになってた時に絶対パスに置き換わるように
したかったのです。

$RSS_BASE_URI = "http://$ENV{'HTTP_HOST'}$ENV{'SCRIPT_NAME'}";
$RSS_BASE_URI2 = &GetDir($RSS_BASE_URI);

元のCGIにこれがあるので、

$str =~ s/href=\"/href=\"$RSS_BASE_URI2/g;
$str =~ s/src=\"/src=\"$RSS_BASE_URI2/g;
$str =~ s/http\:\/\/.*?\/http\:\/\//http\:\/\//g;
$str =~ s/\/\.\//\//g;
$str =~ s/\/[^\/]*\/\.\.\//\//g;

こうやってみたんですが…（見にくくてすみません）
こういう書き方をするようなものではないのでしょうか？

>>178
すみません、記事の中からURLを抜き出して当てはめるにはどうすれば…

**178** · 2008/05/08(木) 22:46:06

my $str = 'ABC/DFG/HIJ/../.././././';
while (index($str, './') + 1) {
　$str =~ s!/\./!/!g;
　$str =~ s!/[^/]*/\.\./!/!g;
}
print $str;

ループなしでどうやるんだろう。

>>180
最初から「>>162です」と言って欲しかった気がする165です。
$RSS_BASE_URI2 の正体等々よくわかんないので、下記を見ながらごにょごにょしてください。

use URI;
print URI->new_abs('../../images/spacer.gif', 'http://example.com/cgi-bin/test/');
# http://example.com/images/spacer.gif

**nobodyさん** · 2008/05/08(木) 22:46:10

>>180
横レス。
モジュールがあるか？と静観してたんだが、こっちに移動してきたのかw
my $RSS_BASE = '/ABC/DFG/HIJ/' ; # 絶対パス
my $path = '../../abc/efg/' ; # 相対パス
my $cnt = $path =~ s{\.\./}{}g ; # ../ の数把握と同時に消去。
$RSS_BASE =~ s/([^\/]*?\/){$cnt}$// ; # 絶対パスから../の回数分のディレクトリを削る。
print $RSS_BASE . $path . "\n" ; # プリント。

**nobodyさん** · 2008/05/08(木) 22:47:32

ああ、やっぱモジュールがあったのねorz...
おまけにタワゴト書いてるし。

**173** · 2008/05/08(木) 23:36:51

>>181
ごめんなさい。>>162です。
記事の中から該当部分を抜き出してまた戻す方法も分からない絶望的分からなさだったので
教えていただいたものを使うことができず、恥ずかし悲しくなりながら単純な置換だけでなんとか
やれないかと別の方向にごにょごにょしちゃってました。
もう少し勉強してそれを使えるようにがんばってみます。ありがとうございました。

>>182
移動してきてました…。
自分が知らないだけでこれもきっと一行ですむのだろうと思ってたら、そうでもないようですね。
勉強してなんとか単純置換以外も使えるようになろうと思います。ありがとうございました。

**nobodyさん** · 2008/05/09(金) 04:31:31

モジュール使えで終了な話ではあるけどワンライナーでかけないのが悔しいorz

**nobodyさん** · 2008/05/09(金) 07:34:10

せいぜい短くしても
$str="ABC/DFG/HIJ/../../././abc/efg" ;
1 while $str =~ s{([^/]*?/\.\./|\./)}{} ;
print $str . "\n" ;
程度だね。

**nobodyさん** · 2008/05/10(土) 18:46:41

テストしても何も表示されないんですが何がおかしいのでしょう？
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>あ</title></head>\n";
print "<body>$kao<br>$body<br>$asi</body>\n";
print "</html>";
タイトルすら出てくれないんです。
たぶん初歩的なミスだと思うのですが・・・

**nobodyさん** · 2008/05/10(土) 19:17:45

ヘッダは？

**nobodyさん** · 2008/05/10(土) 20:49:00

print "Content-type: text/html\n\n";
これですか？

**173** · 2008/05/10(土) 21:11:01

>>186
あ、一行でもできたんですね！
ありがとうございます、動きました！

URLを抽出してモジュールに渡すのに悪戦苦闘してましたが、
このままできないのもくやしいのでそっちもがんばってきます。

**nobodyさん** · 2008/05/10(土) 23:31:35

>>189
その行を　print "<!DOCTYPE～　の行の前に書いてる？
あとエラーじゃなくて真っ白？　ソースも？

**nobodyさん** · 2008/05/11(日) 12:00:02

>>191
はい。この行を書いて、一行改行してhtmlソースです。
ANHTTPDで真っ白でした。
前に$kaoとかを定義づけてるんですけども（ifで）それのミスなら500が出るかな、と思ったので。

**181** · 2008/05/11(日) 17:10:05

>>190
「くやしいのでモジュール使うやりかたでもがんばってみる」方のようなので
ごにょごにょするときの参考にしてみてください。

use URI; # URIモジュールさん召喚。
my $RSS_BASE_URI2 = 'http://example.com/my/rss/generator/'; # 例。
my $str = join('', <DATA>); # __DATA__ 以下の割箸をまとめて $str に袋詰めします。

# >>180に基づいてみました。
$str =~ s/href="([^"]+?)"/'href="'. URI->new_abs($1, $RSS_BASE_URI2) .'"'/eg;
$str =~ s/src="([^"]+?)"/'src="'. URI->new_abs($1, $RSS_BASE_URI2) .'"'/eg;

print $str, "\n";
# 出力:
# <img src="http://example.com/diary/img/test.jpg">
# <a href="http://example.com/diary/latest">latest</a>
# <a href="http://example.com/test/script.cgi">Test Script</a>

__DATA__
<img src="../../../diary/././img/././test.jpg">
<a href="../../../diary/latest">latest</a>
<a href="http://example.com/test/script.cgi">Test Script</a>

**193** · 2008/05/11(日) 17:25:08

事故レスれす。

> $str =~ s/href="([^"]+?)"/'href="'. URI->new_abs($1, $RSS_BASE_URI2) .'"'/eg;
> $str =~ s/src="([^"]+?)"/'src="'. URI->new_abs($1, $RSS_BASE_URI2) .'"'/eg;

$str =~ s/(href="|src=")([^"]+?)"/$1. URI->new_abs($2, $RSS_BASE_URI2) .'"'/eg;

**nobodyさん** · 2008/05/11(日) 20:48:25

>>192
ANHTTPDの設定だと思うけどなー。
「ANHTTPD　真っ白」でぐぐったらなんか色々出てきたから
やってみたら

**nobodyさん** · 2008/05/12(月) 04:25:47

ブラウザを使わずにBookOFなどの商用サイトに接続して本を検索したり注文したりする
Perlで可能でしょうか？
可能でしたら具体的に教えていただけないでしょうか

**nobodyさん** · 2008/05/13(火) 03:27:45

そのサイトが検索用にAPIでも提供していれば
コマンドラインからの実行で検索は出来るはず(Amazon等)
注文までは知らね

**nobodyさん** · 2008/05/13(火) 05:33:31

>>196,>>197
別にAPIとか対応して無くても、Formで受け付けてくれるなら(JavascriptやFlashでなければ)
気合さえあれば、検索も注文も出来る。

**190** · 2008/05/13(火) 07:31:33

>>193
ありがとうございます、参考に……って回答だった！
自分のとこでも動きました。こんなに簡潔になるなんて感激です。
~ s/　以下にも入れられたんですね…
一回やってエラーが出たので（多分何か抜けてた）
別の場所で動かしたそれを元に戻す過程がいるのかと
甚だしい勘違いをしてました。

何一つ自分で解決できなかったけどなぜか大きく成長したような気がしました
本当にありがとうございます。
CGIでやってみたいことはまだまだあるので次はgoogle的なもので
解決できるようになりたいものです。

**nobodyさん** · 2008/05/14(水) 02:23:53

>>198
まあ、やって出来ない事は無いとは思うけど
気合いってよりは無駄な作業が多くなるでしょ
検索して返ってくるのはHTMLな訳だからそこから必要な物を切り出して
さらにフォームを探して送信する内容を整えて・・・