Perlでリクに答えるスクリプトを作るスレ

Perlでリクに答えるス ..

116:デフォルトの名無しさん
04/11/05 23:14:56
>>115
おいコラ！
他スレで解決済みじゃないのかよ
これだからマルチ質問はやめれってことなんだよ

117:デフォルトの名無しさん
04/11/08 20:19:59
ｽﾚﾘﾝｸ(software板)
の37なのですが、ここに転載するのはﾏﾙﾁになりそうで怖いのですが
本家はこちらな気がしましたので書き込ませて下さい。
(刷れ汚しになりそうなので本文は書きません)

参照して作成して下さる

P　e　r　l　の　神　
とゆう猛者の光臨を待ち焦がれてしまいます。

住人の願い叶えてたもう。お願いします
　　　　ヾ
　(´Д｀;)、　　ｺﾉﾄｵﾘﾃﾞｽ
　　ノノＺ乙

118:デフォルトの名無しさん
04/11/27 03:48:57
神など存在しない

119:デフォルトの名無しさん
04/12/04 12:37:35
よし、俺もリクに答えて作ってやるage!
但し、CGI限定な

120:デフォルトの名無しさん
04/12/04 18:41:32
プログラム技術＠2ch掲示板

中略

プログラム・ソフトの使い方は PC 初心者板やソフトウェア板へ。
ウイルス、ハッキング・クラッキングを求めるような発言は禁止です。
Javascript は Web 制作板、CGI は Web プログラミング板へ。
　　　　　　　　　　　　　　　　　　~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

121:デフォルトの名無しさん
04/12/04 19:02:09
>>120
ウェブＰ板にこんなスレをわざわざ立てるのかと（ｒｙ

122:デフォルトの名無しさん
04/12/04 19:18:59
Perl::Tk用のGUIエディタ作ってください。

123:デフォルトの名無しさん
04/12/10 21:48:46
なんか厭味な摺れだな

124:(・∀・)ﾁﾝﾎﾟｰ!!
04/12/16 15:37:20
>>117
それくらいすぐ作れるべ

125:デフォルトの名無しさん
04/12/16 16:18:13
>>124
>>118へのレスだったら面白かったな。

126:117
04/12/19 20:25:33
返信遅れてしまってごめんなさいです。神などいないで
やる気あぼーん。諦めモード入ってました。

>124様
本当ですか。神!!光臨して下さったら末代まで
称えます。

近代WindowsGUIの提供する
素晴らしき(手作業がでふぉの石器時代みたい)
なエクスペリエンスに疲れますた。

システマチックに自動化された環境！!
それは未知のエクスペリエンス。

未知のエクスペリエンスしたいです。
きっとソフト板の多くのユーザーが未経験な
エクスペリエンス。対話しないとなんにも
出来ない、OPいないと動かないPC環境脱却したい
し、使った人も驚くと思います。

なので是非作成して欲しいです。
ネタじゃなくて期待してしまいます。

127:デフォルトの名無しさん
04/12/19 21:20:10
これがネタじゃないならなんだというのだ。

128:117
04/12/19 23:59:51
ネタじゃないなら神!!

ネタならまぁ、あれだ、その。。。。。
うぇーん。

129:デフォルトの名無しさん
04/12/25 11:59:52
二点を結ぶ半径rの円弧で、始点から終点までの移動をiX,iY
廻り方をccwだとした時、始点から見た円弧の中心x0,y0を求める。
ただし、ccwは、時計回りが-1、反時計回りが+1
半径rがプラス値のとき近回り、マイナスのとき遠回りの円弧で、
円弧が丁度半円の時は正負どちらでもよい。

って、いうスクリプトをperl5.004対応で、お願いします。m(_ _)m

sub quest_arc_center($$$$){
my($iX,$iY,$r,$ccw) =@_;
my($x0,$y0);
# ここをプリーズ
return ($x0,$y0);
}

ex)
my($iX,$iY,$r,$ccw) =(5,5,5,-1);
my($x0,$y0) =quest_arc_center($iX,$iY,$r,$ccw);
print "x$x0, y$y0\n";
=> x5.000, y0.000

130:129
04/12/25 12:06:22
以下に私が作った情けないスクリプトを晒します。(⌒～⌒ι)
皆様のお知恵を拝借して、洗練されたスクリプトに変えたいと思います。

use strict;
# my($x0,$y0) =quest_arc_center($iX,$iY,$r,$ccw);
sub quest_arc_center($$$$){
my($iX,$iY,$r,$ccw) =@_;
die '半径0' unless( $r+0 );
my$R =abs($r);
my$Dia = 2*$R;
my$Line = sqrt( $iX**2 + $iY**2 );
die '半径が小さい' if( $Dia < $Line );
my$PI =abs(atan2(0,-1));
my($Xhf,$Yhf) =($iX/2,$iY/2);
my($I,$i,$J,$j);

131:129
04/12/25 12:07:01
つづきです。

unless( $iY+0 ){
($I,$J) =( $Xhf, sqrt( $R**2 - $Xhf**2 ) );
($i,$j) =( $I, -$J );
}else{
my$XvY = $iX / $iY ;
my$ey = - $Yhf - $XvY*$Xhf;
my$ev = 2*( $XvY**2 + 1 );
my$ex = 2*$XvY*$ey;
my$er = $ey**2 - $R**2;
my$es = 0;
$es = sqrt( $ex**2 - 2*$ev*$er ) if( abs($Dia-$Line) > 0.002 );# 180°以外
$I = ( -$ex + $es )/ $ev ;
$i = ( -$ex - $es )/ $ev ;
$J = $Yhf + $XvY*$Xhf - $XvY*$I ;
$j = $Yhf + $XvY*$Xhf - $XvY*$i ;
}
my$rad =atan2($iY-$J,$iX-$I) - atan2(-$J,-$I);
if($rad<0){ $rad = $rad - $PI }
else{ $rad = $PI - $rad }
($I,$J) =($i,$j) if( $r*$rad*$ccw < 0 );
for($I,$J){ $_ =sprintf("%.3f",$_) };
return( $I, $J );
}

132:デフォルトの名無しさん
04/12/25 12:54:50
>>91
>「あんたに前殴られたよね。訴えるから。訴えられたくなかったら慰謝料よこしな。」

よく考えたら、どの道お金払うことになってしまい
脅しにはなっていないような・・・

133:デフォルトの名無しさん
04/12/25 12:58:33
>「あんたに前殴られたよね。訴えるから。訴えられたくなかったら慰謝料よこしな。」
最近はカス見たいな女もいるんだな
言葉は悪い、腹も黒い
特にあいつらの負けん気満々の目が嫌だ
自分以外は「キモイ」で即斬
「誰にも迷惑かけていない」などの
自分正当化議論（屁理屈）をいっぱい持っており
危なくなるとそれを持ち出してくる

