トップページ⇒php
1001コメント304KB

【Perl】初心者コーナー Part14

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん02/07/18 16:34ID:jemWJhH3
いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。

1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。

1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

CGIだけど、なんか質問ある？ Part 6 （その2)
http://pc.2ch.net/test/read.cgi/php/1025930486/
参考書籍の話題は【【Perl,CGI】参考書籍 第２版】
http://pc.2ch.net/test/read.cgi/php/988809842/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
スクリプトの改造依頼は 【スクリプト改造工房 Part4】
http://pc.2ch.net/test/read.cgi/php/1012839651/

過去ログ、その他の役立ち情報は>>2-10あたりを見よう。
0102nobodyさん02/07/20 21:01ID:???
質問です
@unko=(4487,8456454,4544,945452,85,754);
@manko=sort @unko;
print "@manko[0..5]";
じゃ数字のソートにならなないです教えてください
ネタじゃないです
0103nobodyさん02/07/20 21:05ID:???
@obakana=sort{$a <=> $b}@hennsuumei;
0104７４ ◆nbuTfS9c 02/07/20 21:36ID:???
>>86さん　
いなくなってしまったのですか？　ﾜｰﾝ
おしえてくださいよー
0105nobodyさん02/07/20 21:56ID:???
トリップ解析がなぜperlなのかまず説明せよ
0106nobodyさん02/07/20 22:07ID:???
>>105
るせんだよ　CでもPascalでも良いから
さっさとコードだせや　このﾎﾞﾝｸﾗ糞厨が！！！
0107nobodyさん02/07/20 22:20ID:???
漏れがPascal知らない理由をまず説明せよ
0108nobodyさん02/07/20 23:08ID:???
>>106の削除依頼出してきました、、
っていうかじゃま。ここはPerlコンテストスレじゃないから、、
スレ立てれば？たぶんコテに荒らされるとは思うけど、、
0109nobodyさん02/07/20 23:46ID:???
procedure trip(a :String)
begin
println('解析しました');
end;
0110（笑いが止まらない）02/07/21 00:11ID:???
な、やっぱり86は逃げただろ？
所詮コテハンで書く奴なんてそんなもの。クズばっか
0111nobodyさん02/07/21 00:14ID:???
>>110
必死だなｗ
0112藁藁藁02/07/21 00:16ID:???
>>11 即レス必死だな。
0113nobodyさん02/07/21 00:17ID:???
>>112
どうでもいいが落ち着いてレスしな。
怒りで打ち震えているのはわかるが・・・。
0114nobodyさん02/07/21 00:20ID:???
歴代コテハンはクズばっか
クズばっか
ばかばっか
ばっか
0115nobodyさん02/07/21 00:21ID:???
>>114
お、壊れた壊れた♪
0116nobodyさん02/07/21 00:23ID:N7aMXnNp
2chでコテハンで書く奴は自意識過剰なDQN決定
オマケに低スキルとくるから害以外の何者でもないね
救\ﾂﾏ2耐2耐2・ 8対2鎗 !打2蔵 9体2銑<替2蔵 8繕2其>唾2耐2惰2耐3唾2俗 !詑2・4対2陀<9対2陀<8・2然ichﾏ2・ PE L ｢;・ ・ P
p bｮ `
@ ﾐ WI |
ﾈ ・ : `
0117nobodyさん02/07/21 00:23ID:???
Perl文法的にみて「このスクリプトの組み方はいい」というスクリプトの配布サイトを教えてください。
0118nobodyさん02/07/21 00:24ID:???
俺持ってるよ
0fillと左寄せで総当りする奴
CでufcCrypt使ってるから、perlの倍近く速い
0119nobodyさん02/07/21 00:45ID:???
>>117
Perlは文法的に破綻していると考えるのは俺だけか？
俺だけか・・・。
0120nobodyさん02/07/21 05:26ID:???
>>106

$i = 1;

while(1){
kill ">>106";
if(die ">>106"){last;}

$i ++;
}

