Perlについての質問箱 ..
74:デフォルトの名無しさん
07/03/22 04:24:32
ご存じの方ありましたら教えてください。
掲示板に貼られる画像のサニタイジングをしたいのですが、CPANか
どこかにコードがなかったでしょうか。とりあえずJPEGとPNGだけでも
処理できたらいいのですが。
75:デフォルトの名無しさん
07/03/22 05:05:44
しかし、文字コードになるとキレる奴がいるなｗ
76:デフォルトの名無しさん
07/03/22 08:35:23
>>74 適当なモジュールでデコードしてエンコードすればいいんじゃ
77:デフォルトの名無しさん
07/03/22 08:43:35
ImageMagick
78:74
07/03/22 15:14:14
>>76-77
ありがとうございます。試してみます。
79:デフォルトの名無しさん
07/03/22 16:11:56
The GUI LoftのようなGUIデザインツールがTkにもあれば教えていただけないでしょうか？
80:デフォルトの名無しさん
07/03/22 17:12:58
$q = new CGI;
これがエラーになるのですが考えられる原因はなんでしょうか？
81:デフォルトの名無しさん
07/03/22 17:22:22
・perlのパスが違う
・useしてない
・モジュールが無い
・ブラウザで表示してるのにContentヘッダを出力してない
・脳内鯖にしかアップしてない
とりあえずエラーログ見ればいいと思う
82:デフォルトの名無しさん
07/03/22 17:44:29
use strictをはずしたら動きました
83:デフォルトの名無しさん
07/03/22 17:55:05
それはまず、なぜstrictありで怒られてたのかを考えるべきところじゃないのか?
84:デフォルトの名無しさん
07/03/22 18:03:42
っ my
85:デフォルトの名無しさん
07/03/22 18:03:46
・$qをmyしてない
86:デフォルトの名無しさん
07/03/22 18:14:19
>>82
87:デフォルトの名無しさん
07/03/22 18:28:02
いろいろな点で酷過ぎる
88:デフォルトの名無しさん
07/03/22 19:39:44
strictはずのは自殺行為
89:デフォルトの名無しさん
07/03/22 19:43:35
エラー隠蔽者には、まずエラー内容を吟味することを教えようぜ。
90:デフォルトの名無しさん
07/03/22 20:24:23
質問です。
正規表現で伸ばし棒を使うとエラーが出てしまうのですがこれを回避する方法はないでしょうか？
よろしくお願いいたします
91:デフォルトの名無しさん
07/03/22 20:25:37
伸ばし棒ってどれ。
92:デフォルトの名無しさん
07/03/22 20:26:57
ー
これです
93:デフォルトの名無しさん
07/03/22 20:27:49
これも同じ人？向こうの方がいいんじゃないかな。
94:デフォルトの名無しさん
07/03/22 20:30:15
>>90
具体的にエラーがでる正規表現と、エラーの文も書いてくれ
95:デフォルトの名無しさん
07/03/22 20:33:42
>>94
my $str = "test";
$str =~ s/ニート//;
Unmatched [ in regex; marked by <-- HERE in m/ニー <-- HERE ト
and Settings\\デスクトップ\httpd142p\test.pl line 3.
こんな感じです
>>93
>>90=>>92です
96:デフォルトの名無しさん
07/03/22 20:34:12
>>92
2バイト目が [ になってるんでperlが混乱してるんだな。
97:デフォルトの名無しさん
07/03/22 20:37:10
>>95
\Q\Eで囲め
98:デフォルトの名無しさん
07/03/22 20:40:14
>>97
！！！！！
できました！！ありがとうございます！！！
99:デフォルトの名無しさん
07/03/22 21:22:20
\Q\Eか。それ忘れてた。前それではまって、m/コピ\x{81}\x{5b}/なんてことやってた。
100:デフォルトの名無しさん
07/03/22 21:33:38
あほうは、新テンプレ通りやれよ。同じ事何度も言わせんな。
101:デフォルトの名無しさん
07/03/22 21:52:35
そうだな。
>>98は黙って>>10に書いてある通りのことをやれ。
102:デフォルトの名無しさん
07/03/22 21:53:25
シフトJISって懐かしい。
103:デフォルトの名無しさん
07/03/22 22:08:34
#!/usr/local/bin/perl
use strict;
use LWP::Simple;
use XML::Simple;
my $api = 'URLﾘﾝｸ(d.hatena.ne.jp)';
my $url = 'URLﾘﾝｸ(www.yahoo.co.jp)';
my $document = LWP::Simple::get（$api.$url）
or die "cannot get content from $url";
my $parser = XML::Simple->new;
my $data = $parser->XMLin（$document）;
print $data->{count}->{bookmark}->{content}, "\n";
URLﾘﾝｸ(www.itmedia.co.jp)
ここのサンプルなんですがエラーがでました
何が悪いのでしょうか？そんなに難しいことをやってるわけではないと思うのですが
104:デフォルトの名無しさん
07/03/22 22:40:11
なんていうエラーがどこで出たのよ?
105:デフォルトの名無しさん
07/03/22 22:45:19
HTTP 500 - 内部サーバー エラー です
106:デフォルトの名無しさん
07/03/22 22:48:42
なんでブラウザにエラーが出るわけ?
107:デフォルトの名無しさん
07/03/22 22:48:48
テンプレに
>エラーが出たらエラーをそのままコピペしろ
と入れた方がいいね。
>>105
コマンドラインで実行した結果を出せよ。出せないなら、WebProg逝き。
108:デフォルトの名無しさん
07/03/22 22:56:48
自己解決しました
コピペした括弧が全角でした
なんで括弧だけ全角なのか意味不明です
わざとなんでしょうかね
ひどいサンプルです
109:デフォルトの名無しさん
07/03/22 23:02:58
ここって初心者向けのスレなの？
110:デフォルトの名無しさん
07/03/22 23:05:47
行番号が付いてるところからも、コピペを前提とはしてない、実際に
手を動かして理解するためのコードだとは思うが、なんで括弧が半端
に全角になってるんだろうな。(9行目の2つと13行目の閉じ括弧)
111:デフォルトの名無しさん
07/03/22 23:35:37
普通の記事をいつも上げるときに使ってるスクリプトがお節介でもしたんだろう。
112:デフォルトの名無しさん
07/03/22 23:37:14
ｆｔｐで相手サーバの接続先にあるファイルのリスト（ワイルドカードで指定した名前に
一致するファイルの一覧）を配列に取得したいのですが相手サーバの設定の関係で
ｗｇｅｔとやらを使って接続しないといけません。
ｗｇｅｔの使い方は調べてみたのですが、それをPerlから実行してファイル一覧を取得
するにはどうやったらよいのでしょうか？
113:デフォルトの名無しさん
07/03/22 23:44:57
open("wget -O- $url |");
どんな内容が返ってくるかは実際に見てみれ。
114:デフォルトの名無しさん
07/03/23 00:07:22
>>74
サニタイジングなんて言ってたら高木大先生に張り倒されるぞ！
115:デフォルトの名無しさん
07/03/23 00:43:28
たいていの場合wget呼ぶよりはLWP使うほうがプログラムは楽だと
思うのだが、wget使わないと取れないってどういう仕掛けなのだろう??
116:デフォルトの名無しさん
07/03/23 02:01:06
FTPで接続だから、LWPよりもNet::FTPじゃね？
117:デフォルトの名無しさん
07/03/23 07:36:19
>>113
ありがとうございます。やってみます。
>>115-116
Net::FTPで作ってたのですがこれだと相手に繋がらなくて客先の担当の方が
「ｗｇｅｔ使ってください」とのことでした。
118:デフォルトの名無しさん
07/03/23 08:57:31
wgetでとれてNet::FTPだとだめというのもかなり不思議だな。
原因はわかってるのかな。それともwgetだと実績あるから
調べるの面倒だしそれにしとけとあしらわれたか?
119:デフォルトの名無しさん
07/03/23 09:41:38
突然ですが、xxxyyy.html というファイル名のファイルの、
全てのa要素のhref属性値をzzzwww.html というファイルに出力する方法を教えてください。
120:デフォルトの名無しさん
07/03/23 09:56:38
>>118
passiveコマンド叩けば通るとかいうオチだったりして……
121:デフォルトの名無しさん
07/03/23 10:23:13
>>119
突然だねぇ・・・
122:デフォルトの名無しさん
07/03/23 10:24:01
>>119
ググレカス
URLﾘﾝｸ(module.jp)
123:デフォルトの名無しさん
07/03/23 17:56:12
突然DOMで対抗してみたり
javascript:a=document.getElementsByTagName('a');b='';for(i=0;i<a.length;i++)b+=a[i].href+'<br>';document.write(b);
124:デフォルトの名無しさん
07/03/26 16:19:01
>>117
pasv() しても駄目か?
ファイヤーウォールがある場合は passive mode にしないと駄目なことがあるぞ。
125:デフォルトの名無しさん
07/03/28 11:20:00
初心者質問で申し訳ないのですが、perlでコロン単体にはどのような意味があるのでしょう。
リファレンスを引いても載ってないし...。
126:デフォルトの名無しさん
07/03/28 11:49:02
三項演算子?
127:デフォルトの名無しさん
07/03/28 11:54:00
>>126
下記（*）の$_の手前にあるヤツなんですが・・
# CSV形式の $line から値を取り出して @values に入れる
{
my $tmp = $line;
$tmp =~ s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;
@values = map {/^"(.*)"$/ ? scalar($_ = $1, s/""/"/g, $_) : $_} …（*）
($tmp =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g);
}
Perlメモ
URLﾘﾝｸ(www.din.or.jp)
128:デフォルトの名無しさん
07/03/28 12:05:15
どう見ても三項じゃん
129:デフォルトの名無しさん
07/03/28 12:12:49
なるほど。ありがとうございました。
130:デフォルトの名無しさん
07/03/29 01:14:28
substrで数値文字列から”001”のような文字列を切り出したいのですが、
デフォルトでは数値として扱われてしまい、1になってしまいます。
キャストの方法を調べたけど思うような情報が得られません。
もうしわけありませんが、教えていただけないでしょうか。
131:デフォルトの名無しさん
07/03/29 01:41:02
sprintfとかは？
132:デフォルトの名無しさん
07/03/29 08:07:32
>>130
ウチの環境下だと、普通に文字列認識なんだが変数かなんかに突っ込んで、
計算かましたりしてない？
% perl -le 'print substr qq{00001}, 3'
01
% perl -le 'print unpack qq{x3A2}, qq{00001}'
01
133:デフォルトの名無しさん
07/03/29 08:08:16
上げてもた…
134:デフォルトの名無しさん
07/03/29 08:27:21
文字列比較で $name == "admin" とかやってるのでは
135:デフォルトの名無しさん
07/03/29 14:13:36
+で連結してるとか。
136:デフォルトの名無しさん
07/03/29 19:40:09
$val="2007年3月29日○○の温度は20度、○○の温度は10度、○○の温度は15度";
のような文字列があった場合
○○の温度は10度の"10"を取得したいのですが、
どのように正規表現を書けばいいんでしょうか。
$value =~ /([0-9]+)/ のようにすると $1=2007 となりますが、
最大マッチしたうちのn番目を取得できたりする書き方があるんでしょうか
例がちょっとあれですが、○○には同じワードが入ることを想定してます。
137:デフォルトの名無しさん
07/03/29 19:42:39
本嫁
138:デフォルトの名無しさん
07/03/29 19:57:25
while ($val =~ /([0-9]+)/g){ push(@val, $1); }
print "$word[3]\n";
汚くなったけど、上記のようにしてなんとかできました。失礼しました。
139:デフォルトの名無しさん
07/03/29 20:08:05
まー本人がいいっていうのならいいよね(´・ω・`)
140:デフォルトの名無しさん
07/03/29 20:10:40
なにか他にやりかたあれば教えてください(つД｀)
141:デフォルトの名無しさん
07/03/29 20:28:37
３年後に自分のコードみて「俺アホやん」 と思えたら、
君は著しく成長できたということだ。
142:デフォルトの名無しさん
07/03/29 20:45:58
3年とはのんきな話だな。3ヶ月で一定のレベルに達しないなら、その人が向いてないかまたはその言語に悪意が混入されているかだな。
143:壁|・ x ・)つ○
07/03/29 22:09:20
$val =~ /(\d+)度/g
144:デフォルトの名無しさん
07/03/30 12:21:03
>>142
そんなこと言うなよ
145:デフォルトの名無しさん
07/03/30 17:55:55
コーディングテクは日々進化し続けると思うけどなぁ。
俺が還暦を迎えた頃にはスゲーことになってると思うんだ。
146:デフォルトの名無しさん
07/03/30 21:01:15
base.pmなんだけど、
sub get_fields {
() = \%{$_[0].'::FIELDS'};
return \%{$_[0].'::FIELDS'};
}
「() =」これって何してるんでしょう？
perl5.003で動作するように書き換えられないかな？
147:デフォルトの名無しさん
07/03/30 21:06:28
>>146
コメントで「『タイポじゃねーの警告』は黙れ」と書いてあるだろ。
つまりその部分は動作とは無関係。
しかし5.003とはまた随分古いバージョンだな。せめて5.005あたりにしとけよ…。
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 で \ 記号がディレクトリ名の区切りなもんだから
ダブルクォーテーションで括っただけだとエスケープと
解釈されちゃって変な文字列完成。→オープン→エラー。
そんなファイルはねえよヴォケと $! に入っている。
次ページ最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
5368日前に更新/220 KB
担当:undef