134:129
04/12/25 17:08:17
perl関連で、目的のスレはこちらと思いカキコしたわけですが、
なにぶん、過疎のような気がいたしまして別スレに誘導のつもりで、
カキコしたものにレスがついてしまいました。
私が「レスはこちらで」と書き加えなった為です。

今後は↓に移ります。ごめんなさい。

Perlについての質問箱 14箱目
ｽﾚﾘﾝｸ(tech板)l50

結果、マルチになってしまったことをお詫びします。
すいませんでした。

135:(・∀・)ﾁﾝﾎﾟｰ!!
05/01/05 10:04:04
よし、久々に来たが何を作ればいいんだ！

136:デフォルトの名無しさん
05/01/05 10:11:32
Webページを定期的に監視して更新状況を調べるスクリプトかいとくれや。

137:デフォルトの名無しさん
05/01/05 10:29:07
Perlのデータが来たら、そのままPerlで読めるコードの文字列を吐き出してくれるのを頼む。

138:デフォルトの名無しさん
05/01/05 10:33:03
スレ主はやる気あんのか？

139:デフォルトの名無しさん
05/01/11 16:30:59
>>1
ブラウザ作ってくれ

140:デフォルトの名無しさん
05/01/18 22:49:29
ネットからダウンロードしたものを自動的に記録するスクリプト作ってください。

141:デフォルトの名無しさん
05/01/18 22:53:39
>>140が裸踊りしながら都内5kmマラソンしたら考えんこともないこともない
ま、皇居一週かな。

142:デフォルトの名無しさん
05/01/27 03:15:55
画像投稿できる掲示板つくってちょ

143:デフォルトの名無しさん
05/01/27 10:05:29
スレ主の脂肪のため終了しました

糸冬　￣了

144:デフォルトの名無しさん
05/01/28 10:41:00
sage放置

145:デフォルトの名無しさん
05/01/28 12:41:13
■こんなCGI作ってください■
ｽﾚﾘﾝｸ(php板)

146:デフォルトの名無しさん
05/01/28 21:04:00
パラメータをアドレス打って直接渡したら
動かないようにするにはどうしたらいいでつか？

147:デフォルトの名無しさん
05/01/28 22:37:57
>>146
パラメータをアドレス打って直接渡したら
動かないようにするといいです。

148:ゆうこりん
05/02/01 23:52:57
以下のやり方を教えてください。
１、1月1日が土曜日の平年について、曜日の入力データからその月日
をすべて表示する。
２、2つのファイル｛英文と日本訳｝を読み込み、行数を数えながら、
表示し、新しいファイルを作成する。
マジわからなくて困ってます！よろしくお願いします！

149:デフォルトの名無しさん
05/02/01 23:58:54
>>148
こういうバカが絶対に業界に来ないようにする方法って
ないものだろうか。

150:ゆうこりん
05/02/02 00:17:51
そんな事言わないでくださいよ！業界入りはしないから！

151:デフォルトの名無しさん
05/02/02 09:48:52
マルチ士ね

152:デフォルトの名無しさん
05/02/08 03:26:10
あるデータを箇条書きに変換するスクリプト作ってくらはいよ。

153:デフォルトの名無しさん
05/02/08 03:49:22
s/データ/箇条書き/g;

154:デフォルトの名無しさん
05/02/08 19:52:00
１．abc
1.1 def
1.2 gh

2．kkk
2.1 jj
2.2 aa

↑
こんな感じに変換したいんだけど。

155:デフォルトの名無しさん
05/02/08 21:18:43
>>154
すればいいじゃない。

156:154
05/02/08 22:59:12
ずっと考えてるんだけど、もうどうやって作ればいいのか分からない。
アプローチの仕方が分からないので、せめてどんなコマンド使えばできる、っていうの
だけでも教えてください。
行数表示はcat -n ファイル名だっていうのは分かってるんだけど、
それだと、１は１のグループで番号表示っていうのができないんです。

157:デフォルトの名無しさん
05/02/09 00:03:10
まさにネットの愚劣に底は無し!!

158:デフォルトの名無しさん
05/02/09 03:49:27
あるデータって言われてもな。
元のフォーマットも知らずに変換が出来るか、ボケ。

159:デフォルトの名無しさん
05/02/09 05:10:58
>>158
あ～あ。自分がまだ質問をしていないことに>>154氏が
自分で気づくチャンスを奪い取って、ひどいやつ!

160:デフォルトの名無しさん
05/02/09 14:42:05
htmlソースから余分な部分を削除するように

#!/usr/bin/perl

while (<STDIN>) {
s/<a href=.*<dl><dt>// ;
print;
}

というスクリプトを書きました。
<a href=から始まって<dl><dt>で終わる部分までを削除するつもりでしたが
うまく動作してくれません。何か間違ってますか？
他に何かいいスクリプトがあったら教えて下さい。よろしくお願いします。

161:デフォルトの名無しさん
05/02/09 15:36:55
正規表現は最大一致

162:154
05/02/09 17:18:58
<ol>
<li>abc
<li>def
<li>gh
<ol>
<li>kkk
<li>jj
<li>aa
</ol>
</ol>

こういうデータを>>154のように見出しをつけて変換したいんです。
どのコマンド使えばいいですか

163:デフォルトの名無しさん
05/02/09 17:21:48
>>162
lynx

164:デフォルトの名無しさん
05/02/09 17:46:07
>>162
それは >>154 にならない
1.abc
2.def
3.gh
3.1kkk
3.2jj
3.3aa
だろ？

165:デフォルトの名無しさん
05/02/09 17:55:51
>>164
あ、すみません、間違えてました。
>>162だと>>164になりますね。

その3の中にある、3.1とか3.2というのは、catの中にまたcatですか？

166:デフォルトの名無しさん
05/02/09 18:26:44
……以後放置することを提議したい。

167:デフォルトの名無しさん
05/02/09 18:28:38
>>164
> >>162
> それは >>154 にならない

はあ? 何を何にするかなんて、自由だろ。

168:デフォルトの名無しさん
05/02/09 21:15:20
>>154
データの形式がそれで正しいならこんな感じでいけないかな？

while ( <> ) {
　　if ( /<ol>/ ) {
　　　　$num1++;
　　　　undef($num2);
　　　　next;
　　}
　　if ( /<li>(.+)/ ) {
　　　　$val = $1;
　　　　unless ( $num2 ) {
　　　　　　print $num.". ".$val;
　　　　　　$num2++;
　　　　} else {
　　　　　　print "\t".$num1.".".$num2.". ".$val;
　　　　　　$num2++;
　　　　}
　　}
}

