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

Perlについての質問箱 ..

116:デフォルトの名無しさん
08/10/07 12:48:52
>>114
:crlf は、0x0A を出力する時に 0x0A → 0x0D, 0x0A という置換をする。
(入力時は、0x0D, 0x0A を 0x0A に置換する)
:raw は、何の変換もしない。

おそらく data1 が 0x0D, 0x0A なテキストで、これがそのまま無変換で読み込まれ、
出力する時に <0x0D> <0x0A> → <0x0D> <0x0D, 0x0A> と変換されている。

117:デフォルトの名無しさん
08/10/07 12:58:49
>>116
なるほど、そういうカラクリですか
サンクス

118:デフォルトの名無しさん
08/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:デフォルトの名無しさん
08/10/07 18:04:49
>>111-113
>>118
サンクス
可能性としては、単なるうっかりか、次のマッチのために使っていたということっすね

120:デフォルトの名無しさん
08/10/07 18:17:13
日本で一番Perlを操れる人は小飼弾氏ですか？

121:デフォルトの名無しさん
08/10/07 18:25:49
小飼ってまだ生きてるの？

122:デフォルトの名無しさん
08/10/07 18:38:21
URLﾘﾝｸ(www.yahoo.co.jp)

↑こんなURL投稿でサイト名を取得して（タイトル内の<title>Yahoo! JAPAN</title>）を表示させるにはどうしたら良いですか？

Yahoo! JAPAN

123:122
08/10/07 18:39:41
タイトルが無い場合はURL

124:デフォルトの名無しさん
08/10/07 18:46:44
>>120
ちがうだろ

125:デフォルトの名無しさん
08/10/07 18:52:55
>>122
支離滅裂

126:デフォルトの名無しさん
08/10/07 18:55:37
URLﾘﾝｸ(www.aimix.jp)
これを改造で良いのかな？

127:デフォルトの名無しさん
08/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:デフォルトの名無しさん
08/10/07 19:42:29
$host = fff.co.jp;
print $host, "\n";

裸のワードはなんたらなので文字列ならなんとかかんとか

129:デフォルトの名無しさん
08/10/07 20:39:27
>>116を見て思ったのですが、"\n"="\x{0A}"ですか？

130:デフォルトの名無しさん
08/10/07 20:55:24
そうです

131:デフォルトの名無しさん
08/10/07 21:02:20
>>130
サンクス
一つ賢くなりました

132:デフォルトの名無しさん
08/10/07 21:29:48
>>122
scraper

133:デフォルトの名無しさん
08/10/08 12:43:37
CPANへの登録ってどういう基準？
便利でよくできてるものはどんどん登録された方がいいと思うけど、
これはえがいひとみたいのが、カスみたいのを登録しまくったら滅茶苦茶になるよね？

134:デフォルトの名無しさん
08/10/08 20:23:03
おまえでも登録できる。
単に出来が悪くて抹消というのは聞いたことがない。
Perl の人達は一般に、コードの主観的有用性に基いた恣意的な判断を嫌う。
規制の例としては、名前空間に関する暗黙のコンベンションを読み取れない子が時折出現してはかわいそうなことになっているくらいか。

135:デフォルトの名無しさん
08/10/08 21:34:31
packageとかperlってモジュール登録したバカな奴いたような気がする。
CPANテロ。

136:デフォルトの名無しさん
08/10/09 23:50:53
文字列が全角ひらがなと全角スペースと半角スペースのみで
構成されているかどうか調べる正規表現が分かりません。
先輩方。よろしくお願い致します。

137:デフォルトの名無しさん
08/10/10 00:13:44
始めましてこんばんわ。
最近までCGIのソースを見て作ってきたのですが飽きてきたので他のものに
触れたいと思っているのですが皆さんはperlでどのようなことをしていますか？
自分はソフトウェアかネットワークプログラミングをやろうと思っているのですが
(というかそのぐらいしか知らないです。)皆さんの意見を参考にもし面白そうなの
があればやってみようと思ってます。
ただCGや音楽、ゲームはなしの方向でお願いします。

138:デフォルトの名無しさん
08/10/10 00:22:17
まず日本語のお勉強をしましょうね。

139:デフォルトの名無しさん
08/10/10 01:36:24
始めましてこんばんわ。
最近までCGIのソースを見たり、書いたりしてきたのですが飽きてきてしまったので
他のものにも触れてみようかなと思っているのですが皆さんはperlでどのようなことをしていますか？
自分はソフトウェアかネットワークプログラミングをやりたいと思っているのですが
皆さんの話を参考にもし面白そうなのがあればそれらも検討しようと思っております。
ただCGや音楽、ゲームはなしの方向でお願いします。
こんな感じでよろしいですか？

140:デフォルトの名無しさん
08/10/10 06:06:59
日本語でおk

141:デフォルトの名無しさん
08/10/10 09:13:09
えぇ。いい加減もったいぶらず教えてください。
そんなに日本語変ですか。

142:デフォルトの名無しさん
08/10/10 09:30:14
「ソフトウェア」の意味がわかってないので変てこになっているのか?

143:デフォルトの名無しさん
08/10/10 10:00:42
何を始めたんだろうっていう疑問が、一行目でいきなり来るけどな。

144:デフォルトの名無しさん
08/10/10 10:08:06
>>141
ソフトウェアはソフトウェアプログラミングのことを言ってます。
>>143
そこは変換ミスなのでスルーしてください。
本当はその漢字が正しいと勘違いしていただけですが。

145:デフォルトの名無しさん
08/10/10 10:23:20
>>144
> ソフトウェアはソフトウェアプログラミングのことを言ってます。

じゃあ、「ソフトウェアプログラミング」の中の「ソフトウェア」の意味は?

146:デフォルトの名無しさん
08/10/10 10:47:54
>>145
アプリケーションソフトなどのことじゃないのですか？

147:デフォルトの名無しさん
08/10/10 11:00:01
アプリケーションソフトとは？
って話になるだろ・・・

