Perl コーディング初心者質問コーナー Part27

**nobodyさん** · 03/08/14 06:06

いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

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

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

関連スレ
【Perl上級者コーナーPart01】
http://pc2.2ch.net/test/read.cgi/php/1024741312/
CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
【スクリプト改造工房 PART 6　】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

過去ログやお勧めサイトは >>2-10

**nobodyさん** · 03/08/17 15:07

>>160
そうみたいだな

**nobodyさん** · 03/08/17 15:22

レス削除で削除人からコピペで依頼してくれってあったから、
運用情報のほうへ回そう
荒らしとしてアク禁しますっていうことなんじゃないか？

**nobodyさん** · 03/08/17 15:43

>>160
なんでアレは削除依頼に入れてくれないんだろう。

**nobodyさん** · 03/08/17 17:34

#! /usr/local/bin/perl

while(<STDIN>) {
　　　　print;
}

のようなフィルター（そのまま出力するだけですが（；´Д｀））を作った後、
DOSの場合、どうやって実行するんですか？

すごい初歩的な質問でスイマセン

**nobodyさん** · 03/08/17 17:36

Perlでﾊﾞｲﾅﾘﾌｧｲﾙに保存したいんだけど、なにかあります？

**nobodyさん** · 03/08/17 18:11

>>164
perlにパスが通っており、
それがtest.plというファイルなら、
test.plのあるフォルダにcdコマンドで移動し、
perl test.pl
と打ってEnterを押す。

とか、普通に答えてみる。

コーディングの質問じゃねー。

**nobodyさん** · 03/08/17 18:16

>>165
binmode( FILE );
print FILE $buff;

**nobodyさん** · 03/08/17 18:23

>>166
出来ました。ありがとうございます。
というかスレ違いでしたか、スイマセン。今から気をつけます。

**nobodyさん** · 03/08/17 18:24

>>165
>Perlでﾊﾞｲﾅﾘﾌｧｲﾙに保存したいんだけど、なにか(いいバイナリファイル)あります？
画像ファイルがバイナリファイルだろうね。

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/17 18:44

アクセス解析のCGI作ったんですけど、
フレームを使っている性で全部リファラがindexになってしまいます。
使っている鯖はSSIは使えませんし、.htaccessも使えません。

どうすればリファラが取れるんですか？教えてください。御願いします。

すれ違いだったらすいません。

**nobodyさん** · 03/08/17 18:53

>171
CGIスレ向き。

**あぼーん** · NG

あぼーん

**139** · 03/08/17 19:29

>>140
説明不足ですみません。
要はモジュールを使わずにpop接続を行いたいのです。

**あぼーん** · NG

あぼーん

**149** · 03/08/17 19:40

>>151
ありがとうございました。
ちょっとうまくいかないんですが（ＴＴ）
なんか根本的に判ってないかもしれないので出直します。
splitの勉強を・・・

**nobodyさん** · 03/08/17 19:41

>>174
一旦モジュールを使って望みの動作をするスクリプトを組み、
コードを全てインライン展開する。

**nobodyさん** · 03/08/17 19:57

>>176
>>151は荒氏だから参考しるな！
病気がうつるぞ～。
splitの勉強汁～。

**nobodyさん** · 03/08/17 20:35

荒ｸﾝを解析してみたよ。
・17歳童貞
・高校生だが、成績が追いつかず、学校でも苛められて現在引き篭もり中。近々退学予定。
・自己管理が出来ず、体系は肥満気味。お風呂に入らないので臭い。
・家族構成は共働き両親２人とペットのハムスター20匹（名前付き）
・起きている間は、ほぼインターネットを利用している。
・最近KENT-WEBからASKAを借りてきて、初めてPerlを知った。
・日ごろから、書き込む度に叩かれている某掲示板には恨みを抱いているようだ。
・もう2ヶ月ほど家族意外と顔を合わせた事は無い。

**nobodyさん** · 03/08/17 20:42

