Perlについての質問箱 30箱目

Perlについての質問箱 ..

148:デフォルトの名無しさん
07/03/30 22:23:03
>>147
すまん。
エラー書いてなかった。
Can't modify stub in list assignment at /path/to/base.pm line 43, near "};"
こんなのが出る。

> しかし5.003とはまた随分古いバージョンだな。せめて5.005あたりにしとけよ…。

大人の事情というやつで・・・。

149:デフォルトの名無しさん
07/03/30 22:58:15
>>148
URLﾘﾝｸ(search.cpan.org)'t_modify_%25s_in_%25s

- () = \%{$_[0].'::FIELDS'};
+ # () = \%{$_[0].'::FIELDS'};
+ local $^W = 0;

150:デフォルトの名無しさん
07/03/31 00:24:17
> 大人の事情というやつで・・・。

そんな仕事辞めてしまえよ

151:デフォルトの名無しさん
07/03/31 01:14:49
5.003を理由に依願退職する>148であった。

152:デフォルトの名無しさん
07/03/31 02:08:39
linuxのperl向けのIDEでお薦めはなんでしょうか

153:デフォルトの名無しさん
07/03/31 02:12:15
emacs一択。

あとEPICとか？　つーかPerlにはいいIDEないよ。

154:152
07/03/31 02:51:38
ども

そうですか、ではボチボチとやってみます

155:デフォルトの名無しさん
07/03/31 02:53:14
春先は150みたいな
社会のしがらみスルー系のレスの
ネタっぽさが薄まるんだよな

156:デフォルトの名無しさん
07/03/31 03:48:41
(1..10)
は1から10までの数を持つリストを生成する式だと思うんですが、
$hoge = (1..10);
print $hoge;
とやればリストの最後の値である10が変数$hogeに代入されると思ったのに
なにも出力されません。
スカラー変数にリストを代入すると、リストの最後の値が代入されると思うんですが
どこが間違っているんでしょうか？

157:デフォルトの名無しさん
07/03/31 03:59:22
Perl7っていつ出るんですか？

158:デフォルトの名無しさん
07/03/31 04:02:35
>>156
↓を実行するとわかるけど、範囲演算子（..）が範囲内の値リストを生成するのは、
リストコンテキストの時。スカラーコンテキストでは、違う意味になるよ。
URLﾘﾝｸ(d.hatena.ne.jp)

while (<DATA>) {
　 chomp;
　 $hoge = (1..3);
　 print "$_ = $hoge\n";
}

__DATA__
AAA
BBB
CCC
DDD
EEE
FFF

159:デフォルトの名無しさん
07/03/31 04:05:29
..は範囲演算子。

$hoge = (1..10)
のようにスカラコンテキストで用いた場合、..の左項が真になった
時点から右項が真になるところまで真を返す。(...だとちょっと変わる)

いずれかの項が定数値であった場合、それは $. との比較であるとみなされる。

全く読み込んでいない状態なら $hoge の値は $. == 1 の結果に等しい。

160:デフォルトの名無しさん
07/03/31 04:17:29
最後のとこ、全く読み込んでいないなら、$. == 1の結果は偽、で。

161:デフォルトの名無しさん
07/04/01 16:28:17
>>158,159
...演算子もコンテキストで意味が変わるんですね。
わかりました。ありがとうございます。

162:デフォルトの名無しさん
07/04/02 04:58:36
perlのコミュは初心者に優しくて好きだ。
スクリプト言語経験者でも表記にとっつきにくいからかな。
マニュアル嫁で突っ返されることが少ない気がする。
（マニュアル読んでもわかんなかったりするし;ω;）

163:デフォルトの名無しさん
07/04/02 06:06:27
XpSP2でActivePerl-5.8.8.820-MSWin32-x86-274739.msiを
インストールしたんだけど、Jcode.pmがインストールされない。
なぜ？教えてください。

164:デフォルトの名無しさん
07/04/02 07:17:48
ActivePerlのことはよく知らんが、
Perl 5.8.0以降Jcodeが標準モジュールじゃなくなったからじゃないかな

165:デフォルトの名無しさん
07/04/02 09:35:55
>>164
5.8.0以降はJcode.pmが標準と聞きましたので
当然、インストールされると思ってたのですが、
探しても見つからないんですよ。

166:デフォルトの名無しさん
07/04/02 09:41:41
5.8.0からEncodeモジュールが標準装備になってるからそれ使え。

167:デフォルトの名無しさん
07/04/02 10:17:24
>>166
使っているアクセス解析プログラムがJcode.pm使っているんですよ。
ｐｅｒｌのＰＧ経験がないんで、改造も出来ないんです。

これです。
URLﾘﾝｸ(www.bflets.dyndns.org)

168:デフォルトの名無しさん
07/04/02 10:23:07
>>167
池沼か？標準じゃ入ってないと言ってるだろうが。

169:デフォルトの名無しさん
07/04/02 10:29:59
それじゃ別の方法、考えています

170:デフォルトの名無しさん
07/04/02 10:30:15
考えます

171:デフォルトの名無しさん
07/04/02 10:34:35
普通にJcode.pmインストールすりゃいいじゃないか。莫迦か

172:デフォルトの名無しさん
07/04/02 10:46:55
>>171
インストールしてもうまくいかないんですよ
やりかたが間違ってるかもしれませんが。
説明しているページで、そんなモジュールなかったり。
以下は参考にしたページです。

URLﾘﾝｸ(sakaguch.com)

win_install．plなんてないし。

マニュアルで置いても、変換後のファイルは０バイトだし。

173:デフォルトの名無しさん
07/04/02 11:33:15
>>172
Jcodeインストールするならコマンドプロンプトからppm(今時はppm-shellかな)を起動させて
install Jcode(enter)
で一発で入ると思うが。

174:デフォルトの名無しさん
07/04/02 11:57:01
>>173
ありがと
意味不明だけど、勉強してやってみる

175:デフォルトの名無しさん
07/04/02 12:17:49
つ[ perl -MCPAN -e shell ]

176:デフォルトの名無しさん
07/04/02 12:23:33
ありがと。ｐｐｍでインスコできた。
でも、うまく動かなった。

これはｐｅｒｌが原因じゃないから
ここで、さよなら。

じゃ、教えてくれた人、ありがと。

