Perl 初心者コーナー Part22

**nobodyさん** · 03/04/15 10:15

いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

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

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

CGIだけど、なんか質問ある？ Part 10
http://pc2.2ch.net/test/read.cgi/php/1048686475/
参考書籍の話題は、【Perl,CGI】参考書籍第三版
http://pc.2ch.net/test/read.cgi/php/1030209573/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般/Part2】
http://pc.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は、【スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

過去ログやお勧めサイトは >>2-10

**nobodyさん** · 03/04/20 14:00

>>174
行われる処理が同じになるコードじゃないから

**nobodyさん** · 03/04/20 14:13

>>174
whileは毎回比較してるから遅いのは当然

**nobodyさん** · 03/04/20 14:51

>>174
ソースを見た段階で違いに気づけよ....

**nobodyさん** · 03/04/20 15:08

そんなコードの違いがわからないやつが言うメモリってどうやって調べたのだろう？

**nobodyさん** · 03/04/20 15:21

>178
タスクマネージャーとかじゃね？

**nobodyさん** · 03/04/20 18:39

Subroutine ABCDEFG redefined

ってどういうエラー？

**nobodyさん** · 03/04/20 18:41

>180
辞書(英和辞典)をひけばわかりそうなものだが。

**nobodyさん** · 03/04/20 19:40

>>180
re　　defined

**nobodyさん** · 03/04/20 20:14

34 → 0000034
123 → 0000123
のように、
ある数字を、７桁の文字にするにはどうすればいいのでしょうか？

**nobodyさん** · 03/04/20 20:21

$answer= substr('0000000'.$n, -7);

**nobodyさん** · 03/04/20 20:22

>183
sprintf

**nobodyさん** · 03/04/20 20:22

>>183
sprintf
$s=sprintf("%07d",34);

**nobodyさん** · 03/04/20 21:38

>>184
あんた、プログラミング歴長いでしょ？

**nobodyさん** · 03/04/20 21:38

x_ 以外で始まり、 .cgi で終わる正規表現を教えてください。

x_acdef.cgi にはマッチしない
abcdef.cgi　　　にはマッチする
aacdef.csv　　　にはマッチしない
x_aaad.csv　　にはマッチしない
xabcdef.cgi　　にはマッチする

**nobodyさん** · 03/04/20 21:42

!/^x_/ and /\.cgi$/

**金正日** · 03/04/20 21:44

**nobodyさん** · 03/04/20 21:49

>>189
やはり、andを使わないとだめなのか。

**nobodyさん** · 03/04/20 22:02

/^[^x_].*\.cgi$/

**nobodyさん** · 03/04/20 22:04

>>192

$a = 'xabcde.cgi';
if($a =~ /^[^x_].*\.cgi$/){
　　print 'マッチしました';
}else{
　　print 'だめ';
}

これで「だめ」と表示されたので、失敗。

**184==189** · 03/04/20 22:06

正規表現の勘所は、冗長になり過ぎないこと

**nobodyさん** · 03/04/20 22:07

/^[^x][^_].*\.cgi$/

**nobodyさん** · 03/04/20 22:09

$a = 'xabcde.cgi';
if($a =~ /^[^x][^_].*\.cgi$/){
　　print 'マッチしました';
}else{
　　print 'だめ';
}

だめと表示された。やっぱ無理なのか。
すまんかった。

**192=195** · 03/04/20 22:14

すいまそん。あてくし、初心者なんです。
調子に乗って答えてしまいますた。
ムズイネ・・・

**nobodyさん** · 03/04/20 22:47

^(?:x(?!_)|[^x]).*\.cgi$

**nobodyさん** · 03/04/20 23:00

189程度なら正規表現使う方が間違ってる

**nobodyさん** · 03/04/20 23:03

>>199
同意
あれで正規表現しか方法が思いつかないのは情けない

**nobodyさん** · 03/04/20 23:03

