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

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

1:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/02 11:39
perl書きなんだがさ、こうリクに答えてなんか作りたいんだ。
だからリクエストをくれ。

2:デフォルトの名無しさん
04/06/02 11:40
>>1を抹殺してくれるスクリプト

3:(・∀・)ﾁﾝﾎﾟｰ!!
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;

として、抽出＆エンコードしてるのですが、どのようにすればよいでしょう？

↓参考として、このへんの文字を適当にこぴぺして確認しています。
URLﾘﾝｸ(www.fenglin.info)

6:デフォルトの名無しさん
04/06/02 13:14
jcodeでコード変換してもだめ？

7:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/02 13:35
早速クレクレ君と丸投げ厨の隔離スレとして有効に機能しだしたようだな。

8:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/02 13:42
壮大なプロジェクトのはじまりと汁物はいまい

9:デフォルトの名無しさん
04/06/02 14:28
>>1
Hello, world!
を標準出力に出力するスクリプトを書いて下さい

10:デフォルトの名無しさん
04/06/02 14:29
ｳﾞｧｶでも出来るﾌﾟﾛｸﾞﾗﾐﾝｸﾞ言語を作ってくだすぃ>>1

11:デフォルトの名無しさん
04/06/02 14:37
甘いな。本当のバカには1行のコードも書けんよ。
ゲームの専門学校に通ってるやつらはそうらしい。

12:デフォルトの名無しさん
04/06/02 14:49
\1\2\3\4\5\6\7\8\9

13:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/02 15:10
なんかもっといいネタないのーなるだけ簡単なのでさー

仕事がひまでこまってんだＹＯ

14:デフォルトの名無しさん
04/06/02 15:23
本当に暇だったら簡単じゃない物を作る

15:デフォルトの名無しさん
04/06/02 15:36
RSA暗号を10秒くらいで解くやつ頼む。
成功報酬ははずむから。

16:デフォルトの名無しさん
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:デフォルトの名無しさん
04/06/02 17:50
>17
ではひっかかりそうな文字を置換してみていただけますか？

21:デフォルトの名無しさん
04/06/02 18:39
フリーでperl2exe

22:デフォルトの名無しさん
04/06/02 18:50
Perlって何？果物？

23:デフォルトの名無しさん
04/06/02 19:01
とってもとってもともえ～

24:デフォルトの名無しさん
04/06/02 21:03
PDFJが入ってないレンタルサーバで、
CSVファイルをPDFに整形してプリントするようなスクリプト作ってクレクレ

25:デフォルトの名無しさん
04/06/02 21:38
>>22
宝石

26:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/03 01:32
駄スレになってる…

27:デフォルトの名無しさん
04/06/03 01:43
>>26
最初からだと思うが。

28:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/03 02:59
>>27
じゃぁなんかいいネタ考えてくれよ！

29:デフォルトの名無しさん
04/06/03 08:41
必要とされてないスレなんだよ。
でなければ、自分で盛り上げろ。禿げ

30:デフォルトの名無しさん
04/06/03 11:34
ネタねえんならとりあえず使える正規表現でも教えてくれよ。

31:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/03 11:56
>>30
ぐぐれ禿

32:デフォルトの名無しさん
04/06/03 20:44
つーかさー
URLﾘﾝｸ(www.excite.co.jp)
とかで>>17を繁体字で訳してみるとさー

…何するつもりですか？（笑）

33:デフォルトの名無しさん
04/06/04 01:38
(・∀・)ﾁﾝﾎﾟｰ!!
↑
とりあえずこいつを殺すスクリプト考えてみ？

34:デフォルトの名無しさん
04/06/04 08:43
>>32
いや、手っ取り早く知ってる中文でググって出てきたサイトに載ってたやつなんで
あんまり気にしないでね。
というか中国は国を挙げての複製大国なので、気にしない気にしない。

それより文字化けの件、自己解決しました。m(_ _)m

35:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/04 10:49
>>34
自分で解決しちゃったのかよっ！！
スレの存在意義がなくなっちゃたよっ！！

36:デフォルトの名無しさん
04/06/04 17:29
だから存在意義なんて、最初からないんだって。

37:デフォルトの名無しさん
04/06/04 17:47
ここでやはり>>2ですよ。

38:デフォルトの名無しさん
04/06/04 22:12
キーボードから整数値を入力して >>1 を抹殺するプログラムを作れ。

39:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/07 09:10
殺人教唆で訴えてやる！
そういう風に大人が「抹殺」とか「殺す」とか簡単に言ってるから
小学生がカッターナイフですよ。