177:デフォルトの名無しさん
07/04/02 12:25:27
っ　URLﾘﾝｸ(openlab.jp)

178:デフォルトの名無しさん
07/04/02 12:31:16
次から低レベルな質問は
webprog板でやってくださいね

179:デフォルトの名無しさん
07/04/02 13:02:54
>>178
そのわりに、明確な回答書いてる奴いねーけどな

180:デフォルトの名無しさん
07/04/02 13:14:06
こんな時間帯だからじゃないの？ｗ
公式のは古いからいつものサードパーティの
所にver.2.06があるからそれをインストールするだけじゃん

181:デフォルトの名無しさん
07/04/05 09:34:45
すいません。正規表現についての質問なのですが・・・
abcあいうえお123./<>~"@
の様な文字列から日本語だけマッチするもしくはASCIIコードだけマッチさせるようにするには
どうすればよいのでしょうか?

182:デフォルトの名無しさん
07/04/05 10:12:57
>>181
文字コードをeucにして、

my $pat = pack("C*",0x20,0x21..0x7e);

/[$pat]+/ でASCII
/[^$pat]+/ で日本語（と制御コード）

183:デフォルトの名無しさん
07/04/05 10:15:20 BE:264938483-PLT(12980)
URLﾘﾝｸ(module.jp)

184:デフォルトの名無しさん
07/04/05 20:53:28
正規表現でのグループ化について質問です

$_ = 'AAAbarbarbazZZZ'; だとして

@a = /AAA(foo|bar|baz)+ZZZ/;

とすると、@a の中身は最後にマッチした @a = ('baz') 一つとなりますが、
これを @a = ('bar', 'bar', 'baz')
とする正規表現はあるでしょうか?

(){n} でなく ()+ を使ったのは数量が固定ではないためです。

なんらしか正規表現方法で
上記一文で済ませられたら…と思い質問させていただきました。

185:デフォルトの名無しさん
07/04/05 21:38:28
>>184
何でも一行に詰め込みゃいいってもんでもないけど…
@a = splice @{[ grep length, split /(foo|bar|baz)/, 'AAAbarbarbazZZZ' ]}, 1, -1;

186:デフォルトの名無しさん
07/04/05 21:55:26
確かに一行ですが…^^;レスありがとうございます。
'AAAfooXXbarYYYYYbazZZZ' のように目的外の物が混ざっている場合
のチェックを別にしなければなりませんが。

やはり ()+ でのマッチを正規表現の修正で全部リストする無理でしょうか

187:デフォルトの名無しさん
07/04/05 22:27:05
m/AAA((?:foo|bar|baz)+)ZZZ/
とかすれば全部とれることはとれる。
リストにはならないけど。

188:デフォルトの名無しさん
07/04/05 22:29:35
>>186
> 'AAAfooXXbarYYYYYbazZZZ' のように目的外の物が混ざっている場合
その場合 @a は () とするべきか
AAA　foo　XXbarYYYYYbazZZZ と分けるべきか
AAAfooXX　bar　YYYYYbazZZZ と分けるべきか
AAAfooXXbarYYYYY　baz　ZZZ と分けるべきか
>>184からは読み取れないよ？

189:184
07/04/05 23:22:15
レスありがとうございます

>>187
()+ での一気取得が駄目だった場合、私もそれを候補の一つに考えていました
リストにするには(foo|bar|baz)のマッチングがもう一回必要になってしまいますが

>>188
説明不足でした。申し訳ありませんでした
(ある程度大きいテキストから)
'AAA' と 'ZZZ' の間が (foo|bar|baz)+ のみで構成されている箇所を探し
その部分をリストとして取得したいと思っております

ですので、提示くださった選択肢の中では
＞その場合 @a は () とするべきか
を考えています

(foo|bar|baz) の部分は実際はかなり重そうな正規表現の羅列と選択(|)で構成されていて
()+ による繰り返しも回数も非常に多く
(foo|bar|baz) のマッチングによる2度手間(切り出し・リストへ分割)は避けようと思い
今現在は下記の感じの処理を考えています
if (/AAA/) {
while ($' =~ /^(foo|bar|baz|ZZZ)/) {
if ($1 eq 'ZZZ') { OK; last; }
push(@a, $a);
}
}
}

そこで >>184 の質問するに至りました
マッチングも一回で一文で済ませられたら…と
長文失礼

