Perlコーディング初心者質問スレ Part 38

**nobodyさん** · 04/10/07 23:23:08

Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

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

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

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

**nobodyさん** · 04/11/06 20:55:15

　　　 ○ ,　　　　　　　　　　　　　　　　　　 ○>
　　　/￣'☆ 　　　　　　　　　　　　　　　　　　）>>585
　／ >　　　　　　　　　　　　　　　　　　　　／

**nobodyさん** · 04/11/06 20:56:12

Win2K + Active Perl 5.8 を使用しています。以下のスクリプト
を実行すると、「p.tif」のファイル名が文字化けしてしまいます。
「use encoding "shift_jis";」の行を外すと、正常に「あ.tif」に変換
されるのですが、この行を残したままrename するにはどうすれば
よろしいでしょうか？

use encoding "shift_jis";
chdir 'c:\\test';
rename "p.tif", "あ.tif";

**nobodyさん** · 04/11/06 21:13:32

　　　 ○ ,　　　　　　　　　　　　　　　　　　 ○>
　　　/￣'☆ 　　　　　　　　　　　　　　　　　　）>>587　
　／ >　　　　　　　　　　　　　　　　　　　　／

☆をダブルクリックするとかめはめ波が出るぞ！

注）設定とか環境のせいで正常にかめはめ波しないときがあります

**nobodyさん** · 04/11/06 21:20:51

perl 5の正規表現で、content-typeヘッダに日本語があるかないかを判別するのに
iso-2022-jp|shift-jis|euc-jp|multipart\/mixed
という記述をします。これを応用して、『英語か日本語にマッチ』するかどうかを記述するには
どうすればよいでしょうか？

**５８７** · 04/11/06 22:56:11

>>587 は自己解決できましたが、もっとスマートな方法があれば
よろしくお願いします。

use encoding "shift_jis";
use Encode;

chdir 'c:\\test';
$str = encode("shiftjis","あ.tif");
rename "p.tif", $str;

**nobodyさん** · 04/11/06 23:23:01

>>587
no encoding;
で一旦切ってしまって、処理後にもう一度
use encoding "shift_jis";
しておく…のはあまりスマートじゃないですね。。

>>589
「キャラクタセットが英語または日本語である場合マッチ」ということなら、
http://www.iana.org/assignments/character-sets
↑と睨めっこして、必要なのを足していくとか。
(キャラクタセットの指定が無かったり、Unicodeを使われたら、終わりな気もするけど。)

**nobodyさん** · 04/11/07 19:03:48

HTMLのみたいに複数行をまとめてコメントアウト
する方法をど忘れしてしまったので教えてください。
「#」じゃなく。

**592** · 04/11/07 19:14:26

自己完結。

=comment # ここからコメント
=cut # ここまでコメント

**nobodyさん** · 04/11/07 19:14:34

回答方法もど忘れしてしまいました。

**nobodyさん** · 04/11/07 20:51:25

お恥ずかしい話ですがsplitガどうしても上手くいきません。

