トップページ⇒php
116コメント31KB

Perlなんですが・・・

■ このスレッドは過去ログ倉庫に格納されています
0001初心者01/09/11 15:56ID:9.SKwdns
まったくの初心者なんですけど
Perlの質問に答えてみようと思います

とりあえず my は使ったほうがいいみたいです
よろしくお願いします
0051名無しさん＠お腹いっぱい。02/01/10 21:01ID:???
>>50
.htaccessにこう記載する。
<Files *.cgi>
order deny,allow
deny from all
</Files>
0052名無しさん＠お腹いっぱい。 02/01/10 21:03ID:???
ﾊｧ？？
きしょっ！
0053眼鏡ｵﾀですが何か？ﾌﾟ)02/01/10 23:42ID:???
汚染チェックってなんですか？
0054 ◆AskaRoYg 02/01/11 00:00ID:???
>>50
痩せろ
0055名無しさん＠ＮＥｍａｃｓ02/01/11 01:49ID:fZtnJrfW
>>54
アスカ様ハァハァ。

>>53
http://www.google.co.jp/search?q=Perl+%89%98%90%F5%83%60%83F%83b%83N&hl=ja
0056初心者02/02/01 23:49ID:GSMdD5I4
初心者パワーをなめちゃぁいかん。
0057名無しさん＠お腹いっぱい。02/02/02 11:07ID:???
>>56
上げただけじゃない・・・ｗ
0058名無しさん＠お腹いっぱい。02/02/03 11:44ID:???
画像連結にfly使ったんですが、Unisysに特許料払わんとだめですか？
0059名無しさん＠お腹いっぱい。02/02/03 11:53ID:6O2qk++F
はい。私は毎月50万円払っています。
0060名無しさん＠お腹いっぱい。02/02/03 15:25ID:???
なんで
”名無しさん＠お腹いっぱい”
なんですか？
0061名無しさん＠お腹いっぱい。02/02/03 17:22ID:???
>>60
「名無しさん」を変えてないからだよ。
0062名無しさん＠お腹いっぱい。02/02/04 03:23ID:sAx7lHcm
>1
perlってなんですか？
0063初心者02/02/04 04:03ID:g/ay00Kk
>>62
Perlで書かれたスクリプトを実行するコマンドです。
0064名無しさん＠お腹いっぱい。02/02/04 09:42ID:t9Gb2AU1
my及びlocal関数での局所化の必要性について教えて下さい。
0065名無しさん＠お腹いっぱい。02/02/04 09:52ID:t9Gb2AU1
それとついでにここの１さんは少なくとも中級者以上の実力はあると思うのです。
まぎらわしいのでＨＮを中級者に変えません？
0066名無しさん＠お腹いっぱい。02/02/04 11:49ID:fnAmBNHz
こんにちわ、perlの事で質問させてください。
以下のスクリプトですが

　#! /usr/bin/perl 　# お約束
　# 私のスクリプトそのままです（編集はしてません）
　$TMP = 10 ** 10; 　# $TMP　に10の10乗を代入
　$X = 10; 　# $X　に10を代入
　while ($TMP) 　# $TMPが0になるまで繰り返し処理
　 {$A = --$TMP % $X; 　# $TMPの値を-1し、$Xの剰余を$Aに代入
　 print "$A $TMP \n";}# 処置した値を画面に表示


上記のスクリプトですが、表示される$Aの値が変化しません
5 999999999
5 999999998
5 999999997 ......

$Xの値が１だと$Aは0で固定
$Xの値が２だと$Aは1で固定
$Xの値が３だと$Aは0で固定
$Xの値が４だと$Aは3で固定
$Xの値が５だと$Aは0で固定
$Xの値が６だと$Aは3で固定
$Xの値が７だと$Aは3で固定
$Xの値が８だと$Aは7で固定
$Xの値が９だと$Aは3で固定

私の知識が正しければ、$TMPの値を$Xで割った余りの数値が表示され
1行ごとに値が変更されると思うのですが。。。

どこか間違っているのでしょうか
識者の皆様、ご回答をお願いします
0067名無しさん＠お腹いっぱい。02/02/04 12:00ID:???
＞識者の皆様、ご回答をお願いします
「皆様」に聞きたいなら初心者スレに書け。
ここは>>1に聞く為のスレだ。

＞1行ごとに値が変更されると思うのですが。。。
固定されないが。
0068初心者02/02/04 13:31ID:g/ay00Kk
>>64
必要性と言われても・・というのが正直なところです。
何らかの必要性があるからmyやlocalが存在するのでしょう。

一般的にグローバル変数は少ない方がいいとされています。
ソースを他人に見せるときや、昔書いたソースを見直すとき、
グローバル変数が無い方が理解しやすいです。

