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

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

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん04/10/07 23:23:08ID:kiEzDCJF
Perlのコーディングで困ってる人のスレです。

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

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

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

過去ログやお勧めサイトは >>2-10
053252604/11/04 13:52:12ID:???
POSTとGET以外に変数を別のスクリプトに渡す方法ってあるでしょうか？
0533nobodyさん04/11/04 13:53:10ID:???
>>531
もう少しWebの仕組みを（略
0534nobodyさん04/11/04 14:45:41ID:???
できないこともないけど、スマートじゃないな
0535nobodyさん04/11/04 15:18:06ID:???
>>534
教えてくださいませ
0536nobodyさん04/11/04 15:34:22ID:???
>>532
「変数を」別のスクリプトに渡す
ということは、foo.cgi->Browser->bar.cgiの過程で
foo.cgiが出力した値をbar.cgiに渡したいということか？
053752604/11/04 15:46:07ID:???
>>536
はい、そのとおりです。
0538nobodyさん04/11/04 15:51:48ID:???
ちょと似た質問なんだけれど、
海外で手に入れた会員管理の有料perlプログラムを使ってるんですが、
http://****.com/****.cgi?password=***** みたいな感じで
ログが残って、ログアウトしたあとも、ブラウザの戻るとかで
会員画面に入れるんだが、
詐欺プログラムですか、これは？
perlのことあまり詳しくありませんが、これなんとかする方法ありますか？
0539nobodyさん04/11/04 15:57:04ID:???
>>538
作成者に聞くのがスジってものでしょう
0540nobodyさん04/11/04 16:03:30ID:???
>>537
そういうセッション管理で一般的に使われるのはCookieだな。
Passは最初の認証だけ使って、後はセッションIDをCookieへ入れといて、
ワンタイムパスワードをPOSTさせて認証処理・・・って感じになるのかな。
本なんかをちょっと見ただけで実際に作ったこと無いから、落とし穴があるかも。
Cookieは気をつけないとPOST以上に危険だから注意

あと、
>ブラウザに丸見えになりますよね？
の一言が気になるんですが、まさかtype="hidden"を知らないなんてことは・・・
0541nobodyさん04/11/04 22:34:38ID:???
unko
0542nobodyさん04/11/05 00:12:53ID:???
>>537
ActivePerl入れて、インターネットゾーンでも使えるようにレジストリ緩めれば、language=perlで好きなことできるよ。

そんな糞ページ誰も見ないがな。
0543nobodyさん04/11/05 01:23:41ID:???
>>542
あなたもｸｿﾍﾟｰｼﾞですね
0544nobodyさん04/11/05 04:30:09ID:127p6d3j
スクリプトに引数を付けることで処理を色々に分岐させようとしています。

例：-a、-l、-h、-v、-r、<引数なし>を引数とする。
現在、引数を見て処理させる場合、
if ($#ARGV == "0") {
if ($ARGV[0] eq "-a") { 処理1; }
elsif ($ARGV[0] eq "-l") { 処理2; }
elsif ($ARGV[0] eq "-h") { 処理3; }
elsif ($ARGV[0] eq "-v") { 処理4; }
elsif ($ARGV[0] eq "-r") { 処理5; }
else { &error; }
}
elsif ($#ARGV == "1") {
if ($ARGV[0] eq "-a" && $ARGV eq "-l") { 処理5; }
elsif ($ARGV[0] eq "-l" && $ARGV eq "-h") { 処理6; }
elsif ($ARGV[0] eq "-h" && $ARGV eq "-v") { 処理7; }
elsif ($ARGV[0] eq "-v" && $ARGV eq "-r") { 処理8; }
elsif ($ARGV[0] eq "-r" && $ARGV eq "-a") { 処理9; }
else { &error; }
}
などとしていますが、引数が増えるとそれだけ組み合わせも増えるわけで
現在引数による分岐だけで混乱しています。しかもこのスクリプトを実際に
使用する場合、引数の順序も固定されてしまうので、表現力が乏しくなります。