ちなみに、動作確認してないので。動くかどうか知らんがｗ

>>166 ｽﾏｿ m(_ _)m

169:160
05/02/10 12:29:12
>>161さん
ありがとうございます。「最大一致」ということで確認して改行も一致させるということで
以下のように書き換えました。他にもいろいろ試行錯誤すること8時間・・・
お願いします。htmlソースから余分な部分を削除するスクリプトを教えて下さい。
僕にはもう限界です・・・

#!/usr/bin/perl

while (<STDIN>) {
s/<a href=.*<dl><dt>//s ;
print;
}

170:デフォルトの名無しさん
05/02/10 17:01:23
>>169
「余分な部分」だってさ(ゲラゲラ)

171:デフォルトの名無しさん
05/02/10 18:52:10
何をどうしたいのか分からんｗ

172:デフォルトの名無しさん
05/02/10 21:10:50
並列処理(分散処理)をperlで作りたいのですが、教えてくれませんか？
お願いします。

173:デフォルトの名無しさん
05/02/10 22:39:43
並列処理と分散処理は違うじゃないか？

並列ならthread/pthread
分散ならrpc,soap,corbaかな

とにかく其の知識がないとperlでやろうとするなんて無理だべ

174:デフォルトの名無しさん
05/02/10 22:42:29
なんでperlでやりたくなるのかがわからんｗ

175:デフォルトの名無しさん
05/02/10 22:46:47
>>174
ちょっとした遊びでコードを書いたりするのは君には理解できないんだろうよ。

176:デフォルトの名無しさん
05/02/10 22:48:47
誰もあなたの遊びを手伝いません

177:デフォルトの名無しさん
05/02/10 23:11:56
ここはビジネスライクなインターネットですね。

178:デフォルトの名無しさん
05/02/10 23:14:53
>>169
こんな感じ？

undef $/;
open ( IN, "test.htm" ) or die "boo!";
$data = <IN>;
close( IN );
$data =~ s/<a href=.*?<dl>.*?<dt>//gs;
print $data;

179:デフォルトの名無しさん
05/02/11 10:27:51
スレッドを使ったちょっとしたスクリプトを作ってください

180:デフォルトの名無しさん
05/02/11 12:43:59
>>179
つ[perldoc thread]

181:デフォルトの名無しさん
05/02/15 07:58:35
URLをフォームに入れて送信するだけで、リンク先のページの<title>タイトル</title>を抽出して、
<a href="URL">タイトル</a>
という具合に自動で整形してくれるスクリプトってないですか？
モジュールは「HTML-Parser-3.36」が使えます。

182:デフォルトの名無しさん
05/03/12 07:18:12
>>181
Perl使え

183:デフォルトの名無しさん
05/03/12 16:06:20
むしろRuby使えよ
Perlみたいな糞言語は使うな。

184:デフォルトの名無しさん
05/03/12 16:17:13
Rubyも使えない糞が何か言っています

185:デフォルトの名無しさん
05/03/23 22:00:57
Rubyって何？ﾀﾞｻｯ

186:デフォルトの名無しさん
05/03/23 23:21:07
phpならfile()→正規表現→ゲチュー終了

187:デフォルトの名無しさん
05/03/24 17:06:14
ＣＧＩ作れ

188:デフォルトの名無しさん
05/03/25 13:15:42
>>1よ、２ちゃんブラ作れ

189:デフォルトの名無しさん
05/03/26 14:47:40
やだアンタ、そういう趣味ー？
今時柄付きブラなんて付けてるオンナなんて… いないわよ

190:デフォルトの名無しさん
05/03/26 20:37:08
>>189
何だこれ

191:デフォルトの名無しさん
05/03/28 01:12:33
ユーザー名と適当な紹介欄と所持金とpassを入力してアカウントを作成して、ユーザーは登録したアカウントにログインして所持金や登録情報を変更可能。
また、ユーザー一覧を見ることが出来、所持金や名前でソート可能。

見たいなのお願いします

192:1じゃないけど
int 2ch ＝05/04/02(土) 11:30:14
暇なんで依頼があれば作れます

[無理な物]
既存CGIと違いがないもの
既存CGIの改造
大規模すぎるもの

一週間後にまとめて公開します

193:デフォルトの名無しさん
int 2ch ＝05/04/02(土) 14:09:26
AGE

194:デフォルトの名無しさん
int 2ch ＝5年,2005/04/02(土) 16:33:42
>>192
過去スレにいろいろあるよ。ひまつぶしに出来そうなの。

195:デフォルトの名無しさん
int 2ch ＝5年,2005/04/02(土) 16:34:17
あ、過去スレじゃなくて過去レスだ。

196:デフォルトの名無しさん
05/04/03 16:41:54
>>192
指定した数値ぶんの長さの文字列を生成するスクリプト

197:192じゃないけど
05/04/03 17:15:32
&print_str_rand(9);

sub print_str_rand {
for(1..$_[0]){ printf('%c', int(rand(94)) + 32); }
}

198:デフォルトの名無しさん
05/04/03 17:53:21
ゆうパックの箱サイズと料金表が基本データとして用意してあるとする。
有限個の荷物のサイズ・重量と配達地域が与えられときに、送料が最小となるための荷物の詰め込み方
（どのゆうパックの箱にどの荷物をどういう向きで詰め込むのか）を求めるプログラム。

199:デフォルトの名無しさん
05/04/03 17:54:34
荷物をどういう向きってそのデータも基本データに入ってるの？

200:デフォルトの名無しさん
05/04/03 17:59:05
荷物はすべて直方体で、斜めに置くことはしないとしましょう。
この場合、荷物の向きは６通りです。

201:デフォルトの名無しさん
05/04/03 18:19:36
えー3通りじゃないのか・・ちょっとむずいな

202:200
05/04/03 19:06:32
直方体の辺をX, Y, Zの３種類とすると、面はXY, YZ, ZXの3種類。
底面がこの３種類のどれかになるのですが、ひとつの底面について、たて向き・よこ向きの２通り出来るので、
立体の向きとしては６種類あります。

別の考え方をすると、空間のx, y, z方向に直方体の辺X, Y, Zを対応させるとすると、
例えば「YZX」と書いたら、空間のx軸と直方体のY辺が平行で、y軸とZ辺が平行で・・・という意味にすると
結局、X, Y, Z の文字列としての並べ方と直方体の向きが対応します。３文字の順列になるので６通り。

問題自体は、数学的には「すべての組み合わせを調べつくすしか解法がない」という類いものらしいです。

