【Perl】初心者コーナーPart9

**名無しさん＠お腹いっぱい。** · 01/12/28 23:21

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

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

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

参考書籍はこちら【【Perl,CGI】参考書籍第２版】
http://pc.2ch.net/test/read.cgi/php/988809842/
CGIの質問はこちら【ＣＧＩだけど、なんか質問ある？part5】
http://pc.2ch.net/test/read.cgi/php/1009331505/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/

過去ログ、その他の役立ち情報は>>2-10を見よう。

**名無しさん＠お腹いっぱい。** · 02/02/20 05:05

>>877
それだ！
うう・・・ありがとうございます。
そしてお休みなさい・・・。

**名無しさん＠お腹いっぱい。** · 02/02/20 05:33

偽 0
真 0以外
でないの？

**名無しさん＠お腹いっぱい。** · 02/02/20 05:40

undef

**名無しさん＠お腹いっぱい。** · 02/02/20 05:59

空文字列も偽

**名無しさん＠お腹いっぱい。** · 02/02/20 06:54

"0"

**名無しさん＠お腹いっぱい。** · 02/02/20 10:47

>879
条件式には-1の場合もあり得る。

**名無しさん＠お腹いっぱい。** · 02/02/20 12:32

正規表現に変数は使えないのですか？

$a = "aaa.jpeg";
$oks = "jpeg";

if($a =~ /\.$oks$/i){
　　print "aru";
}

ファイル名の拡張子を調べるルーチンを組みたいのですが・・・

**名無しさん＠お腹いっぱい。** · 02/02/20 12:49

>>884
「～はPerlでは出来ないのですか？」と聞く前にまず自分が間違っていないかどうか確かめろ。
つーか、>>884の結果は「aru」なんだが、アンタどういう環境で実行してんだ？

**名無しさん＠お腹いっぱい。** · 02/02/20 13:18

>885
解決。見まちがえてました（爆

**名無しさん＠お腹いっぱい。** · 02/02/20 15:47

やりたいことはファイルに保存してあるURL一覧から情報を引っ張って来てどん
どん裏でどんどん画像をダウンロードすることです。すでにダウンロードを始め
ているファイルの転送が完了しないうちに次行に書かれてあるURLからダウンロー
ド始める・・・要するに同時にいくつものファイルをダウンロードするというも
のですが、forkの使い方で躓いています。

でも以下のスクリプトだと$fileの最初の行のURLをダウンロードし続けるだけで
す。実はforkの使い方がよく分かっておりません。
子プロセス側の処理はオーケーとして、親プロセス側の処理が問題なのではない
かと睨んでいますが、どうにも・・・。

よろしくお願いします。

#!/usr/bin/perl -w
$file = "./image";
open (READ, "<$file");
while (<READ>) { $data_url = "$_"; &get("$data_url"); }
close (READ);

sub get {
while (1) {

if (fork) {
wait;
} else {
print "Download: $_[0]\n";
system "wget -q $_[0] ";
exit;
}
}
}

**名無しさん＠お腹いっぱい。** · 02/02/20 16:12

body$back_envで設定した壁紙と背景色が出力できるようになってるんですけど
同様にページのテキストの色を設定するのはどう書き加えればいいですか？

**名無しさん＠お腹いっぱい。** · 02/02/20 16:15

>888
死んでしまえ。

**名無しさん＠お腹いっぱい。** · 02/02/20 16:17

>888
Web制作
http://pc.2ch.net/hp/
こっちで聞いてごらんよ。

コーディングで変えたいっていうんだったら、フォントの色を変える部分で変数使ったらいい。

**名無しさん＠お腹いっぱい。** · 02/02/20 16:17

>>887
>>874

>>888
作者に聞け

**名無しさん＠お腹いっぱい。** · 02/02/20 16:36

>>887
上の方でwaitpidの事シカトされたから教えてやんない。

**名無しさん＠お腹いっぱい。** · 02/02/20 16:40

perl -cでデバッグしてもなぜかEOFにエラーが出るんですがどういうことでしょう？

Missing right curly or square bracket at D:\usr\www\home\chat\chat.cgi line 834,
at end of line
syntax error at D:\usr\www\home\chat\chat.cgi line 834, at EOF
Execution of D:\usr\www\home\chat\chat.cgi aborted due to compilation errors.