>>65 初心忘るべからず。

>>66
Perlのバージョンはいくつでしょう？
http://www.perldoc.com/perl5.6.1/pod/perldelta.html#Core-bug-fixes
の3項目、
Integer modulus on large unsigned integers
sometimes returned incorrect values.
と言うわけで、Perl5.6.0以降を使いましょう。
00696602/02/04 13:53ID:???
>>68 ：初心者様
ご回答ありがとうございました
確認してみたところ、確かに、バージョンが古すぎました
（5.005_03)

$TMPの値を10**10 から 10**9　に変更して実施してみたところ
正常に動作することを確認しました
ご回答、ありがとうございました
0070名無しさん＠お腹いっぱい。02/02/04 20:08ID:+YaLpde/
>>66
老婆心ながら
変数名を３文字に統一しないなら「ＴＭＰ」は「ＴＥＭＰ」にした方が良いね。
あと、６６のスクリプトなら「＄Ａ］と「＄Ｘ］の変数名は逆にしようよ

一番良いのは
＄ＴＥＭＰ　＝＞　＄Ｉ（カウント変数）
＄Ａ　　　　＝＞　＄Ｘ（計算値変数）
＄Ｘ　　　　＝＞　＄Ａ（定数）

細かいけど、癖にしてたほうが後で役に立つよ
0071名無しさん＠お腹いっぱい。02/02/04 20:11ID:???
物凄く余計なお世話だ　　（笑
0072名無しさん＠お腹いっぱい。02/02/04 20:39ID:???
正直
自分の知ってる範囲で決めた命名法ほど迷惑なものは無い

# 人に押し付ける事なかれ
0073名無しさん＠お腹いっぱい。02/02/04 20:40ID:nACYCDdm
しかし正論だ。（笑
0074名無しさん＠お腹いっぱい。02/02/04 23:04ID:???
$iは少し同意。
暗黙の了解化してるな。

$i使うのがカッコイイとか思って使ってきたけどね。
0075名無しさん＠お腹いっぱい。02/02/04 23:18ID:???
意外な落とし穴は$aと$b
こないだこれではまりそうになった。
0076名無しさん＠お腹いっぱい。02/02/04 23:21ID:???
>>75
と、言うと？
$1みたいに何か意味のある変数？
0077名無しさん＠お腹いっぱい。02/02/04 23:30ID:???
>>76 sort で使われるね。
0078名無しさん＠お腹いっぱい。02/02/04 23:33ID:???
>>77
勉強になります。

sortってuniqの前準備に、

@list = sort(@list);

でしか使ったこと無いから知らなかったです。

sortも独自の書式使いますね。

sort{a <=> b}こんなん。
0079名無しさん＠お腹いっぱい。02/02/05 01:29ID:ucr4R94I
>>75
記憶違いだったら本当にごめん
sort文で使用される$a,$bは、完全にsort文だけの中で仮想変数で
外部の変数とは別扱いではなかったでしょうか？

初心者なんで激しいはツッコミは勘弁して下さい
00807902/02/05 01:30ID:???
初心者以前に 日本語が変
0081名無しさん＠お腹いっぱい。02/02/05 02:06ID:???
自分ツッコミを覚えた！
0082名無しさん＠お腹いっぱい。02/02/05 02:19ID:???
>81
パパパパンパンパッパー
79はレベルがあがった！
008361502/02/05 02:55ID:???
$a ってreadonlyじゃ無いから、間違えた時気付きにくいんだと思います

use strict;
$a = 100; #エラー出ない

これでModification of read-onlyが出ないと場合によっては嵌る事に
なるのかと
Perlはstrict+wスイッチが大前提だから、そんなに神経質になる程じゃ
ないと思いますが。
0084名無しさん＠お腹いっぱい。02/02/05 02:56ID:???
何かクッキー残りまくってる　　（鬱
615は無視してくだされ。。
0085617　（←違う）02/02/06 18:40ID:hdNADrgP
system関数を使用せずに
特定のＬＡＮ接続端末のＩＰアドレスを指定して
そのＭＡＣアドレスを知る方法が知りたい、教えれ

これは避けたいです
　system "traceroute $IP_ADDR";
　@MAC_ADDR = `arp $IP_ADDR`;
0086名無しさん＠お腹いっぱい。02/02/06 20:04ID:???
自分でarpと同じ事すれば良し
0087名無しさん＠お腹いっぱい。02/02/06 22:13ID:???
arpって何層のプロトコルでしたっけ？
データリンク？IP使うからネットワーク？
socketは使えないからポート直接操作になるんでしょうか？
00888502/02/06 22:24ID:hksal3H7
>>87様