148:デフォルトの名無しさん
08/10/10 11:09:22
>>147
そんなことを聞いてどうするつもりですか？
なぜあなたがそんなことを細かく聞いてくるのか自分には理解が出来ない
のですが？
ソフトウェアプログラミングのソフトウェアがアプリケーションソフト以外の
ものをさすならわかりますがそれで間違いないならこれ以上追及する意味が
ないと思うのですが？

149:デフォルトの名無しさん
08/10/10 11:16:22
ソフトウェアをやりたい
アプリケーションソフトをやりたい
ってどういうことやねんってことでしょ

150:デフォルトの名無しさん
08/10/10 11:29:51
じゃあ、インクリメンタルサーチ可能な全文検索システム作ってちょ。

151:デフォルトの名無しさん
08/10/10 11:33:45
たぶん
「デスクトップアプリケーションを作りたい」
では・・・

152:デフォルトの名無しさん
08/10/10 11:38:46
>>148
君がやりたい内容が理解できないから
掘り下げて聞いているのですよ。
ソフトウェアでもアプリケーションソフトでも、意味が広すぎる

153:デフォルトの名無しさん
08/10/10 11:47:51
自分が聞きたいのはソフトウェアプログラミングの内容ではなくて
皆さんがperlでどんなことをやってるかなのですが・・・？

154:デフォルトの名無しさん
08/10/10 11:58:13
いろいろ

155:デフォルトの名無しさん
08/10/10 12:01:47
オナヌー

156:デフォルトの名無しさん
08/10/10 12:08:17
>>153
「どんなこと」も広すぎるから、方向性を絞り込む為に「やりたいこと」を参考にしたいのだが
そのやりたいこともよくわからないので掘り下げてみた

エロ動画サンプルを自動巡回DLオススメ

157:デフォルトの名無しさん
08/10/10 12:19:58
あとはエロ画像の重複チェックとかかな。
md5ハッシュとファイルサイズを持っておいて、この2つでチェックすれば
まぁほぼ確実な精度で重複する画像が見つけられるだろう。

158:デフォルトの名無しさん
08/10/10 12:27:14
・エロ画像巡回収集、サムネイル生成、整理
・エロ動画巡回収集、解凍、整理

自分の場合はこんな感じ。いつも思うことだけどPerlの用途は幅広いね。

159:デフォルトの名無しさん
08/10/10 13:20:15
それPlaggerでできるよ!

160:デフォルトの名無しさん
08/10/10 13:38:48
エロは偉大だなｗ

161:デフォルトの名無しさん
08/10/10 14:00:04
Perlだと2ちゃんブラウザとかトリップ解析とか人工無脳とか作った

162:デフォルトの名無しさん
08/10/10 14:02:18
自宅でgoogleを作った

163:デフォルトの名無しさん
08/10/10 14:03:22
なんだそれは

164:デフォルトの名無しさん
08/10/10 14:43:01
実行環境のIPとSubnet Maskを取得する方法を
教えてください。

ifconfig/ipconfigで調べることはできるんですが、
ひょっとするとモジュールがあるかも、と思いました。
ググったら、Net::Netmaskモジュールを見つけたんですが、
これは違いました。

わかるような情報を

165:デフォルトの名無しさん
08/10/10 14:48:32
>>163
おっと、「自宅でgoogle」を作った。な。

ウェブブラウザのアクセス追跡やその他SBMや優秀なリンクリスト系ブログから
URLをかき集めてクロリングクロリング。ず～っと16KB/secのバンド幅でかき集め
続けている。

166:デフォルトの名無しさん
08/10/10 14:52:39
>>164
つNet::Interface

167:デフォルトの名無しさん
08/10/10 14:53:24
>>164
ええと…… 言周言周言周 ……Net::Interfaceはちがう?

168:デフォルトの名無しさん
08/10/10 16:38:13
Perol

169:デフォルトの名無しさん
08/10/10 16:47:44
オマエらこういう質問に無視しないでマジメに答えてやれよ。

>>136
^(?:\x82[\x9F-\xF1]|\x81[\x4A\x4B\x54\x55]|\x20|\x81\x40)+$
これでどうだろうか？
でも、スペースがあると何かと厄介だよな。
フォームとかで使う事を考えると、スペース削除して目的達成できるなら
事前に半角全角スペース全削除して平仮名だけチェックするのがイイと思う。

170:デフォルトの名無しさん
08/10/10 16:57:45
>>169
> オマエらこういう質問に無視しないでマジメに答えてやれよ。

自分は人々より高い位置にいるという自己認識を露わにしながら
出現する人ってなんなの?

171:デフォルトの名無しさん
08/10/10 17:19:30
「マジメに答えてやれよ」ってのは、皆答えることができるってのが前提だから、
別に自分を「人々より高い位置にいる」とは認識してないのでは。

誰も答え「られない」が、俺だけは答え「られる」って構図を出してきたんなら、
まぁ、確かにそういう気位を感じなくもないが。

172:デフォルトの名無しさん
08/10/10 17:25:33
本当に質問に答える気なら、まず最初に「エンコーディングは？」って
質問返ししなきゃならんし、面倒臭いしスルーしてた。
文字コードSJIS決めつけで答えてるし、どっかのページのコピペでしょ。
もしかしたら、質問者本人の煽りレスかもね。

173:デフォルトの名無しさん
08/10/10 17:26:17
>>169
司令官が出現しました!!

174:デフォルトの名無しさん
08/10/10 17:51:42
unicode文字列にデコードされている前提で、

/^[ 　\p{Hiragana}]+$/

でいいんじゃね?

'['のあとの2文字は半角スペースと全角スペース。

175:デフォルトの名無しさん
08/10/10 20:27:16
プログラミングPerlって2000年発行でちょっと古い気がするのですが、それでも買いですか？

176:デフォルトの名無しさん
08/10/10 20:55:28
即答かコード一行書いて終わりみたいな質問なら答えやすいよね。

>>175
買って損はない

177:デフォルトの名無しさん
08/10/10 20:58:11
>>176
サンクス
買ってみます