それぞれの引数に数字を割り当てて、それをfor (@ARGV)で見ていって
それらを加算した結果で処理させる方法などを考えましたが、
数字を割り振るコツも分かりません。

引数や、それらの組み合わせが増えたとき、どういう風に対処すれば
分かりやすく、作りやすいスクリプトが書けるのでしょうか。

よろしくお願いします。
054554404/11/05 04:39:45ID:127p6d3j
上の例文は間違いです。

正しくは以下の通り。

if ($#ARGV == "0") {
if ($ARGV[0] eq "-a") { 処理1; }
elsif ($ARGV[0] eq "-l") { 処理2; }
elsif ($ARGV[0] eq "-h") { 処理3; }
elsif ($ARGV[0] eq "-v") { 処理4; }
elsif ($ARGV[0] eq "-r") { 処理5; }
else { &error; }
}

elsif ($#ARGV == "1") {
if ($ARGV[0] eq "-a" && $ARGV[1] eq "-l") { 処理5; }
elsif ($ARGV[0] eq "-l" && $ARGV[1] eq "-h") { 処理6; }
elsif ($ARGV[0] eq "-h" && $ARGV[1] eq "-v") { 処理7; }
elsif ($ARGV[0] eq "-v" && $ARGV[1] eq "-r") { 処理8; }
elsif ($ARGV[0] eq "-r" && $ARGV[1] eq "-a") { 処理9; }
else { &error; }
}
0546nobodyさん 04/11/05 04:46:45ID:???
>>544
引数をハッシュに代入してexistsで条件分離したら？

for(@ARGV){
　　$param{$_} = '1'; #値自体はなんでもいい。
}
分岐は
if(exists $param{'-a'}){ 処理１;}
とか
if($param{'-a'} == 1){ 処理１;}

みたいの。
0547nobodyさん04/11/05 06:55:34ID:???
>>544
my %table = (
'a' => sub{ print "処理1" },
'l' => sub{ print "処理2" },
...
'r' => \&r_part,
'al' => \&r_part,
'hl' => sub{ print "処理6" },
...
);

sub r_part{ print "処理5" }

my $key = join('', sort @ARGV);
if (exists $table{$key}){
$table{$key}->();
} else {
print "ERROR";
}
054854704/11/05 07:02:16ID:???
おっと、ハイフン取り除く処理を忘れてたーよ。
0549nobodyさん04/11/05 07:51:54ID:???
>544
getoptとか、そんなのはダメ？
http://www.aplawrence.com/Unix/perlgetopts.html
055054404/11/05 10:39:14ID:T3r+ugEG
ああ、寝てしまった間にこんなにレスが付いてる！
ありがとう御座います！

ぱっと見た感じでは
>>546さんと>>547さんは同じ処理ですか？
連想配列にこういう使い方があったと知って、眼から鱗の初心者です＞私
両方を試してみます。ありがとうございます。

>>549
煩雑な徒手作業のところをできる限り自動化/半自動化していく積もりで
ゆくゆくはこうしたモジュールを有り難く使った方が効率が良いとは考え
ているのでこういう助言は本当に助かります。
ありがとうございます。

早速実験してみます。

ありがとう御座いました。
0551nobodyさん04/11/05 11:05:29ID:vXdBVIeu
スクリプトいじってたら
正規表現で
s/ //g;
とやっても空白がマッチしなくなりました
s/\s//g;
ならマッチします
原因と元に戻す対処法を教えてください
055255104/11/05 11:19:18ID:vXdBVIeu
自己解決しました
0553nobodyさん04/11/05 11:36:35ID:vAMAiFLG
間違えてPHP質問スレに書き込んでしまったのでこちらで質問しなおします。