203:デフォルトの名無しさん
05/04/03 20:53:56
類のもの「らしい」っていうのが微妙だな。

俺的には、解答として提出された詰め込み方計算プログラムよりも
その解答プログラムが「最小」の詰め込み方を正しく出力している
かどうかを検査する手法のほうが興味あるな。

「正解」を出せるかどうかは目視のコードレビューで判断するのか、
それとも機械的に適切なテストを行うのか、ほかの方法を使うのか
どうするつもりなんじゃい?

204:デフォルトの名無しさん
05/04/03 20:59:30
とりあえず
URLﾘﾝｸ(www.post.japanpost.jp)
参考に

205:デフォルトの名無しさん
05/04/03 21:10:55
たとえば、置く方向決まってる奴あるけど
この問題の場合
ああいうのは考えないという方向でいいの？

206:200
05/04/03 23:28:01
>>203
> 類のもの「らしい」っていうのが微妙だな。

数学的には「NP問題」と呼ばる種類の問題で、こういう詰め込みの問題では、
例えば「ビンパッキング問題」とか「ナップサック問題」というのがあります。
これらの有名な問題とは設定が微妙に違うんですが、本質的な難しさは同じなんじゃないかということで
「類いのものらしい」と（「の」が抜けてましたが）書きました。

半分ネタなので、そのプログラムが本当に正しいかの検査はおいといて、
まずは実際に計算するプログラムが先ということで。

>>205
> たとえば、置く方向決まってる奴あるけど

そういうのは考えなくていいことにします。
下の荷物が潰れるとか、そういうのも考えなくていいです。

207:デフォルトの名無しさん
05/05/04 04:43:24
age

208:デフォルトの名無しさん
05/05/08 16:47:32
>>192
HTML置き換え

複数のHTMLファイルに書かれているタグを置き換える
 みたいなタグの間にﾞFile.txtﾞの内容を書き込む

SSIだと負荷が高いのでﾞFile.txtﾞを変更した場合のみ更新したいのです。
すべてのページに同じヘッダーを付けたり著作権表示の年を一度に変えたりできるのでお願いします

209:デフォルトの名無しさん
05/05/09 08:38:08
依頼age

210:デフォルトの名無しさん
05/05/10 03:53:37
#動作未確認、つーかplファイルにもしてないが
require 5.8.5;
use utf8; use open ":utf8"; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8";
$pat='';
while(<STDIN> && !$_=~$pat) print;
!eof STDIN or die;
print;
open FILE,"<$1";
foreach(<FILE>) print;
$pat='';
while(<STDIN> && !$_=~$pat){}
print;
foreach(<STDIN>) print;

211:デフォルトの名無しさん
05/05/10 10:06:19
質問なんですが教えてください。お願いします。
CGIでリンク集を作れるフリーソフトをダウンロードしたのですが
検索したときに「１件～１０件を表示」などのような、いくら見つかった
という表示がしないものでした。どうしたら表示できるようになるのでしょうか？
初心者のため、まったくわかりません。よろしければ教えてください。

212:デフォルトの名無しさん
05/05/10 16:36:25
自分用にカスタマイズした2ch書き込みスクリプトが作りたいんだけど、どうしたらいいでしょうか。
ちなみにサバではなくMacOSXのTerminalでPerlを動作させるつもりです。

213:デフォルトの名無しさん
05/05/10 16:38:06
age2ch

214:デフォルトの名無しさん
05/05/10 19:26:41
>>212
POST

215:デフォルトの名無しさん
05/05/18 02:14:25
#!/usr/bin/perl

$_=$ENV{QUERY_STRING};
s/\+/ /g;
s/%([\da-fA-F]{2})/chr hex$1/eg;
eval;

216:デフォルトの名無しさん
05/05/26 02:42:35
AltavistaのBabelfishという翻訳エンジン(SOAP対応)があるのですが、そこでは英語と日本語、英語とスペイン語の相互翻訳はできます。
でも僕がしたいのは日本語とスペイン語の直接の相互変換なのです。
そこで、日本語、ないしスペイン語の文字列を入力したとき自動的に英語を経由してスペイン語、日本語に翻訳するスクリプトをお願いします。

win環境で手軽に使えるインターフェースを装備してくれると非常にありがたいです。

よろしくお願いします．

217:デフォルトの名無しさん
05/05/30 19:31:37
-a -b c d
-e -f g h
（以下数千万行続く）
このような数列が記録されたファイルがあります。左2列が負数、右2列が正の数です
これらの数列に関しての処理をしたいと思っています
上の例で言うところの、-aと-b、cとdをそれぞれ比較し、負数同士ならばより小さいほうを、正ならばより大きいほうを選んで、

-x y
-z w
（以下数千万行）
というような処理をしたいのです

よろしくお願いします

218:デフォルトの名無しさん
05/05/30 22:46:24
自己レスですが困難で大丈夫なんでしょうか？
#!/usr/bin/perl

open(IN,"filename@ARGV");
@cmd = <IN>;
close(IN);

foreach $cmd (@cmd) {

@temp = qw( @cmd );

　if ( $temp[0] <= $temp[1] ) {
　　print "$temp[0] " ;
　} else {
　　print "$temp[1] " ;
　}
　if ( $temp[2] >= $temp[3] ) {
　　print "$temp[2] " ;
　} else {
　　print "$temp[3] \n" ;
　}
}

219:デフォルトの名無しさん
05/05/31 16:16:44
動くならいいんじゃない?一般に、数千万行も一気にメモリに格納するのは
普通のマシンにはつらそうだし(不可能?)、遅くなるだろうが。

220:デフォルトの名無しさん
05/05/31 21:52:51
すいません、メディアプレーヤーのプレイリストを書き換えるプログラムを書いていただけませんか？音源を移動したのでプレイリストも修正しなくてはいけなくなりました。

<media src="..\..\レンタルCD等\Antonio Carlos Jobim - Wave\Wave.mp3" tid="{7FDC9124-2E56-428E-A92B-2F64EECAECDF}"/>
<media src="..\..\レンタルCD等\Antonio Carlos Jobim - Wave\The Reb Blouse.mp3" tid="{7957C487-E402-4ED7-B164-EF08C59BFB6A}"/>
<media src="..\..\レンタルCD等\Antonio Carlos Jobim - Wave\Look To The Sky.mp3" tid="{55D5B309-0D86-4227-85DC-A74D3499BD1F}"/>
<media src="..\..\レンタルCD等\Antonio Carlos Jobim - Wave\Batidinha.mp3" tid="{EA9F7A38-6D42-4172-925C-E1DB6A8770E9}"/>