**名無しさん＠お腹いっぱい。** · 02/02/20 16:43

>>893
{}の対応がおかしくなっているのでは。
ブラケットを確認セヨ。

**名無しさん＠お腹いっぱい。** · 02/02/20 16:49

>893
EOFまでのあいだに｝が見つからないって話だよね。

**名無しさん＠お腹いっぱい。** · 02/02/20 16:56

>894 >895
即レスさんくす！
さっそく探してみます！

**名無しさん＠お腹いっぱい。** · 02/02/20 17:07

>894 >895
やったやった！動いた！ありがとう！

**名無しさん＠お腹いっぱい。** · 02/02/20 17:15

>897
よかったねー！

**吉野家紗香** · 02/02/20 19:33

a1.html
a2.html
gikogiko.cgi
omaegana ――― b1.html
　　　　　　　　　　　b2.html
　　　　　　　　　　　omaemona ――― haa.txt
　　　　　　　　　　　oremona　 ――― itteyoshu.dat
　　　　　　　　　　　　　　　　　　　　　　　z.html

こういうファイル構成から下のようなファイル一覧を作るには、
どのようにやればよいですか?

a1.html
a2.html
gikogiko.cgi
omaegana/b1.html
omaegana/b2.html
omaegana/omaemona/haa.txt
omaegana/oremona/itteyoshu.dat

**名無しさん＠お腹いっぱい。** · 02/02/20 19:54

カレントから再帰で潜って行って吐き出す

**名無しさん＠お腹いっぱい。** · 02/02/20 20:09

過去ログに全く同じようなソースが転がってたよ。
http://www.angelfire.com/ak5/2ch-web-program/kako/979894521.html の97

**901** · 02/02/20 20:10

違った。鬱士

**名無しさん＠お腹いっぱい。** · 02/02/20 21:12

opendirつかうか、ls -lR取ってテキスト整形する。

**名無しさん＠お腹いっぱい。** · 02/02/20 22:51

>>892
頭がいっぱいいっぱいでwhile(1)のことばかり気にしていて・・・。
ごめんなさい。

>>887の件、教えて下さい。

**名無しさん＠お腹いっぱい。** · 02/02/20 22:59

ちょっと来てない間にpart9まで出来てたのか。
perlを勉強する人が増えたって証拠かな？

**名無しさん＠お腹いっぱい。** · 02/02/20 23:15

>904
レス読み流してない？>>873周辺とか。

**名無しさん＠お腹いっぱい。** · 02/02/20 23:19

みんながみんなperl習ったらおもしろくないね（ぷ

**名無しさん＠お腹いっぱい。** · 02/02/21 00:15

Perlメモのファイルロックを使っています。
同時に3つのファイルをオープンする場合は，先にロックしてからまとめてオープンする(つまりロック→ファイル1オープン→ファイル2オープン→ファイル3オープン→アンロック)のと，それぞれのオープン直前に専用のロックをするのとどちらがいいのでしょう？

ただし，それぞれ別作業でオープンする場合もあります。

**名無しさん＠お腹いっぱい。** · 02/02/21 00:17

>>908
俺はプログラムごとにエクスクルーシブロックかけるが（ダメダメ）。

**名無しさん＠お腹いっぱい。** · 02/02/21 00:51

>>908
環境やどんなプログラムなのかわからない以上、状況によるとしか言えない。

**飲み活要員** · 02/02/21 02:35

こんなもん作ってみたーよ。

http://www.lodestar.nu/niki/index.cgi

中途半端なWikiEngineみたいな感じだけど
・一応認証がある
・文法がHNS下位互換
・単語をページごとのリンクに変換できる。
・逆リンク
・段落ごとにリンクをはれる
・ブラウザ上からハイパーテキストを編集するツール
という特徴がある。

こーいうツールの必要性があるものかどうか、ふと確認してみたくなった。
どうよ？意見キボンヌ。

**名無しさん＠お腹いっぱい。** · 02/02/21 02:37