178:デフォルトの名無しさん
08/10/10 21:16:28
>>177
バージョン5.6がベースだからunicodeとスレッド関係は要注意。
この２つは5.8以降で互換性が無くなってるからあくまで参考に留めるべし。
5.8以降のunicodeの扱いはwebで検索した方が良い。

179:デフォルトの名無しさん
08/10/10 21:27:50
>>178
了解しました

180:デフォルトの名無しさん
08/10/10 21:50:48
175の人は「perldocがあるからラクダ要らない」説もあることを頭に入れとくといいかもしれないよ。

自分は2002年にラクダ和訳が出てすぐ「欲しかったから」買ったんだけど
純粋に実用面だけを考えたら、他人に「買って損はない」とまでは言えないな。

181:デフォルトの名無しさん
08/10/11 00:07:45
２ちゃんねるがあればマニュアル本を買う必要は無いだろ

182:デフォルトの名無しさん
08/10/11 01:53:16
>>180のオススメのPerlの本は何？

183:デフォルトの名無しさん
08/10/11 02:01:32
本は要らない

184:デフォルトの名無しさん
08/10/11 09:06:11
プログラミングPerlよりPerlクックブックの方が役に立つと思う。

185:デフォルトの名無しさん
08/10/11 09:17:50
今プログラミングPerl久しぶりに開いてみたら・・・

訳出作業に使用した作業環境
IBM ThinkPad 535(Pen120MHz 40MB HDD2GB)
FreeBSD2.2.1+PAO Mule2.3

186:デフォルトの名無しさん
08/10/11 09:23:21
元々料理本はラクダの一部じゃん。
だから、説明に欠落がある。

187:デフォルトの名無しさん
08/10/11 15:46:11
>>137
ソフトウェアってのはハードウエアではないあらゆるものを指すわけで、あなたが飽きてきたっていう
「CGIプログラム」だってソフトウエアです。家電のプリント基板に入っている組み込み系もソフト
ウエアですし。だからみんな「ソフトウエアがやりたい」って、何がやりたいの? と訊いてる訳です。
…てなことは説明しなくてもわかって欲しいのですが。
Windows上で動くGUIなプログラムのことなんですかね…。perlでも書けなくもないですね。
でも結局WinAPIをいじるから、そっちの知識がないと書けないですし。VBやVCという言語がある
ってことくらいは知っててもいいと思います。なでしこってのもあるよ。
そもそも、プログラムの形態とか言語についてあれこれいう前に、作ったプログラムで何がやりたいか、
を具体的にイメージできないと、モチベーションを維持するのは難しいと思います。私の経験上
そうです。何か作りたいものがあって取り組むのが一番上達が早いです。
私はCGI屋なんで、その立場から言わせてもらうと、CGIだっていつまでも奥が深くて、飽きるなんて
ことはないですよ。できることはたくさんあるし、やりたいことも尽きません。