今、プレイリストは上記のようになってるんですけどこれの　..\..\レンタルCD等　を変えて絶対パスで　G:音源　にしていただきたいんです。
プレイリストファイル（.wpl）は数百あって、日付順に全て読み込んでそれぞれ変えていってほしいんです。
どなたかお願いできますか？勝手言って申し訳ございません。

221:デフォルトの名無しさん
05/05/31 23:49:14
>>220
えっと、【レンタルCD等】を【違法ピーコ】に変えるんだな。
簡単だ。ちょっと待て。
あれっ・・・

URLﾘﾝｸ(www.keishicho.metro.tokyo.jp)

222:デフォルトの名無しさん
05/06/01 22:03:13
Cのソースファイルを読み込んで全ての関数を次のような書式で下記だすスクリプトを作ってください。

戻り値型関数名(引数型);

こんな感じ。
int hoge(int, int);

223:220
05/06/02 19:58:06
すいません、ダメですか？？

224:デフォルトの名無しさん
05/06/02 20:27:17
>>222
perl -ne "chomp; print qq($_\n) if /^\w.*\)$" foo.c

225:デフォルトの名無しさん
05/06/03 01:02:52
>>222
うちで試した限りでは抽出できたがどっかまずいとこあるかもしれん

#
# test.pl infile outfile
#
open(IN,$ARGV[0]) or die("can't open $ARGV[0].\n");
open(OUT,'>'.$ARGV[1]) or die("can't open $ARGV[1].\n");
while(<IN>){
nextunless(/^\s*((\w+\s+)*[\w\*]+)\s+(\w+)$([^$]+)\)/); # 末尾に；つければ定義部のみ拾えるだろう
my $type = $1;
my $func = $3;
my $expr = join(' ',$4 =~ /([\w\*]+)\s+\w+[\,\s\)]/g);
$expr = 'void'if(!$expr);
print OUT "$type $func$$expr$;\n";
}
close(IN);
close(OUT);

226:220
05/06/03 07:49:01
誰か作っていただけませんか？

227:デフォルトの名無しさん
05/06/03 23:55:36
ディレクトリ内のファイルを日付順にソートするにはどうするんですか？

228:デフォルトの名無しさん
05/06/04 16:40:14
>>225
プロトタイプ宣言をしてるとだぶるよ。
あと、引数型をvoidにしないでくれよ。

229:デフォルトの名無しさん
05/06/04 18:43:12
すいません、質問です。
ファイルの各行を順に読み込んで例えば「Ａ」を「Ｂ」に変換していくようなのは
どう書けばいいんでしょうか？

230:デフォルトの名無しさん
05/06/04 20:02:35
>>220

