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
指定した数値ぶんの長さの文字列を生成するスクリプト
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ﾞ --><!-- // --> みたいなタグの間にﾞ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='<!--\sﾞ(.+)ﾞ\s-->';
while(<STDIN> && !$_=~$pat) print;
!eof STDIN or die;
print;
open FILE,"<$1";
foreach(<FILE>) print;
$pat='<!--\s\/\/\s-->';
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 $!;
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;
}
#--------------------------------
315:306
05/11/26 21:28:45
なんどもすみません
.cgiのなかに
HTML表示するところがあるんですけど
そこにshow_file('ファイル名');をやっても
そのまま表示されてしまうのですが
（マジ初心者で迷惑かけすぎですね
316:デフォルトの名無しさん
05/11/26 22:00:54
表示をどうやってるのかによる。
単なるprint なのか、ヒアドキュメントなのか。
317:デフォルトの名無しさん
05/11/26 22:09:20
${show_file('ファイル名')}
318:306
05/11/27 00:26:50
printです
319:デフォルトの名無しさん
05/11/28 15:27:30
誰か心優しい方、これを作ってくださいｍ(__)ｍ
宿題に手づまりで助けてください！(＞人＜)
SQL.txtを読み込んで、gakusei.csvを読み出し、
そこからName,Addressのみを表示させるプログラムを作ってください！
データ↓
URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
実行結果↓（予想）
Name,Address
Junichi,Tsukuba
Akinori,Hitachi
320:デフォルトの名無しさん
05/11/28 19:12:46
>>319
中身も見ずに書く。
つ[DBI + DBD::CSV]
321:デフォルトの名無しさん
05/11/28 19:34:22
htmlページでラジオ形式のインプットタイプを作り、
１００問の５択形式にします。
そして、「国語」、「数学」、「英語」、「理科」、「歴史」という
５分野にそれら１００問の回答の点数の結果を反映させたいのですが、
回答は１つの分野にのみ加点されるのではなく、例えば１問目が
「万有引力を発見したのはニュートンである」という質問だったとき
５択のうち１番目を選んだら「理科」の変数にも３点加点され、なお、
「歴史」の変数にも２点加点されるという形にしたいと思っています。
この場合、１科目の変数のみに影響するのではなく２科目以上になるので、
各質問ごとに設けた配列の点数をそのまま、「理科」だけに加点するということは
できなさそうです。
それぞれ１問目の input name を "Q001"
２問目は input name を "Q002"とし、3問目以降も同じような方法で
１００問目まで指定していきます。
そして、各問題、 「はい」、「はいに近い」、「どっちでもない」、
「いいえに近い」、「いいえ」という５択にして、
input value を「はい」から、"１"，"２"，"３"，"４"，"５"としていきます。
なにかいい構成が分かるかたいらっしゃいましたら、サブルーチン教えてください。
322:デフォルトの名無しさん
05/11/28 19:53:27
俺はこういうのはJavaScriptでやっちゃってる。
323:デフォルトの名無しさん
05/11/28 20:32:27
>>322
sendmailもいれてるからPERLでやってるんだけど、どうだろー
324:デフォルトの名無しさん
05/11/28 20:34:03
もしくは、計算部分だけJAVAで組んでその結果の変数値（スコア）のみを
CGIに渡すことって可能？
325:デフォルトの名無しさん
05/11/28 21:23:59
$table[1] = { # Q001
Q => {
label => "万有引力を発見したのはニュートンである",
option => [split(" ","はい はいに近い どっちでもない いいえに近い いいえ")]
},
A => [
{ rika => 3, rekisi => 2 }, #選択肢１
]
};
構成ってこういうこと？
俺もこれをそのままJSONにして、採点までJavaScriptでやった方がいいと思う
326:デフォルトの名無しさん
05/11/29 01:16:34
答えてくれて、ありがとう。
演算部分はjavascriptで組んで、
出てきた結果の値(各分野の点数や文字列など)を
PERLで組んだＣＧＩにデータを受け渡すことって
可能なのかなー？
327:デフォルトの名無しさん
05/11/29 01:34:11
>>326
フォーム内のフィールドにセットしてsubmitするとか、
クエリ文字列を生成しページ移動(Location.href)とか、
今流行のXMLHttpRequestとか色々あるんじゃないかな
328:デフォルトの名無しさん
05/11/29 09:24:09
>>327
最初の１ページ目でjavascriptで演算した値を２ページ目のcgiにサブミットして
表示させるってことは可能？
普通、cgiにサブミットするときってフォーム入力で、入力したもの（変数として）がそのまま
cgiのほうに渡されるでしょ？これを１ページ目でjavascriptで計算して、その結果の値を
そのままcgiに渡すって方法どうすればいいかな？
いいサンプルページやサンプルソースあったら教えてください。
もしかしたら、フォーム入力の「生年月日入力」の部分でこういうふうにjavascriptを組み込んで
昭和→西暦変換とかした値をcgiに渡してたりするようなページもあるような気もします
329:デフォルトの名無しさん
05/11/29 09:47:48
URLﾘﾝｸ(proxy.f2.ymdb.yahoofs.jp)
このような形で問１００まであって、問１００までの分の値と名前やメアドの値を
formmail.cgiというものに渡すというかんじです。CGI側で質問１００個の分の
演算をするのか、もしくは、アップーロードした、この1ページ目でjavascriptを使って
演算し、結果のみの値をcgiに渡して、それらを出力するのがいいのか迷っています。
また、記述の方法などのアドバイスもいただければ幸いです。
330:329
05/11/29 10:15:36
何度もすみません。
やはり、javascriptは使わずcgi側で１００問の結果判定を演算するサブルーチンを
作りたいのですが、どういう標記にすればいいでしょうか？>>321にも書きましたが
それぞれ１問目の input name を "Q001"
２問目は input name を "Q002"とし、3問目以降も同じような方法で
１００問目まで指定していきます。
そして、各問題、 「はい」、「はいに近い」、「どっちでもない」、
「いいえに近い」、「いいえ」という５択にして、
input value を「はい」から、"1"，"2"，"3"，"4"，"5"としていきます。
というかんじです。>>322さん、ありがとうございました。
もっと分かりやすい構文を教えていただけないでしょうか？
今考えているのは１ページ目でフォーム入力（ラジオ選択から得た情報)をcgiに
submitした後、getformして入力された値を読み込み
#質問結果判定
sub hantei {
1問目(１ページ目のQ001)「万有引力を発見したのはニュートンである 」に対し、
５択「はい(VALUE=1)」、「はいに近い(2)」、「どっちでもない(3)」、「いいえに近い(4)」、「いいえ(5)」のうち
・「はい」を選ぶと理科に3点加算（rika +=3）、歴史にも2点加算(rekishi +=2)とし、
・「はいに近い」を選択したなら(rika +=2)、(rekishi +=1)
・「どっちでもない」を選択したなら(rika +=1)、(rekishi +=0)
・「いいえに近い」を選択したなら(rika +=0)、(rekishi +=0)
・「いいえ」を選択したなら(rika +=0)、(rekishi +=0)
↓
次の質問(Q002)で同じような形でQ100まで演算していきます
331:デフォルトの名無しさん
05/11/29 11:16:32
どうでもいいけど、毎問メールアドレスを入力させられんの？
332:デフォルトの名無しさん
05/11/29 11:37:19
設問ごとの得点表を
%SCORE_TABLE = (
Q001 => { 1 => { rika => 2, rekishi => 2 },
2 => { rika => 2, rekishi => 1 },
....
},
....
}
という形で用意する。
cgi入力のうち、QNNNに対応する値を%input = (Q001 => 2, Q002 => 1 ,... )
という形のハッシュにまとめる。
あとは
while (my($q, $a) = each %input) {
while (my($k, $s) = each %{$SCORE_TABLE{$q}->{$a}}) {
$score{$k} += $s;
}
}
とまわせば%scoreにそれっぽい結果が得られるだろう。
333:329
05/11/29 11:38:26
>>331
ううん、メアドを登録しなかったらしなかったで得点表示のみのページのみ
出力されて、メアド登録したら、直接SENDMAILで詳細結果が
メールで届くようにするよ。
334:329
05/11/29 13:08:49
>>332
非常にありがたいんですが、原始的な組み方で
if ($moji{Q001} == 1) {
$rika += 2;
$rekishi += 1;}
elsif ($moji{Q001} == 2) {
$rika += 0;
$rekishi += 0;}
elsif ($moji{Q001} == 3) {
$rika += 0;
$rekishi += 0;}
elsif ($moji{Q001} == 4) {
$rika += 0;
$rekishi += 0;}
elsif ($moji{Q001} == 5) {
$rika += 0;
$rekishi += 0;}
335:329つづき↑
05/11/29 13:09:10
にして、最終的にその結果から
if ($rika == 1) {$rikaTEXT = 'rika1点かな';}
elsif ($rika == 2) {$rikaTEXT = 'rika2点かな';}
elsif ($rika == 3) {$rikaTEXT = 'rika3点かな';}
elsif ($rika == 4) {$rikaTEXT = 'rika4点かな';}
else {$rikaTEXT = 'rika不明かな';}
if ($rekishi == 1) {$rekishiTEXT = 'rekishi1点かな';}
elsif ($rekishi == 2) {$rekishiTEXT = 'rekishi2点かな';}
elsif ($rekishi == 3) {$rekishiTEXT = 'rekishi3点かな';}
elsif ($rekishi == 4) {$rekishiTEXT = 'rekishi4点かな';}
else {$rekishiTEXT = 'rekishi不明かな';}
そしてこのスコアから判断されたメッセージをHTML出力するとき
$rikaTEXT<BR>
$rekishiTEXT<BR>
でいいのかな？このままの構成を残して訂正しなきゃならない部分を教えてください。
これで実行してもrikaのスコアしか表示されなくて、rekishiのスコアは表示されません(T_T)
336:デフォルトの名無しさん
05/11/29 19:04:01
鬱陶しいなあ。
まったく理解できないのに偉そうなことばかり。
もうどこかに委託しろよ。
337:デフォルトの名無しさん
05/11/29 20:50:31
>>336
まあまあ、あまり怒りなさんな。
オレはこの調子で100問分書いたスクリプトというものをぜひ拝見したい。
>>335
最後の部分をこんな風に書いたんじゃないの？
---------------------------------
print "$rikaTEXT<BR>
$rekishiTEXT<BR> ";
---------------------------------
それなら、こうするとうまくいくよ。
print "$rikaTEXT<BR>\n$rekishiTEXT<BR> ";
あと、スクリプト完成したらぜひ公開きぼ～ん。
338:デフォルトの名無しさん
05/11/29 23:18:59
>>337
ありがとう。見せたいとこだけど、
ごめんよー
339:デフォルトの名無しさん
05/11/29 23:57:56
>>338
そうか。Perlスクリプトを公開すれば解答も公開すること
になるから仕方ないかもしれんな。しかし、大体の想像はつく。
>>334 に書いてあるものを１００問分作って、
>>335 に書いてあるものを０～２００の範囲で作るんだね。
拝見できないのは残念だが、まあ、がんばってタイプしてくれ。
340:デフォルトの名無しさん
05/11/30 00:31:36
>>339
本当にありがとう。いい人いるんだね。ありがとう。
点数配分を配列ではなく、原始的な構造でチマチマ入力してやっていきます。
３０００行以上のCGIになります（笑）
341:デフォルトの名無しさん
05/11/30 07:26:07
微笑ましいですね^^
342:デフォルトの名無しさん
05/11/30 11:25:43
＾＾；
343:デフォルトの名無しさん
05/11/30 19:04:43
性別
回答者合計者○($SEXSUM)名中
男○($SEXMALE)名
女○($SEXFEMALE)名
というのをHTMLで出力したいんだけど、ディレクトリに SEX.txtというのを置いて
そのtxtファイルの中に「 0,0 」
というふうに男女の初期値の人数をいれておいて。
毎回フォームから'GENDER'の値が0(男性)．もしくは1(女性)で送ってきた時のみ。
SEX.txtを読み込んで、１足して表示→そして読み込んだSEX.txtの人数の一人プラスという
ようなPERLスクリプト分かる人いますか？
344:デフォルトの名無しさん
05/11/30 19:11:07
ｽﾚﾘﾝｸ(tech板:641番)
マルチ放置推奨
345:デフォルトの名無しさん
05/12/01 13:49:45
西暦の "2005"という部分だけ、取得したいんだけど
$TIME= （ここはどうすればいいですか？）
346:デフォルトの名無しさん
05/12/01 13:56:41
>>345
この辺読んで基礎からじっくり勉強したらいいんじゃない?
ｽﾚﾘﾝｸ(tech板:2番)
URLﾘﾝｸ(www.hyuki.com)
347:デフォルトの名無しさん
05/12/01 14:02:29
my($sec, $min, $hour, $day, $mon, $TIME, $wday) = localtime(time);
# 取得した値を調整（リファレンス参照）
$TIME+= 1900;
348:デフォルトの名無しさん
05/12/01 14:03:51
>>347
とんくす
349:デフォルトの名無しさん
05/12/01 14:27:50
$TIME=`perl -MPOSIX=strftime -le 'print strftime("%Y", localtime())'`
350:デフォルトの名無しさん
05/12/01 14:29:20
>>347
長い
$TIME = 1900 + (localtime(time()))[5];
351:デフォルトの名無しさん
05/12/01 16:01:06
>>350
長いというならlocaltimeの引数のtime()も省略可能だよ。
352:デフォルトの名無しさん
05/12/01 16:11:56
>>351
ナイスつっこみ！
お前みたいなのを待っていた
353:350
05/12/01 16:15:15
知ってるよ
どんなunixtimeを渡すのか分からんから一例を書いたまでだ
354:デフォルトの名無しさん
05/12/01 16:42:12
そういうのを負け惜しみって言うんだぜ
355:デフォルトの名無しさん
05/12/01 17:56:57
>>345
$TIME = 1900 + (localtime)[5];
356:デフォルトの名無しさん
05/12/01 18:00:06
個人的には strftime の方が好みだな。
357:デフォルトの名無しさん
05/12/01 18:04:14
>>343
Yahooにまで…。
URLﾘﾝｸ(messages.yahoo.co.jp)
しかも誰か答えちゃってるし。
358:350
05/12/01 18:08:14
なんで煽られてるのかが分からんのだが・・中学生か？
359:デフォルトの名無しさん
05/12/01 18:24:26
>>343の答えは
ｽﾚﾘﾝｸ(php板:965-967番)
でもう出てる
360:デフォルトの名無しさん
05/12/01 18:28:38
>>358
変な奴はほっとけ
361:デフォルトの名無しさん
05/12/01 18:38:49
VIPが出来てから馬鹿が流入してきた
362:デフォルトの名無しさん
05/12/03 23:36:45
馬鹿というかガキなんだよな。煽り方も知らないような。
363:デフォルトの名無しさん
05/12/06 21:25:33
ネットショップで○○時から○台限定で販売、とかいうのを買おうとすると
真っ先にスクリプターに買い占められちゃうんだけど
そういうのに対抗できる自動購入スクリプトってPerlで組めませんか？
364:デフォルトの名無しさん
05/12/06 23:39:56
組めたとしてもここで公開されれば対策される。
対策されなくても公開されている以上大勢が使う。
意味がない。
365:デフォルトの名無しさん
05/12/07 00:01:35
>>363
組めます
366:デフォルトの名無しさん
05/12/07 04:17:29
｡ﾟ(ﾟ∩д∩ﾟ)ﾟ｡
確かに仰るとおりですね・・・
367:デフォルトの名無しさん
05/12/07 08:47:31
楽天のなら作った事ある
368:デフォルトの名無しさん
05/12/07 09:24:49
ビックカメラのは組めませんか？
369:デフォルトの名無しさん
05/12/07 09:30:28
楽天のは空売りですよ
370:367
05/12/07 09:41:05
いや、俺は楽天で1円で1GBのmp3プレーヤゲットしたんだがｗ
サンプルページはないのか
ビックカメラの
仕様が分からんとどうにもならんだろ
371:デフォルトの名無しさん
05/12/07 10:57:09
ビックカメラの場合
こういう場合のと
URLﾘﾝｸ(www.biccamera.com)
こういう場合のがあるんだけどなんか違うの？
URLﾘﾝｸ(www.biccamera.com)
372:デフォルトの名無しさん
05/12/10 15:47:01
age保守
373:PAJA
05/12/10 16:52:51
はじめまして、PAJA といいます。
# Vine Linux 3.1 の Perl v5.8.2 です。
./trial.pl の中で、
`vi ./hoge.txt`
と記述したところ、下記のようなメッセージがでてしまいました。
" Vim: 警告: 端末への出力ではありません"
やりたいことは、./trial.pl を実行すると "./hoge.txt を vi で開く"
ようにすることです。
どうすれば、できるようになるでしょうか。
よろしく、お願いします。
374:デフォルトの名無しさん
05/12/10 17:23:42
system "vi hoge.txt";
375:PAJA
05/12/10 19:41:10
>> 374
ちゃんと開くことが出来るようになりました。
ありがとうございました。