- 1 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:(・∀・)ﾁﾝﾎﾟｰ!! [04/06/02 11:39]
- perl書きなんだがさ、こうリクに答えてなんか作りたいんだ。
だからリクエストをくれ。
- 82 名前：デフォルトの名無しさん [04/06/18 19:12]
- >>81
C・C++が書けない
厨房がよく欲しがるツールだよなぁ
- 83 名前：デフォルトの名無しさん [04/06/18 19:27]
- >>82
作れねーんなら黙ってろハゲ！
- 84 名前：デフォルトの名無しさん [04/06/18 22:45]
- スキンヘッドですが何か？
- 85 名前：デフォルトの名無しさん mailto:sage [04/06/19 04:43]
- ttp://x1.shinobi.jp/iga/login.cgi?id=0000005&passwd=008hYIH
上記「アクセス解析」の左上「生ログ」をExcelで使用できるデータに
変換したいのです。以下のような形式です。
「項目1」「\s」「値」「,」「項目2」「\s」「値」「,」...「項目14」「\s」「値」「改行」
１件当たりの総項目数は14件と決まっているのですが、
各件で吐き出される項目はマチマチで項目自体が無い場合があります。
項目をあらかじめ設定しておき、正規検索で改行などを取り除きつつ、
検索がマッチした場合には項目ごとに値を入れ、項目の値が項目自体が
無い場合にも - などを入れるようにして総項目数が揃ったデータにしたい
ということです。どのようにすればできるでしょうか？
よろしくお願いします。
- 86 名前：85 mailto:sage [04/06/19 04:44]
- 各項目は具体的に以下のものです。
2004/06/17 18:11:30 ・（注：日付時刻です）
ページ （注：解析対象ページのこと）
ページ回数
サイト回数
前回
初回
モニタ
JavaScript
Cookie
HTTP_REFERER
HTTP_USER_AGENT
国/言語
REMOTE_HOST
Proxy情報
- 87 名前：85 mailto:sage [04/06/19 04:44]
- これに対して生データの例は
2004/06/17 18:11:30 ・
ページpxpxpx
ページ回数39 サイト回数39 前回2004/06/16 23:27:02 初回2004/06/16 0:59:36
モニタ1024 x 768 x 16bit JavaScriptTrue CookieTrue [extract]
HTTP_REFERERブックマーク
HTTP_USER_AGENTMozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) Opera 7.23 [ja]
国/言語日本語
REMOTE_HOSTfllllp000.xxx.xxx.ad.jp
Proxy情報△
2004/06/17 18:09:02 ・
ページ冬05
ページ回数5 サイト回数5 前回2004/06/17 10:36:47 初回2004/06/16 15:26:20
モニタ1024 x 768 x 32bit JavaScriptTrue CookieTrue [extract]
HTTP_REFERERブックマーク
HTTP_USER_AGENTMozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; (R1 1.5); .NET CLR 1.0.3705; .NET CLR 1.1.4322)
国/言語日本語
REMOTE_HOSTnthkid000000.xxx.xxx.ftth.ppp.xxxx.ne.jp
2004/06/17 13:53:07 ・
ページ秋03
ページ回数12 サイト回数12 前回2004/06/17 13:01:33 初回2004/06/16 14:47:05
モニタ1024 x 768 x 32bit JavaScriptTrue CookieTrue [extract]
HTTP_REFERERブックマーク
HTTP_USER_AGENTMozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; (R1 1.5); .NET CLR 1.0.3705; .NET CLR 1.1.4322)
国/言語日本語
REMOTE_HOSTnthkid011111.xxx.nt.ftth.ppp.xxxxx.ne.jp
- 88 名前：85 mailto:sage [04/06/19 04:50]
- 一応、各項目の検索置換は以下のようにしてみましたが、
あらかじめ項目を決めたものに入れていくことまでができません・・・
s/(^20)(.+)(・)(\n)/時間 $1$2$3,/g;
s/(ページ)([0-9]+)(\s\s\s\s)/\1 \2,/g;
s/(ページ回数)([0-9]+)(\s\s\s\s)/\1 \2,/g;
s/(サイト回数)([0-9]+)(\s\s\s\s)/\1 \2,/g;
s/(前回)(.+)(\s\s\s\s)/\1 \2,/g;
s/(初回)(.+)\n/\1\2,/g;
s/(モニタ)(.+)(bit)/\1 \2\3/g;
s/(JavaScript)(.+)(\s\s\s\s)/\1 \2,/g;
s/(Cookie)(.+)\n/\1 \2,/g;
s/(HTTP_REFERER)(.+)\n/\1 \2,/g;
s/(HTTP_USER_AGENT)(.+)\n/\1 \2,/g;
s/(国\/言語)(.+)\n/\1 \2,/g;
s/(REMOTE_HOST)(.+)\n/\1 \2,/g;
s/(Proxy情報)(.+)\n/\1 \2,/g;
- 89 名前：85 mailto:sage [04/06/21 07:13]
- テキストエディタで正規表現の置換はできましたが、perlのスクリプトにできない・・・
11ステップで例外などに対応してみました。
エディタの方言で $1→\1 です。
検索/置換 になってます。
1(ページ回数)(.+)(\s\s\s\s)(サイト回数)(.+)(\s\s\s\s)(前回)(.+)(\s\s\s\s)(初回)(.+)\n/\1 \2,\4 \5,\7 \8,\10 \11,
2(モニタ)(.+)(bit)(\s\s\s\s)(JavaScript)(.+)(\s\s\s\s)(Cookie)(.+)\n/\1 \2\3,\5 \6,\8 \9,
3(HTTP_REFERER)(.+)\n/\1 \2,
4(HTTP_USER_AGENT)(.+)\n/\1 \2,
5(国\/言語)(.+)\n/\1 \2,
6(REMOTE_HOST)(.+)\n/\1 \2,
7(Proxy情報)(.+)/\1 \2
8(,)(20)(.+)(\n)(ページ)(.+)(\n)(ページ回数)/\1\n時間 \2\3,\5 \6,\8
9(^20)(.+)(\n)(ページ)(.+)(\n)(ページ回数)/時間 \1\2,\4 \5,\7
10(,)(20)(.+)(\n)(ページ)(.+)(\n)(回数\s)(.+)(\s)(前回)(.+)(\s)(前ページ)(\(JavaScript無効\))(\n)(モニタ)(.+)(\n)/\n時間 \2\3,\5 \6,\8\9,\11 \12,\14 \15,\17 \18,
11(^20)(.+)(\n)(ページ)(.+)(\n)(回数\s)(.+)(\s)(前回)(.+)(\s)(前ページ)(\(JavaScript無効\))(\n)(モニタ)(.+)(\n)/時間 \1\2,\4 \5,\7\8,\10 \11,\13 \14,\16 \17,
- 90 名前：デフォルトの名無しさん mailto:sage [04/06/21 12:06]
- 腐臭スレ
- 91 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/22 10:35]
- >>90
おまえが腐臭だよ。
なんだんだおまえは。
わざわざ「腐臭スレ」と発言することによっておまえは何を得たいのか。
それを言う事によりおまえになにか利益が発生するのか？
なぁ、>>90よ。なにか会社や学校、又は家庭で嫌な事があったのか？
彼女とケンカでもしたのか？
俺なんて最近昔の女に
「あんたに前殴られたよね。訴えるから。訴えられたくなかったら慰謝料よこしな。」
とか言われたよ…。
こんな俺でも一生懸命生きてるんだ！！
生きてるんだ！！
俺が言いたいのはそれだけだ…。
- 92 名前：デフォルトの名無しさん mailto:sage [04/06/24 06:58]
- >>85-89
一気にデータを変換しようとしないでワンステップおいてみな
ログ＞変数にバラして格納＞エクセル用に書き出す
- 93 名前：デフォルトの名無しさん [04/06/28 09:08]
- googleを越えるサーチエンジンを作ってください。
- 94 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:(・∀・)ﾁﾝﾎﾟｰ!! [04/07/20 00:18]
- さ、さがってるよぉ！！
誰かレス書いてよぉ！！
- 95 名前：デフォルトの名無しさん [04/08/06 08:06]
- どの携帯からでも閲覧書き込み可能な掲示板を作ってください。
- 96 名前：デフォルトの名無しさん [04/08/06 09:39]
- jcode.pmを使わずにUTF-8をSJISに変換するコードｷﾎﾞﾝﾇ
- 97 名前：デフォルトの名無しさん [04/08/06 11:00]
- och.web2.poporo.net/cgi-bin/test/test.htm
↑のような
画像掲示板に自動で画像をアップロードするスクリプトをお願いします。
- 98 名前：デフォルトの名無しさん mailto:sage [04/08/21 02:07]
- >>97
俺もそういうの前から欲しいと思ってた。
perlで作れるのかな？
- 99 名前：98 mailto:sage [04/08/21 04:01]
- HTTP::Request::Commonモジュールつかって作ってみたけど>>97はもういないかな
- 100 名前：97 [04/09/15 11:34:27]
- 私はここにいます
うｐおねがいします
- 101 名前：デフォルトの名無しさん [04/10/03 18:30:00]
- 文字列 (たとえば $str = "010110")
を、一文字ずつ、配列に格納していくためのルーチン
をこのように書いたのですが↓
for( $i=0; $str; $i++) {
$str =~ s/(.)(.*)/$2/;
$flag[$i] = $1;
}
もっとスマートに書けないでしょうか?
- 102 名前：デフォルトの名無しさん mailto:sage [04/10/03 19:04:29]
- >>101
substr じゃだめなの？
- 103 名前：デフォルトの名無しさん mailto:sage [04/10/03 19:14:50]
- >>102
しばらくぶりだったのでsubstrの存在をすっかり忘れてました。
ありがとうございます
- 104 名前：デフォルトの名無しさん [04/10/03 19:57:25]
- 始めまして。現在CGI勉強中の者です。
今回、メン募を作りたくIDで振り分けたページを自動生成をするという機能が欲しくて
色々、本屋やサイトで調べてみたのですが、どれを勉強すればいいか？というところから分かっておりません。
具体的に言いますと、訪問者がサイトで個人情報を書きサーバーへ送信＞サーバーからIDとPASSが送られてくる＞サイトへ送られてきたIDとPASSを記入＞自動生成されたページを各自でカスタマイズ
その後そのカスタマイズで更新された物をサイトメインページにて随時公開したいのですが、出来るだけオリジナルで作りたいと思っています。どのようなことを勉強すべきか教えてください。
参考までに、理想に近いサイトがあるので
よければこちらも見てください。
www.muzie.co.jp/
www.with9.com/
- 105 名前：デフォルトの名無しさん mailto:sage [04/10/08 20:03:42]
- 初めまして、この度事情によりperl全く知らないのに
BASICやったことがあると言うだけで
datファイルからページを表示するcgiを作れと言われて
いろんなページを回って、アルゴリズムは出来たんですが
どうしてもサーバーエラーが出て動作の確認すら出来ません・・・
内容的には簡単なことだと思うのですが
data.datと言うファイルに１行ごとに，で区切られた４つのデータがあって
それを、読み込んで判断してｈｔｍｌとして出力するというものです
a1,b1,c1,d1
a2,b2,c2,d2
a3,b3,c3,d3
と言うのがずっと続いていて
ファイルを読み込んで配列に入れて、先頭から４個づつデータを取りだして
a,b,cにデータの種類コードが入っていてdに内容が入っているので
if文で判断して表示してデータが無くなったら終わればいいようなのですが
おそらくファイルのオープンとロックで引っかかってると思うので
同一ディレクトリにあるファイルをオープンして内容を読み込み
クローズして終了するような例を教えてもらえないでしょうか？
見て回ったページにある例を入れてみてもcgiエラーが出てしまったので
よろしくお願いします・・・
あと、できればプログラムが何処まで進んだのか調べる方法が有れば
教えてくださいm(_ _)m
- 106 名前：デフォルトの名無しさん mailto:sage [04/10/08 21:13:24]
- >あと、できればプログラムが何処まで進んだのか調べる方法が有れば
>教えてくださいm(_ _)m
…え？
- 107 名前：105 mailto:sage [04/10/08 23:15:01]
- >>106
BASICでいえばストップ命令みたいなもので
ここまで来たら命令を止める
もしくは、ここまでは異常なくプログラムが走ったと言うことを
確認できるような方法といういみです
言葉足らずですいませんでした
あと、なんとかdatから配列に読み込めたんですが
，で区切って読み込んでくれるものかと思ってたら
１行纏めて読み込んでしまってそこではまってます・・・
とりあえず、最初の質問については自己解決しましたので
また詰まったときによろしくお願いしますm(_ _)m
- 108 名前：デフォルトの名無しさん mailto:sage [04/10/12 23:12:25]
- >>107
途中でprintでもしとけよ。
まったく、なんでこんな奴にまかせるかなぁ...
- 109 名前：デフォルトの名無しさん mailto:sage [04/10/12 23:33:40]
- >>108
BASICやったことがあるってのもハッタリだったということで。
小学生の漏れでもそれくらい気がついてたぞ。20年前だがな！(遠い目)
区切りで分けるときは split使え！それとperlの資料くらいは参照しとけ！！
www.orange.ne.jp/~kibita/n88/
- 110 名前：デフォルトの名無しさん mailto:sage [04/10/20 20:21:00]
- Windowsの山ほどあるダイアログを簡単に使えるモジュールを作ってください。
Win32::API使おうとすると、最初は入ってなかったり構造体定義したり、なんかいろいろいろいｒぉ面倒です。
- 111 名前：デフォルトの名無しさん mailto:sage [04/10/22 21:26:57]
- perl で一定時間ごとの時刻の表示が出来るプログラムを作っています。
例えば現在時刻が 21::00 だとすると
次に表示されるのが 30分後の 21:30って具合に…
なるべくなら自分で作りたいのでアドバイスとかあったら教えてください。
すれ違いですみませんが
- 112 名前：デフォルトの名無しさん mailto:sage [04/10/23 13:25:13]
- >>111
現在時刻の分で場合分けすればいいと思う。
- 113 名前：デフォルトの名無しさん [04/11/03 02:17:54]
-
[1]を[2]にするようなスクリプトを作りたいのですがアドバイスお願いします
[1]
中 央１丁目591 281 310 218 ２丁目602 315 287 227
２丁目522 256 266 179 大字南篠崎1130 559 571 352
本 町831 396 435 301 花 崎１丁目1459 749 710 604
[2]
中央１丁目,591,281,310,218,２丁目,602,315,287,227
２丁目,522,256,266,179,大字南篠崎,1130,559,571,352
本町,831,396,435,301,花崎１丁目,1459,749,710,604
- 114 名前：デフォルトの名無しさん mailto:sage [04/11/05 12:14:09]
- >>113
s/(\D)(\d)/$1 $2/g;
s/ /,/g;
s/(\D),(\D)/$1$2/g;
とかどうかな。駄目ですか。そうですか。
- 115 名前：デフォルトの名無しさん [04/11/05 21:03:20]
- >>114
ありがとうございます。
解決できそうです。
- 116 名前：デフォルトの名無しさん [04/11/05 23:14:56]
- >>115
おいコラ！
他スレで解決済みじゃないのかよ
これだからマルチ質問はやめれってことなんだよ
- 117 名前：デフォルトの名無しさん mailto:sage [04/11/08 20:19:59]
- pc5.2ch.net/test/read.cgi/software/1095411685/
の37なのですが、ここに転載するのはﾏﾙﾁになりそうで怖いのですが
本家はこちらな気がしましたので書き込ませて下さい。
(刷れ汚しになりそうなので本文は書きません)
参照して作成して下さる
P e r l の 神
とゆう猛者の光臨を待ち焦がれてしまいます。
住人の願い叶えてたもう。お願いします
ヾ
(´Д｀;)、 ｺﾉﾄｵﾘﾃﾞｽ
ノノＺ乙
- 118 名前：デフォルトの名無しさん mailto:sage [04/11/27 03:48:57]
- 神など存在しない
- 119 名前：デフォルトの名無しさん [04/12/04 12:37:35]
- よし、俺もリクに答えて作ってやるage!
但し、CGI限定な
- 120 名前：デフォルトの名無しさん mailto:sage [04/12/04 18:41:32]
- プログラム技術＠2ch掲示板
中略
プログラム・ソフトの使い方は PC 初心者板やソフトウェア板へ。
ウイルス、ハッキング・クラッキングを求めるような発言は禁止です。
Javascript は Web 制作板、CGI は Web プログラミング板へ。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- 121 名前：デフォルトの名無しさん [04/12/04 19:02:09]
- >>120
ウェブＰ板にこんなスレをわざわざ立てるのかと（ｒｙ
- 122 名前：デフォルトの名無しさん mailto:sage [04/12/04 19:18:59]
- Perl::Tk用のGUIエディタ作ってください。
- 123 名前：デフォルトの名無しさん [04/12/10 21:48:46]
- なんか厭味な摺れだな
- 124 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:ｳﾝｺｰ!(*ﾟ∀ﾟ)=3 [04/12/16 15:37:20]
- >>117
それくらいすぐ作れるべ
- 125 名前：デフォルトの名無しさん mailto:sage [04/12/16 16:18:13]
- >>124
>>118へのレスだったら面白かったな。
- 126 名前：117 mailto:sage [04/12/19 20:25:33]
- 返信遅れてしまってごめんなさいです。神などいないで
やる気あぼーん。諦めモード入ってました。
>124様
本当ですか。神!!光臨して下さったら末代まで
称えます。
近代WindowsGUIの提供する
素晴らしき(手作業がでふぉの石器時代みたい)
なエクスペリエンスに疲れますた。
システマチックに自動化された環境！!
それは未知のエクスペリエンス。
未知のエクスペリエンスしたいです。
きっとソフト板の多くのユーザーが未経験な
エクスペリエンス。対話しないとなんにも
出来ない、OPいないと動かないPC環境脱却したい
し、使った人も驚くと思います。
なので是非作成して欲しいです。
ネタじゃなくて期待してしまいます。
- 127 名前：デフォルトの名無しさん mailto:sage [04/12/19 21:20:10]
- これがネタじゃないならなんだというのだ。
- 128 名前：117 mailto:sage [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 mailto:sage [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 mailto:sage [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 名前：デフォルトの名無しさん mailto:ごっちゃｎ２ [04/12/25 12:54:50]
- >>91
>「あんたに前殴られたよね。訴えるから。訴えられたくなかったら慰謝料よこしな。」
よく考えたら、どの道お金払うことになってしまい
脅しにはなっていないような・・・
- 133 名前：デフォルトの名無しさん mailto:sage [04/12/25 12:58:33]
- >「あんたに前殴られたよね。訴えるから。訴えられたくなかったら慰謝料よこしな。」
最近はカス見たいな女もいるんだな
言葉は悪い、腹も黒い
特にあいつらの負けん気満々の目が嫌だ
自分以外は「キモイ」で即斬
「誰にも迷惑かけていない」などの
自分正当化議論（屁理屈）をいっぱい持っており
危なくなるとそれを持ち出してくる
- 134 名前：129 mailto:sage [04/12/25 17:08:17]
- perl関連で、目的のスレはこちらと思いカキコしたわけですが、
なにぶん、過疎のような気がいたしまして別スレに誘導のつもりで、
カキコしたものにレスがついてしまいました。
私が「レスはこちらで」と書き加えなった為です。
今後は↓に移ります。ごめんなさい。
Perlについての質問箱 14箱目
pc5.2ch.net/test/read.cgi/tech/1101649274/l50
結果、マルチになってしまったことをお詫びします。
すいませんでした。
- 135 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:ｳﾝｺｰ!(*ﾟ∀ﾟ)=3 [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 名前：デフォルトの名無しさん mailto:sage [05/01/11 16:30:59]
- >>1
ブラウザ作ってくれ
- 140 名前：デフォルトの名無しさん [05/01/18 22:49:29 ]
- ネットからダウンロードしたものを自動的に記録するスクリプト作ってください。
- 141 名前：デフォルトの名無しさん mailto:sage [05/01/18 22:53:39 ]
- >>140が裸踊りしながら都内5kmマラソンしたら考えんこともないこともない
ま、皇居一週かな。
- 142 名前：デフォルトの名無しさん [05/01/27 03:15:55 ]
- 画像投稿できる掲示板つくってちょ
- 143 名前：デフォルトの名無しさん mailto:sage [05/01/27 10:05:29 ]
- スレ主の脂肪のため終了しました
糸冬 ￣了
- 144 名前：デフォルトの名無しさん mailto:sage放置 [05/01/28 10:41:00 ]
- sage放置
- 145 名前：デフォルトの名無しさん mailto:sage放置 [05/01/28 12:41:13 ]
- ■こんなCGI作ってください■
pc5.2ch.net/test/read.cgi/php/1102980903/
- 146 名前：デフォルトの名無しさん [05/01/28 21:04:00 ]
- パラメータをアドレス打って直接渡したら
動かないようにするにはどうしたらいいでつか？
- 147 名前：デフォルトの名無しさん mailto:sage [05/01/28 22:37:57 ]
- >>146
パラメータをアドレス打って直接渡したら
動かないようにするといいです。
- 148 名前：ゆうこりん [05/02/01 23:52:57 ]
- 以下のやり方を教えてください。
１、1月1日が土曜日の平年について、曜日の入力データからその月日
をすべて表示する。
２、2つのファイル｛英文と日本訳｝を読み込み、行数を数えながら、
表示し、新しいファイルを作成する。
マジわからなくて困ってます！よろしくお願いします！
- 149 名前：デフォルトの名無しさん mailto:sage [05/02/01 23:58:54 ]
- >>148
こういうバカが絶対に業界に来ないようにする方法って
ないものだろうか。
- 150 名前：ゆうこりん [05/02/02 00:17:51 ]
- そんな事言わないでくださいよ！業界入りはしないから！
- 151 名前：デフォルトの名無しさん mailto:sage [05/02/02 09:48:52 ]
- マルチ士ね
- 152 名前：デフォルトの名無しさん [05/02/08 03:26:10 ]
- あるデータを箇条書きに変換するスクリプト作ってくらはいよ。
- 153 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [05/02/08 21:18:43 ]
- >>154
すればいいじゃない。
- 156 名前：154 mailto:sage [05/02/08 22:59:12 ]
- ずっと考えてるんだけど、もうどうやって作ればいいのか分からない。
アプローチの仕方が分からないので、せめてどんなコマンド使えばできる、っていうの
だけでも教えてください。
行数表示はcat -n ファイル名だっていうのは分かってるんだけど、
それだと、１は１のグループで番号表示っていうのができないんです。
- 157 名前：デフォルトの名無しさん [05/02/09 00:03:10 ]
- まさにネットの愚劣に底は無し!!
- 158 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:age [05/02/09 15:36:55 ]
- 正規表現は最大一致
- 162 名前：154 mailto:sage [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 名前：デフォルトの名無しさん mailto:age [05/02/09 17:46:07 ]
- >>162
それは >>154 にならない
1.abc
2.def
3.gh
3.1kkk
3.2jj
3.3aa
だろ？
- 165 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [05/02/10 17:01:23 ]
- >>169
「余分な部分」だってさ(ゲラゲラ)
- 171 名前：デフォルトの名無しさん mailto:age [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 名前：デフォルトの名無しさん mailto:sage [05/02/10 22:42:29 ]
- なんでperlでやりたくなるのかがわからんｗ
- 175 名前：デフォルトの名無しさん [05/02/10 22:46:47 ]
- >>174
ちょっとした遊びでコードを書いたりするのは君には理解できないんだろうよ。
- 176 名前：デフォルトの名無しさん mailto:sage [05/02/10 22:48:47 ]
- 誰もあなたの遊びを手伝いません
- 177 名前：デフォルトの名無しさん [05/02/10 23:11:56 ]
- ここはビジネスライクなインターネットですね。
- 178 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [05/02/11 10:27:51 ]
- スレッドを使ったちょっとしたスクリプトを作ってください
- 180 名前：デフォルトの名無しさん mailto:sage [05/02/11 12:43:59 ]
- >>179
つ[perldoc thread]
- 181 名前：デフォルトの名無しさん mailto:sage [05/02/15 07:58:35 ]
- URLをフォームに入れて送信するだけで、リンク先のページの<title>タイトル</title>を抽出して、
<a href="URL">タイトル</a>
という具合に自動で整形してくれるスクリプトってないですか？
モジュールは「HTML-Parser-3.36」が使えます。
- 182 名前：デフォルトの名無しさん mailto:sage [05/03/12 07:18:12 ]
- >>181
Perl使え
|
 |