>>174ソケット使ってやるしかないですナァ…。

**nobodyさん** · 03/08/17 20:53

>>174
http://x68000.startshop.co.jp/~68user/net/
ここのサンプルはSocketモジュールを使ってるけど、
「サンプルがperl5専用なワケ」を読めば、すぐperl4対応
（->モジュール不使用）にできるはず。

しかし、なんでモジュールを使わずに？

**nobodyさん** · 03/08/17 20:58

>>179
まぁまぁ、そう自己紹介しなさんな。

**nobodyさん** · 03/08/17 21:17

>>128
ネタはマジレスの前にしましょう。

**nobodyさん** · 03/08/17 23:06

#!/usr/local/bin/perl
require './cgi-lib.pl';

%form = &read_input('euc');
$name = $form{'name'};

print "Content-type: text/html\n\n";
print "<html><head><title>結果</title></head><body>\n";
print "<p>名前：$name</p>\n";
print "</body></html>\n";

↑のようなスクリプト作ってANHTTPDを起動し、
実行しようとしても「サーバーがみつかりません」が表示されます。
何がいけないんでしょうか？

**nobodyさん** · 03/08/17 23:06

IO::File の使い方教えてください
日本語で解説してある際とがぜんぜんないもんで。

use IO::File;
my $fh = new IO::File('log.dat','r');　#読み込み
my $fh = new IO::File('log.dat','w');　#書き込み
my $fh = new IO::File('log.dat','r+w');　#両方

などでオープンできるとこまではわかったんだが、
このファイルから全部読み込む場合にはどうしたらいい？

my @array = $fh->read;　　　←　こんな感じでよいのかい？

あと、書き込むときは

$fh->print('文字列');

で、可能みたいなんだが、英語が四面からわからん。

**nobodyさん** · 03/08/17 23:18

>>184
perlコーディングとは「全く」関係無いですね。そのエラーから「推測」すると、
あなたのクライアントからサーバーが見れていないようです

**nobodyさん** · 03/08/17 23:20

> で、可能みたいなんだが、英語が四面からわからん。

こんな事言う様じゃ解答する気になれないな。
これを機会に読めるように辞書片手に必死こいて読んで見たら？

解答者の中にはそうやってスキルとか知識身につけてる人もいるんだから

**nobodyさん** · 03/08/17 23:32

>>184
httpdの設定を確認汁。

**nobodyさん** · 03/08/17 23:51

>>186,>>188
回答ありがとうございます。
でもANHTTPDは「CGIを実行する」にチェックが入ってます・・・

**139** · 03/08/18 00:10

>>181
仕事でパッケージ化するかもしれないといわれたので、
完全オリジナルでなかったら何かと問題が出るかと思い、
質問させていただきました。
もともとは趣味で作ってたものなので。

標準モジュールは使っても問題ないのでしょうかねぇ、、、

**nobodyさん** · 03/08/18 00:34

>>189
どっちにしてもさっきのソースとは関係なし
ANHTTPDがちゃんと動くことを確認してから質問せよ

**nobodyさん** · 03/08/18 00:47

>>189
そもそもCGI以外はどうなのか。閲覧可能なのか。

**nobodyさん** · 03/08/18 01:29

>>189
板違いだ！ヴォケ！！二度と質問するな！クソ坊主！！

**nobodyさん** · 03/08/18 01:32

>>139
できねーっていってんだろ！馬鹿！！
おまえみたいなよく読まない奴は、うざいからさ。とっととどっか行ってくれない？
まじに迷惑なの、わかんない？？

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/18 05:32

>>174
getprotobyname
gethostbyname
socket
bind
connect
これらを使えばOK

**nobodyさん** · 03/08/18 05:42

bindはいらないと思う。

**nobodyさん** · 03/08/18 06:19

Date::Simple という、
日付のチェックを行う便利なライブラリがあったので
インストールしたんですが、なぜか使えません。