#!/usr/bin/perl
use encoding q/shift_jis/;
use Encode;
@files = <$ARGV[0]/*.wpl>;
$dir = quotemeta qq/..\..\レンタルCD等/;
$/ = undef;
for (sort { -M $b <=> -M $a } @files) {

open(FH, "<:encoding(shift_jis)", $_) or die $!;
$content = <FH>;
$content =~ s/$dir/G:音源/g;
close FH;

open(FH2, ">:encoding(shift_jis)", $_) or die $!;
print FH2 $content;
close FH2;
}

実行時引数に.wplのあるディレクトリパスを指定汁

231:225
05/06/04 20:04:05
void要らんかったから余計な
$expr = 'void'if(!$expr);
を削る。以上。あとやる気起きん。

232:デフォルトの名無しさん
05/06/04 20:05:47
連投規制、バーボンに引っ掛からない２ｃｈ投稿スクリプト希望

233:デフォルトの名無しさん
05/06/04 20:16:49
>>225
複数行に跨る宣言が拾えないのでは。

234:デフォルトの名無しさん
05/06/04 20:29:05
>>227
こんな感じかな。更新日時でソートと解釈したけど $ctimeで作成日時、$atimeでアクセス日時にもできる。

$dirname = '.';
opendir(DIR,$dirname);
foreach my $f (readdir(DIR)){
next unless(-f $f);
my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) = stat($f);
$file{$mtime} = $f;# 更新から経過秒数
}
closedir(DIR);
foreach $t (sort {$file{$a}<=>$file{$b}} keys %file){ #経過秒数でソート
print "$file{$t} $t\n";
}

235:デフォルトの名無しさん
05/06/04 20:43:51
ねー、みんなー、DirHandleとかFileHandleとかFile::statとかTime::localtimeとか使おうよー……。

236:デフォルトの名無しさん
05/06/04 20:48:27
>>235
TMTOWTDI

237:デフォルトの名無しさん
05/06/04 20:48:53
$mtime = (stat($foo))[9]

238:デフォルトの名無しさん
05/06/04 20:52:27
>>234
> $file{$mtime} = $f;# 更新から経過秒数

はあ?

> foreach $t (sort {$file{$a}<=>$file{$b}} keys %file){ #経過秒数でソート

はあ?

239:デフォルトの名無しさん
05/06/04 20:54:35
致命的なバグがあるじゃないか。

類まれなへぼコードだな。

240:デフォルトの名無しさん
05/06/04 20:55:37
>>236
そもそもそーゆー選択肢があること自体知らんやつが多過ぎるんだけどorz

241:234
05/06/04 21:08:23
こうかな。というかバカにするのは簡単だけど違ってたら訂正しておくれよ。

$dirname = '.';
opendir(DIR,$dirname);
foreach my $f (readdir(DIR)){
next unless(-f $f);
my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) = stat($f);
$file{$mtime} = $f;
}
closedir(DIR);
foreach $t (sort {$a<=>$b} keys %file){ #経過秒数でソート
print "$file{$t} $t\n";
}

242:220
05/06/04 21:09:44
>>230
ありがとうございます！！
とても救われました。

243:デフォルトの名無しさん
05/06/04 21:29:21
>>241
readdir()は'.'と'..'も返すから、grep !/^(\.*)|(\.\.)$/, readdir() などで除外しとけ。
あと %file は $file{$f} = $mtime として使う方が自然じゃね?

244:デフォルトの名無しさん
05/06/04 21:43:09
書いてみた＞＜
my $dir = shift || '.';
opendir my $dh, $dir or die $!;

print
map{ $_->[ 0 ]."\n" }
sort { $a->[1] <=> $b->[1] }
map { [$_, -M ] }
#<*>;
grep !m/^\.\.?$/&& -f, readdir $dh;

closedir $dh;

245:244
05/06/04 21:53:34
grep最初のマッチ不要だったような orz

246:デフォルトの名無しさん
05/06/04 22:18:23
>>241
> こうかな。というかバカにするのは簡単だけど違ってたら訂正しておくれよ。

おまえは出てくるな。みんなの手間が増えるだけだ。

247:デフォルトの名無しさん
05/06/05 05:33:05
>>246
そういう貴様も出てこなければいいだろう。
広告の裏にでも書いてろ

248:デフォルトの名無しさん
05/06/05 15:13:51
普通、チラシの裏だよなぁ

249:デフォルトの名無しさん
05/06/05 15:30:19
最近両面印刷が多くてなぁ。

250:デフォルトの名無しさん
05/06/05 17:10:03
ツルツルで書きにくい

251:デフォルトの名無しさん
05/06/06 01:58:09
消しゴムで消しにくい

252:デフォルトの名無しさん
05/06/28 15:17:43
hosyu

253:デフォルトの名無しさん
05/06/28 16:50:34
ALTボタンを押しっぱなしにするような命令はないですか？？
　
今あるボタンを押した時と同じ効果を発揮するような
ショートカットキーを実装しようとしているのですけど、
ニーモニックキーだとALTも同時に押す必要がありますよね。
だからいちいちALTを押さなくても効果を活動できるようにしたいんです。
KeyListenerを実装するという手も考えましたが，
これだとボタンを押した時の定義と同じことを書くので
二度手間だと思い，なんとか他の方法がないかと思って
いきついたのがニーモニックキーです。

254:デフォルトの名無しさん
05/07/23 10:34:38
ある文字列の中のあるHTMLタグをすべて見つけ出し、その中に特定の文字列が合った場合は、その文字列を消す。
というようなスクリプトを作りたくて悩んでいます。

例えば、あるファイル$fileの中から<font>タグを探し出して、みつかった<font>の中からweightに関する設定がされたものは、それを消して、$file中のすべての<font>からweightを消したいといった場合です。

いろいろやってみてるのですが、うまくいかない＞＜；

255:デフォルトの名無しさん
05/07/23 12:05:41
ブラウザからＭＳＮメッセンジャーを使うスクリプト

256:デフォルトの名無しさん
05/07/23 17:51:36
>>254
がんばって正規表現ゴリゴリ書くか、
HTML::Parserとか使って一度分解し、タグ・属性除去してから再構築。

257:デフォルトの名無しさん
05/07/24 15:24:45
ファイルから、特定の行だけ違うファイルに出力するプログラムを作ってください。
＜例＞
元のデータ
Ａ　５００円　６個
Ｂ　６００円　６個
Ａ　４００円　３個
Ｃ　４００円　７個
Ｂ　２００円　６個

処理した結果
Ａ　４００円　３個
Ｃ　４００円　７個

元のデータから同じ値段のものだけを出力するみたいな感じで。
ホント初心者ですいません。

258:デフォルトの名無しさん
05/07/24 15:43:06
>>257
(　ﾟДﾟ)ﾎﾟｶｰﾝ

259:デフォルトの名無しさん
05/07/25 20:16:12
>>256
HTML::*シリーズはいろいろあるな。この場合、HTML::Treeは如何か。

260:デフォルトの名無しさん
05/08/18 18:19:34
でもモジュール使えない鯖だと困るよね。
やっぱ正規表現で書くしか…。
セッションとかRSSも使いたいけど
俺が借りてるサーバは一切不可。
多分CGI.pmくらいは使えると思うんだが

261:デフォルトの名無しさん
05/09/09 22:16:45
え、そういうのは自分で無理矢理インスコするもんじゃないの?

262:デフォルトの名無しさん
05/09/17 22:26:28
mp3プレーヤーが1円＾＾
ｽﾚﾘﾝｸ(news板)

スクリプトで全部持ってかれてしまいます
スクリプトと使い方うｐして下さい！
おながいします

263:デフォルトの名無しさん
05/09/28 18:41:23
行の折り返し処理をしたいのですが、思い浮かびません。

A:aaa,bbb,ccc,ddd,eee,ffff;
B:jjjj,kkkk,llll,mmmm,nnnnn,oooo,pppp,qqqq;
C:rrrr,ssss,tttttt,uu,ssss,cccc,ss;

てな具合に最初の文字列だけ「：」で区切られ、次の文字列からは
「，」で区切られます。最後の文字列には「；」が付きます。
この「，」で区切られた文字列は行により文字列数が違います。
これを下記のように10文字程度ずつ改行したいのですが、どのようにすれば
よいでしょうか？

A:aaa,bbb,ccc,ddd,eee,ffff;
B:jjjj,kkkk,llll,mmmm,nnnnn,
　oooo,pppp,qqqq;
C:rrrr,ssss,tttttt,uu,ssss,cccc,
　ss;

264:デフォルトの名無しさん
05/10/05 02:42:23
>263
下記のどこが10文字程度なのかが分からん。

.........1.........2.........3
123456789012345678901234567890
A:aaa,bbb,ccc,ddd,eee,ffff;
B:jjjj,kkkk,llll,mmmm,nnnnn,
　oooo,pppp,qqqq;
C:rrrr,ssss,tttttt,uu,ssss,cccc,
　ss;

265:デフォルトの名無しさん
05/10/05 13:34:49
>>264
多分、全角の１０文字ぐらいということだろうね。
そうすると、出力フォントの幅まで考慮するということだろうか。

266:デフォルトの名無しさん
05/10/09 12:27:47
リク。

昇順にソートされた正の整数が一行に一個づつ書かれたファイルを標準入力から与えると、
その数の範囲を分かりやすく標準出力に表示してくれるスクリプトキボン。

例：
入力
1
2
3
100
101
105
出力
1-3,100-101,105

267:デフォルトの名無しさん
05/10/09 16:03:48
>>266 俺頭悪いからこんなソースしか書けんわ。すまん。
#!/usr/bin/perl
$|=1;

$file = <STDIN>;
chomp $file;

open(FH, $file);
while (<FH>) {
chomp;
push @vals, $_;
}
close(FH);

$head = $vals[0];
$buf .= $vals[0];
shift @vals;
foreach $val (@vals) {
if($head + 1 == $val){
$buf .= '-';
$head = $val;
next;
}
if($val > $head + 1){
$buf .= $head.','.$val;
$head = $val;
next;
}
}

$buf =~ tr/-//s;
print $buf;

268:デフォルトの名無しさん
05/10/09 16:05:07
しかもそれマトモに動かんわ・・無視してごめん

269:デフォルトの名無しさん
05/10/09 16:41:22
物凄い勢いで修正

#!/usr/bin/perl
$|=1;

$file = <STDIN>;
chomp $file;

open(FH, $file);
while (<FH>) {
chomp;
push @vals, $_;
}
close(FH);

$head = $vals[0];
shift @vals;
print $head;
foreach $val (@vals) {
if($head + 1 < $val){
if($flag){ print $head; }
print ',', $val;
$flag = 0;
}
if($head + 1 == $val){
if(!$flag){ print '-'; }
$flag = 1;
}
$head = $val;
}

270:266
05/10/09 17:14:55
>>269
ありがとうございます。完璧です。

標準入力に渡すのは、ファイル名じゃなくてファイルの内容のつもり
だったんですけど、これは私の依頼の文章のほうの問題ですね。
ありがとうございました。

271:デフォルトの名無しさん
05/10/09 21:35:16
>>263

半角10文字で作ってみた（自信なし）

#!/usr/bin/perl
while (<>) {
while (/.{10}.*?,/) {
print "$&\n";
$_ = " $'";
}
print;
}

272:271
05/10/09 21:38:21
これが…
A:aaa,bbb,ccc,ddd,eee,ffff;
B:jjjj,kkkk,llll,mmmm,nnnnn,oooo,pppp,qqqq;
C:rrrr,ssss,tttttt,uu,ssss,cccc,ss;

こうなる
A:aaa,bbb,ccc,
ddd,eee,ffff;
B:jjjj,kkkk,
llll,mmmm,
nnnnn,oooo,
pppp,qqqq;
C:rrrr,ssss,
tttttt,uu,
ssss,cccc,
ss;

273:271
05/10/09 22:27:01
A:aaa,bbb,ccc,ddd,eee,ffff;
B:jjjj,kkkk,llll,mmmm,nnnnn,
　oooo,pppp,qqqq;
C:rrrr,ssss,tttttt,uu,ssss,cccc,
　ss;

A:aaa,bbb,ccc,
　ddd,eee,ffff;
B:jjjj,kkkk,
　llll,mmmm,
　nnnnn,oooo,
　pppp,qqqq;
C:rrrr,ssss,
　tttttt,uu,
　ssss,cccc,
　ss;

( ﾟдﾟ)ﾎﾟｶｰﾝ
10文字だよね？？

責任とれや！！！！
　　　 _, ,_ 　ﾊﾟｰﾝ
　（　‘д‘）
　　　⊂彡☆))Д´） >>1

274:271
05/10/10 08:57:36
#!/usr/bin/perl

while (<>) {
　　while (/.{22}.*?,/) {
　　　　print "$&\n";
　　　　$_ = " $'";
　　}
　　print;
}

A:aaa,bbb,ccc,ddd,eee,ffff;
B:jjjj,kkkk,llll,mmmm,nnnnn,
　oooo,pppp,qqqq;
C:rrrr,ssss,tttttt,uu,ssss,
　cccc,ss;

(;ﾟ∀ﾟ)=3ﾑｯﾊｰ

275:デフォルトの名無しさん
05/10/14 01:32:43
TelneTでサーバにアクセスしてユーザーとパスを入れて、コマンドを打つ
その後に別のサーバーにログインするプログラムを作って
ください。お願いいたします

276:デフォルトの名無しさん
05/10/14 12:21:10
telnetやTelnet、あるいはTELNETなら聞いたことがあるんだが……

TelneTか……

277:デフォルトの名無しさん
05/10/14 14:40:23
>>275
URLﾘﾝｸ(search.cpan.org)

簡単だから自分で作れ

278:デフォルトの名無しさん
05/10/14 16:48:36
>>1 ：(・∀・)ﾁﾝﾎﾟｰ!!
おまい、スレたてたんだから少しぐらいやれよ！

279:デフォルトの名無しさん
05/10/14 23:27:14
ログインしているところまでは確認できるけど、WHOコマンド打たないんだよ

280:デフォルトの名無しさん
05/10/15 00:42:13
……

281:デフォルトの名無しさん
05/10/15 20:44:15
このスクリプトが動かないのですが何が原因ですか？
プロンプトは
Username:
password:
Router>
とういう風に変わっていきます。
Routerにログインしてwho打つとログインはしているようなのですが、
$t->cmd("ping 10.1.1.1");
のコマンドを打ってくれません。

教えてください。

#!/usr/bin/perl
use Net::Telnet;
$host='10.1.1.1';
$username='aaa';
$passwd='bbb';
$t = new Net::Telnet (Timeout => 4, Prompt => '/[a-zA-Z ]+: /', Dump_Log => 'telnet-log');
$t->open("$host");
$t->login($username, $passwd);
$t->waitfor('/[a-zA-Z]+>/');
$t->cmd("ping 10.1.1.1");
$t->waitfor('/[a-zA-Z]+>/');
$t->cmd("exit");
$t->close();

282:デフォルトの名無しさん
05/10/15 20:52:45
Net::TelnetのとこのPromptも [a-zA-Z]+> じゃないの？

283:デフォルトの名無しさん
05/10/15 20:54:54
あと、waitforは要らないんじゃない？ promptを待つのはcmdだけでよいのでは？

284:デフォルトの名無しさん
05/10/15 21:18:57
>>282
＞Net::TelnetのとこのPromptも [a-zA-Z]+> じゃないの？
[a-zA-Z]+> にした場合
＞Username:
に反応できなくなってしまったので:にしています

>>283
初心者のためまだ理解していないのですが、
$t->waitfor('/[a-zA-Z]+>/');
はAからZまでのローマじと>が出てきたときに次に進めという意味ですよね？

ログインするとプロンプトはRouter>になります

が、cmd以降のコマンドを打ってくれないので困っています

アドバイスください。

285:デフォルトの名無しさん
05/10/16 10:58:05
すみません、教えていただきたいのですが。
買い物などのWEBで、完了まで時間がかかるとき、「ただいま登録中です」のような一時的画面を表示させたいのですが、
perlではどのような方法があるでしょうか？
javaなどでは時々このようなページを使っているとこがあるのですが。。。。

286:デフォルトの名無しさん
05/10/16 11:44:31
>>285
多分きっと板違い。WebProg板で聞き直すといいよ。
あと、完了までの時間がどれくらいなのか、とか、ブラウザからのリクエストを
受け取った時点で完了までの時間がはっきりするのか、とかの情報も加えた
ほうがいいかも。

287:デフォルトの名無しさん
05/10/17 00:01:32
すみません、ローカルにはてなみたいなシステム構築したいのですが参考になるページ等在れば教えてください

288:デフォルトの名無しさん
05/10/17 02:44:30
>>286
ありがとうございます。ここでは×だったんですね。。。
すみませんでした。

289:デフォルトの名無しさん
05/10/23 11:55:48
Linux> ping -n 127.0.0.1
Pinging 127.0.0.1 with 32 bytes of data:

Reply from 127.0.0.1: bytes=32 time<1ms TTL=128
Reply from 127.0.0.1: bytes=32 time<1ms TTL=128

Linux>exit

Windows>telnet　10.1.1.1
Username:
Password:

Unix> ping -n 2 127.0.0.1
Pinging 127.0.0.1 with 32 bytes of data:

Reply from 127.0.0.1: bytes=32 time<5ms TTL=128
Reply from 127.0.0.1: bytes=32 time<5ms TTL=128

Unix>exit

上記のようなログがあり
その中からpingのリプライのtime<xmsをリストするプログラムを教えてください
出力としては
Linuxtime<1ms
Unixtime<5ms
にしたいです。
よろしくお願いいたします。

290:デフォルトの名無しさん
05/10/24 16:18:05
>289
まず、最低限下記の部分ぐらい仕様をはっきりさせろ。
・各(ホストを示す？)ブロックはexitで終わる？
・Reply from行が複数あって、timeが食い違ったときどうする？
・pingが通らないパターンはあるのか？あるならその時どうする？
話はそれからだ。

291:デフォルトの名無しさん
05/10/27 19:44:34
infoseek.jpにsmtp開いて単純にメール送ろうとしたら
NLだけじゃいかんといわれ
s/([^\r])\n$/$1\r\n/
s/^\n$/\r\n/
で修正して送ったら、うまくいくにはいったが、
cgiにしてサーバからおくると文字化けする。
しかも、なぜかクラッシュしてるらしく
サーバからの応答がない。
ブラウザが再送して、結果文字化けしたメールが
大量にinfoseekに残る。
これってなんで？
他のmailboxでは問題ない。

292:デフォルトの名無しさん
05/11/01 12:24:02
コードさらせ。

293:デフォルトの名無しさん
05/11/01 23:18:23
log1.txt log2.txt … log10.txt

というファイル名をきれいにソートしたい。

sort { $b <=> $a } @lists;

だとlog10 をうまく処理できません。

どうすればいいですか？？

294:デフォルトの名無しさん
05/11/01 23:19:25
ageます

295:デフォルトの名無しさん
05/11/01 23:49:17
map { $_->[0] } sort { $a->[1] <=> $b->[1] } map { /log(\d+)\.txt/; [$_,$1] } @lists;

296:293
05/11/02 00:08:58
わぁ、どうも！

297:デフォルトの名無しさん
05/11/07 01:59:35
Perl信者共助けてやれ
ｽﾚﾘﾝｸ(tech板)

298:デフォルトの名無しさん
05/11/08 10:43:45
リクです。

20051108
aaa
bbb
end

20051109
ccc
ddd
end

20051110
eee
fff
end

という内容のファイル(xxx.txt)があって、標準入力に 20051109 を与えた時に

20051109
ccc
ddd
end

という部分だけを出力させたいんです。お願いします。

299:デフォルトの名無しさん
05/11/08 10:56:28
#!/usr/bin/perl

$date = <STDIN>;
chomp $date;

open(FH, 'xxx.txt');
while (<FH>) {
chomp;
if($_ eq ''){
$flag = 0;
next;
}
if($flag){
print $_, "\n";
next;
}
if($_ eq $date){
print $_, "\n";
$flag = 1;
}
}
close(FH);

テキトー

300:デフォルトの名無しさん
05/11/08 11:21:15
>>298
#!/usr/bin/perl
chomp($input = <STDIN>);
open XXX, "<xxx.txt";
$/="end\n";
while(<XXX>)
{
if(/^($input)/){ print $_; }
}

適当に作ったから動かないかもしれん。

301:298
05/11/08 11:46:59
>>299
動きました。ありがとうございます。

>>300
^ を消すと動きました。ありがとうございます。

302:デフォルトの名無しさん
05/11/19 12:00:41
PERL

303:デフォルトの名無しさん
05/11/19 23:20:48
とあるperlプログラムの中に
PHPでいう
<?php
require("sample.txt");
?>
と同じ効果を付けたいのですが
どんなスクリプトにすればよいのでしょうか

304:デフォルトの名無しさん
05/11/19 23:35:29
require 'sample.txt';

305:デフォルトの名無しさん
05/11/20 00:00:39
>>304
それはやりたい事と違うかも。
PHPでは<? ?>内じゃ無い部分はそのまま出力
use IO::File;
my $fh = new IO::File 'sample.txt';
while (<$fh>) { print $_ }
undef $fh;
やりたい事はどっちだろね

…複合型だと言うならスクリプト部分を判別出来るようにして置いて、マッチングしてevalに放り込む
s/<\?perl(.*?)\?>/$1/ge
例えばこんな感じで

306:デフォルトの名無しさん
05/11/20 00:05:13
初心者なんでなんともいえないのですが
ブラウザでxxx.phpに
アクセスして
<?php
require("sample.txt");
?>
を見ると
sample.txtの文字が表示されるんですよ
それと同じことを
xxx.cgiでもできないかなぁと思いまして

わかりにくくてすみません

307:デフォルトの名無しさん
05/11/20 00:34:02

sub require2 {
my $file = shift;

308:デフォルトの名無しさん
05/11/20 02:35:15
open my$o,">$file" or die;
print$o "orz"x 10**5;
close$o;
return"orz";
}

309:デフォルトの名無しさん
05/11/20 22:24:32

sub require_for_vip {
　my $gold = shift;

310:306
05/11/26 18:39:05
難しいですかね？

311:デフォルトの名無しさん
05/11/26 18:56:33
>>310
>>305に既に答えのコードが書いてあるわけだが。

312:デフォルトの名無しさん
05/11/26 19:33:04
ﾜﾛｽ

313:306
05/11/26 20:39:48
初心者すぎてイマイチわからない自分がいる…
勉強してからこい　っていう話だが

314:デフォルトの名無しさん
05/11/26 20:57:29
>>313
そりゃｽﾏﾝｶｯﾀ。説明がちゃんと必要だったな…
#--------------------------------
sub show_file {
my $file = shift;
use IO::File;
my $fh = new IO::File $file;
while (<$fh>) { print $_ }
undef $fh;
}
#--------------------------------
とでもスクリプトのどこかに書いておく。

で、
show_file('ファイル名');
という感じでそのサブルーチンを呼び出せば、そのファイルの中身が表示される。
パッケージが分かれていたりするとこれだけじゃ出来ないがまあその時はその時だ
IO::Fileモジュールが使えない環境ならこっち
#--------------------------------
sub show_file {
my $file = shift;
open SHOW_FILE, $file;
while (<SHOW_FILE>) { print $_ }
close SHOW_FILE;
}
#--------------------------------

次ページ