nikiについて
Wiki* に多大な影響を受けている。 Wiki* とは不特定多数の人々がウェブを編集できる仕組み。ハイパーリンクが気持ちいい。Wikiとnikiの違いは
コマンド体系（nikiはHNS下位互換）
編集ポリシー
普及度
完成度（汗
などが挙げられる。

次世代NikiNikiWeb
悪いところは反省し。他のWikiEngineのよいところを参考に
oldtype
ver 0.01-beta6のソース?と使い方
性格
基本的に自動リンク用語集。たまにハイパードキュメント作成ツール。日記にもなるかも。
Wiki* 方面はみんなが目指しているので、NikiNikiはハイパードキュメント作成ツール方面でひとつ
でも Wiki* 的な機能もありで。
既知のバグ
LINKのURL判定が甘い
いろいろ
リンク
http://tiki.is.os-omicron.org/?c=v&p=WelcomeVisitors Omicron
http://isweb21.infoseek.co.jp/computer/h_yanai/html/WelcomeVisitors.html ese-nikki
http://hpcgi1.nifty.com/~k_ogata/diary/diary.rb diary.rb
http://todo.org/

**名無しさん＠お腹いっぱい。** · 02/02/21 03:09

>>911
私的には大変興味アリ。
カテゴリつくりたい時なんかにも役立つ？
派生して色々な用途に使えそうなので良いのでは。

**飲み活要員** · 02/02/21 03:10

>>911
しまた、ここはPerlの質問を受け付ける擦れだったのか。
間違いた。スマソ

**名無しさん＠お腹いっぱい。** · 02/02/21 03:24

>>911
おもしろいね。いろんなことに使えそう。
上の方にある「一覧」とか選ぶとエラー出るのは仕様？

**名無しさん＠お腹いっぱい。** · 02/02/21 03:44

おおしろいね。
実は煮たようなものを作ろうとしていたりします。

**名無しさん＠お腹いっぱい。** · 02/02/21 09:35

Wiki系には興味あり。新規スレッド立てたら？

**さんこうすれ？** · 02/02/21 09:48

「Wiki Wiki　楽々 Run! Run! Run!」
http://pc.2ch.net/test/read.cgi/tech/1010317366/

**名無しさん＠お腹いっぱい。** · 02/02/21 14:16

■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■４７７まで読んだ■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■

**名無しさん＠お腹いっぱい。** · 02/02/21 19:32

$loginstr中の</DIV>\nを$indexstrで置換えたいとき、

$loginstr =~ s/<\/DIV>\n="$indexstr";

では出来ないのでしょうか？
正しい表現が分らず困惑しとります。

**名無しさん＠お腹いっぱい。** · 02/02/21 19:36

$loginstr =~ s/<\/DIV>\n/$indexstr/;

**920** · 02/02/21 20:07

でけた！神たま>>921有難う。

**迷える920** · 02/02/21 20:39

ごめんなさいまたもや。

$indexin =~ s/$indexstr//;

ってできますか？
$indexinの中から、$indexstrと被る部分を削除したいんです。
中身日本語だからダメなのかしら？
$indexstrの中身の頭数行が、文字化けして表示されて、続いて
invalid [] range "7-0" in regexp at ./hp.pl line 72.
ていうアナウンスがあります。

お願いとどきますように。

**名無しさん＠お腹いっぱい。** · 02/02/21 20:43

>>923
変数$indexstr内が正規表現の場合、展開される。

$i = '.*';

s/$i//; #<- s/.*//;

**名無しさん＠お腹いっぱい。** · 02/02/21 20:45

$indexinの中身がS-JISなんじゃねえの？
CGIはEUC-jpが基本。

**名無しさん＠お腹いっぱい。** · 02/02/21 20:47

>>925
はぁ？

**迷える920** · 02/02/21 20:55

白状するとCGIプログラムではないんです。
で、文字コードに関してはよく分らなかったので、
取り敢ずやってしまえって試しにやってみたら、うまくいった。
で、それじゃぁって、つくりたいプログラムを書いてたら
920,923の質問にはまったと。

>>924
正規表現ではなく文字列なんです。
で、文字列だとすると、
>>925
文字コードが関ってくるんでしょうか？

**名無しさん＠お腹いっぱい。** · 02/02/21 21:13

ここいらへんをよくよむよろし
http://www.din.or.jp/~ohzaki/perl.htm#JP_EUC_JP
参考になればよいが。関係なかったらスマソ