my $date = new Date::Simple(1999,12,31);

を実行すると

Undefined subroutine

というエラーが出ます。new関数が定義されてないとか言われ増す。ためしに

print $Date::Simple::VERSION;

とやってみたら、ただしく 1.03 と表示されたので、
ライブラリのパスが間違っているとかそういうことはないと思うんですが、
どうやったら使えます？

**nobodyさん** · 03/08/18 09:22

>>204
理由は？それに、「思う」とか不確実な表現されても理由も書かないんじゃ全然説得力無い

**nobodyさん** · 03/08/18 09:38

>>206
TCPクライアントなら必要なし。
http://www.kt.rim.or.jp/~ksk/sock-faq/unix-socket-faq-ja-3.html#ss3.6
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlipc.html#Internet_TCP_Clients_and_Servers

**nobodyさん** · 03/08/18 11:11

if($ran==6)
だと６の時という事ですが、
６以外と指定するのはどう書くんですか？

**nobodyさん** · 03/08/18 11:12

>>208
http://www5a.biglobe.ne.jp/~n_rieko/perl/5.htm

**nobodyさん** · 03/08/18 11:31

>>205
エラーの原因はそれだけでは分からんが、
Date::Simple の最新版は 2.04 だね。
http://search.cpan.org/author/JTOBEY/Date-Simple-2.04/

**nobodyさん** · 03/08/18 12:12

設置が超簡単で商用ＯＫのスクリプトを開発中

スクリプト１個でblogを作るスレ
http://s37.1000gex.net/test/read.php/pc/1061132998/

・２ｃｈブラウザはこちら

スクリプト１個でblogを作るスレ
http://s37.1000gex.net/test/read.cgi?bbs=pc&key=1061132998

**nobodyさん** · 03/08/18 12:48

>>211ブラクラ

**nobodyさん** · 03/08/18 12:48

>>211
1000gex って糞７じゃねーか

**nobodyさん** · 03/08/18 13:06

うちの2chブラウザだと、
＞ http://s37.ポン既知/test/read.php/pc/1061132998/ と表示されますが何か？

**nobodyさん** · 03/08/18 13:19

>>206
ﾜﾗﾀ死ねや厨房

**nobodyさん** · 03/08/18 13:31

>>215↑糞7？

**nobodyさん** · 03/08/18 14:27

>>206
普通にｷﾓｲと思います。多分伊達眼鏡とかかけてる人。

**nobodyさん** · 03/08/18 14:35

>>205
useしてる？

・・・してないわけないか。

**nobodyさん** · 03/08/18 14:48

ちょうド素人でスマソ
重いPerl製CGIをサーバーに置こうと思ってるんですが、
少しでも動作を軽くしようと思っています。
そこでききたいのですが、Perlのコメント部分を全て消して余分な部分を少しでも減らしたら少しでも軽くなるでしょうか？
コメントを消したりしたら軽くなる、ってはなし聞いたことないんですが、実際のところはどうなんですか？
一応、少しだけでも軽くなれば目標達成なので。

**nobodyさん** · 03/08/18 14:50

２行目にexit;って入れたら最速になるぞ

**nobodyさん** · 03/08/18 14:56

>219
ナノ秒やピコ秒単位でなら早くなるかもね。

**nobodyさん** · 03/08/18 16:47

>>217糞７？

**nobodyさん** · 03/08/18 18:35

perlでファイルを新規作成するにはどうしたらいいのでしょうか？
書き込み時にファイルが存在しないとファイルが作成されるのは知ってるのですが、

unless (-e $datafile){
　　　　＜unlinkの逆＞ $datafile;
};

をやりたいのですが。。。

**nobodyさん** · 03/08/18 18:44

>>223
touch ちんこ

**nobodyさん** · 03/08/18 18:47

乱数の生成は分かるのですが、
パスワードの生成（しかも、使える文字は[a-z0-9]で大文字はなし）が
どうすればいいのでしょうか？