ttp://tohoho.wakusei.ne.jp/wwwperl2.htm
こちらのsocket関数の項目に書かれているスクリプトを自分の
スクリプトに組み込んでますが
自分の使っているサーバーでperl -wcでスクリプトチェックを行ったら
Unquoted string "stdout" may clash with future reserved word at aaa.cgi line 543.
このような警告文が表示されました。
select(stdout);
のstdoutをAAAとか別のものに置き換えたらこの警告文が回避できましたが
別のものに置き換えても正常に動くのでしょうか？
perlのバージョンはThis is perl, v5.8.2 built for i386-freebsdです。
0554nobodyさん04/11/05 11:56:32ID:???
select(STDOUT);
055555304/11/05 12:26:44ID:vAMAiFLG
>>554
どうも有り難うございます。
stdoutをそのまま大文字にしても動くんですね
0556nobodyさん04/11/05 13:45:35ID:uR92YhZO
現在CGIでのアクセス制限サイトを作っているのですが、
アドレス欄にIDとパスワードが表示され、
そのIDとパスワードを含んだアドレスを入力すると、
ログが記録されないのです。
（cgiの認証画面から入力するときちんと記録されます）

ログ記録はこんな感じなのですが。。。
どこか間違っているのでしょうか

sub record {
local($date,$time,$agent,@data);

# 時間&ホスト取得
$date = &get_time;
$time = time;
&get_host;

# ロック開始
&lock if ($lockkey);

# ログファイルの読み込み
open(IN,"$prvdir/$logfile") || &error("Open Error: $logfile");
@data = <IN>;
close(IN);

# ブラウザ情報
$agent = $ENV{'HTTP_USER_AGENT'};
$agent =~ s/&/&/g;
$agent =~ s/</</g;
$agent =~ s/>/>/g;
$agent =~ s/"/"/g;
0557５５６続き04/11/05 13:45:59ID:uR92YhZO

# ログ更新
while ($max <= @data) { pop(@data); }
unshift(@data,"$in{'id'}<>$date<>$host<>$agent<>$time<>\n");
open(OUT,">$prvdir/$logfile") || &error("Write Error: $logfile");
print OUT @data;
close(OUT);

# ロック解除
&unlock if ($lockkey);
}
0558５５６続き04/11/05 13:54:30ID:uR92YhZO
すいません、この認証処理の中で何か足りないのかもしれません。
どなたか解る方お願い致します。

sub pwCheck {
local($f,$id,$pw,$check,$time);

if ($mode eq 'enter') {
$time = time;
if ($in{'cook'} eq "") { $in{'cook'} = 0; }
&set_cookie($in{'cook'}, $time);
}

$f=0;
open(IN,"$prvdir/$pwdfile") || &error("Open Error: $pwdfile");
while (<IN>) {
($id,$pw) = split(/:/);
if ($in{'id'} eq $id) { $f++; last; }
}
close(IN);
if (!$f) { &error("認証できません"); }

$pw =~ s/\n//;
$check = &decrypt($in{'pw'}, $pw);
if ($check != 1) { &error("認証できません"); }

&fileOpen;

if ($mode eq 'enter') { &record; }
exit;
}
0559nobodyさん04/11/05 14:09:48ID:???
わかるなぁ〜その気持ち。。。
0560nobodyさん04/11/05 15:14:14ID:???
>>556
まず、メソッドについて勉強したら良いんでないかい？

http://www.google.com/search?num=100&hl=ja&inlang=ja&safe=off&c2coff=1&q=GET+POST+%24ENV%7B%27REQUEST_METHOD%27%7D&lr=lang_ja
0561nobodyさん04/11/05 15:21:59ID:???
と、レスしてから改めて>>556の説明を読んでたら混乱してきた。

何をしたくて、どこがどのように思った通りに動いてくれないのか
わからない…。

