- 1 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:(・∀・)ﾁﾝﾎﾟｰ!! [04/06/02 11:39]
- perl書きなんだがさ、こうリクに答えてなんか作りたいんだ。
だからリクエストをくれ。
- 2 名前：デフォルトの名無しさん mailto:sage [04/06/02 11:40]
- >>1を抹殺してくれるスクリプト
- 3 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/02 11:44]
- >>2
そうカリカリすんなよ。
なんか嫌な事でもあったのか？
- 4 名前：デフォルトの名無しさん [04/06/02 11:48]
- 実行EXEファイルを解析するツール作ってください
リソース抽出とか
- 5 名前：デフォルトの名無しさん [04/06/02 13:05]
- jcode.pl(or jcode.pm)&cgi-lib.plを使用しているのですが、
日本語以外（中国語とか）で書き込みされるとログファイルが壊れて
しまいます。
具体的にはnull文字とかで、すべての文字が化けて見えるようになる。
プログラムは〜
require './cgi-lib.pl';
&ReadParse(*form);
$value = $form{"namae"};
require './jcode.pl';
&jcode'convert($value, "sjis", "", "z");
open LOG_SAVE,">>$logfile_name";
print LOG_SAVE $value."\n";
close LOG_SAVE;
として、抽出＆エンコードしてるのですが、どのようにすればよいでしょう？
↓参考として、このへんの文字を適当にこぴぺして確認しています。
www.fenglin.info/www/home.php
- 6 名前：デフォルトの名無しさん [04/06/02 13:14]
- jcodeでコード変換してもだめ？
- 7 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/02 13:35]
- 早速クレクレ君と丸投げ厨の隔離スレとして有効に機能しだしたようだな。
- 8 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/02 13:42]
- 壮大なプロジェクトのはじまりと汁物はいまい
- 9 名前：デフォルトの名無しさん [04/06/02 14:28]
- >>1
Hello, world!
を標準出力に出力するスクリプトを書いて下さい
- 10 名前：デフォルトの名無しさん [04/06/02 14:29]
- ｳﾞｧｶでも出来るﾌﾟﾛｸﾞﾗﾐﾝｸﾞ言語を作ってくだすぃ>>1
- 11 名前：デフォルトの名無しさん mailto:sage [04/06/02 14:37]
- 甘いな。本当のバカには1行のコードも書けんよ。
ゲームの専門学校に通ってるやつらはそうらしい。
- 12 名前：デフォルトの名無しさん [04/06/02 14:49]
- \1\2\3\4\5\6\7\8\9
- 13 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/02 15:10]
- なんかもっといいネタないのーなるだけ簡単なのでさー
仕事がひまでこまってんだＹＯ
- 14 名前：デフォルトの名無しさん [04/06/02 15:23]
- 本当に暇だったら簡単じゃない物を作る
- 15 名前：デフォルトの名無しさん mailto:sage [04/06/02 15:36]
- RSA暗号を10秒くらいで解くやつ頼む。
成功報酬ははずむから。
- 16 名前：デフォルトの名無しさん mailto:sage [04/06/02 16:24]
- >15
ふつうに賞金もらえんじゃん
- 17 名前：5 [04/06/02 16:30]
- >>6
jcodeでコンバートしてます。
ある程度はいけるのですが、こういうのがだめです。
↓
74728] 主题： 重量級軟件下載大集合
- 18 名前：デフォルトの名無しさん [04/06/02 17:29]
- >17
じゃひっかかりそうな文字置換しとけ
- 19 名前：デフォルトの名無しさん [04/06/02 17:43]
- しとけって誰に向かっていってんのじゃあ
- 20 名前：デフォルトの名無しさん mailto:sage [04/06/02 17:50]
- >17
ではひっかかりそうな文字を置換してみていただけますか？
- 21 名前：デフォルトの名無しさん mailto:sage [04/06/02 18:39]
- フリーでperl2exe
- 22 名前：デフォルトの名無しさん [04/06/02 18:50]
- Perlって何？果物？
- 23 名前：デフォルトの名無しさん mailto:sage [04/06/02 19:01]
- とってもとってもともえ〜
- 24 名前：デフォルトの名無しさん [04/06/02 21:03]
- PDFJが入ってないレンタルサーバで、
CSVファイルをPDFに整形してプリントするようなスクリプト作ってクレクレ
- 25 名前：デフォルトの名無しさん mailto:sage [04/06/02 21:38]
- >>22
宝石
- 26 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/03 01:32]
- 駄スレになってる…
- 27 名前：デフォルトの名無しさん mailto:sage [04/06/03 01:43]
- >>26
最初からだと思うが。
- 28 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/03 02:59]
- >>27
じゃぁなんかいいネタ考えてくれよ！
- 29 名前：デフォルトの名無しさん mailto:sage [04/06/03 08:41]
- 必要とされてないスレなんだよ。
でなければ、自分で盛り上げろ。禿げ
- 30 名前：デフォルトの名無しさん mailto:sage [04/06/03 11:34]
- ネタねえんならとりあえず使える正規表現でも教えてくれよ。
- 31 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/03 11:56]
- >>30
ぐぐれ禿
- 32 名前：デフォルトの名無しさん mailto:sage [04/06/03 20:44]
- つーかさー
www.excite.co.jp/world/chinese/
とかで>>17を繁体字で訳してみるとさー
…何するつもりですか？（笑）
- 33 名前：デフォルトの名無しさん [04/06/04 01:38]
- (・∀・)ﾁﾝﾎﾟｰ!!
↑
とりあえずこいつを殺すスクリプト考えてみ？
- 34 名前：デフォルトの名無しさん [04/06/04 08:43]
- >>32
いや、手っ取り早く知ってる中文でググって出てきたサイトに載ってたやつなんで
あんまり気にしないでね。
というか中国は国を挙げての複製大国なので、気にしない気にしない。
それより文字化けの件、自己解決しました。m(_ _)m
- 35 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/04 10:49]
- >>34
自分で解決しちゃったのかよっ！！
スレの存在意義がなくなっちゃたよっ！！
- 36 名前：デフォルトの名無しさん mailto:sage [04/06/04 17:29]
- だから存在意義なんて、最初からないんだって。
- 37 名前：デフォルトの名無しさん mailto:sage [04/06/04 17:47]
- ここでやはり>>2ですよ。
- 38 名前：デフォルトの名無しさん mailto:sage [04/06/04 22:12]
- キーボードから整数値を入力して >>1 を抹殺するプログラムを作れ。
- 39 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/07 09:10]
- 殺人教唆で訴えてやる！
そういう風に大人が「抹殺」とか「殺す」とか簡単に言ってるから
小学生がカッターナイフですよ。
- 40 名前：えさ [04/06/07 10:53]
- まじ本気でお願いしてます。
指定したフォルダの中のファイル名と更新時刻(年月日時分秒まで)の一覧を
ファイルに出力するスクリプト。
- 41 名前：デフォルトの名無しさん mailto:sage ぬるぽ [04/06/07 11:42]
- >>40
ファイルの情報を取得するには stat 関数
ディレクトリの一覧を得るには glob("*")
ここで質問する前に最低限 Perl の教科書を一冊くらい買っておきなさい。
厨房はオネンネのじかんです。
- 42 名前：デフォルトの名無しさん mailto:sage [04/06/07 12:32]
- glob("*") じゃ dot file が拾えねーべ
- 43 名前：デフォルトの名無しさん mailto:sage [04/06/07 14:01]
- お前らみたいな低脳スプリクターに使える物が書けるわけ無いだろ。
- 44 名前：デフォルトの名無しさん [04/06/07 16:48]
- >>43
君みたいな低脳スクリプターに使える物が書けるわけ無いだろ。
- 45 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/08 12:24]
- opendir( DIR, "./directory name/" );
@files = readdir( DIR );
closedir( DIR );
ほれ。これでファイル一覧を配列に取得できるぞ。
あとはてきとーにやれ。
- 46 名前：デフォルトの名無しさん mailto:sage [04/06/08 12:40]
- 一日かかったんですか？
- 47 名前：デフォルトの名無しさん mailto:sage [04/06/08 13:44]
- 一生懸命作ったんだろうからそう言ってやるなよ。
- 48 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/08 13:47]
- 久々に来たんだからそゆこといっちゃﾔ━━━━(ﾟ∀ﾟ)━━━━!!
- 49 名前：デフォルトの名無しさん mailto:sage [04/06/09 01:03]
- ＿−＝＝−一 :−−
/;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;＼ ーー＿＿ ￣￣///
／| ::::::::/7;;;;;;;;;;;;;;;;;;;;;;;;;;;; ＼ ￣一,///
／..．ヽ:::::::::::|;;;;;;;;;;;;;;;;;;;;;;;....... .＼￣ー＿ ..///
/ ／ ＼:::/;;;;;;;;;;;;;;;; ＿,−〜ヽヾ ヽ///
| ./ /;;;;;;;;;;;;::＿／_______~~~~|| /// ∧∧∧∧∧∧∧∧∧∧∧
| | /;;;;;;;;;;;;;;;:/M〜、------;| :| ./// ＜ ＞
|| /;;;;;;;;;;;;;;;:/.| |:~:: .~`-----: ::::|.../// ＜ F u c k s o R e e n a！＞
` /;;;;;;;; ／ ;;;|| |; r"~`v;:rｖ~`;l";;;;;;../// ＜ ＞
∠--" .;;;;;;;.||l.|ゞ``^”:i |i`~/|::::;;;;///ﾍ ∨∨∨∨∨∨∨∨∨∨∨
／ |＼___ .;;;;;;;|.| ||ﾐﾐ;;|mmrl「"/iヽ///| |
/;;;;;; ﾉ/ ◆＼ ;;;;;|| |、ヾiiiiiiirﾉ/::ヾヾヽ;;;;;丶＼
/;;;;;;;; //◆◇◆ヾ_..| f";;;;ヾ`￣~／:::ヽ"ヾ"ヽ::◆ヽ＼
ﾉ.::::::: /人ヽ◆◇◆|丶＿ヾ;;;;;`｝｛_;::: //ヾ"ヾヽ;;;;;◇ヽ＼
/:::::::::::;/::::::::::＼ヽ◆◇|;;;;;;;;;;;;;;;;;;;;;;ノ~＼///◆ヾヽ()ヽ／;;;;;;;;ヽ
`ソ,／;;;;;;;;;;;;;;;;;/ヽヽ◆|~~~~~~~~~/| |ヽ///◇◆ヽゝノ|;;;;;;;;;;;;;:::＼
γ;;;;;;;;;;;;;;;;;;/;;;;;;;;ヾヾ;||~~~~~~~/~...| |.///◆／;;;;;;;ヽ ..| ;;;;;;;;;;;;;;;;;ヽ
/;;;;;;;;;;;;;;;;;;;;;;;/;;;;;;;;;;;;;;;;;ヽ|~~~/~ ....| ///:|／::::::::::::::::::ヾ/|;;;;;;;;;;;;;;;;;;;;;|
/;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;|~/~ .......|///::::| :;;;;;;;;;;;;;;;;;;;;;;;;ヾヽ;;;;;;;;;;;;;;;;;|
††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††
- 50 名前：SimpleHTTPD.pl mailto:sage [04/06/09 01:07]
- #!/usr/bin/perl
use IO::Socket;
$SIG{CHLD} = sub {wait()};
$main_sock= new IO::Socket::INET(LocalHost => 'localhost',
LocalPort => 9999,
Listen =>5,
Proto => 'tcp',
Reuse => 1,
);
$Dfile="index.html";
while($new_sock = $main_sock->accept()){
select($new_sock);
$ |= 1;
select(STDOUT);
$pid = fork();
die "Cannot fork: $!" unless defined ($pid);
if($pid == 0){
while(defined ($buf = <$new_sock>)){
print $buf;
if($buf eq "exit"){close $new_sock}
if($buf=~/^GET\s/){
$buf=~s/^GET\s\/(.*)\sHTTP\/1.\d/
$1/x;
$Dfile=$buf;
print "File $Dfile\n";
- 51 名前：Dream☆ ◆hG4XfSMGTg mailto:sage [04/06/09 01:10]
- }
if($buf=~/^\r\n$/){
print $new_sock "HTTP/1.1 200 OK\r
Server: Apache/2.0.40 (Red Hat Linux)\r
Accept-Ranges: bytes\r
Connection: close\r
Content-Type: text/html; charset=ISO-8859-1\r
\r\n\r\n";
open(FILE,$Dfile);
while(<FILE>){
print $new_sock $_;
}
close($new_sock);
}
#else{print $new_sock "HTTP OK $buf\r\n";}
}#while <>
exit(0);
}#pid
}#while sock
close($main_sock);
- 52 名前：Dream2 ◆hG4XfSMGTg mailto:sage [04/06/09 01:12]
-
やっちまえーー！！
(⌒∧＿∧ ,//∧＿∧
ﾊﾞｷｨ!ヽ( ・∀・) :（⌒ﾐ（ //（´∀｀ ）
ﾊﾞｷｨ!!ヽ l| |l（:;;:( ﾄﾞｶﾞｧ!!///ヽ、 _｀ヽｺﾞｽｯ!!
('⌒;ヾ ／ '/ lｉ| ｌ!ｸﾞｼｬｧ!!＼从从//／'ﾐ_／ヽﾄﾞｺﾞｯ!!
(⌒）y'⌒;ヾ从从（⌒〜∵；）´⌒｀つ,;(´（´⌒;"'ﾎﾞｷﾎﾞｷﾎﾞｷｯ
（´⌒ｰ- ;:#∧_；/// 彡(:::゜；｡(;;;)､⌒从;;ﾉ・`⌒）;
(´;⌒（´⌒;;' ~ヽと;;;；。#;;､ミ,,:,,;;；ヽ/ﾉ:#｀""^ヾ⌒）);
￣￣(´⌒;,(´,（ﾞﾞﾞ'゛""ﾞﾞ）ﾞ'';"(´⌒;,(´,（´⌒;）
↑>>1
ギャアアーー
- 53 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/09 11:10]
- おいおい。
おまえら荒れるなよ。
こっちはおまえらの夢を叶えてやるんだからよぉ。
なんかなーいなんかなーい？ねぇ！お母さん！！
- 54 名前：デフォルトの名無しさん mailto:sage [04/06/09 12:24]
- なんてかわいそうな >>1 なんだろう……。
- 55 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/09 13:39]
- 同情はよしてくれよ！
しかも今日は誕生日なんだよっ！
誰か祝ってくれ！！
- 56 名前：デフォルトの名無しさん mailto:sage [04/06/09 16:06]
- | , ,.
|_∧＊;*｡
|ーﾟ)|／
| つ
| ｀〜
|∪ ﾊﾋﾟﾊﾞｽ。
- 57 名前：デフォルトの名無しさん [04/06/09 19:31]
-
/ /ヽヽ__ ' ´ ＿_＿__,, イ ヽ
,' ,' ｛_r'‐'',ニ二､ｰ==＝-‐'|l 、｀、
ｉヽ i /／ '´ ￣｀ヽヽ l| l i
,' ヽ ｌ / ､>‐＝､､ =ﾆヽ ! ｌ ｌ
,' /⌒ l | ´ /（__,!゛ ｀､! | ! >>1さん
,' ! '＾> |! i｡_oｿ , ﾆ､, ﾉ 丿 糞スレ立てんな、蛆虫、氏ね
,' ヽ ヽ ｀ ─ '⌒Ｙ, ' ／ と何故言われるのか
/ |｀T ､ j /}´ ,'＾! よーく考えましょうね。
/ ｌ ｌ ｉ iヽ i｀ ｰｧ /ノ / /
/ | | i ｉ ! ＼ l_／ ノ | ｛ヽ / /
,' ｜ | i iﾉ 丶､ __ , イ | | l ｝ 〃 二ヽ
,' r| | '´＼_ / ,' ,′ ｜ | ｜└'{_/ ,─｀、
- 58 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/09 19:32]
- ↑全然分かりません消えてください
- 59 名前：デフォルトの名無しさん [04/06/09 19:33]
- >>55
祝ってられません
↓これでｶﾞﾏﾝ(・∀・)しる！
＼おーだんごーまーるまるー ／
＼ おーだんごーまーるまるー ／
. ＼ おーだんごーまーるまるー／
∧＿∧ ∧＿∧ ∧＿∧
(・∀・ ) ( ・∀・) ( ・∀・)
⊂ ⊂) ( ) (つ つ
(＿_(＿) (_＿）＿) (＿_(＿)
- 60 名前：デフォルトの名無しさん mailto:sage [04/06/09 21:41]
- ページにアクセスすると、警視庁へＩＰを送付するスクリプトをクレ！
- 61 名前：デフォルトの名無しさん mailto:sage [04/06/10 05:53]
- >>55
おまえと同じ誕生日だ。縁起悪い。
- 62 名前：デフォルトの名無しさん mailto:sage [04/06/10 10:27]
- >>57のAAってなに？プリキュアとかいうやつ？
- 63 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/10 18:41]
- >>61
なんだとぉ！？
おまえもシックスナインかぁ？
勝手に俺と同じ日に生まれてんじゃねぇこの天才野郎！
- 64 名前：デフォルトの名無しさん mailto:sage [04/06/11 01:18]
- マジで哀れな >>1 だ……。削除依頼を出して、死なせてあげたほうが
いいのではないか。
- 65 名前：神山満月 ◆hG4XfSMGTg [04/06/11 01:29]
- // $shell dat2chregex.exe 1086143976.dat
// csc dat2chregex.cs
//2ch dat から リンクを抜き出すプログラム
//C♯の正規表現むずい。もっとなんとかならん？>>1
using System;
using System.Text.RegularExpressions;
using System.IO;
class Grep {
static void Main(string[] args) {
TextReader reader = null;
reader = new StreamReader(
args[0], System.Text.Encoding.GetEncoding(932));
if (reader != null) {
Regex regex = new Regex("ttp");
Regex fase4 = new Regex(@"<br>");
Regex fase3 = new Regex(@"(?<TTP>h?t?tp://[^\s]*)\s*");
string line;
string [] sta;
int i;
while ((line = reader.ReadLine()) != null) {
sta = fase4.Split(line);
for(i=0;i<=sta.Length-1;i++){
Match m=fase3.Match(sta[i]);
if (m.Success) {
Console.WriteLine(fase3.Match(sta[i]).Result("${TTP}"));
}} }
reader.Close();
}
}
}
- 66 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/11 09:28]
- 同情するならネタをくれ！
- 67 名前：デフォルトの名無しさん mailto:sage [04/06/11 12:37]
- まずおまいがなんか面白いネタ提供しろよ。
- 68 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/11 12:53]
- ＯＫ。んじゃお題だすわ。
布団が
- 69 名前：デフォルトの名無しさん mailto:sage [04/06/11 13:03]
- #!/usr/bin/perl
use Digest::MD5;
$file=$ARGV[0];
open(FILE, $file) or die "Can't open '$file': $!";
binmode(FILE); $md5 = Digest::MD5->new;
while (<FILE>) {
$md5->add($_);
}
close(FILE);
print $md5->hexdigest, " $file\n";
- 70 名前：デフォルトの名無しさん mailto:sage [04/06/11 13:04]
- $aiueo="あいうえおかきくけこ";
$kaiueo="アイウエオカキクケコ";
$hkaiueo="ｱｲｳｴｵｶｷｸｹｺ";
#SHIFT-JIS
#82a082a282a482a682a882a982ab82ad82af82b1
#83418343834583478349834a834c834e83508352
#EUC-JP
#a4a2a4a4a4a6a4a8a4aaa4aba4ada4afa4b1a4b30a
#a5a2a5a4a5a6a5a8a5aaa5aba5ada5afa5b1a5b30a
#8eb18eb28eb38eb48eb58eb68eb78eb88eb98eba
#野口英世cceeb8fdb1d1c0a4
#石原新太郎c0d0b8b6bfb7c2c0cfba
#聖徳太子c0bbc6c1c2c0bbd2
#織田信長bfa5c5c4bfaec4b9
#豊臣秀吉cbadbfc3bda8b5c8
#徳川家康c6c1c0eeb2c8b9af
#吉田兼好b5c8c5c4b7f3b9a5
#紫式部bbe7bcb0c9f4
#光源氏b8f7b8bbbbe1
- 71 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/11 13:59]
- なんでだれも「ふっとんだ」の一言が言えないんだよ…
- 72 名前：デフォルトの名無しさん mailto:sage [04/06/12 17:26]
- package DUMPVAR;
sub dumpvar{
my($packageName) = @_;
local(*alias);
*stash = *{"${packageName}::"};
$,= " ";
while(($varName,$globValue)=each %stash){
print "$varName ================== \n";
*alias = $globValue;
if(defined ($alias)){
print "\t \$$varName $alias \n";
}
if (defined (@alias)){
print "\t \@$varName @alias \n";
}
if(defined (%alias)){
print "\t \%$varName",%alias," \n";
}
}
}
1;
- 73 名前：デフォルトの名無しさん [04/06/14 11:52]
- 「さ」…さむそんティーチャア
「ア」
- 74 名前：デフォルトの名無しさん mailto:sage [04/06/14 12:41]
- 2ちゃんねるに高速で書き込むスクリプトン書いてよ。
- 75 名前：デフォルトの名無しさん mailto:sage [04/06/15 09:36]
- >>74
そんなのはますぞいさんにたのめよ
- 76 名前：デフォルトの名無しさん mailto:sage [04/06/15 14:47]
- >>1は死んだのか・・成仏しろよ。
- 77 名前：デフォルトの名無しさん mailto:sage [04/06/15 20:21]
- >>1 ＿＿ ＿
／ ＿＿＿＿ヽ ／ ￣ ￣ ＼
| | /, −､, -､ｌ /､ ヽ
| _| -| ･|< || |･ |―-､ |
, ―-､ (6 ＿ｰ っ-´､} ｑ -´ 二 ヽ |
| -⊂) ＼ ヽ_ ￣￣ﾉﾉ ﾉ＿ ー | |
|￣￣|／ （_ ∧￣ / ､ ＼ ＼.￣｀ | /
ヽ ｀ ,.| ￣ | | O＝＝＝＝＝ |
｀− ´ | | ＿| / |
| （t ） / / |
perl書きなんだがさ、こうリクに答えてなんか作りたいんだ。
- 78 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/16 09:58]
- きょーもいい天気だにゃー
- 79 名前：デフォルトの名無しさん [04/06/18 14:06]
- ところで、Perl5って標準でRS-232Cを操作できるモジュールあったけ?
- 80 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/18 17:44]
- あるある
- 81 名前：デフォルトの名無しさん mailto:sage [04/06/18 18:35]
- perl環境(ActivePerl等)がなくてもスクリプトを使えるように
***.plをWindows上で動作する***.exeを作ってください。
perl2exeみたいなのを作っておくれ、シェアいらね
- 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]
- 私はここにいます
うｐおねがいします
|
 |