**223** · 03/08/18 18:49

>>224
すいません。perlからunixのコマンド起動できないんです。。。

**nobodyさん** · 03/08/18 18:54

>>219

まず、ファイルを削除します。それから、ファイルの復旧を行って
オプションを、コメントなしに設定すると軽くなります。

**nobodyさん** · 03/08/18 18:56

>>223

板違いだから、ＷＥＢ板へいけ。邪魔だ。消えろ！

**nobodyさん** · 03/08/18 18:57

>>226
そんなエレガントな(?)関数は無いよ。

sub touch ($) {
　local *FH;
　my $ret = open(FH, ">>$_[0]");
　close(FH);

　return $ret;
}

**nobodyさん** · 03/08/18 18:57

>>225
乱数を細かく設定するには、ファイルの削除で削除してから
設定します。

**nobodyさん** · 03/08/18 18:58

>>226

そのパソコンはできないんだよ。
初心者の質問は違うとこでやってね。迷惑。うざい！死ね！！

**nobodyさん** · 03/08/18 18:59

>>223
open FILE , ">$datafile" unless -e $datafile;
close FILE;

これで空ファイルつくるだろ。

**nobodyさん** · 03/08/18 19:03

>>228
>>231
もちっとましな物言い、できんのかよ…
自分らの書いたせりふ、声に出して言ってみ

**nobodyさん** · 03/08/18 19:03

>>225
なぜか面白いことがしたくなる…

@char = (0 .. 9, 'a' .. 'z', 'A' .. 'Z');
print join '' @char[ map(int rand @char, 1 .. 8) ];

**nobodyさん** · 03/08/18 19:04

おっと。コンマが抜けた。

print join '', @char[ map(int rand @char, 1 .. 8) ];

**nobodyさん** · 03/08/18 19:05

大文字は無しか…うぅ
@char = (0 .. 9, 'a' .. 'z');

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/18 19:09

>>225
こうだな

@char = (0 .. 9, 'a' .. 'z', 'A' .. 'Z');
print join '' @char[ while(int rand @char, ..) ];

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/18 19:28

>>205
newメソッドがないと
Can't locate object method "new" via package "Date::Simple"
とでるので、別の原因があると思われ。

Date::Simpleはpure perlだから、/Date/Simple.pmを探してみそ。

**nobodyさん** · 03/08/18 20:01

>233
荒らしは放置しる。

**nobodyさん** · 03/08/18 23:23

無知がこんどは糞7扱いか。

**nobodyさん** · 03/08/19 00:55

簡単なことだと思うのですが、
ＣＧＩ（Perl）で、カレントディレクトリにあるHTMLを、
呼び出して、それをそのまま表示する方法が分かりません。
具具ってもなかなか見つからないので、お助け下さい。

**nobodyさん** · 03/08/19 01:08

>>246
(略)
if(!open(FILE,"file.html")){
print "Can't open\n";
exit(1);
}
undef $/;
$a=<FILE>;
print $a;

**nobodyさん** · 03/08/19 01:48

何故ぐぐっても分からないか。

・そんなことしても意味がない
・簡単すぎるから解説するまでもない

**nobodyさん** · 03/08/19 01:53

>>246
my $file = "hoge.html";
open(Fh, $file) or die "Could'nt open $file $!\n";
print while(<Fh>);
close(Fh);

Perlっぽく。
CGIならContent-typeとか、dieするとまずいとかあるから、注意。

**nobodyさん** · 03/08/19 03:43

>>249
ファイルハンドルは全て大文字で書かなくても委員会？
動作はするだろうがな

**nobodyさん** · 03/08/19 18:46

>>246

何故ぐぐってもわからない馬鹿が質問するか？

・>>246　は生きる価値のないクズ！
・>>246　は初心者で板違いの迷惑やろう
・早く死ね！

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/19 19:06

>>250
別に大文字じゃなけりゃいかんという決まりはなかったと思うが。