**名無しさん＠お腹いっぱい。** · 02/02/21 21:14

取りあえずソース

**8484** · 02/02/21 21:36

どんなにスゴイんだ？
韓国でも翻訳して発売されるらしい。
http://www.puchiwara.com/hacking/
うにゅ。

**名無しさん＠お腹いっぱい。** · 02/02/21 21:37

>>930
みんながっかりしてたよ。

**名無しさん＠お腹いっぱい。** · 02/02/21 21:44

掲示板全部CGIをeucでつくって
そのままeucでhtmlを出力してるんですが、
エンコード自動選択でsjisになってしまいます。
metaタグでちゃんと宣言してるんですけど。
なんか他にすべきことありますか？

**932** · 02/02/21 21:46

なんか日本語変だった。
掲示板CGIを関連ファイル全部EUCで作って．．．です。

**名無しさん＠お腹いっぱい。** · 02/02/21 21:47

>930
うちで見るとこんな感じ

930 名前：8484 投稿日：2002/02/21(木) 21:36 ID:39ejQiBa
どんなにスゴイんだ？
韓国でも翻訳して発売されるらしい。
http://www.puchiwara.com/hacking/ [ブラクラ]
うにゅ。

**名無しさん＠お腹いっぱい。** · 02/02/21 22:41

>>932
ttp://tohoho.wakusei.ne.jp/wwwxx005.htm

ここが参考になるかと。
でもいろんなブラウザで試しておかしくなるなら、metaタグか、CGIの出力も疑うべきです。

**名無しさん＠お腹いっぱい。** · 02/02/21 22:58

>>927
>>925のいうように、スクリプトもデータもEUCにしときましょう。
ttp://tohoho.wakusei.ne.jp/wwwperl1.htm#Kanji

**名無しさん＠お腹いっぱい。** · 02/02/22 00:18

１Gくらいのtextfileを読み込んで処理しようとするとout of memoryになってしまいます。
何とか分割して処理できないでしょうか？読み込んだ後は単に文字列検索したいだけなんですけど・・・・

**名無しさん＠お腹いっぱい。** · 02/02/22 00:20

>>937
＞textfileを読み込んで処理しようとすると

どういう状態？

**名無しさん＠お腹いっぱい。** · 02/02/22 00:29

>937
興味あるな。
どんなデータ？

繰り返し同じものが出てくる場合はKeyにして別DBにする、っていう
リレーショナル的な分割しかないと思うけどね。

**９３７** · 02/02/22 00:45

A、T、G、Cのランダムな繰り返しから構成される
遺伝子の配列データです。その中から特定の配列を検索して抽出するスクリプトを
書きたいのです。無理かな。。。
単純にfileをopenして配列変数にぶちこんで検索をかけ・・・を繰り返しているんですが
途中で止まってしまいます（当たり前か）。

**名無しさん＠お腹いっぱい。** · 02/02/22 00:45

>>940
readで何バイトかごとに読めば？

**名無しさん＠お腹いっぱい。** · 02/02/22 00:47

>940
Cで書くべきだと思うよ。

**９３７** · 02/02/22 00:52

＞９４１
ありがとうございます。さっそくやってみます。

**名無しさん＠お腹いっぱい。** · 02/02/22 01:22

>>932
print "Content-Type: text/html; charset=EUC-JP\r\n\r\n";

**名無しさん＠お腹いっぱい。** · 02/02/22 01:31

ぷっ，遺伝子データをPerlで処理するのか。
そんな大きな規模なら別の言語で最適化しつつやっても3日ぐらいかかるのが普通じゃないの？

**名無しさん＠お腹いっぱい。** · 02/02/22 01:38

$| = 1;
って必要あるんですか？よく意味が分かりません。
グーグルで調べようにも""囲みでもヒットできないので困ります。

**名無しさん＠お腹いっぱい。** · 02/02/22 01:46

>>937
よく知らんのだけど、bioperlって使えないのかな？

**名無しさん＠お腹いっぱい。** · 02/02/22 01:54

>>946
foreach(1..5) {
print "$_:";
sleep 1;
}

$|=1;