URLにクエリーが表示されちゃって困ったよー。って話じゃない…？
0562nobodyさん04/11/05 16:10:54ID:???
エスパー回答者向けだな
0563伊藤04/11/05 17:14:02ID:???
呼んだか？
0564nobodyさん04/11/05 21:03:45ID:w/zBhN/X
print "  <a href=\"$script?action=icondisp&type=$FORM{'type'}\">$lbl_iconlist</a>\n";

これを新しいウィンドウで開きたい場合はどのように書き直せばいいのでしょうか？
以下のようにするとエラーなんです。
よろしくお願いします。
print "  <a href=\"$script?action=icondisp&type=$FORM{'type'}\" target="_blank">$lbl_iconlist</a>\n";
0565nobodyさん04/11/05 21:17:13ID:???
>>564
バーカ
print ' <a href="' . $script . '?action=icondisp&type=' . $FORM{'type'} . '" target="_blank">' . $lbl_iconlist . '</a>' . "\n";
0566nobodyさん04/11/05 21:38:56ID:w/zBhN/X
>>565
全角にスペースにしわすれました
すいません
0567nobodyさん04/11/05 22:58:07ID:???
printf にした方が読みやすいとは思うけれどもども。。。
printf qq| <a href="%s?action=icondisp&type=%s" target="_blank">%s</a>\n|;
$script, # スクリプトのお名前
$FORM{'type'}, # typeの値
$lbl_iconlist; # アイコソリスト（文字列）
0568nobodyさん04/11/05 22:58:54ID:???
>>567
あらやだ。
> printf qq| <a href="%s?action=icondisp&type=%s" target="_blank">%s</a>\n|;
printf qq| <a href="%s?action=icondisp&type=%s" target="_blank">%s</a>\n|,
0569３６５04/11/05 23:36:15ID:???
print qq[<a href="$script?action=$icondisp&type=$FORM{'type'}" target="_blank">$lbl_iconlist</a>]."\n";

でいいんじゃないの？
0570nobodyさん04/11/06 02:52:14ID:???
ダブルクォーテーションとかの扱いは人それぞれだからどうでもいいじゃん自分で気に入ったの使えば
0571nobodyさん04/11/06 04:17:26ID:???
>>507
俺も同感
だからこそperlは何通りも書けるんだしね
0572nobodyさん04/11/06 09:00:12ID:???
そこがPerlの良さ
0573nobodyさん04/11/06 10:24:21ID:???
そこがPerlの悪さ
0574nobodyさん04/11/06 14:55:07ID:???
そこがPerlのぬるぽ

ところで、NullPointerExceptionをPerl語にすると何？
0575nobodyさん04/11/06 16:06:17ID:???
ｶﾞｯ
0576nobodyさん04/11/06 16:06:35ID:???
釣れますか？
0577nobodyさん04/11/06 17:29:59ID:???
ダウンロードカウンタのCGIを作ろうとしています。

ブラウザにファイルの内容を送ろうと思うのですが，どうすれば良いでしょうか？
以下だとファイルが壊れてしまいます．

open(FILE,"$FileName");
binmode(FILE);
print <FILE>; ←while(<FILE>){print $_ }でもだめ．
close(FILE);