190:184
07/04/05 23:38:24
>>189 の
while ($' =~ //)
は
while ($' =~ //o)
を考えています

今docを読み込んでいるんですが ()+ でのグループの繰り返しマッチングの
全リスト取得は、正規表現工夫しても仕様的に無理なのかな…

191:184
07/04/05 23:40:39
push(@a, $a) の行も間違えていました…
慌てて書き上げたもので
連投すみません

192:デフォルトの名無しさん
07/04/05 23:44:49
AAAとZZZの間だけでいいのか？
AAAの前や、ZZZの後ろは無視していいのか？

193:デフォルトの名無しさん
07/04/05 23:47:12
あと、入力データと出力データの例を具体的に示してくれ。
入力文字列と、それに対する@aの中身はどうなるのか。

194:デフォルトの名無しさん
07/04/05 23:51:08
>>190
1対の括弧につき1つの値が保存される仕様なんだから、
1回のマッチにおいて1対の括弧で複数個の値を得るのは
そりゃ無理だわな。
それに複雑な正規表現でバックトラックの嵐にするより、
幾つかのシンプルな処理に分けた方が速い。

if (/AAA/g) {
　　push @a, $1 while /\G(foo|bar|baz)/g;
}

195:デフォルトの名無しさん
07/04/05 23:52:06
マジレスすると、速度とか考慮するなら切り出して二段階とかにした方が速い。
まぁ、元のデータの性質が分からんと何とも言えんが。

196:こういうこと？
07/04/06 00:00:11
if(($x) = /^AAA(.+)ZZZ$/){
　 $x =~ s/(foo|bar|baz)/push @a, $1/ge;
}

197:196
07/04/06 00:06:16
ああ、AAAが行頭とは限らないのか。

198:184
07/04/06 00:15:33
>>192
はい。
/AAA(foo|bar|baz)+ZZZ/
これに厳密にマッチするところの(foo|bar|baz)のみを取得したいので

111AAAfooZZZ222 ： 111 222 等は要りません
111AAAfooXXXbarZZZ222 ：この場合 foo bar も要りません
111AAAfoofoofoobazbarZZZ222 ：　@a = ('foo', 'foo', 'foo', 'baz', 'bar') を取得したい

>>193
申し訳ありません。実際の入力データはお見せすることが出来ないので、
等価な具体例の作成も時間がかかってしまうかも知れません
上記例でご容赦ください

>>194
＞そりゃ無理だわな。
ありがとうございます。
これが出来るのかどうかが一番知りたかったので、ふんぎりがつきました。

実際の具体例のデータを示せないので、(主に速度に関する)お答えは難しいですよね。
その中でも例やヒントを示してくださった方々ありがとうございました。
内部的な処理は詳しくないのですが、試行錯誤しながら参考にさせていただきたいと思います。

皆さんレスありがとうございました。（＿＿）

199:デフォルトの名無しさん
07/04/06 04:08:13
>>198
どういたしまして

200:デフォルトの名無しさん
07/04/06 08:54:56
仕事丸投げするのはいいが、藻前さんが辞めた後にメンテする人のことも
わかってやれよな。

201:デフォルトの名無しさん
07/04/06 09:31:06
括弧に量指定子使うのきめえ

202:デフォルトの名無しさん
07/04/06 10:26:07
foo,bar,bazが3文字って決まってるならこれでどうよ。

$_ = '111AAAfoofoofoobazbarZZZ222';
/AAA(?:(foo|bar|baz)(?{push(@a,substr($&,-3))}))+ZZZ/;

print join(",",@a),"\n";

203:デフォルトの名無しさん
07/04/06 11:15:13
つーか、そもそもどうしてそんなデータ構造なのかが気になる件。

204:デフォルトの名無しさん
07/04/06 11:30:16
宿題？

205:デフォルトの名無しさん
07/04/07 13:27:01
########################################
# データ内に改行が無ければ最初の二行は
# $_ = <>; で置き換え可能
########################################
chomp(@tmp = <>);
$_ = join '', @tmp;
$re = qr/foo|bar|baz/i;
s!(AAA(?:$re)+ZZZ)!push @a,$1=~/($re)/g !ge;
print join("-", @a);

これはひどい。

206:デフォルトの名無しさん
07/04/07 13:37:01
qrのオプションは i　じゃなくて o だった。

207:デフォルトの名無しさん
07/04/08 15:55:23
perlでlogの基数が2の場合を求めるには何をつかうのが
ベスト？？
車輪の再発明はしない方向で・・・

208:デフォルトの名無しさん
07/04/08 15:56:59
>>207
底の変換公式

209:デフォルトの名無しさん
07/04/08 16:29:00
>>208
thx

210:デフォルトの名無しさん
07/04/08 21:57:13
仕事で初めてPerl使うんだが難しいな('A`)

211:デフォルトの名無しさん
07/04/08 23:12:16
Cやってりゃ、Cのマクロ言語だと思って書いてれば当座はしのげる。
嵌りどころはあるが、「難しい」ではなく「勝手にいじるなよ！」ってな感じ。
Cの派生言語からでも同様。
「難しい」ってのは今までまっとうな言語の経験がないからじゃないかと思う。

212:デフォルトの名無しさん
07/04/08 23:59:21
つーか、Ｃみたいな型がキッチリしたのから移行すると、
なんとなく気持ち悪いｗ

213:デフォルトの名無しさん
07/04/09 00:12:22
>>212
Cの原始的な型じゃ、実際にコードを書くときたいして助けになってくれてないだろう。
目糞鼻糞だと思うんだけど。

214:デフォルトの名無しさん
07/04/09 00:21:03
俺は、あくまでもテキスト処理用と考えたらすんなり入れた。
Cだと文字列めんどくせえし、C++と比べても正規表現処理のためのコード量がぜんぜん違うからな。

215:デフォルトの名無しさん
07/04/09 00:22:52
>>213
そうでもない。例えばプロトタイプ宣言をちゃんと使っていれば
誤った引数を渡したりしたときなど、コンパイルエラーとして
コンパイルの時点で捕捉出来るし、プロトタイプ宣言自体が
関数の使い方に関する一番簡単なドキュメントになる。

216:デフォルトの名無しさん
07/04/09 00:27:16
>>214
テキストをちょろっと弄くるには便利だよね。
クラスやリスト、リファレンス等の基本的な仕組みが
adhoc過ぎて汚いし（←個人的見解）
プログラムが大きくなればなるほど型付静的言語の有り難味が増す。

Perlで小さいプログラム以上のものを書く気にはとてもなれない。
同じ動的言語でも、Pythonあたりならまだ許容量大きいかな。

217:デフォルトの名無しさん
07/04/09 00:28:33
そゆことだな。主にバイナリ扱うとなると、Ｃみたいなのが書きやすい。
文字列はperlみたいなのが楽だが。

218:213
07/04/09 00:40:57
>>215
ああ、そういえばそうだ。目糞鼻糞は撤回する。

219:デフォルトの名無しさん
07/04/09 00:41:27
>>217
バイナリとかバイト／文字単位の処理だとpack(), unpack()の嵐だわな。
それ考えると、文字列処理とか言っても正規表現使いやすいだけって希ガス。
エンコーディング周りもそんなに便利とは言えないし。

220:デフォルトの名無しさん
07/04/09 06:15:36
っ　適材適所

221:デフォルトの名無しさん
07/04/09 07:43:02
ある種の物事を異常に早く片付けられる、それがPerl。

222:デフォルトの名無しさん
07/04/09 19:15:26
元々perlは文字列処理用なんしょ。

しかし、たとうばHTMLのタグを外す処理を書く　ってなった時、
perlなら簡単だけど、Cで書くとなると工程からして憂鬱だ…。
regexp.dll使うけど、メモリリーク等に気を遣わないとで面倒だ…。

223:デフォルトの名無しさん
07/04/09 20:53:41
やっぱ言語組み込みのが楽だよね・・・正規表現は

224:デフォルトの名無しさん
07/04/09 21:53:11
>>222
まぁCで文字列処理はちょっとな。
どうしても(C++でなく)Cを使う必要があるのなら、せめて
GCライブラリを使いたいところ。
C++なら、文字列処理は別に苦にはならないはず。

それとCで字句／構文解析ならlex/yaccを使う場合も
多いんじゃないかな。

225:デフォルトの名無しさん
07/04/10 17:49:24
この記事どうしてくれよう
URLﾘﾝｸ(gigazine.net)

226:デフォルトの名無しさん
07/04/10 18:03:28
>>225
マジかと思ってUserAgentをlibwwwにしてググったらほんとに検索できなかった。
一時的な効果しか無いだろうに、アホな対応するなぁ…。

これからは適当なAgentを騙れってことでOK?

227:デフォルトの名無しさん
07/04/10 18:18:39
IEのにあわせておくもんだろ

228:デフォルトの名無しさん
07/04/10 19:15:26
>>226
libwww-perlを拒絶しても、本当に悪い奴は遮断できず、
入門過程の新参者を困惑させ余計な時間をとらせるだけ。

まさに1000害あって1利なし。

229:デフォルトの名無しさん
07/04/10 19:59:13
所詮Google。

230:デフォルトの名無しさん
07/04/10 22:32:59
つまり、おまえらpython使えの意

231:デフォルトの名無しさん
07/04/10 22:39:48
その発想はなかったわ・・・

232:デフォルトの名無しさん
07/04/10 22:59:00
フォームへのスクリプト拒否してるからでしょ

233:デフォルトの名無しさん
07/04/11 00:55:09
>>232
んなもんどうでもなるやん。何の意味があるのかさっぱりわからん。

234:デフォルトの名無しさん
07/04/11 01:45:44
2,3日で元のスパムの量に戻るに1ペリカ

235:デフォルトの名無しさん
07/04/11 10:26:47
今更ながらどうもコマンドラインがよく飲み込めてないかもしれないので、
少しお尋ねします。
例えば
perl -pi.bak -e "tr/A-Z/a-z/"*.html
とか便利ですよね？
これを.plとして使いたいのですが無理なのでしょうか？
コマンドラインから打ち込むしか手がないのでしょうか？

236:デフォルトの名無しさん
07/04/11 10:40:03
>>235
perlrun(1)の-iオプションの説明のとこに例があるだろ。よく嫁。

From the shell, saying

$ perl -p -i.orig -e "s/foo/bar/; ... "

is the same as using the program:

#!/usr/bin/perl -pi.orig
s/foo/bar/;

which is equivalent to

#!/usr/bin/perl
$extension = '.orig';
LINE: while (<>) {
if ($ARGV ne $oldargv) {
(改行大杉でおこられるので以下略)

237:デフォルトの名無しさん
07/04/11 10:40:50
ｽﾚﾘﾝｸ(php板:593番)
ｽﾚﾘﾝｸ(tech板:235番)

238:デフォルトの名無しさん
07/04/11 10:49:06
>>236
ｱﾘｶﾞﾄｳございます。
なお、質問するｽﾚが似つかわしくないと重い他ｽﾚにも同じ内容を質問させていただきましたが
ご迷惑かけたようで申し訳ないです。

239:デフォルトの名無しさん
07/04/11 11:06:13
>>235
windowsだとどうも面倒なようなので他の手にします。お騒がせしました。

240:デフォルトの名無しさん
07/04/11 11:33:56
手軽に使えるようになればいいだけなら、適切なオプション
与えたperlをsystemかexecで起動するようなスクリプト書く
手もあるよ。

病的に効率を気にする人にはお勧めしませんけど。

241:デフォルトの名無しさん
07/04/11 21:53:06
>>239
Windowsなら.batに書けばいいんじゃね？
なんで.plにこだわるのかわからん

242:デフォルトの名無しさん
07/04/11 22:50:12
YAPC::Asia 2007 Tokyoのpodcastでてるけど、これは聞いとけってものある？

243:デフォルトの名無しさん
07/04/11 23:15:28
んだ

244:デフォルトの名無しさん
07/04/12 01:10:07
> YAPC::Asia 2007 Tokyoのpodcastでてるけど、これは聞いとけってものある？

馴れ合いなので、聞く必要なし

245:デフォルトの名無しさん
07/04/12 04:01:25
>>242
見事になんにもなし。

246:デフォルトの名無しさん
07/04/13 05:01:57
>>240
ありがとうございます。
>>241
いえ。こだわってないから他の手にするつもりです。
UNIX環境でないとなかなか不便なものなんですね。

247:デフォルトの名無しさん
07/04/13 22:58:40
>>246
>UNIX環境でないとなかなか不便なものなんですね。

この点は同意なんだけどね。
しかし、キミが不便だと言っている点についてオレは不便を感じたことはないな。

248:デフォルトの名無しさん
07/04/14 00:31:00
そんなに頻繁に使うようならスクリプトをちゃんと書けよ
てかperlの質問じゃなくて、コマンドラインについての質問だよな・・・

249:デフォルトの名無しさん
07/04/14 13:30:37
>>247
>しかし、キミが不便だと言っている点についてオレは不便を感じたことはないな。
主観的且つ感情的な意味でしょうか？そうではないとしたら何か理由がおありですよね？
不便と思わない理由はなんでしょうか？
>>248
スレ違いになるかもですね。
そろそろ退散したいと思います。

250:デフォルトの名無しさん
07/04/14 13:32:25
＞そんなに頻繁に使うようならスクリプト
？

251:デフォルトの名無しさん
07/04/14 17:11:52
#!/usr/bin/perl
# >>235 の望みを叶える夢のスクリプト:
exec 'perl', '-pi.bak', '-e "tr/A-Z/a-z/"', shift;
__END__

252:デフォルトの名無しさん
07/04/14 22:29:21
>>251
頭大丈夫？

253:デフォルトの名無しさん
07/04/14 22:41:39
大丈夫な人も大丈夫じゃない人も大丈夫って答えるから
間抜けな質問というしかない。

254:デフォルトの名無しさん
07/04/14 22:55:57
>>184
@a = grep {/(foo|bar|baz)/} split /(foo|bar|baz)/ , $_;

255:デフォルトの名無しさん
07/04/14 23:30:26
こんばんは。
会社のHP作成を引き継いだのですが、わからないことがあるのでどなたか教えていただけないでしょうか。
コンボボックスを外部のテキストから読み込んでいるのですが、途中までしか表示されないのです。
0<>--<><>
1<>A<><>
2<>B<><>
3<>C<><>
4<>D<><>
5<>E<><>
6<>F<><>
7<>G<><>
8<>H<><>
(中略)
14<>N<><>
上記が外部テキストの中身なのですが、コンボボックスには8までしか表示されないのです。
コンボボックスの方は
#編集モード以外は表示するだけ、編集モード時はコンボボックスで表示
if (!$edit) {$html .= "<td align=\"center\"><table width=\"100%\">";
for ($l = 0; $l < $periods; $l++) {
if ($showpname) { $html .= "<tr><td>$periodname[$l]</td>"; }
$html .= "<td align=\"center\">$STATUSSTR[$stats[$l]]</td></tr>";}
$html .= "</table></td>\n";}
となっています。
全てを表示させるようにするにはどこを変えたらいいのでしょうか。
(これだけの情報では不十分でしたらすみません。
　他にどんな情報が必要かも教えていただければ幸いです)
Perl関連の本など読んでみたのですがわからなくて…
宜しくお願いします。

256:デフォルトの名無しさん
07/04/14 23:36:54
コンボボックスじゃなくて表で表示するコードに見えるが・・・。

257:デフォルトの名無しさん
07/04/14 23:48:58
>>256さん
あ、もしかしてここは関係なかったですかね…
カレンダーの1日ごとにコンボボックスが入っているので、そのカレンダーの方のコードなんでしょうか…
わからないことだらけのまま質問してしまってごめんなさい。
もう一度コードを見直してみます。

258:デフォルトの名無しさん
07/04/14 23:53:55
読み込まれたテキストデータがコンボボックスのどの変数になってるのかがわからない。
perlコードの、$periods、$showpname・・・とやらが何なのかわからないと
何もアドバイス出来ないよ。

259:デフォルトの名無しさん
07/04/15 00:03:49
>>258さん
そうですか…
$periodsなどなどは専門用語なのかなぁ、と思っていたのでそこから間違いだったのですね。
前任者とは全く連絡が取れず、初心者の私には何がなにやらさっぱりで…
失礼致しました。
もっと勉強して出直します！

260:デフォルトの名無しさん
07/04/15 00:23:13
periodつーたら何らかの「期間」じゃないのか?

261:デフォルトの名無しさん
07/04/15 00:39:39
>>260さん
期間…カレンダー関係ですかねぇ。
日ごとにアルファベッドを選択して登録するんですけど、
何ヶ月か分をまとめて登録してそれをScriptで(？)違うページに呼び出すので、それですかねぇ…
それにしても8番までしか出てこないのもどこかで指定してるんですかねぇ。
あまりにファイルが多すぎて、探すのに時間がかかりそうです…

262:デフォルトの名無しさん
07/04/15 00:52:49
>>255
本当にそのコードが該当コードなのかどうか怪しいね
ありうるとすれば@STATUSSTRの中が"<select>…"といったhtmlになってるとか

とりあえずPerlの配列変数は先頭の記号が $ だったり @ だったりするので
それだけ注意して変数をさかのぼって行くとか

お節介だけど$showpnameのif文、通らない場合に開始<tr>タグ欠けるよ

263:デフォルトの名無しさん
07/04/15 01:03:42
俺なら解読するの諦めて書き直したくなるな

264:デフォルトの名無しさん
07/04/15 01:56:12
>>255
エスパーのおいらが予測するには、>>255 が挙げた箇所の次に
} else {
という行があり、その後の部分が問題の部分なんだろうな。

265:デフォルトの名無しさん
07/04/15 06:52:58
perlのソースコードの中に直接HTMLが書かれているなら
「type="select"」あたりで検索すれば、該当個所の近辺の
コードに当たるんじゃないか？

266:265
07/04/15 06:55:31
間違えた。「type="select"」じゃなくて「<select」だな。

267:デフォルトの名無しさん
07/04/15 23:51:49
>>255さんには内緒で、実はその前任者さんをこのスレにお呼びしています＾＾。
実は前任者さん、その書き込みの様子をモニターを通して見ておりました。
では、心に引っかかっていた辛い過去。
あの時、伝えられなかった想いを今、、、

268:デフォルトの名無しさん
07/04/16 00:50:06
perlの時代は終わった・・・
これからの初心者は、今の時代に合った言語を使ってくれ・・・

・・以上

269:デフォルトの名無しさん
07/04/16 00:53:48
ruby？python？

270:デフォルトの名無しさん
07/04/16 01:04:26
情報保護の時代だからな。
Whitespaceだろ。

271:デフォルトの名無しさん
07/04/16 04:53:46
仕事をPHPいじってから、Perlを汚い言語だなんて言ってた自分の愚かさに気づいた。
Perlは消えなくていい。PHP、頼むから消滅してくれ。

272:デフォルトの名無しさん
07/04/16 04:56:25
s/(?<=仕事)を/で/

273:デフォルトの名無しさん
07/04/16 06:08:15
255です。
皆さんどうもありがとうございます。参考になりました！
ここで皆さんにお聞きするにはあまりにも自分が無知すぎて申し訳ないです。
更新は休みの土日しかできないので、来週までに色々調べてまた挑戦します。

>>262さん
なるほど…
<tr>タグの件、ご指摘ありがとうございます！

>>263さん
書き直すなんて絶対無理ですので頑張って解読したいと思います…

>>264さん
} else { って部分あります！！
その部分に注意してみます。

>>265さん
検索ですね。htmlがperlの中にあるので試してみます！

>>267さん
実は前任者とは全く面識がないので、あの時も何もあったもんじゃない、って感じなのですが…

274:デフォルトの名無しさん
07/04/16 14:16:33
>>225
すんげー今更だな
google出来た頃から規約に書いてあるし
URLﾘﾝｸ(www.google.co.jp)

275:デフォルトの名無しさん
07/04/17 06:50:02
まさかLWP使ったらすべて自動クエリだとか思ってる訳じゃないよな。

276:デフォルトの名無しさん
07/04/17 06:59:52
>検索結果ページに対して

ってあるからなぁ

277:デフォルトの名無しさん
07/04/17 13:36:22
質問です

$var = 010203　とあります

これを
$var = 01/02/03

このように2桁ごとにスラッシュを入れるにはどうしたらよいでしょうか？

0102　や　01、01020304　の場合などどの桁数にも対応したいです

278:デフォルトの名無しさん
07/04/17 13:43:51
　perl -e '$var="010203"; $var=~s/([0-9]{2})/$1\//g;print $var;'

279:デフォルトの名無しさん
07/04/17 15:07:07
ありがとうございます
できました

280:デフォルトの名無しさん
07/04/17 15:48:19
正規表現の中にスラッシュがあるときはエスケープするより
s{([0-9]{2})}{$1/}g
とかの方が良い気がする

281:デフォルトの名無しさん
07/04/17 16:06:26
0-9より\dのがいい気がする

282:デフォルトの名無しさん
07/04/17 16:11:38
'010203' のとき '01/02/03/' になる気がする

283:デフォルトの名無しさん
07/04/17 16:44:03
s{\d{2}(?=\d)}{$&/}g;
かな

284:デフォルトの名無しさん
07/04/17 17:15:38
$& 使うくらいだったら普通に join したくなるなあ、俺は。
perl -le '$var = qq{010203} ; print join q{/}, ( $var =~ /(\d{2})/g )'

285:デフォルトの名無しさん
07/04/17 19:37:56
まあ一般には \d は 0-9 の必要条件であって同値ではないけどな。

286:デフォルトの名無しさん
07/04/17 19:46:31
こういうことか
$ perl -e 'use utf8; print q[０] =~ /\d/'
1

287:デフォルトの名無しさん
07/04/17 22:03:19
J2EEの方がいい気がする

288:デフォルトの名無しさん
07/04/17 22:40:33
>>277
3桁区切りにカンマをつけるというのがよくあるから
それを参考に好きなの使えば？

289:デフォルトの名無しさん
07/04/17 22:57:26
>>282
答えはそれでいいんだろ？

290:デフォルトの名無しさん
07/04/17 23:59:03
>>289
質問者の出してる例はそうは言ってないぞ。

291:デフォルトの名無しさん
07/04/18 03:02:24
>>277
Date::Manipでできんじゃね?

292:壁| x ・)つ○
07/04/18 03:09:07
こういうのはこうりつわるいですか？
for ($i = 2; $i < rindex($var, ""); $i += 3) {
　　substr($var, $i, 0) = "/";
}

293:デフォルトの名無しさん
07/04/18 12:07:56
$var = reverse( ( $var = reverse $var ) =~ s{(\d\d)(?=\d\d)}{$1/}g );

294:デフォルトの名無しさん
07/04/18 12:18:50
近頃はs#･･･#･･･#って書き方見なくなったな

295:デフォルトの名無しさん
07/04/18 13:07:55
>>292
人間の読み書きの部分で効率悪いと思う

296:デフォルトの名無しさん
07/04/18 14:36:58
1 while $var =~ s/(\d{2})(\d{2})/$1\/$2/g;

297:デフォルトの名無しさん
07/04/18 14:43:01
s/(\d{2})(?=\d{2})/$1\/$2/g

298:デフォルトの名無しさん
07/04/18 16:53:45
>>297
$2なんてないじゃん

299:デフォルトの名無しさん
07/04/18 17:11:53
>298
なにを言っているんだお前は。

300:デフォルトの名無しさん
07/04/18 17:40:37
いやさ、 (?= ) は後方参照を生成しないだろう？
> perl -e "q/123/ =~ /(\d)(?=\d)(\d\d)/; print $2;"
23

そもそも、(?= )はゼロ幅先読みだろう。
> perl -e "q/123/ =~ /(\d)((?=\d))/; print $2;"
(出力なし)

301:デフォルトの名無しさん
07/04/18 20:54:57
>>295 なるほど　ワンライナーでさらっとかけるようしょうじんいたします
・)つ●　←おれいのしな

302:デフォルトの名無しさん
07/04/19 10:56:55
>>300
そのとおり。適切な指摘ありがと。書いてから気がついた。
>>283か、
s|(\d\d)(?=\d)|$1/|g
みたいな感じで。

303:デフォルトの名無しさん
07/04/19 22:59:05
ファイル出力の質問です

open IN , ">$failename";
print IN , "test;
close IN;

で、$filenameに絶対パスを入れたいんですが、なんかうまく言ってくれないんです　Orz
助けてエロい人

304:デフォルトの名無しさん
07/04/19 23:02:26
>>303
> で、$filenameに絶対パスを入れたいんですが、なんかうまく言ってくれないんです　Orz

さあ、「なんかうまく言ってくれないんです」の「なんか」を推定するクイズです!!

305:デフォルトの名無しさん
07/04/19 23:08:28
これは流石に釣りだろう

306:デフォルトの名無しさん
07/04/19 23:11:10
エスパーの私がお答えしよう。

Windows で \ 記号がディレクトリ名の区切りなもんだから
ダブルクォーテーションで括っただけだとエスケープと
解釈されちゃって変な文字列完成。→オープン→エラー。
そんなファイルはねえよヴォケと $! に入っている。

307:デフォルトの名無しさん
07/04/19 23:34:21
$failename (フェイルエネーム?) だからではないか・・・なんてことはないか。
そもそも IN じゃなくて OUT だろうと

use Fatal qw(open close);
open my $out, '>', $filename;
print {$out}, "test";
close $out;

308:307
07/04/19 23:39:40
- print {$out}, "test";
+ print {$out} "test";

309:デフォルトの名無しさん
07/04/19 23:40:55
{$out}

310:デフォルトの名無しさん
07/04/19 23:54:37
{$safe}

311:265
07/04/19 23:58:02
$failename =~ s/^/zettaipath\/;

312:303
07/04/20 00:05:38
みなさま　マジでありがとうです
こんな初心者をささえてくれてありがとお　つω；

313:デフォルトの名無しさん
07/04/20 01:32:59
なんかうまく言えました

314:デフォルトの名無しさん
07/04/20 03:42:05
うまく言えないけれど宝物だよ

315:デフォルトの名無しさん
07/04/20 03:53:44
僕たちはできる!! できるんだ!!

316:デフォルトの名無しさん
07/04/20 03:54:26
最高ですか！！？
最高です！！！

317:デフォルトの名無しさん
07/04/20 12:14:51
プラス思考のスレはここですか?

318:デフォルトの名無しさん
07/04/20 15:30:27
プラス指向プログラミング　POP

319:デフォルトの名無しさん
07/04/20 19:25:20
@http = $_ =~ /s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+/g;
print FILEA @http;
このような記述をしたら、
Variable "@http" is not imported at http-client.pl line 53.
Variable "@http" is not imported at http-client.pl line 54.
Global symbol "@http" requires explicit package name at http-client.pl line 53.
Global symbol "@http" requires explicit package name at http-client.pl line 54.

と言われました。
これは何のエラーですか！？

320:デフォルトの名無しさん
07/04/20 22:19:47
@httpを括弧でくくってください

321:デフォルトの名無しさん
07/04/20 23:21:12
>>319
Variable "@http" is not imported については、perldiagをどうぞ。
というか、「何の」もなにもperlが出しているエラーなんだからまずはここで調べるべし。
つ URLﾘﾝｸ(perldoc.jp)

とりあえず、use strictなのに @http が生で使われているのが原因ですので、パッケージを明示的に
指定して使うか、my宣言すればいいのでは。

322:デフォルトの名無しさん
07/04/21 23:17:55
PDFを解析したいんですが、どのような方法で読み込んでいったらいいと思いますか？
ちなみに、PDFの仕様として：

・改行文字はCR，LF，CRLF，のどれでもよい。
・文字列内での改行文字はそのままのかたちで残さなければならない。
・文字列内で（見た目のために）改行したいときは \改行文字とする。

read(FILE, $buf, 512) ってのもめんどくさそうだし、できれば while(<FILE>) で
済ましたいんですが、意味のある改行もあるしなぁ。。。

323:デフォルトの名無しさん
07/04/22 00:20:39
>>322
何をしたいのか知らんが、まずCPANでPDF関係のモジュールを
サーチしたほうがいいね。
あなたがしたいことを既に実現しているモジュールがあるかもしれないし、
少なくとも、改行文字の扱い方については、ソースの中にお手本が
あると思うし。

324:303
07/04/22 04:50:29
303ですが　またまた超初心者な質問です。

requier './jcode.pl';

sub jis { $msg = $_[0]; &jcode'convert(*msg, 'jis'); }

ってコードがあったのですが
&jcode の後ろについている ' の意味がわかりません。

もしかして
&jcode::convert(*msg,'jis');
と同義ですか？

エディターの色分けが気持ち悪くなるので直したいです。教えてエロい人　Orz

325:デフォルトの名無しさん
07/04/22 05:35:13
Perl4

326:デフォルトの名無しさん
07/04/22 05:37:45
>>324
エロい人よりマニュアルに頼ろうよ。

<q cite="URLﾘﾝｸ(www.kt.rim.or.jp)
古いパッケージ区切り子はシングルクォートでしたが、
現在はダブルコロンを使うのが推奨されています。
</q>

URLﾘﾝｸ(mikeneko.creator.club.ne.jp)

327:324
07/04/22 11:13:18
なるほど！　ありがとうございました　＞＜

Jcodeの使い方も含めて勉強してきます　＞＜ノ

328:デフォルトの名無しさん
07/04/22 14:43:25
CPAN でインストールする際に以下のようなメッセージが出て失敗します。

Undefined subroutine &Compress::Zlib::gzopen called at /usr/local/lib/perl5/5.8.8/CPAN.pm line 5721.

何をインストールしても大体このエラーが出て失敗します。

Zlib は、
/usr/local/lib/perl5/site_perl/5.8.8/Compress/Zlib.pm
にあって、サブルーチン gzopen もありました。

また、@INC に /usr/local/lib/perl5/site_perl/5.8.8 は含まれていました。

どこに問題があるか分からないのですが、教えてもらえないでしょうか。

環境は、
OSX 10.4.9 で Perl 5.8.8 を /usr/local/bin にインストールしました。

329:デフォルトの名無しさん
07/04/22 16:09:08
>>328
あえて /usr/bin/perl ではなく /usr/local/bin/perl を使いたいわけね？
で、実際に使ってる(環境変数 PATH で優先的に参照される)のは /usr/bin/perl ではなく、
/usr/local/bin/perl ってことに間違いはない？

330:デフォルトの名無しさん
07/04/22 16:35:51
>>329
レスありがとうございます。

>あえて /usr/bin/perl ではなく /usr/local/bin/perl を使いたいわけね？
はい。ソースコードからインストールしたらそこにインストールされたので、
/usr/local/bin/perl を使っています。

>で、実際に使ってる(環境変数 PATH で優先的に参照される)のは /usr/bin/perl ではなく、
>/usr/local/bin/perl ってことに間違いはない？
間違いないはずです。
which perl で確認しました。

CPAN.pm の該当箇所をみると、
$CPAN::META->has_inst("Compress::Zlib") で判定した後に、
Compress::Zlib::gzopen を呼び出していました。
そこで gopen がないとなる理由がよく分かりません。

331: ◆TWARamEjuA
07/04/22 17:40:08 BE:2287837-2BP(6823)
>>330
> >で、実際に使ってる(環境変数 PATH で優先的に参照される)のは /usr/bin/perl ではなく、
> >/usr/local/bin/perl ってことに間違いはない？
> 間違いないはずです。
> which perl で確認しました。
$env
してみると判るけれども標準ではpathが通っていないと思うですです。
PATH=/bin:/sbin:/usr/bin:/usr/sbin
@MacOSX 10.4.9

もっぺん確認してみよう♪

♯tu-ka未だに5.8.6のままなんだよなぁ。。。(´･ω･`)
$ perl -v

This is perl, v5.8.6 built for darwin-thread-multi-2level
(with 3 registered patches, see perl -V for more detail)

332:デフォルトの名無しさん
07/04/22 17:55:38
>>331
レスありがとうございます。

$env
で確認してみましたが、先頭に/usr/local/binがありました。
PATH=/usr/local/bin:/bin:/sbin:/usr/bin:/usr/sbin

こうなるように、以前./bash_profile に追加しました。
となると、原因は不明でしょうか？
インストールの仕方が悪かったのかなあ。

333:デフォルトの名無しさん
07/04/22 20:53:01
CPANなんてまともに動作すると思うほうがおかしい。
手動で入れろ。

334:デフォルトの名無しさん
07/04/22 21:21:50
>>323 THX
PDFファイルのすべてを把握するのが目的です。

CPANをみたところ、PDFのテキストや書誌情報を抽出したりするためのAPIは用意されてる
のですが、もっと低レベルなパーサーがないようです。。

各種トークンが出現するたびにイベントを起動するような奴がほしいんですが。
HTML::ParserのPDF版でPDF::Parserみたいな感じの奴です。

335:デフォルトの名無しさん
07/04/22 23:26:59
日曜潰してまだ分からないので、どなたか助けてください＼(ToT)／
UTF-8でURIエスケープされた文字列を、アンエスケープするPerlの処理でけつまづいてます。

元の文字列をURIエスケープした文字列がサーバ側まで来ているのは確認しました。
「質問」→「%E8%B3%AA%E5%95%8F」だとか、「ü」→「%C3%BC」だとか。

これを
$utf8str =~ s/%([a-f\d]{2}/pack('H2',$1)/egi;
しても、正しくアンエスケープされない（文字化けする）のです。
UTF-8が可変バイトなのが曲者なのでしょうか。。。

ググった先（URLﾘﾝｸ(oshiete1.goo.ne.jp)）の
$utf8str =~ s/%(e[a-f\d])%([a-f\d]{2})%([a-f\d]{2}/pack('H2',$1).pack('H2',$2).pack('H2',$3)/egi;
してもやはりだめでした。

336:デフォルトの名無しさん
07/04/22 23:56:33
>>333
むあじっすか。

337:デフォルトの名無しさん
07/04/22 23:59:22
>335

use Encode qw/from_to/;
my $str = '%E8%B3%AA%E5%95%8F'; # utf8の'質問'をエスケープ
(my $dec = $str) =~ s/%([a-f\d]{2})/pack 'H2', $1/egi;
from_to($dec, 'utf8', 'cp932'); # Winのコマンドプロンプトで表示するのでcp932にしてる
print $dec;

とりあえずこれで動いてるけど？　ブラウザに出してるんなら、Shift_JISって解釈されてるとかじゃない？？

338:デフォルトの名無しさん
07/04/23 00:01:31
>>335
> $utf8str =~ s/%([a-f\d]{2}/pack('H2',$1)/egi;
$1のための括弧が閉じられてません。

あとは、UTF-8に対応したEditorで開いてないとかでしょうか。
上の式で正しくアンエスケープされました。

339:デフォルトの名無しさん
07/04/23 00:35:06
括弧閉じ忘れでごめんなさいorz
>>337さんのスクリプトを実行したところ、文字化けしませんでした。
また、from_toする前でも、ファイルにリダイレクトして、
そのファイルをエディタで開いても同様に文字化けしていませんでした。

しかし、サーバに持って行ってブラウザに結果を出すと文字化けしてしまいます。
エディタはUTF-8に対応していて、Perlスクリプトもutf-8で保存して、
use utf8; use open ":utf8"; use open ":std";して、
print "Content-type: text/html; charset=utf-8\n\n";
いるのですが、
>>337さんのものでprint $dec;でもprint $str;でも駄目（文字化け）でした。
環境はWin XP SP2 + IE7、[表示]-[エンコード]でもUTF-8であることを確認しているのですが。。
。
度々で申し訳ないのですが、他に何か怪しい箇所がありますでしょうか？

340:デフォルトの名無しさん
07/04/23 00:49:03
#!/usr/bin/perl

my $str = '%E8%B3%AA%E5%95%8F';
(my $dec = $str) =~ s/%([a-f\d]{2})/pack 'H2', $1/egi;

print "Content-Type: text/plainl; charset=utf-8\n\n";
print $dec;

__END__

とりあえず手元だとこれで動いてる。まずは問題の発生する最小限のコードまで切り詰めてみ？

341:337
07/04/23 01:17:20
ありがとうございました！解決しました。
use open ":std";が余計でした（よく分からないのに「おまじない」で書くのは駄目でしたね）。
問題のスクリプトから上記を除いて、かつ、
自分で作って読んでいるモジュールからも上記を除きました。
本当にありがとうございます！

342:デフォルトの名無しさん
07/04/23 01:18:56
自分（↑）は>>337さんでなくって>>335でした。お目汚しでごめんなさい。
標準入出力を使わないなら、use open ":std";等は確かに不要でした。

343:335
07/04/23 03:15:36
事後報告がてら・・・
use open ":std";を外せばアンエスケープで文字化けしないものの、
今度は後続処理でUTF-8な文字を処理できないという問題がありました。

結局、以下のサイトを参照して、
URLﾘﾝｸ(naoya.dyndns.org)
use open ":std";は残したままで、アンエスケープ処理の後に
utf8::decode($str);でUTF8フラグを落とせば、
スクリプトへのUTF-8文字列の受け渡しも、後続処理も、うまく行きました。

夜更けにお答えくださって、本当にどうもありがとうございました。
これで安心して眠れそうです。

344:デフォルトの名無しさん
07/04/23 18:08:16
■　Perl言語　■　何でも質問コーナー　■
URLﾘﾝｸ(mixi.jp)
Perlに関すること、cgiに関すること
なんでも質問できるコーナーです(たとえばApacheとかでもOKとします！)
（Web系であればOK）

ルール：
Google検索で調べてわかるようなことでも質問してもOKです
（初心者のうちは、どの情報を取捨選択したらイイのかわからないと思うので）
回答してくださるかたは、暖かく質問者を迎えてやってください
o(^^o) (o^^)o

345:デフォルトの名無しさん
07/04/23 18:19:57
そのトピック自体はどうでもいいんだが
コミュニティのタイトルとか説明文が凄く気になって仕方が無い。

346: ◆TWARamEjuA
07/04/23 19:56:34 BE:3485748-2BP(6823)
コミュニティの名前
　PERL言語　CGI言語

コミュニティの説明
　perl言語 cgi言語のコミュニティです

だそうです。。。

347:デフォルトの名無しさん
07/04/24 04:11:19
Web系NGなこのスレとうまく連携していければいいですねo(^^)o

348:デフォルトの名無しさん
07/04/24 08:17:44
未だにCGIが（ｒｙ

349:デフォルトの名無しさん
07/04/24 10:36:14
ダメそうなコミュだなｗ

次ページ