foreach(1..5) {
print "$_:";
sleep 1;
}
ってやってみ。

**名無しさん＠お腹いっぱい。** · 02/02/22 02:02

>>946
$| の説明はperlvarに載ってる。
ぐぐーるする前に手元のperlマニュアル読もう。

**９３７** · 02/02/22 02:05

>941
どうやらうまくいったようです！！
ありがとうございました。

**名無しさん＠お腹いっぱい。** · 02/02/22 04:49

(´-`).｡ｏＯ（そろそろ次スレかな…）

**_gunzip** · 02/02/22 08:24

>>940
http://bioperl.org/
bioperlのBio::Tools::Blast, StandAloneBlast辺りのモジュールを使って
BLAST, FASTA辺りの吐くサーチ結果をパースするのが一番簡単&&高速だと思うな。

$in = new Bio::Seq(-id=>"test query", -seq=>"GAAG");
$blast_report = $factory->blastall($in);

詳しくは付属のドキュメント参照ね。

**名無しさん＠お腹いっぱい。** · 02/02/22 18:07

_gunzipﾀﾝ久しぶり～

**名無しさん＠お腹いっぱい。** · 02/02/23 11:46

デザインが似てるとパクリになるんですか？

**8484** · 02/02/23 11:59

　　　　　　　　　おにぎりワッショイ！！
　　　　　＼＼　おにぎりワッショイ！！　／／
　+　　　+　＼＼　おにぎりワッショイ！！／+
　　　　　　　　　　　　　　　　　　　　　　　　　　　　+
.　　　+　　／■＼　　／■＼　／■＼　　+
　　　　　　（　´∀｀∩（´∀｀∩）（　´ー｀）
　+　　（(　（つ　　　ノ（つ　　丿（つ　　つ　)）　　+
　　　　　　ヽ　（　ノ　（　ノ　　）　）　）
　　　　　　　（＿）し'　し（＿）　（＿）＿）
http://www.puchiwara.com/hacking/
韓国版ってでるらしいけど、どんな内容になるんだ？
この手のものが韓国に翻訳されるなんて初めてでは？

**名無しさん＠お腹いっぱい。** · 02/02/24 00:15

日付から（2002/2/24）から、1970からのシリアル秒？を計算したいんすけど、
だれか知りませんか？

**名無しさん＠お腹いっぱい。** · 02/02/24 00:17

>>956
ルーチンくまなきゃだめです。
シリウス歴か何かで検索。

**956** · 02/02/24 00:28

>>957
ルーチン組むって、
１９７０から、指定年数まで、閏年のチェックするって感じになります？
なんか、もっとスマートな方法あるかとなぁ～と思って探してたんですけど、
どでしょ

**名無しさん＠お腹いっぱい。** · 02/02/24 01:37

>>956
use Time::Local;
$time = timelocal($sec,$min,$hour,$mday,$mon,$year);

**名無しさん＠お腹いっぱい。** · 02/02/24 02:07

>>959
Non Module派なんでねｗ。

**名無しさん＠お腹いっぱい。** · 02/02/24 02:09

>960
モジュールのコード使えば？

**名無しさん＠お腹いっぱい。** · 02/02/24 02:15

>>960
time::localは標準モジュールだよ？

**名無しさん＠お腹いっぱい。** · 02/02/24 02:15

>>962
Non Module派なんでねｗ。

**名無しさん＠お腹いっぱい。** · 02/02/24 02:50

>>963

>>961

**956** · 02/02/24 03:57

とりあえずこんなふうで、作ってみたけど、
ループに2個あんのが、どうもなぁ～
こんなんしか無いかね？

sub date2Time
{
　　local ( $year , $mon , $day , $hour , $min , $sec ) = @_ ;

　　$days = $day - 1 ;

　　foreach ( 0 .. $mon - 2 )
　　{
　　　　$days += (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)[ $_ ] ;
　　}

　　foreach ( 1970 .. $year - 1 )
　　{
　　　　if ( ( $_ % 4 == 0 && $_ % 100 != 0 ) || $_ % 400 == 0 )
　　　　{
　　　　　　$days += 366 ;
　　　　}
　　　　else
　　　　{
　　　　　　$days += 365 ;
　　　　}
　　}

　　$seconds = $days * 86400 ;
　　$seconds += $hour * 3600 ;
　　$seconds += $min * 60 ;
　　$seconds += $sec ;
　　$seconds -= 32400 ;

　　return $seconds ;
}

**---** · 02/02/24 04:37

> 965 チョットこんぱくとにするとこんな感じかナー。
sub date2Time{
local( $year, $mon, $day, $hour, $min, $sec )= @_ ;

$days= $day - 1 ;

for ( 0 .. $mon - 2 ){
$days += (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)[$[+ $_] ;
}

for ( 1970 .. $year - 1 ){
$days+= (( $_ % 4 == 0 && $_ % 100 != 0 ) || $_ % 400 == 0) ? 366 : 365;
}

$seconds = $days* 86400;
$seconds+= $hour* 3600;
$seconds+= $min * 60;
$seconds+= $sec;
$seconds-= 32400;

$seconds;
}

**名無しさん＠お腹いっぱい。** · 02/02/24 13:27

>>965-966
おしぃ～。あとちょっと。$yearがうるう年だったとき、ちょびっとずれるみたい。

use POSIX;
srand();
foreach(1..100) {
  $y = 1970 + int(rand(40));
  $m = int(rand(12)) +1;
  $d = 1;

  $t = POSIX::mktime(0, 0, 0, $d, $m-1, $y-1900);
  $t2 = date2Time($y, $m, $d, 0, 0, 0);
  printf("%4s/%2s/%2s : $t %s= $t2\n",$y,$m,$d, $t==$t2 ? "=" : "!");
}

**名無しさん＠お腹いっぱい。** · 02/02/24 17:04

正規表現で、質問があります。
<select name="hoge">
<option>
<option>
</select>

<select name="hoge">

</select>

にヒットする表現を知っている方がいましたらよろしくお願いします。

**名無しさん＠お腹いっぱい。** · 02/02/24 17:29

>>968
格納されてるのは１変数？リスト？それによる。

**名無しさん＠お腹いっぱい。** · 02/02/24 17:39

レスありがとうございます！

具体的には

HTML文を$bodyという変数に読み込んで、
<select name="hoge">
<option value="fuga">商品名１
<option value="fuga1">商品名2
</select>
で二つに切ろうとしているんですが、
($top,$bottom) = split '<select(.|\n)*</select>',$body;
とやってもうまくいきません。

$bodyに格納されているのはただのHTML文です。
よろしくお願いします。

**名無しさん＠お腹いっぱい。** · 02/02/24 17:44

そもそも正規表現形式ではない。
他人の正規表現って解析面倒だから・・・。

/'<select.*?<\/select>'/

とか。

**名無しさん＠お腹いっぱい。** · 02/02/24 17:53

ありがとうございます。
試してみました。
でもやっぱり$bottomの方に何も格納されません。

$topの方には<select　が出てくる直前までの文が格納されるんですが・・

>そもそも正規表現・・
囲む記号は何でもいいらしいというのを本で読んだので、エスケープ
するのが面倒なんで、''でくくっていました。でも普通使わなさそうなので
素直に//でくくります。

もっと、試行錯誤してみます。アドバイスがありましたらよろしくお願いし
ます。

**名無しさん＠お腹いっぱい。** · 02/02/24 18:27

自己解決しました。

/<select.*<\/select>/s,$body,2;
とやれば出来ました。

(.|\n)使っていたのがおかしくなる元だったのかな？
ひまになったら考えてみます。

ありがとうございました。

**名無しさん＠お腹いっぱい。** · 02/02/24 18:44

質問です。

Perlで書いたプログラムが遅いと言われた場合、
PHPに移植すれば高速化できるものなのでしょうか？

**名無しさん＠お腹いっぱい。** · 02/02/24 18:56

当然処理の内容によります。
劇的な速度の変化など期待するだけ無駄です。

**名無しさん＠お腹いっぱい。** · 02/02/24 19:02

>>973
> 囲む記号は何でもいい
区切り文字に//以外を使用するなら、m演算子が要る。
即ち、//が区切り文字の時のみm演算子省略可能。

**名無しさん＠お腹いっぱい。** · 02/02/24 19:07

>>973
?外すと最大マッチするから気をつけてね。