print $i, "回の殺害で、>>106は氏にました";
0121nobodyさん02/07/21 07:14ID:???
ホント厨房だらけだな。
012274 ◆AQeVTHLI 02/07/21 09:42ID:???
86さんは私を裏切ったのですね。
恨みます。
0123nobodyさん02/07/21 09:56ID:v1h8+7/c
てうｓｔ
0124nobodyさん02/07/21 16:16ID:XUtCuljQ
掲示板を書いているのですが書き込んだ内容をファイルに記録すると
スクリプトのソースがファイルに記録されてしまうのですがどこが
おかしいのか教えてください。
ソースはこれです。
ttp://zor007.netfirms.com/files/159.txt
0125nobodyさん02/07/21 16:19ID:???
>>124
はじめ４行しか読んでないが。

$logの代わりに$reload開いてそれを$logに書き戻してないか？
0126７４ ◆nbuTfS9c 02/07/21 16:23ID:???
＞７４です
ガーンまだ教えてもらえないのね
0127nobodyさん02/07/21 16:27ID:???
>>74
この板の奴は口先だけ。
偉そうな口だけ一人前だから何も期待するな。
0128nobodyさん02/07/21 16:40ID:???
>>106
2chで使われているトリップのコードを元にしたやつね。

$hoge = '検索したいトリップ';
for($i=1;1;++$i){
$salt = substr($i."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/;:<=>?@[\\]^_`/AaBbCcDdEeFfG/;
$trip = substr(crypt($i, $salt),-8);
print "◆$trip : #$i\n" if ($trip =~ /$ARGV[0]/io);
}

数字のみしか解析できないからあとは適当に改良してな。
0129nobodyさん02/07/21 16:42ID:???
>>128
ミスった。$ARGV[0]→$hoge な
013012402/07/21 16:56ID:XUtCuljQ
ファイルに保存される内容はスクリプトの内容そのままではなくて
ＰＯＳＴした内容の後ろにソースが付くのですが、、、原因がさっぱり
です(´･ω･｀)
0131んじゃCで02/07/21 16:58ID:???
>>106
ボーランドのC++コンパイラで

#include <stdio.h>

int main(void)
{
while(1)
printf("\t\b\b");
}
をコンパイル。これCのコードね
んで.exe実行。で解析ファイルがでる。
かんばれ
0132nobodyさん02/07/21 16:59ID:???
>>131
確かNTのコンソール落ちるんだっけか？
0133コギャルとHな出会い02/07/21 17:08ID:8IhQDrIi
http://go.iclub.to/ddiooc/
　　　　　
　　　　　i/j/ez/対応です

お役立ちリンク集
必ず役立ちます

　サイト管理者お役立ち集
　　　　1日4000ＨＩＴ以上
↓
http://kado7.ug.to/wowo/
　　　　　　
　　　　　i/j/ez/対応
　　　　
　　　コギャルとＨ出来るサイトはここ
ヌキヌキ部屋へ直行便

　　　　　　　　　↓
　　 http://kado7.ug.to/wowo/-a.htm
　　　　
　　　　　　　i/j/ez/対応
0134nobodyさん02/07/21 17:29ID:???
>>132
俺がやったときは（バッチファイルで）再起動したよ。
そのあと、動作が不安定になって、再インストール。
0135nobodyさん02/07/21 17:33ID:???
>>65
遅れましたがレスありあり。

DProfと言葉遣いを勉強してきます。
0136.02/07/21 19:03ID:uxGaIo9z
Devel-DProfがインストールできません。
PPMで

Error installing package 'Devel-DProf': Could not locate a PPD file for package
Devel-DProf

などというエラーが出ます。
助けてください。
0137 ◆JAPH9PWA 02/07/21 19:13ID:???
>>136
Perlのバージョンは？
perl5.6以上なら標準で入ってるけど、
そうでなければ自分でビルドするしかないかもね。
0138.02/07/21 19:13ID:???
>>136
自己解決しました。「Devel-Profiler」って名前だったのねん。
0139nobodyさん02/07/21 19:26ID:???
>>124
use strict 使うか -cw でチェックしたりした？

掲示板の表示
sub Output{
my $message,$titel,$name,$mail,$reload,$color,$log,$check;
　　　　　　　　　　　　　　　　　↑
　　　　　　　　　　　　　　ちょっとしか読んでないけどtypoﾊｹﾝ
014012402/07/21 19:27ID:XUtCuljQ
いろいろ考えてみたんですがどうやらこの中がおかしいみたいなんですが
どこかおかしいところあるでしょうか？
sub File_write_read{
my $log,$addlog,$check_string;
my @logs;

$log = $_[0];
$check_string = $_[1];
$addlog = $_[2];

if(!open(ADD,"+<$log")){
return 0;
}
else{
flock(ADD,2);

if($check_string == 1){
@logs = <ADD>;
}
elsif($check_string == 2){
print ADD "$addlog";
@logs = <ADD>;
}
flock(ADD,8);
close(ADD);
return @logs;
}
}
0141nobodyさん02/07/21 20:14ID:???
exit(0);とexit(1);の違いを教えてください
0142nobodyさん02/07/21 20:53ID:???
>>141
0を返すか1を返すか。
0143nobodyさん02/07/21 20:54ID:???
返す値が違うと何が変わるんですか？
0144nobodyさん02/07/21 21:26ID:smidQHj9
>>128
これって半角英語入れられないですよね？

$hoge = '検索したいトリップ';
for($i=1;1;++$i){
$salt = substr($i."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/;:<=>?@[\\]^_`/AaBbCcDdEeFfG/;
$trip = substr(crypt($i, $salt),-8);
print "◆$trip : #$i\n" if ($trip =~ /$hoge/io);
}

forのところaからzっていれても駄目だし
どうすればいいんだろう
014512402/07/21 21:28ID:XUtCuljQ
>139
ありがとうございます
一応解決しましたが、、、
いろいろ試してみた結果windows上のapache2の上ではソースが
保存用ファイルにソースまで書き込まれてしまいおかしいなと思って
ＬＩＮＵＸ上のapache2で試してみたらちゃんと書き込みできましたこれってapacheのバグ！？
0146nobodyさん02/07/21 21:28ID:???
>>144
ほんとにPerl書けるんですか？
0147１２４02/07/21 21:33ID:XUtCuljQ
＞１４６
つい最近書き始めたばっかり
でもこのソースでLINUX上ではちゃんと動いた、、、
0148１２４02/07/21 21:34ID:XUtCuljQ
↑
俺へのレスじゃなかったのか間違えた鬱だ死のう
0149nobodyさん02/07/21 21:40ID:???
>>148
二度とくるな、
お前の頭がバグってる。
初級ネットにPerlスレあるからいってらっしゃい。
0150nobodyさん02/07/21 21:44ID:???
ｒｇｋｌｔぐｖｂｙｄｆｊぎｒんちｙｔｂｇｒふえいｈげｒ７８おｔｇ６７れｔｇ６７ｔれ７８ｇへれるｇれｈｒｈｔ
コテハンは糞
0151nobodyさん02/07/21 21:47ID:???
>>150
お前の挙げた条件はすべて満たしているが？
絶対にないとかほざくからそう言う恥ずかしいことになる。
0152nobodyさん02/07/21 21:49ID:???
151には何か別のものが見えるらしい。こわっ
0153nobodyさん02/07/21 21:56ID:smidQHj9
>>146
かけません。だから聞いているんです
お願いします
0154nobodyさん02/07/21 22:00ID:???
>>153
それよりさ
http://music.2ch.net/test/read.cgi/msaloon/1011182085/
なんでここからあなたがとんでくるわけ？
煽ってんじゃなくて理由がしりたい。
なんでいきなりPerlコードが書かれるのよ。
Ｄｒｅａｍが何者？とかいうよりあなたが何者？
0155そこの住人だから02/07/21 22:05ID:???
>>154
たまたま見つけたから。
知りたいんです。
0156nobodyさん02/07/21 22:13ID:???
>>149
お前も来るな！
何エラぶってのよ！
ｳﾞｧｰｰｰｶ
0157nobodyさん02/07/21 22:13ID:???
>>156が頭にエラーがある何よりの証拠だな。
0158nobodyさん02/07/21 22:21ID:???
>>157
頭にエラーって何でしょう？
脳の事いっているの？
プログラムより日本語勉強したら？
0159な〜つはス〜ぎ〜雨上が〜り02/07/21 23:11ID:???
┌─────────┐
│ 　 　 　 　 　 　 　 　　 ｜
│ . キ違い警報発令 !　│
│ 　 　 　 　 　 　 　 　　 ｜
└―――──――――┘
　　　　ヽ(´ー｀)ﾉ
　　 　 　 (　 へ)
　 　 　 　 く
0160nobodyさん02/07/21 23:52ID:???
foreach (@file){
@link=split/<>/;
if($link[0] eq "hoge"){
$hoge="$link[2]";
}
foreach($hoge){
@next=split/\t/;
print "$next[0]";
.....
}
と処理したいんですが、
どうも
foreach($hoge){
だと処理ができません。
こうしたい場合はいったいどうすれば宜しいのでしょうか？
0161nobodyさん02/07/22 00:02ID:???
@next= split(/\t/, $hoge);
0162nobodyさん02/07/22 00:04ID:WiTDQmMb
>>160
[書式]
foreach 変数(配列){
 処理
}
016316002/07/22 00:45ID:???
すみません。間に合わせで解決しました。
0164nobodyさん02/07/22 01:17ID:???
>>163　もう二度と来るなよ
0165nobodyさん02/07/22 01:22ID:???
>>164
良かったね。と言ってやるのが大人の対応です。
0166ひろゆ子＆diams;HRUNYAXA02/07/22 02:06ID:???
jjjjjjjjjj
0167bigpapa02/07/22 02:21ID:???

■　全国の愛すべき諸君へ　沖縄より愛を込めてbigpapaより

★　2ちゃんねるの管理人に賠償と書き込みの削除を命令　東京地裁　
------------------------------------------------------------　
　インターネット上の人気サイト「２ちゃんねる」の掲示板をめぐり、
東京都内の動物病院が「書き込みで中傷された」として東京地裁は２６日、
４００万円の支払いと書き込みの削除を命じた。

管理人は「不当な判決だ。賠償額についても不満があり、控訴する予定」
と話している。［毎日新聞６月２６日
　

■ 東京地裁の判決の詳しい結果は下記のURLをご覧ください。
■ http://www1.ryucom.ne.jp/papa/newpage2chsaiban.htm

■　アスキーアート(AA)の定義JISアートの定義は下記URLへ
■ http://www1.ryucom.ne.jp/papa/asciiart.htm
0168nobodyさん02/07/22 03:48ID:Ajg2mltJ
perlでintergerなど、変数の型を指定する事は可能ですか？
0169nobodyさん02/07/22 05:04ID:???
あい
017016802/07/22 07:13ID:Ajg2mltJ
どうすれば良いんですか？
0171nobodyさん02/07/22 11:09ID:???
>>170
intな値を代入する。
$int　=　100 ;
0172&diams02/07/22 12:41ID:???
aaa
0173♦#02/07/22 14:50ID:???
変数の型で interger って初めて聞いたＹＯ！
0174Piano ◆QGZrdAAA 02/07/22 15:27ID:EIYlzT8w
googleのI'm feeling Luckyを組み込んだ
メタ検索CGI作ってるんですが、

print "Location: http://www.google.co.jp/search?q=".$in{'word'}."&ie=UTF-8&oe=UTF-8&hl=ja&btnI=I%27m+Feeling+Lucky&lr=lang_ja\n\n";

とした場合、平仮名やカタカナは問題なく即リンクできるんですけど
漢字で検索をかけた場合、見当違いなホームページに飛んでしまいます。

$in{'word'}に入ってる値のエンコードが問題かと思いましたが
普通のgoogle検索だと問題なくこのメタＣＧＩで検索できたので
エンコードの問題では無いと思うんですが、、、。
誰か教えて下さい、お願いします。
0175hage02/07/22 15:31ID:???
gooでやってるみたいなHPのスクリーンショットをサムネイル化したリンク集できる？
Perlで。もしくはPHPで。
0176nobodyさん02/07/22 15:52ID:K2sicsKl
geocitiesはＣＧＩつかえないの？
0177nobodyさん02/07/22 16:04ID:???
使えないよ。
0178nobodyさん02/07/22 17:00ID:???
for(my $i = "0001";$i < "0011";$i++){
　　　print "$i\n";
}

結果
0001
0002
・
・
・
0010

初めて知ったyo
0179nobodyさん02/07/22 17:22ID:???
どっかの本に

$prog = <<"PERL";
for($i=1;1;++$i){
$salt = substr($i."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/;:<=>?@[\\]^_`/AaBbCcDdEeFfG/;
$trip = substr(crypt($i, $salt),-8);
}
PROG

eval $prog;

こうすると、似たような処理を繰り返すとき早いとか書いてあったけど実際はどうなの？（記憶が曖昧でｽﾏｿ）
0180nobodyさん02/07/22 17:24ID:???
なんか、サブルーチンに似てるな。
0181nobodyさん02/07/22 18:42ID:7X7F8f9K
open(IN,"$log");
eval { flock IN, 2; };
@line=<IN>;
eval { flock IN, 8; };
close(IN);
すみません質問です。
このロック処理の方法はミスがありますでしょうか？
私は意味が無いような気がするんですが、
どうもこれだという理由がなくて困ってます。
0182nobodyさん02/07/22 18:50ID:???
>>181
あっちこっち書くなよ、糞虫が
2chで外国人以下の敬語モドキ使ってる暇有ったら
検索でもしろよこの中卒塗装工が
018318102/07/22 18:53ID:???
>>182
すみませんでした。
で、答えの方はー？ﾌﾟｩ＿＿＿。
0184nobodyさん02/07/22 19:06ID:???
>>181
open(IN,"<$log");
eval { flock(IN, 2); };
@line=<IN>;
close(IN);

これのほうが良いかな〜?
018518102/07/22 19:14ID:???
>>184
そうですか〜。
わっかりました。
ほんとにですか？
0186nobodyさん02/07/22 19:16ID:???
冗談に決まってるじゃん
018718102/07/22 19:19ID:???
>>186
失礼ですが答えを知っておれますか？
0188nobodyさん02/07/22 19:25ID:???
>>186 = 嘘つき
0189nobodyさん02/07/22 19:25ID:???
ﾊ-ｹﾞｼｸﾜ-ﾗﾀ
019018102/07/22 19:50ID:???
>>181
flock(XX, 1) 読込中なので書込をロック、あとから来たら待つ。（ブロック）
flock(XX, 2) 書込中だから書込読込ロック、あとから来たら待つ。（ブロック）
flock(XX, 5) 読込中なので書込をロック、あとから来たら0を返す。
flock(XX, 6) 書込中だから書込読込ロック、あとから来たら0を返す。
flock(XX, 8) ロック解除（close(XX)すれば解除なのであまり使わない）。
019118102/07/22 19:51ID:???
残りは俺の肛門。
0192Piano ◆QGZrdAAA 02/07/22 20:57ID:Ipm5/McI
どなたか>>174の質問がわかる方いらっしゃいませんか？
0193nobodyさん02/07/22 21:03ID:???
>>192
googleAPIについて勉強するのが吉。
019418102/07/22 21:06ID:???
>>174
POST限定じゃないの？
019518102/07/22 21:07ID:???
http://www.google.co.jp/search?q=in{'$word'}&btnI=I'm+Feeling+Lucky
これならいける？
019618102/07/22 21:10ID:???
&ieとか書くと駄目だね。
わかったか厨房？ﾌﾟｩ＿＿＿。
019718102/07/22 21:17ID:???
>>Piano ◆QGZrdAAA
195の方法で出来たんだろ？
無視かよ！
0198nobodyさん02/07/22 21:19ID:???
るせｳﾞｧｶ
019918102/07/22 21:20ID:???
>>198
はぁ。はいはい。
0200nobodyさん02/07/22 21:34ID:???
>>199　煎って葦!
0201nobodyさん02/07/22 21:36ID:???
　　　∧　 b
　 ／●ヽ/
　(∧＿∧)　 ／￣￣￣￣￣
　（　´∀｀）＜　質問前に過去スレ検索ﾓﾅｰ。
　（　　　　） 　＼＿＿＿＿＿
　｜ ｜　|
　（_＿）＿）
■ このスレッドは過去ログ倉庫に格納されています