【 スクリプト改造工房 PART 6 】
■ このスレッドは過去ログ倉庫に格納されています
00011
03/03/16 18:28ID:vOOsWTxU# スレッドの説明
#================================
「スクリプトを改造したいけどやりかたわかんないよー」という人がいましたら
ここで聞いてください。ひょっとしたらアドバイス出来るかもしれません。
質問するときは以下の点に注意して書いて下さい
(1) そのスクリプトの内容と置いてある場所を明記する (txtファイルでUPすればなお良い)
(2) どんな風に改造して欲しいのか？ (完成イメージHTMLを用意すればなお良し)
(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い
※答えてくれないからといって逆ギレする厨はお断り
#================================
# 過去のスレッド
#================================
【PART1】行方不明
【PART2】http://pc.2ch.net/test/read.cgi/perl/986986227/
【PART3】http://pc.2ch.net/php/kako/988/988808396.html (HTML化済み)
0771762-763
03/08/16 18:04ID:zhP3+P6A別にKENTのじゃなくていいんです。
2chｽｸﾘﾌﾟﾄみたいなﾘﾝｸの変換と、省略した行を数えたいんですが…
0772762-763
03/08/16 18:07ID:???ﾛｸﾞを出力するときに、printしないでpushで配列に入れる
その後、sortするかforachで回して出力したらいいんじゃないの?
0773762-763
03/08/16 18:14ID:???while (<IN>) {
my ($no,$sub,$nam,$com) = split(/<>/);
if($chk) {
$chk='';
print "$nam - $com<hr>";
} else {
unshift(@txt,"$nam - $com<hr>");
}
}
close(IN);
foreach (@txt) {
print;
}
こんな漢字で改造すれば?これじゃ動かんけど。
0774762-763
03/08/16 18:16ID:???ここじゃKENTは禁句なんだっけ?
0775nobodyさん
03/08/16 20:21ID:???だったら2chスクリプト手に入れて解析すれば？
検索すれば出てこないかい？
0776761
03/08/16 20:37ID:???バカなので時間がかかりました。
0779761
03/08/17 00:06ID:???patio.cgiの
# 表示範囲を定義
$from = $res - ($t_max * $p);
$to = $from + $t_max;
を
$from = ($t_max * $p) - $t_max;
$to = $t_max * $p;
こう変えた。
0780nobodyさん
03/08/17 01:15ID:eglXJ59U0781nobodyさん
03/08/17 01:34ID:Uf0TPnbi◎満足しました！！（＾０＾）最高です！！◎
07827
03/08/17 10:57ID:/KPUdsqe☆★ 無修正ＤＶＤ★☆なら 新宿歌舞伎町直送 ☆★
人気爆発新作ベスト９入荷
堤さやか引退特集 憂木瞳 プロジェクトX No８ ベイビーフェイスをやっちまえ
白石ひより・愛葉るび SNAPSHOT 地下映像陵辱援交 すぎはら美里痴女教師
店頭販売の売れ筋のみ厳選してみました 安心の後払い
http://book-i.net/moromoro/
白石ひとみ 小森詩 山田まり 長瀬愛
＠＠ 及川奈央 レジェンド ＠＠ 堤さやか 東京バーチャル 依然大好評
サンプル画像充実 見る価値あり 最高画質
▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼
0783nobodyさん
03/08/17 11:26ID:HfUElgR+英文半角全角の検索
ｋｅｎｔ以外のスクリプトで参考になるやつないか、教えてください。
0784無料動画直リン
03/08/17 11:37ID:ZhaL0YfR0785>>２ちゃんねらーの皆さん
03/08/17 12:06ID:???川o・-・）ノ ＜先生！こんなのがありました！
http://www.hokekyoji.com/
http://members.tripod.co.jp/hossyoji/index/
http://www.honmonji.or.jp/
http://www.maap.com/tanjoh-ji/
http://www.kuonji.jp/
http://www.butsuzou.com/jiten/sanmen.html
http://www.butsuzou.com/list1/sanmen2.html
http://www.butsuzou.com/list1/sanmen3.html
http://www.butsuzou.com/keitai/sanmen-kz.html
0787nobodyさん
03/08/17 19:57ID:HfUElgR+ソース見ても、さっぱりわからん。
コピペでいける、いいスクリプト紹介してよ。
0788nobodyさん
03/08/17 20:03ID:???0789nobodyさん
03/08/17 20:19ID:HfUElgR+わからないんだろ。
0791nobodyさん
03/08/17 20:58ID:???0793nobodyさん
03/08/18 01:18ID:???0794nobodyさん
03/08/18 12:35ID:k3ByntgP被検索文章も半角に変換して、
でもって検索する
という手順でいいのでしょうか。
とりあえずはできたんだけど、
とっても馬鹿っぽいのですが…
0795nobodyさん
03/08/18 13:04ID:???登録時に全てを半角にしてしまって、検索時は検索ワードを半角にして検索。
上の半角を全角にしたもの。
登録時の半角・全角は任意に、検索時に検索ワードを半角・全角で検索。
「君が」どうやりたいかによって決まる。
つーか、>>1くらい読め
0796nobodyさん
03/08/18 13:42ID:k3ByntgPとしたいのですが、その場合、
検索ワードを半角・全角の２回検索するということでしょうか。
一致するとフラッグが出るようになっていますが、
どこに２回目のＪコード変換を入れたらいいのかよくわからない。
0797nobodyさん
03/08/18 13:45ID:k3ByntgPforeach $pair (@pairs) {
if (index($line,$pair) >= 0) {
$flag = 1;
if ($cond eq 'or') { last; }
} else {
if ($cond eq 'and') { $flag=0; last; }
}
}
0798nobodyさん
03/08/18 13:53ID:???正解。
そのスクリプトを見てないけど、検索する部分は
[ループ(全登録データを見終わるまで)]
判定
[ループ終了]
になってるはずだから、
ループ前に $search_word_hankaku $search_word_zenkaku のように検索ワードを用意、
判定の部分で この両方を検索判定する。
結果一覧のようなのを、データのID番号か文字そのもので配列とかに突っ込んでるだろうから、
両方の検索判定の結果をその中に含めるようにする。
# 当然、検索ワード自体が半角・全角の2パターンあるので、
# 検索ワードの用意のときにうまく処理しておく必要がある
0799nobodyさん
03/08/18 18:34ID:k3ByntgP検索ワードをforeachに入れるところが、
なぜか、できない。
foreachに入らない。不思議だな。
0801nobodyさん
03/08/18 19:03ID:k3ByntgP２つずれて、ｃｄｅになっちゃう。
0802nobodyさん
03/08/18 19:32ID:k3ByntgPすんません。解決。自己レス。
0803nobodyさん
03/08/18 19:37ID:k3ByntgP# 入力内容を整理
$word_han = $FORM{'word'};
$word_zen = $FORM{'word'};
# 入力内容を半角英数に変換しておく
&jcode'tr(*word_han,'０１２３４５６７８９ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ','0-9A-Za-z');
$word_han =~ s/ / /g;
$word_han =~ s/\t/ /g;
@pairs_han = split(/\s+/, $word_han);
# 入力内容を全角英数に変換しておく
&jcode'tr(*word_zen,'0-9A-Za-z','０１２３４５６７８９ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ');
$word_zen =~ s/ / /g;
$word_zen =~ s/\t/ /g;
@pairs_zen = split(/\s+/, $word_zen);
0804nobodyさん
03/08/18 22:33ID:???0805nobodyさん
03/08/18 22:47ID:jGPgGxSp広告の張替えはSSIの本体ファイルを更新するだけでOK
みたいな目論見で書いてみたわけですが、うまくいきません。
ファイル名 : ****.pl
--------------------
#! /usr/local/bin/perl
$banner = '<!-- 広告タグ -->';
print $banner;
exit;
--------------------
shtmlファイルの中に
<!--#exec cmd="****.pl"-->
いや、マジでネタじゃないんですが
これじゃ間違ってますか？どなたかご教授していただけませんか・・
もちろんSSI使用可能な鯖でやってます。
0806nobodyさん
03/08/18 22:53ID:???わざわざplにしなくったってtxtでもhtmlでも
ttp://tohoho.wakusei.ne.jp/wwwssi.htm
0807805
03/08/18 22:58ID:???サンクスコ。正直スマンかった。逝ってきます。
0809803
03/08/19 19:19ID:x1TuweNX変換したあとがマズイと思うのですが…
foreachできない
0810＿
03/08/19 19:22ID:???0811nobodyさん
03/08/19 19:23ID:3+CrjX8nにもかかわらず乱れる乱れる。しっかりビラビラ周りを剃りあげたオマンコにバイブが入っていく様子は圧巻です。
３Ｐシーンでも乱れまくり喘ぎまくりの菜月ちゃんです。
無料ムービーを観てね。
http://66.40.59.78/index.html
0812nobodyさん
03/08/19 20:03ID:NU7yZadg■２０００人限定ですのでお急ぎ下さい■
http://www.yahoo2003.com/akira/linkvp.html
0814nobodyさん
03/08/19 20:41ID:???全文晒せばいいじゃん。
0815803
03/08/19 23:27ID:x1TuweNXおさわがせしますた。
$flag=0 なら２回目の検索するようにしていたのですが、
それがちがっていたような…。
foreachはできてました。
>>813
Jcode.pl ではこうすると書いてあったけど、
何がだめなの？
0816無料動画直リン
03/08/19 23:37ID:auKHfoY30817nobodyさん
03/08/19 23:49ID:dnLP1lQwランダムに表示させたい挨拶文をログファイルみたいなのににたくさん入れておいて、
そこから随時呼び出す、みたいな方法をとって表示させるにはどうしたらいいでしょうか？
支離滅裂ですみません。
0818nobodyさん
03/08/20 01:05ID:???rand($.) < 1 and $line = $_ while <FILE>;
close FILE;
これで、ファイルから1行ランダムに選択したものが$lineに入る。(by Perlメモ)
あとはボディータグを探して、その後ろ付近に$lineを紛れ込ませればOKよ。
0820てつ
03/08/20 02:41ID:???を使用していますが、検索する際に英語の大文字小文字を区別してしまいます。
検索で大文字小文字を区別しない検索を実行したいのですがどのようにすればよいのか
わからず困り果てています。
どなたかお手数ですが教えていただけませんでしょうか。
宜しくお願い致します。
■ このスレッドは過去ログ倉庫に格納されています