arpは、確か操作端末のスタックメモリーの内容を表示するだけの命令だったと思います
直前に、目的のマシンとTCP/IP通信をしないと情報が得られませんし・・。
0089名無しさん＠お腹いっぱい。02/02/06 22:31ID:???
なるほど、TCP/IPで通信するにはMACアドレスを知っている必要がある。ならそのとき使った情報を見ればよいってことで良いでしょうか。
親切にありがとうございました。勉強し直してきます。
0090@@@@@@@02/04/21 09:12ID:???
@@@@@@@@@@@@@@
0091nobodyさん02/11/28 08:20ID:ArDOlCQW
こんなスレもありましたね。
0092nobodyさん02/11/28 08:27ID:???
>>91
ｱﾌｫか。>>1がいないのに上げてどうすんだよ。
0093初心者02/12/09 01:21ID:vZ/rPhuU
復帰してもいいですか? 質問してください。
0094山崎渉03/01/15 13:42ID:???
（＾＾）
0095Name_Not_Found03/02/17 18:28ID:Kv+xH8ZL
ほとんどのperlスレは山崎渉のレスが最期で終わってるな。
0096山崎渉03/03/13 17:14ID:???
（＾＾）
0097山崎渉03/04/17 12:24ID:???
（＾＾）
0098山崎渉03/04/20 06:09ID:???
　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）
0099山崎渉03/05/22 02:12ID:???
━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―
0100山崎渉03/05/28 17:15ID:???
　　　 　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉
0101nobodyさん03/07/09 05:25ID:???
　教えてください。
　
　ActivePerl5.6.1.635とAnhttpdでプログラムを
試しているのですが<STDIN>をプログラムに入れると
固まってしまいます。Anhttpdでプログラムを試している
方はどういう風になさっているんでしょうか。
0102山崎 渉03/07/15 11:19ID:???

　__∧＿∧_
　|（　　＾＾ ）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣
0103山崎 渉03/08/02 02:33ID:???
　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）
0104ぼるじょあ ◆ySd1dMH5Gk 03/08/02 05:10ID:???
　　　 　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　 ・３・） (　　＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ
0105nobodyさん03/08/03 21:44ID:???
>>101
#! C:/perl/bin/perl

print "Content-type: text/plain\n\n";
print "HELLO!\n";

print <STDIN>;

こんなんでも動くけど。
ActivePerl5.6.1 build631とAnhttpd1.42h
0106山崎 渉03/08/15 23:11ID:???
　　　 (⌒V⌒)
　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン
0107nobodyさん03/09/17 10:16ID:???
>>101
まさかとはおもうが
while(<STDIN>){ }
とかやってないよな？
0108('x')04/05/07 23:03ID:???
('x')
0109nobodyさん2006/06/26(月) 23:02:43ID:???
>>107
おまえな〜。2ヶ月も前の投稿にレスすんじゃねーよ。
と言いつつ3年前の投稿にレスしてみる。

この板って圧縮されないのかね〜。
0110nobodyさん2006/10/25(水) 21:59:11ID:thTrAQ7o
ちょっと疑問に思ったんだが、MovableTypeとかPerlで書かれてるソフトあるけど、あれってソース公開しなくていいのかな？
絶対GPLのライブラリとか使ってると思うんだが…
0111nobodyさん2006/10/26(木) 22:44:05ID:???
MovableTypeって、ソースで公開されてない部分あるっけ？
0112nobodyさん2006/10/29(日) 21:26:37ID:???
無いよ。>>110は何か勘違いしてる。
0113nobodyさん2010/04/24(土) 14:20:54ID:???
MovableTypeはPerlで書かれていてソースは公開されている。

>>110
>絶対GPLのライブラリとか使ってると思う

思うのは自由ですが、どの部分なのかをソースを見て教えて
欲しい。

付き合うからさ。

で、だとしたら何なの？
0114nobodyさん2011/09/02(金) 13:00:58.84ID:???
>>103
ｶﾞｯ
0115 【44.8m】 電脳プリオン ◆GDSZsj1GHk 2012/03/10(土) 21:29:55.90ID:????PLT(12078)

　　∧＿∧
　 （　・∀・）　　　|　|　ｶﾞｯ
　と　　　　）　 　 |　|
　　 Ｙ　/ノ　　　 人
　　　 /　）　 　 < 　>__Λ∩
　 ＿/し'　／／. Ｖ｀Д´）/ ←>>98
　（＿フ彡　　　　　 　　/
0116nobodyさん2013/10/29(火) 22:01:21.71ID:z4zTbkHZ
解散。
■ このスレッドは過去ログ倉庫に格納されています