40:えさ
04/06/07 10:53
まじ本気でお願いしてます。

指定したフォルダの中のファイル名と更新時刻(年月日時分秒まで)の一覧を
ファイルに出力するスクリプト。

41:デフォルトの名無しさん
04/06/07 11:42
>>40
ファイルの情報を取得するには stat 関数
ディレクトリの一覧を得るには glob("*")

ここで質問する前に最低限 Perl の教科書を一冊くらい買っておきなさい。
厨房はオネンネのじかんです。

42:デフォルトの名無しさん
04/06/07 12:32
glob("*") じゃ dot file が拾えねーべ

43:デフォルトの名無しさん
04/06/07 14:01
お前らみたいな低脳スプリクターに使える物が書けるわけ無いだろ。

44:デフォルトの名無しさん
04/06/07 16:48
>>43
君みたいな低脳スクリプターに使える物が書けるわけ無いだろ。

45:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/08 12:24
opendir( DIR, "./directory name/" );
@files = readdir( DIR );
closedir( DIR );

ほれ。これでファイル一覧を配列に取得できるぞ。
あとはてきとーにやれ。

46:デフォルトの名無しさん
04/06/08 12:40
一日かかったんですか？

47:デフォルトの名無しさん
04/06/08 13:44
一生懸命作ったんだろうからそう言ってやるなよ。

48:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/08 13:47
久々に来たんだからそゆこといっちゃﾔ━━(ﾟ∀ﾟ)━━!!

49:デフォルトの名無しさん
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
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
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
04/06/09 01:12