188:デフォルトの名無しさん
08/10/11 16:29:55
ネタに亀レス(w

189:デフォルトの名無しさん
08/10/11 17:31:11
なんだこの珍問答

190:デフォルトの名無しさん
08/10/11 17:48:10
どうかおめこ干しを

191:デフォルトの名無しさん
08/10/12 22:15:11
>>187
ということはプログラムのほとんど、またはすべてはソフトウェア
プログラミングということでしょうか？もしそうなら皆さんごめんなさい。
確かにそれなら自分の質問に答える前につっこまれるのが普通だと思います。
それとCGIですごい大きいものを作ったわけでもないのに飽きたと言ったのは偉そうに
言い過ぎました。すみません。
自分が言っているソフトウェアプログラミングはメモ帳やエクセルなどの
デスクトップアプリケーションのことです。
自分がまだプログラムを始めたての頃、作りたかったのがCGIというかチャットや掲示板だったんです。
プログラムを始めた時は頭が今よりも悪く(今もよくないですが)学校が忙しいのもありましたが
意味不明なことをしていて結局CGIに取り掛かるのに1年かかってしまいました。
ただ作ってみたら結構簡単だし同じような処理が多いので楽しいよりめんどくさい
の気持ちが強くなってしまい他の作ってみたいなという気持ちが出てきたので
前の質問に至りました。
ただ自分はパソコン歴自体長くなく知らないことも多いので
もしかしたらすごい楽しいCGIのプログラミングがあるのかもしれませんね。
検索サイトやデータベースはあまり興味ないですが。
長々とすみません。

192:デフォルトの名無しさん
08/10/12 22:25:09
アルファがベータをカッパらったらイプシロンした

まで読んだ。

193:デフォルトの名無しさん
08/10/13 06:14:15
>>191
まず周囲の空気を読む事から覚えろw

194:デフォルトの名無しさん
08/10/13 08:27:19
>191
用語や用法のミスはあまり問題ではない。
まずは相手に伝える努力をしろよ。

195:デフォルトの名無しさん
08/10/13 09:33:28
>>194
> 用語や用法のミスはあまり問題ではない。

用語や用法の決めつけをあらゆるレベルでやっているのを見て、
みんな真面目に対応するのをやめたのだと思う。

196:デフォルトの名無しさん
08/10/13 10:59:33
入門書くらい読め

197:デフォルトの名無しさん
08/10/13 12:32:51
>>196
結局それに尽きる

198:デフォルトの名無しさん
08/10/13 15:09:20
>>193 >>195
まったくそのとおりです。
>>196
確かに前に読んだ本に書いてあったような気がします。

199:デフォルトの名無しさん
08/10/13 18:03:06
>>175
いわゆるラクダ本はPerlを基軸言語にしたいというやつ以外、不要。
内容的に古いし、プログラミングの基本が学べるわけでもない。
そんなもんに金と時間使うなら、自分本来の得意分野を伸ばすことに時間を使え。

どうしてもってなら下巻だけ買っとけ。

200:デフォルトの名無しさん
08/10/13 20:41:17
リャマ本と続リャマ（動物の名前忘れた）は、単純に読み物として楽しめた。

201:デフォルトの名無しさん
08/10/13 21:33:58
>>200
アルパカな
＞単純に読み物として楽しめた。
たしかにそうだが正直なところ
ああいう欧米系ジョークを交える書き方は
日本人には難しそうだ

202:デフォルトの名無しさん
08/10/13 22:20:19
>>201
確かに。

-------------------------
C++をを設計したストラウストラップの教本
　　↓
smalltalkの「メッセージ」を真似して「std::cout << "Hello, world!" 」なんて書けるようにしました。てへ。
　　↓
<< がCのビット演算子とかぶってるって？
しかも厳密な意味では演算子オーバロードですら無いって？
知ったこっちゃないね。重要なのは「メッセージ」だって言ってるだろ！
　　↓
最初の１０数ページ以降「メッセージ」の概念が無くなってるって？
あーいいのいいの。これオブジェクト指向とやらを無理矢理実装した俺様仕様だからさ。気にすんなって。
-------------------------

おいらがC++を見限ったのは、このお笑いのツボが理解できなかったからだとさ。

203:デフォルトの名無しさん
08/10/13 22:24:33
リャマ本の第5版って翻訳されないのかな？

204:デフォルトの名無しさん
08/10/14 04:10:35
最近データーベースの勉強をしてるんだが、
perlのソースコードを一行一行、一行づつ全部
データーベースに格納したら面白いかな？
と考えたんだが、どうだろうか？

205:デフォルトの名無しさん
08/10/14 05:27:51
>>204
ストラウストラップ教本の方がまだ面白い

206:デフォルトの名無しさん
08/10/14 06:11:35
google code search以上の物が出来るとは到底思えない

207:デフォルトの名無しさん
08/10/14 09:55:11
>>204
インクリメンタルに検索できるやつにしてね。

208:164
08/10/14 13:48:50
>>166、>>167
レス、ありがとうございます。
モジュール名を聞くとド真ん中な感じですが、
自分では見つけられませんでした。。。

Net::InterfaceモジュールをCPANからダウンロード
して試してみました。

常用しているActivePerl5.8@Winにインストール
しようとしたところ、残念ながらうまくいきませんでした。
ちょっとソース（siteconf）を覗いたんですが、どうやら
UNIX系専用のようですね。超残念。

別環境として、Perl5.6@UNIX系もありましたので、
そこでインストールしてみると、ちゃんとインストール
できました。
スクリプトを書いて動作確認したところ、たしかに
期待どおりの情報（IP、Subnet Mask、MACアドレス）を
取得することができました。

本稼働はUNIX系で行うつもりだったので、これで
充分ではあるのですが、できればWindows環境でも
実行したいです。

Windows環境で同様の情報を取得する方法は
ないでしょうか？

209:デフォルトの名無しさん
08/10/14 14:01:48
Net::Ifconfig::Wrapper - provides a unified way to configure network interfaces on FreeBSD, OpenBSD, Solaris, Linux, OS X, and WinNT (from Win2K).

はどうかな。説明文を読む限りでは使えそうだが試したことはない。

210:デフォルトの名無しさん
08/10/14 22:25:58
XMLをあつかいたくて

use XML::Tidy;
my $tidy = XML::Tidy->new($_);

とやっております。
このとき、不完全なXMLのときは、mismatchエラーが発生しますが、
これを無視して、可能な限りXMLを解釈して読み込むことはできないのでしょうか?

バージョンは
perl : v5.8.8
XML::Parser : 2.34
XML::Tidy : 1.2.54HJnFa
です。

211:デフォルトの名無しさん
08/10/14 22:41:55
XML::Tidyじゃなくなるけど、
XML::Liberal+XML::LibXMLなんて組み合わせは？

212:デフォルトの名無しさん
08/10/14 23:18:27
>>211
ありがとうございます。
試してみます。

213:デフォルトの名無しさん
08/10/15 12:54:22
古いPerlのコードで
&jcode'convert(*title,'jis');
というコードがあったんですが、これってどういう意味ですか。
&jcodeのあとの「'」がわかりません。

214:デフォルトの名無しさん
08/10/15 12:59:01
>>213
URLﾘﾝｸ(www.kt.rim.or.jp)

> 古いパッケージ区切り子はシングルクォートでしたが、
> 現在はダブルコロンを使うのが推奨されています。

> 古い構文も互換性のためにまだサポートされているので、
> "This is $owner's house"のようにすることもできます。
> これは$owner::sをアクセスします。

215:デフォルトの名無しさん
08/10/15 15:14:35
>>210
それがDOMを構築しようとするものなら、
エラーが出るのはどうしようもないのでは。

かわりにSAX系のパーサーを使えば？
XML::Parserとか。
それなりにめんどくなりそうだけど。

216:デフォルトの名無しさん
08/10/15 16:47:01
ｽﾚﾘﾝｸ(prog板:168番)
この人小学生からperlやってるってよ

217:デフォルトの名無しさん
08/10/15 18:05:05
>>214
さんくす
Perlの古い書き方だったんですね

218:デフォルトの名無しさん
08/10/15 20:12:37
Perlに古いも新しいもない。

219:デフォルトの名無しさん
08/10/15 21:21:12
そうですね。
>>217で書いてるのはPerlの書き方が古いか新しいかですけどね。

220:デフォルトの名無しさん
08/10/16 00:57:28
律儀な人ね

221:デフォルトの名無しさん
08/10/17 01:04:15
クロージャーって意味がわからんな
カンタンに説明してくれないか？

222:デフォルトの名無しさん
08/10/17 03:29:24
自分で調べようともしないお前に誰が教えるもんか！

223:デフォルトの名無しさん
08/10/17 03:41:29
無名の関数ですね＾＾

224:デフォルトの名無しさん
08/10/17 12:54:52
>>221
エロ画像フォルダで実感しろ。…普通に object 指向で書く方が楽だ罠。
use File::Find ;
use Data::Dumper ;
use Cwd ;
my $outer = sub{ return 1 if !( -d and /.[.][^.]*?$/) ; $File::Find::prune = 1 ; return ; } ;
my %hash ; my %hash2 ;
my $inner = sub{ return if ! m{\.(?:jpg|bmp|png|gif)$} ; $hash{$File::Find::name} = -s $_ ; } ;
my $inner2 = sub{ push @{$hash2{ uc unpack q{A7}, $_ }}, $File::Find::name ; } ;
my $code = sub {
　my $outer = shift ;
　sub { # コレが closure
　　my $inner = shift ;
　　sub { return if ! $outer->() ; $inner->() ; }
　}
};
my $base = $code->( $outer ) ;
find $base->($inner), getcwd ;
find $base->($inner2), getcwd ;
print Dumper \%hash, \%hash2 ;

225:デフォルトの名無しさん
08/10/17 12:55:36
>>223
違うとマジレス。

ちゃんとした説明はなかなか大変だよなー。

226:デフォルトの名無しさん
08/10/17 14:09:39
>>221
URLﾘﾝｸ(www.kt.rim.or.jp)

227:デフォルトの名無しさん
08/10/17 19:05:02
スカラー変数の中身の種類（文字列とか、配列のリファレンスとか）を
調べるにはどうしたらいいですか？

228:デフォルトの名無しさん
08/10/17 19:11:14
ref

229:デフォルトの名無しさん
08/10/17 19:13:16
>>227
ref

230:デフォルトの名無しさん
08/10/17 19:22:50
>>228-229
ｻﾝｸｽ

231:デフォルトの名無しさん
08/10/17 21:30:11
モジュールのバージョンをまとめて上げたら
MechanizeでBASIC認証がなぜか出来なくなった…
UserAgentオーバーライドしてもcredentialsでもだめ
URLﾘﾝｸ(id:pass@hoge.com)とかやると繋がるけど…
何が悪いんだろう…
同じような人が居たらヒントでもいいんで教えてもらえると有難いです。。

232:デフォルトの名無しさん
08/10/17 21:36:23
>>231
デバッグフラグ立てて動作トレース

233:デフォルトの名無しさん
08/10/17 21:48:51
>>232
ありがとうございます。
やってみます。m(_ _)m

234:231
08/10/18 00:02:44
Basic.pmで初期化されていない値云々というメッセージがでるので
LWP/Authen/Basic.pmのauth_headerにある「$user, $pass」に
試しに値を入れてみたら問題なく繋がった
LWPでauthorization_basicを試してみたら此方も問題なく成功
Mechanizeでもauthorization_basicを呼び出すようにしたら此方も成功

吊ってきます…

235:デフォルトの名無しさん
08/10/18 11:04:50
Linux 上で MS word の *.doc ファイルを読み出したいんですが、何かいい方法はありますか。
Spreadsheet::ParseExcel みたいなのがないかと CPAN を探したのですが、見当たりません。

236:デフォルトの名無しさん
08/10/18 11:39:28
『LinuxでWord文書をテキストファイルに変換するには』
URLﾘﾝｸ(www.atmarkit.co.jp)

Antiword is a free MS Word reader
URLﾘﾝｸ(www.winfield.demon.nl)

OpenOffice.org
URLﾘﾝｸ(ja.openoffice.org)

237:デフォルトの名無しさん
08/10/19 06:50:02
>>236
有難うございます。やはり、perl から呼べるものはないようですね。
文書全体の読み出しだけでなく、「XXページにXXX があったら、XX+n ページに対応するXXXXがあるかチェックする」といった処理もできれば、
と思っていたのですが。それにしても Spreadsheet::ParseExcel は偉大だ…

238:デフォルトの名無しさん
08/10/19 07:26:47
ハッシュが詰まった配列から、一つずつ取り出して各々に処理をしたいんですがforeachじゃ出来ませんでした。
何か良い方法ありますか？

239:デフォルトの名無しさん
08/10/19 12:05:47
while each

240:デフォルトの名無しさん
08/10/19 12:11:04
foreachで出来るだろ？

241:デフォルトの名無しさん
08/10/19 12:27:00
>>238
そういう意味じゃないんです…

>>240
foreach %hoge (@fuga)としたら、syntax error at Z:\script\test.pl line 9, near "foreach %hogeって言われました

242:デフォルトの名無しさん
08/10/19 12:36:10
foreach $hash_ref (@foo) {
$hash_ref->{bar}
}

243:デフォルトの名無しさん
08/10/19 12:40:57
それは…リファレンスですか？
試してみたら通りました。回答ありがとうございました

244:デフォルトの名無しさん
08/10/19 12:43:16
そもそも「ハッシュが詰まった配列」と君が呼んでいるものの正体が
「ハッシュのリファレンスが詰まった配列」だから。
foreachで一つ一つ取り出す時も、当然それをリファレンスとして扱わなきゃダメ。

245:デフォルトの名無しさん
08/10/19 12:50:50
……難しいorz
適当に入門サイト眺めただけだとやっぱり駄目ですね、今度らくだ本買ってじっくり読むことにします

246:質問
08/10/19 16:56:31
ファイルに書き込まれている特定の文字列(ABC数字）を抽出するにあたってよい方法はありますか？

・取得したい文字列の例は、ABC+数字で構成される　たとえばABC11やABC2543など
・ファイルによっては行数が異なる。
・各行に取得したい文字列は０個以上ある。
・各行で、取得したい文字列が位置する場所はさまざま。（先頭にあったり、途中にあったり、）

247:デフォルトの名無しさん
08/10/19 17:00:19
>>245
本も良いがまずは perldoc に当たる習慣を付けた方がいい。
メジャーなドキュメントなら和訳も web を探せばある。

URLﾘﾝｸ(perldoc.jp)

URLﾘﾝｸ(fleur.hio.jp)

URLﾘﾝｸ(homepage3.nifty.com)

248:デフォルトの名無しさん
08/10/19 17:10:30
>>246
ふつうに1行ずつ読んでパターンマッチして切り出していけばいいだけ。

249:質問
08/10/19 17:20:17
>>248
各行に０～数個（決まりはないけど最大10程度）あるので・・
if($_=~/ABC(\d+))/)
なら1つは取得できても、その他の文字列をどうやって取得すればいいのか・・

ファイルの例）
マツダ　スバル
ABC111 ABC23 トヨタ
日産本田 ABC2222

↑ここからABCxxxの文字列だけ抽出したい

250:デフォルトの名無しさん
08/10/19 17:26:11
>>249
マニュアル見れ

251:デフォルトの名無しさん
08/10/19 17:27:06
>>249
必要な数だけパターンマッチして切り出していけばいいだけ。

252:デフォルトの名無しさん
08/10/19 18:32:45
マニュアル読まないヤツ大杉

>>241
>foreach %hoge (@fuga)
こんな無茶な構文あり得ないだろ

>>249
パターンマッチのオプションを調べれ

253:デフォルトの名無しさん
08/10/19 20:46:49
>>249
# 一行ヒント野郎
perl -nle "$, = ' '; print $., /ABC\d+/g" < ファイル名

254:デフォルトの名無しさん
08/10/21 23:09:08
いくつか教えてください。
Perlでブログ（RSSつき）みたいな機能って作れますか？
あと家計簿なんかも作れますか？

今勉強中なんですが、目標が無いと挫折しそうなんです(^^;)

255:デフォルトの名無しさん
08/10/21 23:10:53
>>254
おまえならやれる。

256:デフォルトの名無しさん
08/10/21 23:29:51
Perl単体じゃあ家計簿は無理じゃない？
Perl/Tk使うのかな。

257:デフォルトの名無しさん
08/10/21 23:56:14
>>256
っ[Web]

258:デフォルトの名無しさん
08/10/22 00:32:22
PerlMagickを使って画像を編集したいのですが、
$image_dataに画像データが入っていて、それを読み込み/編集/書き込みたい場合はどうやったらいいのでしょうか？
$image->Read($image_data);
$image->Flip;
$image->Write($image_data);
のようなことです。

259:258
08/10/22 00:53:16
↓で出来ました。スレ汚しすいませんでした。
my $image = Image::Magick->new(magick=>'gif');
$image->BlobToImage($image_data);
$image->Flip();
$image_data = $image->ImageToBlob();

260:デフォルトの名無しさん
08/10/22 13:06:56
家計簿なんてExcelでいいじゃん

261:デフォルトの名無しさん
08/10/23 00:28:09
>>256
> Perl単体じゃあ家計簿は無理じゃない？

確かにそうだな。まともなシェルが必要だ。

262:デフォルトの名無しさん
08/10/23 01:44:57
>>260
俺も最初そう思ったんだが、Excelは結局馬鹿だし、Excel用アドイン作ってる連中も馬鹿だから以下のようにした。

・入力はExcel
・Perl＋Spreadsheet::ParseExceでウハウハ
・Perlで計算
・Perl＋LaTeX系モジュールで帳票自動生成＆改ページ自動編集＆印刷

これで８年くらい確定申告の提出書類を作成してる。
いまだに国税庁のマルサは来ない。
まー奴らは俺みたいな貧乏人はスルーしてるだけだがｗ

263:デフォルトの名無しさん
08/10/23 20:36:56
URLﾘﾝｸ(www.google.com)

pythonにも負けてる（藁

264:デフォルトの名無しさん
08/10/24 14:43:04
PerlでCのプリプロセッサのように#ifdefでコンパイルするコードを切り替えたりとかってできませんか？

265:デフォルトの名無しさん
08/10/24 14:50:59
>>264
できる

266:デフォルトの名無しさん
08/10/24 14:58:18
>>264
つ-Pオプション

でもいろいろ問題あるから使わないほうがいいよ。
最終的に何をしたいのかわからないが、たいてい
使わないでできるもっといい方法がある。

267:デフォルトの名無しさん
08/10/24 23:33:04
perlでアパッチのアクセスログを振り分けるってできる？

268:デフォルトの名無しさん
08/10/24 23:35:36
きみの能力しだい。

269:デフォルトの名無しさん
08/10/24 23:38:16
>>267
もちろんできる。できない理由はない。

270:デフォルトの名無しさん
08/10/24 23:45:05
おまえらにやらせようと思ったんだけど、コード書く？

271:デフォルトの名無しさん
08/10/25 01:24:17
>>270
そういうときは、報酬も書いておくと話が早く進むぞ。

272:デフォルトの名無しさん
08/10/25 01:59:01
じゃあ1円

273:デフォルトの名無しさん
08/10/25 07:03:27
進まねぇよ

274:デフォルトの名無しさん
08/10/25 14:56:52
Perlで線形リストのようなデータの持ち方をしたいのですが、
どうすればいいでしょうか？
a->b,c　a->b->d,e　a->c->f,g
のような感じです

275:デフォルトの名無しさん
08/10/25 16:02:27
リファレンス使えばいいのでは？

276:デフォルトの名無しさん
08/10/25 16:17:22
あるいは古式ゆかしく配列を使うか

277:デフォルトの名無しさん
08/10/25 22:40:17
UNIXマシンからとある機器arielに対してtelnetセッション
をはりっぱにし、arielから吐かれるメッセージをローカル
のディスクにロギングしたいとです。。。

arielの仕様では、無通信時間5分でtimeoutになるので
5分毎に"\n"を送信しようと思います。

自分の頭では以下の様に、whileループでarielからのデータ
を待ち続けるロジックしか思いつかず、これでは5分毎の
"\n"送信をどうして行えばよいのか解りませんとです。

エロい方、なんとか教えてください。。。

open (OUTLOG,">>./ariel.log");

$socket = IO::Socket::INET->new(
　　PeerAddr => 'ariel',
　　PeerPort => '23',
　　Proto　　=> 'tcp',
);

if ( ! $socket ){ die }

while(1){
　　$buf = <$socket>;
　　print OUTLOG $buf\n";
}

278:デフォルトの名無しさん
08/10/25 23:08:28
>>277
とりあえずNet::Telnet使えば?

279: ◆TWARamEjuA
08/10/25 23:10:30
cronで5分ごとに\nを送信してあげる別プロセスを作っておく。

280:デフォルトの名無しさん
08/10/25 23:49:42
レスあんがあちょです

>>278
Net::telnetは

　@result = $telnet->cmd("ls -l");

の様な使用例しか無いので、>>277のケースではどうかなーって思って

>>279
別プロセスでなく、同一セッション中で"\n"送らないとダメな気がします
って、んん？別プロから何かシグナルをこのプロセスに対して5分間隔
送ればいいのかぁーー！？　そんなのできるんかな、調べてみよう

281:デフォルトの名無しさん
08/10/25 23:56:55
>>280
シグナルハンドリングを知っているなら、alarmで起こせばいいだろ。

282:デフォルトの名無しさん
08/10/26 00:29:26
>>281
おおっ！何と言うことでしょう。
なんだか出来そうな予感がしてまいりました。
月曜に会社行くのが楽しみになってきたｗ
ヒントあんがちょ。多謝です。

こんなカンジかな？

略～

$SIG{ALRM} = \&timeout;　# timeout時の￥に実行する関数
alarm 280;　　　　　　　#　5分=300秒より小さい値でアラーム

while(1){
　　$buf = <$socket>;
　　print OUTLOG $buf\n";
}

sub timeout {
　　print <$socket> "\n";　#　待望の"\n"送信！！
　　alarm 280;　　　　　　#　アラーム再設定
}

283:デフォルトの名無しさん
08/10/26 15:29:24
手元のIMAP鯖からGMailにメールを引っ越すスクリプトを書いてます。

Mail::IMAPClientベースで書いていたのですが、

$from->migrate($to, "ALL", "OUTBOX") or die "Could not migrate: $@ \n";
この行で手元サーバからGMailへメールを移行しようとしても、移行できていないようです。
$from は手元サーバ, $to はGMailです。GMailへの接続login自体はうまくいっているようです。
OUTBOXラベルはGMail側で作って、IMAPから見えるように設定済みです。

アドバイスいただけますでしょうか？

284:デフォルトの名無しさん
08/10/26 16:12:50
>>283
自己解決。migrateを使うのを諦めて、appendとfetchで処理しました。
お騒がせスマソ。

285:デフォルトの名無しさん
08/10/26 17:43:20
通常、文字列の頭から適用される正規表現を後ろから見る方法はないでしょうか？

例えば、以下のように行った場合、
---------------------
my $str = 'a b c d';
$str =~ s/ //;
---------------------
a直後のスペースが消えますが、cの後ろのスペースを消すような正規表現は出来ないでしょうか？
abcdといった文字列は可変です。
事前に文字列を反転させるしか思い浮かばないのですが他に方法はあるのでしょうか？

宜しくお願いします。

286:デフォルトの名無しさん
08/10/26 17:45:23
$str =~ s/(.*) /\1/;

287:デフォルトの名無しさん
08/10/26 20:37:58
>>286
ありがとうございます！！

288:デフォルトの名無しさん
08/10/27 15:12:37
Perl のオブジェクト指向がなんだか無理矢理って感じで、
直感的じゃなくて困っています。Pythonにしとけばよかた。

289:デフォルトの名無しさん
08/10/27 15:30:10
>>288
うん、とっととPerlのことを忘れてPythonに移れ。

290:デフォルトの名無しさん
08/10/27 15:37:36
おれなら、
$str=~/ ([^ ]*?)$/$1/;

どっちでもいいんだけど、>>286と比較したら
どっちの効率がいいんだろう？

291:デフォルトの名無しさん
08/10/27 16:00:31
A.cgiにAformからアクセスしたときと、Bformからアクセスしたときで処理内容を変えるようなプログラムにするにはどうしたらいいですか？
Aから来たときはロケーション無し、Bからなら有り　のような感じにしたいのですが

292:デフォルトの名無しさん
08/10/27 16:06:30
リファラー見るとかhiddenで何か持たせるとかボタン名変えるとか

293:デフォルトの名無しさん
08/10/27 16:28:05
>>291
次のどっちかで区別できる。
環境変数HTTP_REFERER
INPUT(TYPE=HIDDEN)要素

でもこれ、Perlの質問じゃないのでスレ違い。
Web系のとこにいけ。

294:デフォルトの名無しさん
08/10/27 17:06:45
>>292-293
ありがとう、試してみます
そして、移動してログよんできます
ごめん

295:デフォルトの名無しさん
08/10/27 22:05:58
$str =~ s/ (?=[^ ]*$)//;
とか

296:デフォルトの名無しさん
08/10/28 09:09:50
>>295
先読みアサーションか。そういえばあったなー。
新しいせいか慣れないせいか、オレはどうしても忘れがち。

297:デフォルトの名無しさん
08/10/28 16:53:15
質問です。
クラスA
クラスB
それぞれのオブジェクト指向モジュールがあったとします。
なかでの処理には変数が英数をチェックしたり文字数チェックしたりでエラーを
だすようにしるとします。

で、問題は英数や文字数をチェックするルーチンはどう実装するのが理想でしょうか？
簡単なルーチンだからそれぞれのクラスにサブルーチンとして最後の行にでも書いておけ！
っていうことでもいいでしょうか？

298:デフォルトの名無しさん
08/10/28 17:56:07
日本語で

299:デフォルトの名無しさん
08/10/28 20:45:57
>>297
URLﾘﾝｸ(fleur.hio.jp)
URLﾘﾝｸ(perldoc.jp)
URLﾘﾝｸ(perldoc.jp)
>>2

300:デフォルトの名無しさん
08/10/28 23:19:11
Tripletailを使用しています。
下記のように前のページからPOSTデータを取得してTemplateに書き出したいのですが、うまく行きません。
どう修正すればよいでしょうか？

#! /usr/bin/perl

use strict;
use warnings;
use Tripletail qw(/dev/null);
use CGI;

$TL->startCgi(
-main => \&main,
);

sub main {
my $t = $TL->newTemplate('template.html');
my $cgi = CGI::new();

#前ページからPOSTデータの取得
$a = $cgi->param('a');
$b = $cgi->param('b');

$t->expand(
STR => $a,
NUM => $b,
);
$t->flush;
}

301:デフォルトの名無しさん
08/10/28 23:39:13
TripletaiLは使ったことないが、「うまく行きません」とやらの詳細を書くべきだな。

302:デフォルトの名無しさん
08/10/28 23:45:21
>>301
ああ、ごめんなさい。

通常、Tripletailを使用せずにPOSTデータを取得する場合、
ｕｓｅ CGI;
$cgi = CGI::new();
$data1 = $cgi->param('p_data1');

これで取得はできますが、
上記の sub mainの中で取得しようとすると、
取得できないようです。

まだわかりにくい説明かもしれませんが、お願いします。

303:デフォルトの名無しさん
08/10/29 00:40:51
webprog池

304:デフォルトの名無しさん
08/10/29 01:18:30
>>299
ありがとうございました。そのものずばりの参考ページのようです。
がんばって吸収したいと思います。

305:デフォルトの名無しさん
08/10/29 02:18:09
>>304
> ありがとうございました。そのものずばりの参考ページのようです。

Perlの添付ドキュメントだけどな。おまえのPCにも入っているはず。

306:デフォルトの名無しさん
08/10/29 17:52:59
use strict しているコードで $a $b を未宣言で使おうとしてもエラーにならないんだけど、どうして？

307:デフォルトの名無しさん
08/10/29 18:02:12
$a $bはsortブロックで使われる定義済みの特殊変数だから。

308:デフォルトの名無しさん
08/10/31 23:43:20
utf8で保存できるエディタで、使いやすいものがありましたら、
教えてくれると、大変助かります。

309:デフォルトの名無しさん
08/10/31 23:55:58
>>308
emacs または meadow

310:デフォルトの名無しさん
08/10/31 23:56:23
OSは？

311:デフォルトの名無しさん
08/11/01 00:07:23
板違いすぎるだろ…

312:デフォルトの名無しさん
08/11/01 15:06:35
>>308
Notepad++

313:デフォルトの名無しさん
08/11/02 13:55:18
質問です。まだイブジェクト指向は新米なんですが、

継承とかの説明をみるに、継承のスパゲッティになりそうな　気がするんですが
その辺はエキスパートの実際ってどうなんでしょうか？

314:デフォルトの名無しさん
08/11/02 14:00:30
>>313
質問してないでソースコード読め。

315:デフォルトの名無しさん
08/11/02 18:17:25
イブジェクト指向

316:デフォルトの名無しさん
08/11/02 18:21:46
英語でいうと、　ibject oriented

317:デフォルトの名無しさん
08/11/02 19:05:20
イブジェマスジー？

318:デフォルトの名無しさん
08/11/02 19:45:14
オブイェークト指向

319:デフォルトの名無しさん
08/11/02 23:19:24
学校に

「CGI/Perl　リファレンス」

こういう本があるんですがこの２つって同じようなもんなんですか？
CGI=掲示板　Perl=通信　ってイメージがあるんですが

320:デフォルトの名無しさん
08/11/02 23:28:09
>>319
Wikipedia項目ﾘﾝｸ
Wikipedia項目ﾘﾝｸ

321:デフォルトの名無しさん
08/11/02 23:47:14
perlで指定したURLのファイルをダウンロードするにはどうすればいいんですか？

system関数を使わないで実現したいです

322:デフォルトの名無しさん
08/11/02 23:57:19
LWP::UserAgent

323:デフォルトの名無しさん
08/11/03 00:27:35
>>321
URI::Fetch

324:デフォルトの名無しさん
08/11/03 02:02:59
>>306
なぜエラーにならなければならないの？

325:デフォルトの名無しさん
08/11/03 02:04:53
>>313
他言語同様、継承はなるべく使わない方向で。
他言語での経験があるなら無問題。

326:デフォルトの名無しさん
08/11/03 02:07:45
>>319
CGIがPerlで書かれたものとは限らない
ていうかCGIとPerlじゃ比べる次元が違う
とりあえずページめくれよ

327:デフォルトの名無しさん
08/11/03 02:08:47
>>321
CPAN LWP::Simple検索してサンプル試してみ

328:デフォルトの名無しさん
08/11/03 23:12:57
ActivePerl 5.8.8を使ってます。PPMはGUIになったやつです。

PPMでリポジトリを追加したら、フリーズして、そのまま動かなくなりました。
追加したリポジトリは　URLﾘﾝｸ(ppm.tcool.org) です。
何度起動しても、起動時にフリーズします。
多分追加したリポジトリを読みに行ってる時に固まってるんだと思います。
どうやったらこのリポジトリを削除できるでしょうか。
C:\Perlの中のどこかにリポジトリのURLが保存されてて、それを消したら良いんじゃないかと考えたんですが
フォルダ内をGREPしてもURLは見つかりませんでした・・・。

329:デフォルトの名無しさん
08/11/04 00:38:30
C:\Documents　and　Settings\(user)\Local　Settings\Application　Data\ActiveState\ActivePerl\(build　version)\
以下の、ppm～なんちゃら.dbファイルを消す。

ってか、DOS窓からコマンドライン用のppmでやればいい。C:\Perl\htmlにマニュアルもあることだし。

330:デフォルトの名無しさん
08/11/04 01:36:33
>>392
ありがとうございます。
言われて気づいてみたら、ppm-shellってのがあるんですね。
最近のActivePerlはGUI版PPMしか無いのかと思ってました。

331:デフォルトの名無しさん
08/11/07 18:37:21
ActivePerlをインストールし、perlを採用したプログラミング入門書を見ながらやっているのですが、
ファイルを開くと一応コマンドプロンプトが起動し、実行されるのですが一瞬で消えてしまいます。

最初は、
print"やあ世界！\n;"

exit;
としか書いてなくて、一瞬で終わっちゃうからだなと思い（一瞬ですがやあ世界という表示はされてました）、
入門書の例文にあった
print"名前を入力してください。\n";
$onamae=<STDIN>;
chop $onamae;
print"\n";
print"あなたのお名前は$onamaeさんです。\n;
print"$onamaeさんこんにちは。";
exit;
という内容のファイルを作ってみました。
しかし、名前を打ち込むスキもなく終了してしまいます。

エスパーにしか答えようがない質問かもしれませんが宜しくお願いします。
OSはXPで、入門書は2000年頃の古いものです。

次ページ