if (/^(?!x_).*\.cgi$/) {

**nobodyさん** · 03/04/20 23:04

漏れ、久々にPerl触ることになったんですけど
5.2以降、基本的な構造とか変わりまつたか？
ライブラリ周りとか、参照とかハッシュ(連想配列だっけか？)とか･･･

**nobodyさん** · 03/04/20 23:08

x_ 以外で始まる。

**nobodyさん** · 03/04/20 23:13

>>202
5.6、5.8あたりで動きがあったけど

**202** · 03/04/20 23:21

>>204
多謝
化石化した脳が再利用出来ることを願って、その辺調べてみまつ

**nobodyさん** · 03/04/21 00:03

>>202
5.6なら基本的に大きく変わってないと思うよ
5.8はエンコードとか大きく変わってる

**nobodyさん** · 03/04/21 00:53

Arseno ver2.1.4 のような辞書を借りたいのですが
何処に行けば無料レンタルできますか？

**nobodyさん** · 03/04/21 01:16

>>207
あの世

_ · 03/04/21 01:37

**nobodyさん** · 03/04/21 01:59

< 174
説明が間抜けでｽﾏｿ　再度朝鮮。
@dat = ();
foreach $count (0..1000000) { $dat[$count] = $count; }
と、
$count = 0;
@dat = ();
while($count < 1000000){ $dat[$count] = $count++; }

前者では、配列が 32bits整数 * 約1MB = 4MB となるのでその分のメモリを使用しているということをモニタで納得できたのですが、
後者の方では、2 倍の 8MB 程使用しているようなのです。
この場合なぜ後者は 2 倍のメモリを使用するのでしょうか？
環境はVineLinux2.6(kernel 2.4.20-0vl29.1)
Perl 5.6.1 です。

**nobodyさん** · 03/04/21 17:48

ある文字列に
abが存在するかつcdが存在するかつefが存在しないかつghが存在しない
という条件を書きたいとき
論理積などを使わず正規表現一発で現すにはどうしたらいいでしょう。
というかperlっぽい書き方はどんな感じなんでしょう。教えてください。

**nobodyさん** · 03/04/21 18:01

>>211は放置でおながいします

**nobodyさん** · 03/04/21 18:09

性器文自体に論理積がないから無理
論理和だけに命題を置き換えればいいが、
perlの話じゃない

∴>>211は放置

**nobodyさん** · 03/04/21 18:14

>>210
プログラム板のPerlスレで聞いた方がいいと思う・・・
ムズイよ
俺も知りたい

**nobodyさん** · 03/04/21 18:21

>>211
スレ違いなんだよボケ
失せろｷﾁｶﾞｲ

**nobodyさん** · 03/04/21 18:25

>>211
ここは初心者に慣習さえ教えるのも嫌な
臭いスレなのでこっちに行け

http://pc2.2ch.net/test/read.cgi/tech/1048519394/l50

**nobodyさん** · 03/04/21 18:29

>>216
本当にいっちゃったじゃん・・・

**nobodyさん** · 03/04/21 19:08

(・∀・)ﾗｯｷｰ！

**nobodyさん** · 03/04/21 19:21

>>218
ﾜﾗﾀ

**nobodyさん** · 03/04/21 19:47

>>217-219
最近向こうから厨を押し付けられてばっかりだから、たまにはｲｲﾈ！

**nobodyさん** · 03/04/21 20:59

**221** · 03/04/21 21:08

余裕だな

**nobodyさん** · 03/04/21 21:47

>>215
スレ違いでもないんじゃないの？
少なくともコーディングに関する質問だし。
CGIのエラーの原因を聞いてくる馬鹿よりはマシだよ。

**nobodyさん** · 03/04/21 21:57

InternalServerErrorって出るんですけど誰か助けてくれません？

**nobodyさん** · 03/04/21 22:38

>>223
ネタだと見抜ける眼力を持てって

**nobodyさん** · 03/04/21 23:20

URLから特定の文字を抜き出す例題で、正規表現の勉強をしていますが、どう
もうまくいきません。例題は以下のとおり。

【例題】
<DT><A HREF="http://www.yahoo.co.jp/">Yahoo! JAPAN</A>
<DT><A HREF="http://mailcity.lycos.co.jp/">MailCity へようこそ！</A>
<DT><A HREF="http://www.google.com/">Google</A>
<DT><A HREF="http://www.infoseek.co.jp/">インフォシーク</A>

以上のHTMLタグからURLとタイトルのみ抜き出しなさい。

【答え】
if (/<DT><a href=\"(.*?)\">(.*?)</a>/) {
$i = join (",", ($1, $2));
$i .= "\n";
push (@i, $i);
}

<DT>の一行が</A>で改行されていればこれでうまく行きますが、まったく改行されて
いない場合はそうも行きません。

if (/(<DT><a href=\"(.*?)\">(.*?)</a>)+/)
や
if (/(<DT><a href=\"(.*?)\">(.*?)</a>){0,}/)

など、いろいろ試しているのですが、どうもうまく行きません。

一行の中のパターン化された文字列のなかから、特定の文字列を複数抜き出す場合はどうすればいいので
しょうか?

よろしくお願いします。

**226** · 03/04/21 23:22

すみません。
perl内のHTMLは全て大文字にして読みかえて下さい。

**nobodyさん** · 03/04/21 23:34

>>226
/<a href=\"(.*?)\">(.*?)</a>/i
難しくしなくてもこれでいいんじゃないの？
大文字小文字どちらもokだし。

**226** · 03/04/21 23:54

>>228
いえ、そうではないのです。
私が訊きたかったのは、

>>226で示したとおり、<DT>から</A>までを一行として改行されているのではなく、
まったく改行されていない場合のURLとタイトルの抜き出し方を知りたかった
のです。

**nobodyさん** · 03/04/21 23:55

ifより前の部分が書かれてないが、状況から察するに

while (/<a href=\"(.*?)\">(.*?)<\/a>/ig) {push (@i,"$1,$2\n")}

**nobodyさん** · 03/04/22 00:02

>>229
「以上のHTMLタグから・・・」って例題が改行されているのに
なんで余計なことまで考えるの？

**226** · 03/04/22 00:11

>>230
できました！
うわーい！うわーい！
ありがとうございます！

「もし<DT>...</A>に当てはまるなら」という具合で、ずっとif文に縛られて
いました・・・。すみません。でも勉強になりました！

ああ、我知らず、熱い涙が押し出されてきよる・・・(滂沱の涙)。

>>231
最初はブラウザのブックマークからURLとタイトルを抜き出すという課題を自
分に課したのです。それがうまくいって一息ついたときに、「こうするとど
うなるんだろう？」と思い付いてしまったのでした。

ゆるせよ(遠山の金さん)。

**nobodyさん** · 03/04/22 01:59

タグを使わないでKENTの掲示板を改造してimgを掲示板に貼り付けるには？
どうすれば良いですか？

**nobodyさん** · 03/04/22 02:08

>>233
意味不明だし、ここはそういうスレじゃない。
とても改造できそうにも思えないので素直に画像貼れる掲示板を使いなさいな。

**nobodyさん** · 03/04/22 04:41

\ が入った文字列のマッチングをおこないたいのですが

$rootdir = "\\newfolder";
$workdir = "\\newfolder";
if ($rootdir == $workdir) {
　print "OK\n"; # 表示されます
}

if ($workdir !~ m#$rootdir#i) {
　print "NG\n"; # 表示されます・・・
}
これはなぜ NG が表示されるのでしょうか？
環境は、PERL 5.6.1 を Win2000 のコマンドプロンプトで動かしています。
よろしくおねがいします。

**nobodyさん** · 03/04/22 06:26

>>235
# 「\newfolder」という文字列
$rootdir = "\\newfolder";
$workdir = "\\newfolder";
# 正規表現は /\newfolder/ =「[改行]ewfolder」
# 「\newfolder」という文字列は「[改行]ewfolder」にマッチしない。
if ($workdir !~ /$rootdir/) { print "NG\n" }
# 本当に改行になってしまっているか確認
$workdir = "\n" . 'ewfolder';
if ($workdir =~ /$rootdir/) { print "OK\n" }
# 対策1
$workdir = "\\newfolder";
if ($workdir =~ /\Q$rootdir\E/) { print "OK\n" }
# 対策2
$rootdir = quotemeta($rootdir);
if ($workdir =~ /$rootdir/) { print "OK\n" }

**nobodyさん** · 03/04/22 07:25

それでは
$rootdir = "\\newfolder";
print ">$rootdir<\n";

結果
>\newfolder<(改行)

なぜここでは $rootdir の先頭の \n が改行に展開されないのでしょうか？
と、もう一つ質問を書いたら多分分かりました。正規表現じゃないからですね
どうもありがとうございました
うーんややこしい・・・

**nobodyさん** · 03/04/22 11:38

>>237
\で\をエスケープしてるからだろ
ややこしくもなんともない

**nobodyさん** · 03/04/22 12:15

ブラウザからファイルを選んで
ある書式にフォーマットして出力したいんですけど
なぜかエラー５００がでます。
何か一般的な原因があれば教えて

**nobodyさん** · 03/04/22 12:25

>>239
間違っているから。としか言いようがない。

**nobodyさん** · 03/04/22 12:27

>>239
ブラウザの出す「エラー５００」から原因を突き止めるのは困難。
「Perlの出すエラー」を書いてくれないとわからん。

**nobodyさん** · 03/04/22 13:07

>>238
あんた235の意味を解ってないな
/\\newfolder/
こうなる事を期待したって事だろ

**238** · 03/04/22 16:16

>>242
確かにお前みたいな知障が考えていることは解らないなぁ

**nobodyさん** · 03/04/22 16:42

>>239
「エラーを出すスクリプト」を晒してくれないとわからん。

**nobodyさん** · 03/04/23 00:26

perlでcsvを編集してメールで転送するプログラムを
作成しようと思ったのだが、全くの初心者のため
paerl自体の実行が失敗している。
誰かなんとかしてくれ。

**nobodyさん** · 03/04/23 00:27

m/ / => 変数展開してから正規表現担当に渡す
qq/ / => 変数展開とエスケープされた文字の復活を同時に行う

正規表現担当の部分は、エスケープされた文字を元に戻してから処理する。

$pattern = '\\n_hoge';
($pattern は \n_hoge)
print "$pattern\n";
print "match!\n" if $pattern =~ /^$pattern$/;

正規表現中と、ダブルクオートの中身は、展開の仕方が違うということ。

**nobodyさん** · 03/04/23 00:33

せんせ～質問。
cgiのパスワードの逆変換って、できるんですかー？
スクリプトはあります。変換後のワードもあります。
おねがいします。

**nobodyさん** · 03/04/23 00:35

John the ripper

**nobodyさん** · 03/04/23 00:38

>>247
自分で調べろボケが。
とっとと失せろ

**nobodyさん** · 03/04/23 00:39

>>247
crypt関数のdecrypt基本的に無理
仕様的には、Desはdecrypt出来るんだがperlでは出来な威実装をしてある。
あと、MD5は絶対できないといった感じ

**nobodyさん** · 03/04/23 00:43

ジョンか・・・
>>247みたいなやつには13金のジェイソンのほうが

**nobodyさん** · 03/04/23 00:44

そんなことないよ。あぁ、解読っていうより、同じものになる
値の1つを見つける、っていうことなんだけど。>>248でやれ

**252** · 03/04/23 00:45

>>250へのレスだったのです

**nobodyさん** · 03/04/23 00:49

ファイルのrenameしようとおもったんだけど消えてしまった。
元に戻す方法ある？

**250** · 03/04/23 00:49

>>253
質問の意味そのままであるが？
cryptの照合方法はどうすればいいかってなら別の答えも出来るんだがねぇ

**nobodyさん** · 03/04/23 00:50

>>254
意味わからんって。
ﾁｮﾝは日本語覚えてから来てください。

**247** · 03/04/23 00:51

ども、助かりました。とっとと消えます。
まともに答えてくれたからサンクス。
１３金・・・古！！！

**nobodyさん** · 03/04/23 00:57

renameで変更後のファイル名のファイルが存在したら、消えることになる。あきらめろ。

**254** · 03/04/23 00:57

>>256
ハァ？
チョンってなあに？
元に戻す方法がわからないなら
返答すんなよ。
ば～～か。

**nobodyさん** · 03/04/23 00:59

>>259
朝鮮人に決まってるだろ。低脳

**250** · 03/04/23 01:02

>>259
つーか、しょーも無い事で腹立てる前に、ちゃんとperlの関数を勉強してこいよ・・・

**nobodyさん** · 03/04/23 07:06

掲示板に自動で書き込むツールを作りたいんですけど
方法がさっぱりわかりません。
ヒントでいいんでわかりやすく教えてください。
お願いいたします。

**nobodyさん** · 03/04/23 07:40

>>262
ttp://member.nifty.ne.jp/hippo2000/perltips/LWP.html#An_Example

**nobodyさん** · 03/04/23 08:58

さっぱりわからない = 学習する気は無い

**nobodyさん** · 03/04/23 09:41

>>262
ここはPerlスレなので、あなたの質問はスレ違いです。

**nobodyさん** · 03/04/23 12:07

>>265
なぜ？
perlでプログラム組むんですけど・・。
荒らしは帰れ

**nobodyさん** · 03/04/23 13:02

>>266
Perlのコーディングで困ってる人のスレです。

まったくのゼロから質問するなや

**nobodyさん** · 03/04/23 16:32

質問させてください。
今、Perlのｺﾒﾝﾄ部分を削除するｽｸﾘﾌﾟﾄを組んでるんですが、
#から始まる文字を削る事はできるのですが、
$#演算子まで削られてしまいます。

$len =~ s/((\$#)*.*)#.*$/$1/g;

・・・と、こんな事もしてみたのですが、ダメでした・・・
どんな風に表現すれば、$#を削らずに行けるでしょうか？
よろしくお願いします。

**nobodyさん** · 03/04/23 17:12

一行ずつ読み込むとして

while(<PERLFILE>){
if($_ =~ /^#/){ $_ = ''; }
#出力処理
}

じゃ駄目ですか？

**nobodyさん** · 03/04/23 17:14

>>268
$len = <<'EOL';
my @array = ('a' ,'b', 'c'); # コメント1
print STDOUT @array if $#array > 1; # コメント2
# push(@array, 'ぬるぽ');
EOL

$len =~ s/(?<!\$)#.*//gm;
print STDOUT $len;

# ----出力結果----
my @array = ('a' ,'b', 'c');
print STDOUT @array if $#array > 1;

# ----出力結果----

**250** · 03/04/23 17:17

>>269
必ずしも、先頭に有るわけじゃ無いからのぉ

$data =~ s/(?<!\$)#.*$//g;

とか・・・

**nobodyさん** · 03/04/23 17:43

>>269
>>270
>>271

お答えいただきありがとうございます。
正常に動くようになりました・・・が、
(?<・・・）←これってなんですか？？？
(?=・・・) とか (?!・・・) とかなら分かるのですが・・・
本にも載ってない・・・
よろしければ、お答えを・・・

**272** · 03/04/23 18:41

・・・と、いろいろネットで調べた結果、なんなのか分かりました。
しかし・・・ラクダ本にも載ってなかった・・・
なぜ？？？探し方が悪かったのかな・・・？？？

とにかく、ありがとうございました。

**nobodyさん** · 03/04/23 18:51

なんでみんな弱者に厳しいのに
最弱者である自分には甘いの？