送りたいファイルは40KB程度ですが，数MB程度のファイルも対応できるとうれしいです．
お知恵をお貸しくださいm(_ _)m
057857704/11/06 17:41:38ID:???
書き忘れましたが，ファイルはバイナリファイル(LZH，ZIP等)です．
よろしくお願いします．
0579nobodyさん04/11/06 17:53:55ID:???
>>577
環境によっては binmode(STDOUT); がいるんじゃないかな。
あと、バイナリファイルなら行読み込みにせず、readでバイト数指定して読み込み
while (read(FILE, $buffer, 1024*10)) ... バッファサイズは適当に
printで出力する場合はバッファoffするのも忘れずに $|=1 (念の為
0580nobodyさん04/11/06 17:58:03ID:???
>>577
binmode(STDOUT) してないだけじゃないの？
つーか、壊れるという曖昧な表現じゃなくて
バイナリエディタで比較してみたら こういう違いがでてきた、ってな感じで話してくれないと。
まぁ、それ見りゃ自分でもおかしいとこに気づくんだろうけどね
058158004/11/06 17:59:28ID:???
んぁ。言葉選んでる間に答えられちゃってるよｵﾚ
ｶｺﾜﾘｨ
058257704/11/06 18:12:10ID:???
>>579-580
レスありがとうございました。
原因は二つで，binmode(STDOUT)されてないこと，行読みした結果，改行コードが欠落したことでした．

>>579
「$|」というのはPerlの環境変数のようなものなのでしょうか？
print $|;だと値を返すようですが・・・
手元の資料＆Google先生を調べても分からなかったのですorz

>>580
ご指摘，ありがとうございます．
「どういう風に壊れたのか」を説明する必要がありました．
失礼しました．
0583nobodyさん04/11/06 19:13:15ID:???
>>580
Don't mind, 既知問題っぽかったから推測で書いちゃったけど
実は全然違う原因だったって事はよくあるからね.

>>582
$|は検索しにくいのが難点だな。Perl バッファリングで調べると詳細でてくるよ。
058457704/11/06 19:17:26ID:???
>>583
とほほさんのBBSに質問がのってますね．
勉強したいと思いますm(_ _)m
0585nobodyさん04/11/06 20:47:26ID:55uCUnw3
　　　 ○ ,　　　　　　　　　　　　　　　　　　 ○>
　　　/￣'☆ 　　　　　　　　　　　　　　　　　　）>>1　
　 ／ >　　　　　　　　　　　　　　　　　　　　／

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

注）設定とか環境のせいで正常にかめはめ波しないときがあります
0586nobodyさん04/11/06 20:55:15ID:???
　　　 ○ ,　　　　　　　　　　　　　　　　　　 ○>
　　　/￣'☆ 　　　　　　　　　　　　　　　　　　）>>585
　 ／ >　　　　　　　　　　　　　　　　　　　　／
0587nobodyさん04/11/06 20:56:12ID:ZyicEXrd
Win2K + Active Perl 5.8 を使用しています。以下のスクリプト
を実行すると、「p.tif」 のファイル名が文字化けしてしまいます。
「use encoding "shift_jis";」の行を外すと、正常に「あ.tif」に変換
されるのですが、この行を残したままrename するにはどうすれば
よろしいでしょうか？

use encoding "shift_jis";
chdir 'c:\\test';
rename "p.tif", "あ.tif";
0588nobodyさん04/11/06 21:13:32ID:jPPLQ8mN
　　　 ○ ,　　　　　　　　　　　　　　　　　　 ○>
　　　/￣'☆ 　　　　　　　　　　　　　　　　　　）>>587　
　 ／ >　　　　　　　　　　　　　　　　　　　　／

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

注）設定とか環境のせいで正常にかめはめ波しないときがあります
0589nobodyさん04/11/06 21:20:51ID:???
perl 5の正規表現で、content-typeヘッダに日本語があるかないかを判別するのに
iso-2022-jp|shift-jis|euc-jp|multipart\/mixed
という記述をします。これを応用して、『英語か日本語にマッチ』するかどうかを記述するには
どうすればよいでしょうか？

0590５８７04/11/06 22:56:11ID:???
>>587 は自己解決できましたが、もっとスマートな方法があれば
よろしくお願いします。

use encoding "shift_jis";
use Encode;

chdir 'c:\\test';
$str = encode("shiftjis","あ.tif");
rename "p.tif", $str;
0591nobodyさん04/11/06 23:23:01ID:???
>>587
no encoding;
で一旦切ってしまって、処理後にもう一度
use encoding "shift_jis";
しておく…のはあまりスマートじゃないですね。。

>>589
「キャラクタセットが英語または日本語である場合マッチ」ということなら、
http://www.iana.org/assignments/character-sets
↑と睨めっこして、必要なのを足していくとか。
(キャラクタセットの指定が無かったり、Unicodeを使われたら、終わりな気もするけど。)
0592nobodyさん04/11/07 19:03:48ID:???
HTMLの<!---->みたいに複数行をまとめてコメントアウト
する方法をど忘れしてしまったので教えてください。
「#」じゃなく。
059359204/11/07 19:14:26ID:???
自己完結。

=comment # ここからコメント
=cut # ここまでコメント
0594nobodyさん04/11/07 19:14:34ID:???
回答方法もど忘れしてしまいました。
0595nobodyさん04/11/07 20:51:25ID:OKDqn1bD
お恥ずかしい話ですがsplitガどうしても上手くいきません。

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

これで合ってると思うのですが、どうしてもエラーになってしまいます。
*DATは存在します。ちゃんと*で区切られています。
0596nobodyさん04/11/07 20:53:39ID:???
* → \*
0597nobodyさん04/11/07 20:54:42ID:V/bBugXz
全角半角混合の文字列からある順番の文字を取得したいのですがうまくいきません。
誰かお願いします。

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

0598nobodyさん04/11/07 20:55:58ID:???
>>597
何がしたいのかサッパリわからん
059959704/11/07 21:00:05ID:V/bBugXz
たとえば
ランダムに生成された全角半角混合の文字列
$xx=げあじgraふぇeあefaじえeaあい;
から９番目のeを取り出す方法を教えて
0600nobodyさん04/11/07 21:56:10ID:???
>>599
use Encode を使え
ただし 5.8 以上の perl でないとだめだが
0601nobodyさん04/11/07 22:01:19ID:???
文字列を1文字ごとに分割して配列に入れりゃいいんじゃないか？
0602nobodyさん04/11/07 22:03:13ID:???
んじゃ文字を配列にバラすコードを。文字コードは勝手にSJISと判断。
my @moji;
foreach ($xx =~ /[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc]|[\x20-\x7e\xa0-\xdf]/g) {push (@moji,$_)}
print $moji[8];
0603nobodyさん04/11/07 22:40:30ID:???
>>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
0604nobodyさん04/11/08 00:46:30ID:???
どこまでしたいか謎だったからなぁ。やりたいのはこうかもしんないし。
my @moji = ($xx =~ /[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc]|[\x20-\x7e\xa0-\xdf]/g);
print @moji[2..8];

なんにせよ環境も要件もよくわからんと返しようがないのぉ。
060559704/11/08 02:03:34ID:???
パールは5.8 以上みたいです。
トリップ生成用途だったのですが、これでうまくいきそうです。
みなさんどうもありがとうございます。
060659504/11/08 09:25:10ID:???
>>596
動きました！ありがとうございます。
060759504/11/08 11:09:36ID:IV2+5aK4
@data = split(/\n/, <DAT>);
で代入したら、$data[0]にしか代入されていません。
どなたかよろしくお願いします。
0608nobodyさん04/11/08 12:07:11ID:???
>>607
その場合の <DAT> は一行しか読み込まないので、当然そうなるだろう。

というか何がしたいのだいったい。
ひょっとして君のやりたいことは @data = <DAT> だったりしないか。
0609nobodyさん04/11/08 13:34:38ID:???
つーか、<DAT>って何よｗ？
061059504/11/08 15:22:15ID:hLOeveWj
>>608-609
あっ、すみません。<DAT>はファイルハンドルです。

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

説明不足ですみません。返答お願いします。
0611nobodyさん04/11/08 15:27:35ID:???
>>610
608をちゃんと読めｱﾎ
061259504/11/08 16:59:14ID:x02iMqC5
>>611
すみません。やっていることがおかしかったですね。
ありがとうございました。
0613nobodyさん04/11/08 17:06:22ID:???
ちょっとすれ違いなのですが
http://www98.sakura.ne.jp/~jun/perl/
どなたかここの移転先を知りませんか？
Perlに関するTipsや排他制御について、リファレンスについて説明してあったサイトなのですが
何時の間にかなくなったようで、、、、
0614nobodyさん04/11/08 17:17:29ID:???
ちょっとどころじゃなく全くのスレ違いなんですが、
閉鎖したんじゃないですかね？

どうしても見たいなら

ttp://web.archive.org/

でも使って下さい。
0615nobodyさん04/11/08 21:29:51ID:???
@var=<IN>;
とすると改行\nが消えないですが、それを消して配列に代入する方法はありませんか。
0616nobodyさん04/11/08 21:45:10ID:???
たまにこういう釣りみたいな質問が来るな
0617nobodyさん04/11/08 21:57:37ID:???
>>615
{ local $/ = undef; @var = split(/\n/, <IN>); }

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

普通に読んだ後でchomp @varした方が書くのは楽だね。
0618nobodyさん04/11/08 22:31:46ID:???
chomp(@var=<IN>);
0619nobodyさん04/11/09 00:16:14ID:???
配列をヒアドキュメントでprintするとスペースも一緒にprintされてしまうわけですが、
これを回避するにはいちいちヒアドキュメントを閉じるしかないですか？
0620nobodyさん04/11/09 00:47:01ID:???
no
0621nobodyさん04/11/09 01:27:59ID:???
>>619
$"を空文字列にしておく

あるいは、

@{[join('',@a)]}として埋め込む
062261904/11/09 02:18:31ID:???
>>621
腸ありがとう
0623nobodyさん04/11/09 06:54:36ID:???
>616
このｽﾚで質問するとよく言われます。。

>617>618
ありがとうございます。
0624nobodyさん04/11/09 07:22:29ID:???
>623
言われないように努力したりしないの？
釣りだと思われるような質問しちゃってるんだよ？
0625nobodyさん04/11/09 07:43:45ID:???
Perlから，自分が動いているOSを知ることは出来ますでしょうか。
例えばWindowsで下を実行すると

print $^O
> MSWin32

とか出ますが，WinXPとかWin98とかくらいまで詳しく知るには，どういう方法がありますか。
（できればUnix系でも詳しく知りたいです）
0626nobodyさん04/11/09 09:36:25ID:enWymUQX
別のウェブサーバー上にあるファイルの情報をstatとかで更新されているか、
されていないかとかしたいのですが、どうやってやったらいいのでしょう？
$url = "http://www.example.com/file.jpg";
@data = stat $url;
とかやっても取れないので(うすうすわかっていましたが)。。。
ウェブ上のデータとstatの内容を取得する方法を教えてください。
0627nobodyさん 04/11/09 09:59:56ID:???
>>626
lwpでもなんでもいいけど
httpのヘッダで
Date　か　Last-Modified　みるしかなかんべ。
取れなかったら諦めるしかない。
0628nobodyさん04/11/09 10:07:38ID:enWymUQX
>>627
ありがとう。
そういうものなんですか。
0629nobodyさん04/11/09 18:49:56ID:???
>>625
$hoge =`uname -m`; とか。
詳しいことはUNIXのコマンドリファレンスでも探せば良し。

>>626
他のサーバーのデータは、
socketでソケット作って、connectで繋いで初めて得られる。
色々複雑だから、素直に解説本読みなはれ。
0630nobodyさん04/11/09 19:46:44ID:???
>>625
http://aspn.activestate.com/ASPN/docs/ActivePerl/lib/Win32.html

use Win32;
print join(', ', Win32::GetOSVersion()), "\n";
print join(', ', Win32::GetOSName()), "\n";
0631nobodyさん04/11/09 22:34:49ID:???
>>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...
■ このスレッドは過去ログ倉庫に格納されています