- 1 名前：デフォルトの名無しさん mailto:sage [2008/09/21(日) 12:22:12 ]
- "The duct tape of the Internet" こと、Perlについての質問箱です。
"There's more than one way to do it" ということで、
Perlの奥深さについて皆で語り合い、追求してまいりましょう。
CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
( WEBプログラミング板 pc11.2ch.net/php/ )
CGIの質問は答えが Perlと全然関係ない話に帰着する場合が
多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。
このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
www.perl.org/get.html
● 2008/09/21 現在の最新版（安定版）: 5.10.0
● 2008/09/21 現在の開発版: 5.9.5
▼ 前スレ
Perlについての質問箱 37箱目
pc11.2ch.net/test/read.cgi/tech/1218449440/
リンク集は>>2-3
Perl 日本語処理の基礎の基礎 >>4
過去スレは>>5-6 あたり
- 75 名前：デフォルトの名無しさん mailto:sage [2008/10/01(水) 23:14:32 ]
- perlソースコードの1行目のshebangを置換させるようなプログラムを
以下みたいなone-linerで書きたいのですが
perl -pi.bak -e 's/#!.*/#!c:\\perl\\bin\\perl/ if($. == 1)' *.pl
$. の行数が、2つめのソース以降も値を引き継いでしまいます
なにかうまい方法はないでしょうか
- 76 名前：デフォルトの名無しさん mailto:sage [2008/10/02(木) 01:03:19 ]
- >>75
組み込み関数の eof を調べてみたらいいと思うよ。
- 77 名前：デフォルトの名無しさん mailto:sage [2008/10/02(木) 01:19:21 ]
- >>76
ありがとうございます
eofは使ったことがありませんでした
試してみます
- 78 名前：デフォルトの名無しさん mailto:sage [2008/10/02(木) 07:41:10 ]
- 普通に丸呑みモードでいいやん？
perl -i.bak -0777pe 's/\A#!.*?\n/hoge\n/ ' *pl
- 79 名前：デフォルトの名無しさん mailto:sage [2008/10/03(金) 18:05:27 ]
- cgi掲示板なのですが、ログインすると文字化けしてまして、
コードがISO、西ヨーロッパなどとなってしまうのです。
そこで、headerの部分にcharset=を含めようとしてるのですが、
何度やっても、500エラーになってしまいます。
sub header {
print "Content-type: text/html\n\n";
print "<!--//HEAD//-->\n";
print "<html><head>\n";
print "<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">\n"
print "<title>CGI Control Panel</title>\n";
print "<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">\n"
↑
を追加して日本語になるように、お願い致します。
- 80 名前：デフォルトの名無しさん mailto:sage [2008/10/03(金) 18:26:15 ]
- >79
WebProg板へ行った方が的確な回答が得られるんじゃないかな。
で、" " の中で、更に " " を使うな。
人間ならともかく、コンピュータはどこまでが " " の範囲なのか理解できない。
- 81 名前：デフォルトの名無しさん mailto:sage [2008/10/03(金) 18:27:33 ]
- すでにWebProgにマルチしてるよコイツ
- 82 名前：デフォルトの名無しさん mailto:sage [2008/10/03(金) 22:09:29 ]
- 質問です。ActivePerlをインストールしコマンドラインでppm install DBD::mysqlを実行したのですが
ppm install failed: Can't find any package that provides DBD::mysql
というエラーメッセージが出ます
DBD::mysqlはリポジトリから無くなってるのでしょうか？
- 83 名前：デフォルトの名無しさん mailto:sage [2008/10/03(金) 22:32:19 ]
- 追記：PERLバージョン5.10.0です
新バージョンに対応してるDBD::mysqlがないということでしょうか
- 84 名前：デフォルトの名無しさん mailto:sage [2008/10/03(金) 23:29:38 ]
- Active Perl 5.8.8 では ppm install DBD:mysql できるぞ。
無理して 5.10.0 使わんでもいいんじゃない？
- 85 名前：デフォルトの名無しさん mailto:sage [2008/10/03(金) 23:47:26 ]
- >>82
cpan使えば？
- 86 名前：デフォルトの名無しさん mailto:sage [2008/10/04(土) 12:29:01 ]
- pc11.2ch.net/test/read.cgi/prog/1221751414/60
これはどういうことだ
- 87 名前：デフォルトの名無しさん mailto:sage [2008/10/04(土) 12:50:24 ]
- VB、Java、最近だとruby、このあたりは、プログラマに向いてない
人間の比率が高いから、採用の目安としては使えない、ってことじゃないかな。
昔のコボラみたいに融通が利かない人間を採ってもあとあと困るし。
- 88 名前：デフォルトの名無しさん mailto:sage [2008/10/04(土) 17:40:03 ]
- Mail::Sendmail
これの正しい発音は、
メール コロンコロン センドメール
で合ってる？
- 89 名前：デフォルトの名無しさん mailto:sage [2008/10/04(土) 18:39:13 ]
- 滅入る 殺殺 千度滅入る
- 90 名前：デフォルトの名無しさん mailto:sage [2008/10/04(土) 19:00:16 ]
- Acmeはちゃんとアクメって読めよ
- 91 名前：デフォルトの名無しさん [2008/10/04(土) 19:27:09 ]
- ファイルを読み込むとき、ファイル名を指定する。
log.txt
ここで質問。ファイル名が連番になっていても 順に読めるのでしょうか？
log001.txt
log002.txt
open(IN, "log.txt");
print while (<IN>);
close(IN);
log003.txt
- 92 名前：デフォルトの名無しさん mailto:sage [2008/10/04(土) 19:34:12 ]
- はあ
- 93 名前：デフォルトの名無しさん mailto:sage [2008/10/04(土) 20:34:36 ]
- 日本語でおｋ
- 94 名前：デフォルトの名無しさん mailto:sage [2008/10/04(土) 20:47:45 ]
- globれ
- 95 名前：デフォルトの名無しさん [2008/10/04(土) 22:27:56 ]
- だから
open(IN, "log001.txt");
print while (<IN>);
close(IN);
open(IN, "log002.txt");
print while (<IN>);
close(IN);
open(IN, "log.003txt");
print while (<IN>);
close(IN);
って書くと面倒でしょう？
ファイル名が連番になってて 順に読めないのかどうか？が知りたいのですよ。
- 96 名前：デフォルトの名無しさん mailto:sage [2008/10/04(土) 22:30:44 ]
- 200個のファイルを読み込みたいのだよ。
200個分のファイルを読むように ソースコードを書くのが 手間がかかりすぎるやん？
2000行ぐらい書くことになるかもしれない。
だから、 ファイル名を連番にして、
200行ぐらいの短くて分かりやすいコードは書けないのでしょうか？
- 97 名前：デフォルトの名無しさん mailto:sage [2008/10/04(土) 22:33:04 ]
- >>91
my $a;
$a="log001";
print "$a".".txt\n";
$a++;
print "$a".".txt\n";
これちょっと実行して結果見てみ。
- 98 名前：デフォルトの名無しさん [2008/10/04(土) 22:36:07 ]
- >>94
なかった
- 99 名前：デフォルトの名無しさん mailto:sage [2008/10/04(土) 22:37:58 ]
- >>97
それ！それです。
マジ助かる。ありがとうございました！！
- 100 名前：デフォルトの名無しさん mailto:sage [2008/10/04(土) 22:37:58 ]
- >>98
何がないんだよ
- 101 名前：デフォルトの名無しさん mailto:sage [2008/10/04(土) 22:41:07 ]
- globでえーやん
- 102 名前：デフォルトの名無しさん mailto:sage [2008/10/04(土) 23:02:00 ]
- 助かるってことはループは使えるのかな。globもないらしいしよくわからない。
例によって $a は（ｒｙ ついでに "$var" って（ｒｙ
- 103 名前：デフォルトの名無しさん mailto:sage [2008/10/04(土) 23:03:50 ]
- $varなんかどこに書いてあるんだよ
- 104 名前：102 mailto:sage [2008/10/04(土) 23:05:46 ]
- じゃあ元通りの "$a"
- 105 名前：デフォルトの名無しさん mailto:sage [2008/10/05(日) 04:55:51 ]
- >87
改行の仕方がおかしいせいで別の意味に取れる
- 106 名前：デフォルトの名無しさん mailto:sage [2008/10/05(日) 05:25:14 ]
- >>102
つかこの程度の発想が出来ないとプログラムセンス的になぁ・・・
- 107 名前：デフォルトの名無しさん mailto:sage [2008/10/05(日) 13:03:55 ]
- かなり致命的だよな。
そこそこスジの良い人なら、仮にPerlが初めて触った言語でも
勉強3日目には卒業してるレベル。
- 108 名前：デフォルトの名無しさん mailto:sage [2008/10/05(日) 17:14:19 ]
- オレと同期入社の女子社員は
>>95みたいなプログラムを本当に書いてた
- 109 名前：デフォルトの名無しさん mailto:sage [2008/10/06(月) 10:24:45 ]
- 質問者もひどいが回答者もひどいという話か
- 110 名前：デフォルトの名無しさん mailto:sage [2008/10/06(月) 23:15:39 ]
- if文条件部の正規表現で、gオプションを付けているのをどこかで見たのですが、別に付けなくても
いいような気がするのですが、何か意味があるのでしょうか？
if ( /%[^%]*?%/g ) { ・・・ }
- 111 名前：デフォルトの名無しさん mailto:sage [2008/10/06(月) 23:57:19 ]
- 試してないけど、マッチ情報の取得とかで変わるんじゃない？
- 112 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 01:44:45 ]
- if じゃなくて while の条件式じゃないのかな。
- 113 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 11:38:43 ]
- 言われてみれば確かに if で g を使うのは変だよな。while ならともかく。
たぶん、ついうっかりやってしまただけだろ。特に意味など無いと思うよ。
- 114 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 11:57:42 ]
- Windows、ActivePerl5.8.8 です。
data1.txtは、Shift-JISで改行は\x0D\x0Aです。
以下のコードを実行すると、data2.txtの改行が、\x0D\x0D\x0Aとなりますが、何故そうなるのでしょうか？
open IN, "<:raw", "data1.txt";
open OUT, ">:crlf", "data2.txt";
print OUT <IN>;
close IN;
close OUT;
- 115 名前：デフォルトの名無しさん [2008/10/07(火) 12:46:41 ]
- 久し振りにPerl/Tkをやったら、すっかり忘れている。
- 116 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 12:48:52 ]
- >>114
:crlf は、0x0A を出力する時に 0x0A → 0x0D, 0x0A という置換をする。
(入力時は、0x0D, 0x0A を 0x0A に置換する)
:raw は、何の変換もしない。
おそらく data1 が 0x0D, 0x0A なテキストで、これがそのまま無変換で読み込まれ、
出力する時に <0x0D> <0x0A> → <0x0D> <0x0D, 0x0A> と変換されている。
- 117 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 12:58:49 ]
- >>116
なるほど、そういうカラクリですか
サンクス
- 118 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 14:18:44 ]
- >>110-113
正規表現的にうっかりだろうけど、マッチがグローバルになる事を利用している場合もある。
マッチが保存された開始位置から始まり、(次のマッチの為に)開始位置を保存するようになる。
例.
perl -le '$_=q/012312345/; m/1/g; m/1/g; print join q/:/,$`,$&;'
0123:1
pos($_)= X; m/RE/g のように、マッチ開始位置を指定する手もある。
- 119 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 18:04:49 ]
- >>111-113
>>118
サンクス
可能性としては、単なるうっかりか、次のマッチのために使っていたということっすね
- 120 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 18:17:13 ]
- 日本で一番Perlを操れる人は小飼弾氏ですか？
- 121 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 18:25:49 ]
- 小飼ってまだ生きてるの？
- 122 名前：デフォルトの名無しさん [2008/10/07(火) 18:38:21 ]
- www.yahoo.co.jp/
↑こんなURL投稿でサイト名を取得して（タイトル内の<title>Yahoo! JAPAN</title>）を表示させるにはどうしたら良いですか？
Yahoo! JAPAN
- 123 名前：122 mailto:sage [2008/10/07(火) 18:39:41 ]
- タイトルが無い場合はURL
- 124 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 18:46:44 ]
- >>120
ちがうだろ
- 125 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 18:52:55 ]
- >>122
支離滅裂
- 126 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 18:55:37 ]
- www.aimix.jp/cgi/accsearch123.html
これを改造で良いのかな？
- 127 名前：デフォルトの名無しさん [2008/10/07(火) 19:33:55 ]
- SLDやTLDを抽出するプログラムを書きたいのですが、
.co.jpがどうしても抽出できません。
誰か間違いを教えてくださると嬉しいです。
よろしくお願いします。
my $suuji;
$host = fff.co.jp;
if($host =~ /\.co\.jp$/){
$suuji = 10;
}else{
$suuji = 3333;
}
print $suuji;
- 128 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 19:42:29 ]
- $host = fff.co.jp;
print $host, "\n";
裸のワードはなんたらなので文字列ならなんとかかんとか
- 129 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 20:39:27 ]
- >>116を見て思ったのですが、"\n"="\x{0A}"ですか？
- 130 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 20:55:24 ]
- そうです
- 131 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 21:02:20 ]
- >>130
サンクス
一つ賢くなりました
- 132 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 21:29:48 ]
- >>122
scraper
- 133 名前：デフォルトの名無しさん mailto:sage [2008/10/08(水) 12:43:37 ]
- CPANへの登録ってどういう基準？
便利でよくできてるものはどんどん登録された方がいいと思うけど、
これはえがいひとみたいのが、カスみたいのを登録しまくったら滅茶苦茶になるよね？
- 134 名前：デフォルトの名無しさん mailto:sage [2008/10/08(水) 20:23:03 ]
- おまえでも登録できる。
単に出来が悪くて抹消というのは聞いたことがない。
Perl の人達は一般に、コードの主観的有用性に基いた恣意的な判断を嫌う。
規制の例としては、名前空間に関する暗黙のコンベンションを読み取れない子が時折出現してはかわいそうなことになっているくらいか。
- 135 名前：デフォルトの名無しさん mailto:sage [2008/10/08(水) 21:34:31 ]
- packageとかperlってモジュール登録したバカな奴いたような気がする。
CPANテロ。
- 136 名前：デフォルトの名無しさん mailto:sage [2008/10/09(木) 23:50:53 ]
- 文字列が全角ひらがなと全角スペースと半角スペースのみで
構成されているかどうか調べる正規表現が分かりません。
先輩方。よろしくお願い致します。
- 137 名前：デフォルトの名無しさん [2008/10/10(金) 00:13:44 ]
- 始めましてこんばんわ。
最近までCGIのソースを見て作ってきたのですが飽きてきたので他のものに
触れたいと思っているのですが皆さんはperlでどのようなことをしていますか？
自分はソフトウェアかネットワークプログラミングをやろうと思っているのですが
(というかそのぐらいしか知らないです。)皆さんの意見を参考にもし面白そうなの
があればやってみようと思ってます。
ただCGや音楽、ゲームはなしの方向でお願いします。
- 138 名前：デフォルトの名無しさん [2008/10/10(金) 00:22:17 ]
- まず日本語のお勉強をしましょうね。
- 139 名前：デフォルトの名無しさん [2008/10/10(金) 01:36:24 ]
- 始めましてこんばんわ。
最近までCGIのソースを見たり、書いたりしてきたのですが飽きてきてしまったので
他のものにも触れてみようかなと思っているのですが皆さんはperlでどのようなことをしていますか？
自分はソフトウェアかネットワークプログラミングをやりたいと思っているのですが
皆さんの話を参考にもし面白そうなのがあればそれらも検討しようと思っております。
ただCGや音楽、ゲームはなしの方向でお願いします。
こんな感じでよろしいですか？
- 140 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 06:06:59 ]
- 日本語でおk
- 141 名前：デフォルトの名無しさん [2008/10/10(金) 09:13:09 ]
- えぇ。いい加減もったいぶらず教えてください。
そんなに日本語変ですか。
- 142 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 09:30:14 ]
- 「ソフトウェア」の意味がわかってないので変てこになっているのか?
- 143 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 10:00:42 ]
- 何を始めたんだろうっていう疑問が、一行目でいきなり来るけどな。
- 144 名前：デフォルトの名無しさん [2008/10/10(金) 10:08:06 ]
- >>141
ソフトウェアはソフトウェアプログラミングのことを言ってます。
>>143
そこは変換ミスなのでスルーしてください。
本当はその漢字が正しいと勘違いしていただけですが。
- 145 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 10:23:20 ]
- >>144
> ソフトウェアはソフトウェアプログラミングのことを言ってます。
じゃあ、「ソフトウェアプログラミング」の中の「ソフトウェア」の意味は?
- 146 名前：デフォルトの名無しさん [2008/10/10(金) 10:47:54 ]
- >>145
アプリケーションソフトなどのことじゃないのですか？
- 147 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 11:00:01 ]
- アプリケーションソフトとは？
って話になるだろ・・・
- 148 名前：デフォルトの名無しさん [2008/10/10(金) 11:09:22 ]
- >>147
そんなことを聞いてどうするつもりですか？
なぜあなたがそんなことを細かく聞いてくるのか自分には理解が出来ない
のですが？
ソフトウェアプログラミングのソフトウェアがアプリケーションソフト以外の
ものをさすならわかりますがそれで間違いないならこれ以上追及する意味が
ないと思うのですが？
- 149 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 11:16:22 ]
- ソフトウェアをやりたい
アプリケーションソフトをやりたい
ってどういうことやねんってことでしょ
- 150 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 11:29:51 ]
- じゃあ、インクリメンタルサーチ可能な全文検索システム作ってちょ。
- 151 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 11:33:45 ]
- たぶん
「デスクトップアプリケーションを作りたい」
では・・・
- 152 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 11:38:46 ]
- >>148
君がやりたい内容が理解できないから
掘り下げて聞いているのですよ。
ソフトウェアでもアプリケーションソフトでも、意味が広すぎる
- 153 名前：デフォルトの名無しさん [2008/10/10(金) 11:47:51 ]
- 自分が聞きたいのはソフトウェアプログラミングの内容ではなくて
皆さんがperlでどんなことをやってるかなのですが・・・？
- 154 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 11:58:13 ]
- いろいろ
- 155 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 12:01:47 ]
- オナヌー
- 156 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 12:08:17 ]
- >>153
「どんなこと」も広すぎるから、方向性を絞り込む為に「やりたいこと」を参考にしたいのだが
そのやりたいこともよくわからないので掘り下げてみた
エロ動画サンプルを自動巡回DLオススメ
- 157 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 12:19:58 ]
- あとはエロ画像の重複チェックとかかな。
md5ハッシュとファイルサイズを持っておいて、この2つでチェックすれば
まぁほぼ確実な精度で重複する画像が見つけられるだろう。
- 158 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 12:27:14 ]
- ・エロ画像巡回収集、サムネイル生成、整理
・エロ動画巡回収集、解凍、整理
自分の場合はこんな感じ。いつも思うことだけどPerlの用途は幅広いね。
- 159 名前：デフォルトの名無しさん [2008/10/10(金) 13:20:15 ]
- それPlaggerでできるよ!
- 160 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 13:38:48 ]
- エロは偉大だなｗ
- 161 名前：デフォルトの名無しさん [2008/10/10(金) 14:00:04 ]
- Perlだと2ちゃんブラウザとかトリップ解析とか人工無脳とか作った
- 162 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 14:02:18 ]
- 自宅でgoogleを作った
- 163 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 14:03:22 ]
- なんだそれは
- 164 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 14:43:01 ]
- 実行環境のIPとSubnet Maskを取得する方法を
教えてください。
ifconfig/ipconfigで調べることはできるんですが、
ひょっとするとモジュールがあるかも、と思いました。
ググったら、Net::Netmaskモジュールを見つけたんですが、
これは違いました。
わかるような情報を
- 165 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 14:48:32 ]
- >>163
おっと、「自宅でgoogle」を作った。な。
ウェブブラウザのアクセス追跡やその他SBMや優秀なリンクリスト系ブログから
URLをかき集めてクロリングクロリング。ず〜っと16KB/secのバンド幅でかき集め
続けている。
- 166 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 14:52:39 ]
- >>164
つNet::Interface
- 167 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 14:53:24 ]
- >>164
ええと…… 言周 言周 言周 ……Net::Interfaceはちがう?
- 168 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 16:38:13 ]
- Perol
- 169 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 16:47:44 ]
- オマエらこういう質問に無視しないでマジメに答えてやれよ。
>>136
^(?:\x82[\x9F-\xF1]|\x81[\x4A\x4B\x54\x55]|\x20|\x81\x40)+$
これでどうだろうか？
でも、スペースがあると何かと厄介だよな。
フォームとかで使う事を考えると、スペース削除して目的達成できるなら
事前に半角全角スペース全削除して平仮名だけチェックするのがイイと思う。
- 170 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 16:57:45 ]
- >>169
> オマエらこういう質問に無視しないでマジメに答えてやれよ。
自分は人々より高い位置にいるという自己認識を露わにしながら
出現する人ってなんなの?
- 171 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 17:19:30 ]
- 「マジメに答えてやれよ」ってのは、皆答えることができるってのが前提だから、
別に自分を「人々より高い位置にいる」とは認識してないのでは。
誰も答え「られない」が、俺だけは答え「られる」って構図を出してきたんなら、
まぁ、確かにそういう気位を感じなくもないが。
- 172 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 17:25:33 ]
- 本当に質問に答える気なら、まず最初に「エンコーディングは？」って
質問返ししなきゃならんし、面倒臭いしスルーしてた。
文字コードSJIS決めつけで答えてるし、どっかのページのコピペでしょ。
もしかしたら、質問者本人の煽りレスかもね。
- 173 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 17:26:17 ]
- >>169
司令官が出現しました!!
- 174 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 17:51:42 ]
- unicode文字列にデコードされている前提で、
/^[ \p{Hiragana}]+$/
でいいんじゃね?
'['のあとの2文字は半角スペースと全角スペース。
- 175 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 20:27:16 ]
- プログラミングPerlって2000年発行でちょっと古い気がするのですが、それでも買いですか？
|
 |