　　　　　　　　　　　　　　　　　　　やっちまえーー！！
　　　　　　　　　　　　　 (⌒∧＿∧ 　　　　　　　　 ,//∧＿∧
　　　　　　　　　　　ﾊﾞｷｨ!ヽ(　・∀・)　　:（⌒ﾐ（　　//（´∀｀　）
　　　　　　　　　　　　ﾊﾞｷｨ!!ヽ　　l| |l（:;;:(　ﾄﾞｶﾞｧ!!///ヽ、　　_｀ヽｺﾞｽｯ!!
　　　　　　　　　　　('⌒;ヾ　／　'/ lｉ| ｌ!ｸﾞｼｬｧ!!＼从从//／'ﾐ_／ヽﾄﾞｺﾞｯ!!
　　　　　　　　　　　 (⌒）y'⌒;ヾ从从（⌒～∵；）´⌒｀つ,;(´（´⌒;"'ﾎﾞｷﾎﾞｷﾎﾞｷｯ
　　　　　　　　　　　（´⌒ｰ-　　　;:#∧_；/// 彡(:::゜；｡(;;;)､⌒从;;ﾉ・`⌒）;
　　　　　　　　　(´;⌒（´⌒;;' ~ヽと;;;；。#;;､ミ,,:,,;;；ヽ/ﾉ:#｀""^ヾ⌒）);
　　　　　　　　　￣￣(´⌒;,(´,（ﾞﾞﾞ'゛""ﾞﾞ）ﾞ'';"(´⌒;,(´,（´⌒;）
　　　　　　　　　　　　　　　　　　　　　　　　↑>>1

　　　　　　　　　　　　　　　　　　　　　　ギャアアーー

53:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/09 11:10
おいおい。
おまえら荒れるなよ。
こっちはおまえらの夢を叶えてやるんだからよぉ。

なんかなーいなんかなーい？ねぇ！お母さん！！

54:デフォルトの名無しさん
04/06/09 12:24
なんてかわいそうな >>1 なんだろう……。

55:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/09 13:39
同情はよしてくれよ！

しかも今日は誕生日なんだよっ！

誰か祝ってくれ！！

56:デフォルトの名無しさん
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:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/09 19:32
↑全然分かりません消えてください

59:デフォルトの名無しさん
04/06/09 19:33
>>55
祝ってられません
↓これでｶﾞﾏﾝ(・∀・)しる！

　　　　＼おーだんごーまーるまるー　　　　　　　　　　　　　　／
　　　　　＼　　　　おーだんごーまーるまるー　　　　　　　／
　　 .　　　　＼　　　　　　　　おーだんごーまーるまるー／
　　　　　　　　　 ∧＿∧　　∧＿∧ 　 ∧＿∧
　　　　　　　　　 (・∀・　)　 (　・∀・)　 (　・∀・)
　　　　　　　　　⊂　　⊂) 　(　　　　) 　(つ　つ
　　　　　　　　　 (＿_(＿) 　(_＿）＿) 　(＿_(＿)

60:デフォルトの名無しさん
04/06/09 21:41
ページにアクセスすると、警視庁へＩＰを送付するスクリプトをクレ！

61:デフォルトの名無しさん
04/06/10 05:53
>>55
おまえと同じ誕生日だ。縁起悪い。

62:デフォルトの名無しさん
04/06/10 10:27
>>57のAAってなに？プリキュアとかいうやつ？

63:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/10 18:41
>>61
なんだとぉ！？
おまえもシックスナインかぁ？
勝手に俺と同じ日に生まれてんじゃねぇこの天才野郎！

64:デフォルトの名無しさん
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?URLﾘﾝｸ([^\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:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/11 09:28
同情するならネタをくれ！

67:デフォルトの名無しさん
04/06/11 12:37
まずおまいがなんか面白いネタ提供しろよ。

68:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/11 12:53
ＯＫ。んじゃお題だすわ。

布団が

69:デフォルトの名無しさん
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:デフォルトの名無しさん
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:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/11 13:59
なんでだれも「ふっとんだ」の一言が言えないんだよ…

72:デフォルトの名無しさん
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:デフォルトの名無しさん
04/06/14 12:41
2ちゃんねるに高速で書き込むスクリプトン書いてよ。

75:デフォルトの名無しさん
04/06/15 09:36
>>74
そんなのはますぞいさんにたのめよ

76:デフォルトの名無しさん
04/06/15 14:47
>>1は死んだのか・・成仏しろよ。

77:デフォルトの名無しさん
04/06/15 20:21
　　　　　　　　>>1 ＿＿　　　　　　　　　　　　　　　　＿
　　　　　　　／　＿＿＿＿ヽ　　　　　　　　　／￣　　￣＼
　　　　　　　|　 | /, －､, -､ｌ　　　　　　　　 /､　　　　　　　　ヽ
　　　　　　　| _|　-|　･|<　||　　　　　　　　 |･ |―-､　　　　　　 |
　　 , ―-､　(6　＿ｰっ-´､}　　　　　　　ｑ -´　二ヽ　　　　　 |
　　 |　-⊂)　＼ヽ_ ￣￣ﾉﾉ　　　　　　　　ﾉ＿　ー　 |　　　　　|
　　 |￣￣|／（_ ∧￣ / ､　＼　　　　　　　＼.￣｀　 |　　　　/
　　ヽ　　｀　,.|　　　￣　　|　　|　　　　　　　　O＝＝＝＝＝ |
　　　｀－ ´ |　　　　　　　| ＿|　　　　　　　　/　　　　　　　　 |
　　　　　　　　|　　　　　　（t 　）　　　　　　　/　　 /　　　　　　|

perl書きなんだがさ、こうリクに答えてなんか作りたいんだ。

78:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/16 09:58
きょーもいい天気だにゃー

79:デフォルトの名無しさん
04/06/18 14:06
ところで、Perl5って標準でRS-232Cを操作できるモジュールあったけ?

80:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/18 17:44
あるある

81:デフォルトの名無しさん
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:デフォルトの名無しさん
04/06/19 04:43
URLﾘﾝｸ(x1.shinobi.jp)
上記「アクセス解析」の左上「生ログ」をExcelで使用できるデータに
変換したいのです。以下のような形式です。
「項目1」「\s」「値」「,」「項目2」「\s」「値」「,」...「項目14」「\s」「値」「改行」

１件当たりの総項目数は14件と決まっているのですが、
各件で吐き出される項目はマチマチで項目自体が無い場合があります。
項目をあらかじめ設定しておき、正規検索で改行などを取り除きつつ、
検索がマッチした場合には項目ごとに値を入れ、項目の値が項目自体が
無い場合にも - などを入れるようにして総項目数が揃ったデータにしたい
ということです。どのようにすればできるでしょうか？
よろしくお願いします。

86:85
04/06/19 04:44
各項目は具体的に以下のものです。

2004/06/17 18:11:30 ・（注：日付時刻です）
ページ　　　　　　　　　（注：解析対象ページのこと）
ページ回数
サイト回数
前回
初回
モニタ
JavaScript
Cookie
HTTP_REFERER
HTTP_USER_AGENT
国/言語
REMOTE_HOST
Proxy情報

87:85
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
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
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:デフォルトの名無しさん
04/06/21 12:06
腐臭スレ

91:(・∀・)ﾁﾝﾎﾟｰ!!
04/06/22 10:35
>>90
おまえが腐臭だよ。
なんだんだおまえは。
わざわざ「腐臭スレ」と発言することによっておまえは何を得たいのか。
それを言う事によりおまえになにか利益が発生するのか？
なぁ、>>90よ。なにか会社や学校、又は家庭で嫌な事があったのか？
彼女とケンカでもしたのか？
俺なんて最近昔の女に
「あんたに前殴られたよね。訴えるから。訴えられたくなかったら慰謝料よこしな。」
とか言われたよ…。

こんな俺でも一生懸命生きてるんだ！！

生きてるんだ！！

俺が言いたいのはそれだけだ…。

92:デフォルトの名無しさん
04/06/24 06:58
>>85-89
一気にデータを変換しようとしないでワンステップおいてみな

ログ＞変数にバラして格納＞エクセル用に書き出す

93:デフォルトの名無しさん
04/06/28 09:08
googleを越えるサーチエンジンを作ってください。

94:(・∀・)ﾁﾝﾎﾟｰ!!
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
URLﾘﾝｸ(och.web2.poporo.net)
↑のような
画像掲示板に自動で画像をアップロードするスクリプトをお願いします。

98:デフォルトの名無しさん
04/08/21 02:07
>>97
俺もそういうの前から欲しいと思ってた。
perlで作れるのかな？

99:98
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:デフォルトの名無しさん
04/10/03 19:04:29
>>101
substr じゃだめなの？

103:デフォルトの名無しさん
04/10/03 19:14:50
>>102
しばらくぶりだったのでsubstrの存在をすっかり忘れてました。
ありがとうございます

104:デフォルトの名無しさん
04/10/03 19:57:25
始めまして。現在CGI勉強中の者です。
今回、メン募を作りたくIDで振り分けたページを自動生成をするという機能が欲しくて
色々、本屋やサイトで調べてみたのですが、どれを勉強すればいいか？というところから分かっておりません。
具体的に言いますと、訪問者がサイトで個人情報を書きサーバーへ送信＞サーバーからIDとPASSが送られてくる＞サイトへ送られてきたIDとPASSを記入＞自動生成されたページを各自でカスタマイズ
その後そのカスタマイズで更新された物をサイトメインページにて随時公開したいのですが、出来るだけオリジナルで作りたいと思っています。どのようなことを勉強すべきか教えてください。
参考までに、理想に近いサイトがあるので
よければこちらも見てください。

URLﾘﾝｸ(www.muzie.co.jp)
URLﾘﾝｸ(www.with9.com)

105:デフォルトの名無しさん
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:デフォルトの名無しさん
04/10/08 21:13:24
>あと、できればプログラムが何処まで進んだのか調べる方法が有れば
>教えてくださいm(_ _)m

…え？

107:105
04/10/08 23:15:01
>>106
BASICでいえばストップ命令みたいなもので
ここまで来たら命令を止める
もしくは、ここまでは異常なくプログラムが走ったと言うことを
確認できるような方法といういみです

言葉足らずですいませんでした

あと、なんとかdatから配列に読み込めたんですが
，で区切って読み込んでくれるものかと思ってたら
１行纏めて読み込んでしまってそこではまってます・・・
とりあえず、最初の質問については自己解決しましたので
また詰まったときによろしくお願いしますm(_ _)m

108:デフォルトの名無しさん
04/10/12 23:12:25
>>107
途中でprintでもしとけよ。
まったく、なんでこんな奴にまかせるかなぁ...

109:デフォルトの名無しさん
04/10/12 23:33:40
>>108
BASICやったことがあるってのもハッタリだったということで。
小学生の漏れでもそれくらい気がついてたぞ。20年前だがな！(遠い目)
区切りで分けるときは split使え！それとperlの資料くらいは参照しとけ！！
URLﾘﾝｸ(www.orange.ne.jp)

110:デフォルトの名無しさん
04/10/20 20:21:00
Windowsの山ほどあるダイアログを簡単に使えるモジュールを作ってください。
Win32::API使おうとすると、最初は入ってなかったり構造体定義したり、なんかいろいろいろいｒぉ面倒です。

111:デフォルトの名無しさん
04/10/22 21:26:57
perl で一定時間ごとの時刻の表示が出来るプログラムを作っています。

例えば現在時刻が 21::00 だとすると
次に表示されるのが　30分後の　21:30って具合に…

なるべくなら自分で作りたいのでアドバイスとかあったら教えてください。
すれ違いですみませんが

112:デフォルトの名無しさん
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:デフォルトの名無しさん
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:デフォルトの名無しさん
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
指定した数値ぶんの長さの文字列を生成するスクリプト

次ページ