@dat = split(/*/, <DAT>);

これで合ってると思うのですが、どうしてもエラーになってしまいます。
*DATは存在します。ちゃんと*で区切られています。

**nobodyさん** · 04/11/07 20:53:39

* → \*

**nobodyさん** · 04/11/07 20:54:42

全角半角混合の文字列からある順番の文字を取得したいのですがうまくいきません。
誰かお願いします。

文字列　$xx=あいうえおaiueo
から2番目の'い'を取り出だすとき
substr($xx,1,1);ではだめで
全角は2バイト分なので
substr($xx,3,2);でないとだめなようです。

**nobodyさん** · 04/11/07 20:55:58

>>597
何がしたいのかサッパリわからん

**597** · 04/11/07 21:00:05

たとえば
ランダムに生成された全角半角混合の文字列
$xx=げあじgraふぇeあefaじえeaあい;
から９番目のeを取り出す方法を教えて

**nobodyさん** · 04/11/07 21:56:10

>>599
use Encode を使え
ただし 5.8 以上の perl でないとだめだが

**nobodyさん** · 04/11/07 22:01:19

文字列を1文字ごとに分割して配列に入れりゃいいんじゃないか？

**nobodyさん** · 04/11/07 22:03:13

んじゃ文字を配列にバラすコードを。文字コードは勝手にSJISと判断。
my @moji;
foreach ($xx =~ /[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc]|[\x20-\x7e\xa0-\xdf]/g) {push (@moji,$_)}
print $moji[8];

**nobodyさん** · 04/11/07 22:40:30

>>602
そこまでやったら、直接取り出せばいいんじゃない？
my $p = 9;
my ($moji) = ($xx =~ /([\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc]|[\x20-\x7e\xa0-\xdf]){$p}/);
print $moji;

お勧めは、version5.8以上なら>>600さんの通りEncodeで、
それ未満なら、
http://search.cpan.org/~sadahiro/String-Multibyte-1.05/Multibyte.pm

**nobodyさん** · 04/11/08 00:46:30

どこまでしたいか謎だったからなぁ。やりたいのはこうかもしんないし。
my @moji = ($xx =~ /[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc]|[\x20-\x7e\xa0-\xdf]/g);
print @moji[2..8];

なんにせよ環境も要件もよくわからんと返しようがないのぉ。

**597** · 04/11/08 02:03:34

パールは5.8 以上みたいです。
トリップ生成用途だったのですが、これでうまくいきそうです。
みなさんどうもありがとうございます。

**595** · 04/11/08 09:25:10

>>596
動きました！ありがとうございます。

**595** · 04/11/08 11:09:36

@data = split(/\n/, <DAT>);
で代入したら、$data[0]にしか代入されていません。
どなたかよろしくお願いします。

**nobodyさん** · 04/11/08 12:07:11

>>607
その場合の <DAT> は一行しか読み込まないので、当然そうなるだろう。

というか何がしたいのだいったい。
ひょっとして君のやりたいことは @data = <DAT> だったりしないか。

**nobodyさん** · 04/11/08 13:34:38

つーか、<DAT>って何よｗ？

**595** · 04/11/08 15:22:15

>>608-609
あっ、すみません。<DAT>はファイルハンドルです。

>>608
なぜこの場合だと一行しか読み込まないのですか？
では、どうすればすべての行を読み込んでくれますか？

説明不足ですみません。返答お願いします。

**nobodyさん** · 04/11/08 15:27:35

>>610
608をちゃんと読めｱﾎ

**595** · 04/11/08 16:59:14

>>611
すみません。やっていることがおかしかったですね。
ありがとうございました。

**nobodyさん** · 04/11/08 17:06:22

ちょっとすれ違いなのですが
http://www98.sakura.ne.jp/~jun/perl/
どなたかここの移転先を知りませんか？
Perlに関するTipsや排他制御について、リファレンスについて説明してあったサイトなのですが
何時の間にかなくなったようで、、、、

**nobodyさん** · 04/11/08 17:17:29

ちょっとどころじゃなく全くのスレ違いなんですが、
閉鎖したんじゃないですかね？

どうしても見たいなら

ttp://web.archive.org/

でも使って下さい。

**nobodyさん** · 04/11/08 21:29:51

@var=<IN>;
とすると改行\nが消えないですが、それを消して配列に代入する方法はありませんか。

**nobodyさん** · 04/11/08 21:45:10

たまにこういう釣りみたいな質問が来るな

**nobodyさん** · 04/11/08 21:57:37

>>615
{ local $/ = undef; @var = split(/\n/, <IN>); }

あたりかな。ただしファイルの末尾の空行が消えるのが嫌なら、
splitの第3引数に負の値を与えるとともに、splitしたあとで
@varの最後の要素を捨てる必要があるだろう。

普通に読んだ後でchomp @varした方が書くのは楽だね。

**nobodyさん** · 04/11/08 22:31:46

chomp(@var=<IN>);

**nobodyさん** · 04/11/09 00:16:14

配列をヒアドキュメントでprintするとスペースも一緒にprintされてしまうわけですが、
これを回避するにはいちいちヒアドキュメントを閉じるしかないですか？

**nobodyさん** · 04/11/09 00:47:01

**nobodyさん** · 04/11/09 01:27:59

>>619
$"を空文字列にしておく

あるいは、

@{[join('',@a)]}として埋め込む

**619** · 04/11/09 02:18:31

>>621
腸ありがとう

**nobodyさん** · 04/11/09 06:54:36

>616
このｽﾚで質問するとよく言われます。。

>617>618
ありがとうございます。

**nobodyさん** · 04/11/09 07:22:29

>623
言われないように努力したりしないの？
釣りだと思われるような質問しちゃってるんだよ？

**nobodyさん** · 04/11/09 07:43:45

Perlから，自分が動いているOSを知ることは出来ますでしょうか。
例えばWindowsで下を実行すると

print $^O
> MSWin32

とか出ますが，WinXPとかWin98とかくらいまで詳しく知るには，どういう方法がありますか。
（できればUnix系でも詳しく知りたいです）

**nobodyさん** · 04/11/09 09:36:25

別のウェブサーバー上にあるファイルの情報をstatとかで更新されているか、
されていないかとかしたいのですが、どうやってやったらいいのでしょう？
$url = "http://www.example.com/file.jpg";
@data = stat $url;
とかやっても取れないので(うすうすわかっていましたが)。。。
ウェブ上のデータとstatの内容を取得する方法を教えてください。

**nobodyさん** · 04/11/09 09:59:56

>>626
lwpでもなんでもいいけど
httpのヘッダで
Date　か　Last-Modified　みるしかなかんべ。
取れなかったら諦めるしかない。

**nobodyさん** · 04/11/09 10:07:38

>>627
ありがとう。
そういうものなんですか。

**nobodyさん** · 04/11/09 18:49:56

>>625
$hoge =`uname -m`; とか。
詳しいことはUNIXのコマンドリファレンスでも探せば良し。

>>626
他のサーバーのデータは、
socketでソケット作って、connectで繋いで初めて得られる。
色々複雑だから、素直に解説本読みなはれ。

**nobodyさん** · 04/11/09 19:46:44

>>625
http://aspn.activestate.com/ASPN/docs/ActivePerl/lib/Win32.html

use Win32;
print join(', ', Win32::GetOSVersion()), "\n";
print join(', ', Win32::GetOSName()), "\n";

**nobodyさん** · 04/11/09 22:34:49

>>629-630
ありがとうございます。こんな風にしていろいろな環境でOS名を取得できました。
# 自分の目的のためには下の例で事が済んだのですが。

#-------
my $OS;
if ( $OS = `uname -s` ) {
#do nothing
} elsif ( !$OS and eval{require Win32} ) {
$OS = ( Win32::GetOSName() )[0];
} else {
die "MacPerl?";
}
print $OS;
> Linux, FreeBSD, Win2000, Win98...

#-------
my $OS = $^O;
if ( $OS eq 'MSWin32' ) {
require Win32;
$OS = ( Win32::GetOSName() )[0];
}
print $OS;
> linux, freebsd, Win2000, Win98...

**nobodyさん** · 04/11/09 23:22:24

CGIにhtml組み込んで、
アクセスしてみたら、真っ白のページが表示されます。
んで、ホームページのソース表示してみたら、
確かにそこにはhtmlソースがちゃんとあるんだけど、
表示されていない。

原因はどんなことが考えられますでしょうか？

**nobodyさん** · 04/11/09 23:29:58

>>632
どうせまともな HTML 吐いてないとかじゃないの？

**nobodyさん** · 04/11/09 23:31:31

タグの閉じ忘れ

つうか原因探ってほしいならソースをどっかにあげましょう

**632** · 04/11/09 23:34:40

print <<__HTML__;
Content-Type: text/html; charset=EUC-JP

<html lang="ja"><head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=EUC-JP">
<title>test</title>

このコードに問題ありますか？

**632** · 04/11/09 23:36:40

タグの閉じ忘れっぽいですね、
他ブラウザで試したら表示されました。
企業から配布されてるスクリプトなのにテキトーだなぁ

サンクスでした。

**nobodyさん** · 04/11/10 00:18:59

スレ違いだったら大変申し訳ございません。

cronでcgiを動かすにはどのように設定ファイルを書けば宜しいのでしょうか。

/public_html/a.cgi
にありますcgiを例えば１時間毎にa.cgi?a=1&b=2とパラメータを渡してcronで
実行したいのですが。

よろしくお願い致します。

**nobodyさん** · 04/11/10 00:22:22

ｽﾚ違いだな。ｽﾚﾀｲを100回音読してから、また質問しに来ような

**nobodyさん** · 04/11/10 00:37:27

>>638
大変申し訳ありません。
該当スレを御存知でしたらお願いしたいのですが。

**nobodyさん** · 04/11/10 00:39:15

>>639
犬板のくだ質

**nobodyさん** · 04/11/10 05:09:30

>>637
perl /public_html/a.cgi
パラメータは渡せるが動的にするのはcronじゃ無理じゃないかな～（知らないだけかも）
ちなみにコマンドラインのときはGETメソッドじゃなく引数になるから受け方違うよ

a=1とb=2が決まってるなら
ファイルの最初に宣言した方が早い

どうしてもCGIとして動かしたいならばWWW経由で/public_html/a.cgiを呼び出すプログラムが必要

それよりコマンドラインでperlを使ったことなさそうだけど
作るときちゃんと文法チェックしてるのかな？

**nobodyさん** · 04/11/10 08:39:47

誘導済みのスレ違いの質問にレス付ける馬鹿。
晒し上げ。

**nobodyさん** · 04/11/10 11:45:26

@data = (system("df"));
とかして、ディスクの使用状況をテキストに書き出したいんだけど、
これじゃあ戻り値を取得できないですよね。
どうやったら取得できますか？

**nobodyさん** · 04/11/10 11:55:42

643です。
自己解決しますた。m(_ _)m

**nobodyさん** · 04/11/10 16:07:28

PERLで作成したファイルをPERLからダウンロードさせる場合に
どのようにしたらいいのでしょうか？

ﾌｧｲﾙ作成後に「ダウンロード」とボタンを表示してクリックしたら
ﾌｧｲﾙをダウンロードするみたいな感じです。

**nobodyさん** · 04/11/10 17:04:37

>>645
print "<a href=\"file\">DL</a>\n";

**nobodyさん** · 04/11/10 18:18:53

リダイレクト前にcookieを作って、リダイレクトページで生成したcookieの値を取得したいのですが、
結構な頻度で値が取得できません。
ですが、少し時間をおいて取得すると値が取得できるので、
cookie作成のスピードよりもリダイレクト後のページで値を取得してるっぽいです。

従いまして、cookie作成時に少し時間を開けてからリダイレクトしたいのですが、
sleepを入れても意味がありませんでした。

この様な場合の対処方法をご存知の方がいらっしゃいましたら、どうかご教授ください。

よろしくお願いいたします。

**nobodyさん** · 04/11/10 20:55:28

ファイルから１行読み取り、その読み取った行を削除してファイルを上書きするにはどうしたらよいのでしょうか。

aaa,bbb,ccc,ddd
111,222,33,4444

このようなファイルがありaaa,bbb,ccc,dddを読み込んだ後にaaa,bbb,ccc,dddを削除して
ファイルを上書きするような処理です。

よろしくお願いします。

**nobodyさん** · 04/11/10 21:03:44

>>645
「ダウンロード」とボタンをクリックしたらファイルを作成して
print "Location: http://www.example.com/file.zip\n\n"

**nobodyさん** · 04/11/10 21:52:59

>>645
ダウンロードボタンをクリックしてCGIでperlを動かした先で

$length = (-s $file);
print "Content-type: application/octet-stream\n";
print "Content-disposition: attachment; filename=hoge.dat\n";
print "Content-Length: $length\n\n";
open(fp, "<$file");
binmode(fp);
print <fp>;
close(fp);

するとＯＫだと思う

**nobodyさん** · 04/11/10 21:55:59

>>648

削除したい行以外を別の一時ファイルに書き込んで、元のファイル名にリネームする
で良いんじゃない？

他にいい方法があれば知りたい

**nobodyさん** · 04/11/10 21:57:30

何でわざわざ別ファイルに書かせなきゃならんのかがわからん

**nobodyさん** · 04/11/10 22:21:12

>>647
クッキーを食べない時と食べる時がある状況が良く分からないけど…。
<meta http-equiv="refresh" ..>
を使ってクライアント側で飛ばして見るとか。

# 状況は改善されない予感。

**nobodyさん** · 04/11/10 22:24:11

読み書きモードでオープンすればいいんだっけ？

**nobodyさん** · 04/11/10 22:30:47

読み書きモードでその場更新でもいいけど、更新中にプログラムが
あぼーんすると変な状態で残ったりする。別ファイルに書き込み、
書き終わったらrenameなら書き換え前か書き換え後のどっちかには
なるので、オレはこのほうが好き。

**nobodyさん** · 04/11/10 23:55:31

>>647
確認できるソース求む

**nobodyさん** · 04/11/11 00:08:27

647ではないんだけどプログラム変えてないのに
IEでcookieが急に読めなくなった。（前はできてました。）
プログラムAでcookie送信してプログラムBに遷移して
そのcookieを取ろうとしても取れなかった。
他のcookieは取得することができました。
ネスケでは大丈夫だったんだけどなぁ。

ちなみにCGI.pm使って
$hoge=param('hoge');
とやって$hogeが空になっており、
cookieのフォルダを見るとちゃんとそのcookieがありました。

**nobodyさん** · 04/11/11 00:21:14

>>657
確認できるソース求む

**nobodyさん** · 04/11/11 00:52:30

まずはIEのクッキー設定を疑うよろし。

**657** · 04/11/11 01:49:17

657ミスりました。
paramのとこcookieです。

>>659
クッキーの設定も疑って全て許可にしてもだめだったのです。
でも、今家のPCで同じスクリプト走らせたらできました･･･。
で、サーバの方も試したらできました。
仕事場のPCからやった時はできなかったんですよほほほ。
ご迷惑おかけしました。

**nobodyさん** · 04/11/11 11:33:09

文字列$aが数字以外を含んでいたら、
エラー出したいんですが、
どうすればいいんでしたでしょうか？
~[0-9]を使えばいいことはわかるんですが・・・

if($a=^[0-9]){
echo"error";}

何か間違ってますか？（＾＾；

**nobodyさん** · 04/11/11 11:35:42

age

**nobodyさん** · 04/11/11 11:51:58

>>661
うむ、それもかなり激しく

if($a=~/[^0-9]/){

**nobodyさん** · 04/11/11 11:54:04

>>663
間違えまくってますね笑汗
ありがとうございます、助かりました。

**nobodyさん** · 04/11/11 13:59:06

/\D/ 小泉こうだろう？

**nobodyさん** · 04/11/11 14:33:41

自分のPCで実行して、入力先をWEBページにして、
記載されている内容を処理しファイルに書きたいのですが
可能でしょうか？

基本的なことですみません。
何の言語を覚えたらいいのかわかりませんので。

**nobodyさん** · 04/11/11 14:54:37

何言ってるんだかわからん

**nobodyさん** · 04/11/11 15:18:47

すみません。説明が下手で。
以下のようなことをWindows XP上でしたいのです。
できますか。

実行したら、例えばこの板のスレッド一覧
http://pc5.2ch.net/php/subback.html
を読んで
インデックス/スレタイ/その時点での書き込み数
をCSVファイルに書き込むようなものです。
中でリンクから各スレを読んで>>1のハンドルも取得できればなおよいです。

**nobodyさん** · 04/11/11 15:20:41

>>668
できるよ

**nobodyさん** · 04/11/11 15:21:57

LWP

**nobodyさん** · 04/11/11 15:28:02

翻訳
perlプログラムをローカルPCで実行
ネット上のウェブページの情報を取得
いろんな処理
ローカルPCに保存

ってこときゃ？

**671** · 04/11/11 15:29:21

チョコ食ってる間に進んでた。
すまそ

**nobodyさん** · 04/11/11 15:32:15

ウェブから入力された新しいユーザー名を、ユーザ名の入ったファイルを
チェックして必要があれば弾いたり空いている場所に追加したり削除する
CGIを作りたいのですが・・・・。

ユーザー名の入ったファイルを行入力演算子で配列に読み込んで、
それをいろいろやってから再び配列に戻して、最後に
$i=0;
while($i<=$count){
print FILE "$username[$i]\n";
$i++;
}
みたいに、改行して出力すれば次にCGIを呼び出したときに再び
行入力演算子で配列に読みこめるファイルが作成できるのでしょうか？
何度もやったのですが、どうしてもうまくファイルが作成できないのです。

**nobodyさん** · 04/11/11 15:33:41

>>671
そんな感じぢゃな。

perlプログラムをローカルPCで実行 → ActivePerl をゲットせよ
ネット上のページの情報を取得 → LWPの使い方を習得せよ
解読処理 → HTMLをパースする方法、正規表現とか HTML::Parser とかを習得せよ
CSVファイルに書き込む → まあ何とでもなるぢゃろう

>>672
その FILE とかいうファイルハンドラは
当然書き込みモードで open されとるんぢゃろうな?

**nobodyさん** · 04/11/11 15:33:44

>>668
perlスレなのでperlを覚えてください

**673** · 04/11/11 15:35:58

>>674
いえ、入力モードで開いて配列に読み込んで、
一旦閉じてから再び出力モードで開いてます

**nobodyさん** · 04/11/11 15:46:34

>>671 >>674
ありがとうございます。

>>675
覚えてからできないのがわかったら悲惨ですから
先に確認したいと思いました。
じゃ勉強始めます。

**nobodyさん** · 04/11/11 16:00:47

スレタイ見るだけのスクリプトなら、手元にあるから、貼っといてやるよ。
スレの中身見るのは、自分で作りな。

use LWP::Simple;
$url = "http://pc5.2ch.net/php/subback.html";
@lines = split(/[\r\n]/, get($url));
foreach my $buf (@lines) {
　if ($buf =~ /<base href="([^\"]+)"/){
　　$base_ref = $1;
　　last;
　}
}
foreach $buf (@lines) {
　if ($buf =~ /<a href="(\d+)\/l50">(\d+):(.*)$(\d+)$/){
　　$thethread = $1;
　　$num = $2;
　　$title = $3;
　　$rescount = $4;
　　print "$thethread, $num, $title, $rescount\n";
　}
}

**nobodyさん** · 04/11/11 16:42:01

レンタルサーバにてたまにcgiがCPU 90%を長時間(600hとか)使うことがあります。
このスクリプトの問題点を調べたいのですが、どのようにすればよい
かアドバイスを頂けたらと思います。

利用しているスクリプトは、余裕派掲示板です。
http://specters.net/cgipon/

バージョンは、2.62と、3.00 beta7を利用しておりどっちが
CPUを食っているかはまだわかりません。

そこまでCPUを使ってるのにkillしないサーバ屋もサーバ屋ですが、
とりあえず、他人の迷惑になるので調査したいのですが、とっかかり
がわかりません。

発生頻度は、1-2日に1回位起きてるのかもという位で、まだ
詳しくはわかりません。

よろしくお願いします。

**nobodyさん** · 04/11/11 16:49:47

＞Perlのコーディングで困ってる人のスレです。

**nobodyさん** · 04/11/11 17:00:04

>>679
Devel::DProf
で調べると良いよ。

**nobodyさん** · 04/11/11 17:25:26

>>681
素晴らしいです。
#!/usr/bin/perl -d:DProf

にすれば良さげです。ちょっと仕掛けてみます。

**nobodyさん** · 04/11/11 20:23:40

ちょっといいか･･･？
＞レンタルサーバにてたまにcgiがCPU 90%を長時間(600hとか)使うことがあります。
600時間てあんた、一体何動かしてるんだ？
ほぼ一ヶ月だぞ？

**nobodyさん** · 04/11/11 20:45:48

>>681
これ良いです
便利なものがあるもんですね

**nobodyさん** · 04/11/11 21:02:10

>>683
600minでしたすまそ

一行ごとに解析できる Devel::SmallProf というのもあるらしい。