【Perl 】初心者コーナーPart8
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。
01/10/24 14:11ID:???1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ、良い回答は良い質問から。
一緒に勉強しましょう。
参考書籍はこちら【【Perl,CGI】参考書籍 第２版 】
http://ebi.2ch.net/test/read.cgi/php/988809842/l50
CGIの質問はこちら【ＣＧＩだけど、なんか質問ある？part４】
http://ebi.2ch.net/test/read.cgi/php/1000804655/l50
過去ログ、その他の役立ち情報は>>2-10を見よう。
0685名無しさん＠お腹いっぱい
01/12/11 15:27ID:???了解しました。
世の中のPerlの本はUNIX前提になっているものが多いんですね。
次はLINUX＋PHP＋Postgresqlを勉強する予定なので、
またまた文字コードに悩まされそう。
0686名無しさん＠お腹いっぱい。
01/12/11 15:45ID:???それと文字数を数えるのってどうやるの？
aだと1、aaaだと3を返すやりかた。
0687名無しさん＠お腹いっぱい。
01/12/11 16:01ID:???http://pc.2ch.net/test/read.cgi/php/1000804655/854-855
奇遇だな。
ちょうど同じような質問を見かけたところだ。
0688名無しさん＠お腹いっぱい。
01/12/11 16:34ID:???abcでも3を返したいの。そこのリンクは1が帰ってくるでしょ。
0689名無しさん＠お腹いっぱい。
01/12/11 16:41ID:???0690688
01/12/11 17:03ID:???0691名無しさん＠お腹いっぱい。
01/12/11 17:20ID:P2qcRNJ8<script language="javascript">
<!--
function javascript { 〜 }
// --> </script>
<form name="form1" onsubmit="return javascript()" action="">
<input type="text" name="abc"><input type="submit" name="button1" value="CHECK!">
</form><form name="form2" action="$scriptname">
<input type="submit" name="button2" value="XXXXX">
</form>
HTML
わけあってこうしなければならなくなった。
ようするに、form1で、入力された文字列を、javascriptで処理し、その処理結果を、perlで処理したい、という事。
もしかすると、HTML以前の問題かも。
心の広い方、教えてください。
0692名無しさん＠お腹いっぱい。
01/12/11 17:22ID:???マルチポストウザイ。
0693名無しさん＠お腹いっぱい。
01/12/11 17:26ID:P2qcRNJ80694名無しさん＠お腹いっぱい。
01/12/11 19:28ID:???放置するか回答するの二者択一でお願いしまちゅ
0695名無しさん＠お腹いっぱい。
01/12/11 19:28ID:???0696名無しさん＠お腹いっぱい。
01/12/11 23:31ID:???マルチ野郎の思う壺じゃないか。
0697名無しさん＠お腹いっぱい。
01/12/12 00:04ID:1mlMOGo3$addr = $ENV{"REMOTE_ADDR"};
$host = gethostbyaddr (pack ("C4", split (/\./, $addr)), 2);
この処理で、gethostbyaddr以下が良く分かりません。
$addrに格納されたIPアドレスの『.』を取り去った四つの数字をバイナリ化(?)
したものを・・・？
最後の2が何を表すのか、また他に使える数字にはどんな
ものがあるのか知りたいです。
それとgethostbyaddr関数ってpackとペアに使わなくちゃいけないものなんですか？
0698名無しさん＠お腹いっぱい。
01/12/12 00:33ID:???http://www.linux.or.jp/JM/html/LDP_man-pages/man3/gethostbyaddr.3.html
＞最後の2が何を表すのか、また他に使える数字にはどんな
定数AF_INETを指します、他に使えるすうじは有りません
＞packとペア
勿論、自分でオクテット毎に255^n*xしてもらっても結構です
0699JAPU@ハーマイオニー萌え ◆JAPUTeX.
01/12/12 01:47ID:???use Socket;
$x = gethostbyaddr(inet_aton("61.194.226.203"), AF_INET);
が吉。(inet_aton 使わないで、自分でpackしてもよいけど。)
AF_INET は環境によって異なる定数なので、数字で与えるのは移植性を低下さ
せます。(多分) 何でこんな面倒なことをしているかというと、ソケットって
のはIPv4に限らず、様々なプロトコルを使えるように出来ているからなんです。
アドレスファミリとしては、これ以外にも AF_INET6 などがあります。(環境
によっては無いけど。)
use Socket;
use Socket6;
$x = gethostbyaddr(inet_pton(AF_INET6, "3ffe:501:4819:2000:280:adff:fe71:81fc"), AF_INET6);
print "$x\n";
=> apple.kame.net と表示される。
# Socket6 は標準モジュールではありません。
0700名無しさん＠お腹いっぱい。
01/12/12 16:10ID:Mrx6ZMte>>699
ここで質問しておきながら自分でも色々なサイトを捜してみて、なんとなくうす
ぼんやりと分かってきました。
あとは自分で色々試すだけ。
ありがとうございました。
0701名無しさん＠お腹いっぱい。
01/12/12 18:31ID:BvKUxJBsURI,MIME-Base64,HTML-Parser,libnet,MD5をインストールし，
make testでokが出たのですが，libwww-perlのmake testで
エラーが出ます．./TEST -vすると以下の通り
， ./TEST -v live/validator.t
live/validator......No such field 'uploaded_file' at live/validator.t line 31
1..2
dubious
live/validator.tを見ると，
my $uri = "http://validator.w3.org/file-upload.html";
のフォームに書き込んでチェックをしている？ みたいなんですが，
w3cの同ページが変更されて，みんなエラーが出ているんでしょうか？
0702名無しさん＠お腹いっぱい。
01/12/12 20:46ID:KPDzNandままになっちゃってます
フィルタプログラムではなく、ファイルを直接書き換えたいのですが
どうしたら良いのでしょう???
0703名無しさん＠お腹いっぱい。
01/12/12 21:06ID:???0704JAPU@ハーマイオニー萌え ◆JAPUTeX.
01/12/13 01:12ID:???うちは All tests successful. だけどなぁ。
libwww-perl-5.62 + Perl 5.005_03 on FreeBSD
>>702
perl -i -npe 's/href="(.+?\.htm)"/href="$1l"/g' *.html
とか? 文章中に href="puni.html" とかあったらそれまで置換しちゃうけど、
その辺は手作業で何とかして下さい。-i.bak とすれば .bak の拡張子がつい
たバックアップファイルがつくられます。
0705名無しさん
01/12/13 02:14ID:???なんかTerm::CapのTputs('dl'...)でやるみたいなんですが、どうやっても
うまくいきません。
print 'aiueo.'
と出力して、出力されたaiueoを削除する方法を誰か御存じないでしょうか。
0706JAPU@ハーマイオニー萌え ◆JAPUTeX.
01/12/13 03:02ID:???けど、単に文字が消えるだけでカーソルがそのままなので困っているのなら
print $terminal->Tputs("dl", 1, undef);
print $terminal->Tputs("cr", 1, undef);
という感じ?
man termcap:
delete_line dl delete line (P*)
carriage_return cr carriage return (P*)
0707名無しさん＠お腹いっぱい。
01/12/14 17:56ID:eZS0n+wo0とかでわざわざ初期化してますか？
それともいきなり値代入しちゃいますか？
0708Kusakabe Youichi
01/12/14 18:01ID:???In article <[email protected]>, 名無しさん＠お腹いっぱい。/707 wrote:
> perlって変数使うとき
> 0とかでわざわざ初期化してますか?
> それともいきなり値代入しちゃいますか?
i = 0;
i = 135;
って書いた方がいきなり入れるより綺麗にはいりますね (うそ)。
0709名無しさん＠お腹いっぱい。
01/12/14 20:01ID:UVoMYWWJ$bb=10;
print $aa{"a($bb+1)"};
こんな感じでハッシュを参照させたいんですけど
表示されません。
うまい方法無いでしょうか？
0710名無しさん＠お腹いっぱい。
01/12/14 20:19ID:???0711名無しさん＠お腹いっぱい。
01/12/14 20:23ID:???$foo = $bb+1;
$baz = "a".$foo;
$aa{$baz} で良いじゃん
0712名無しさん＠お腹いっぱい。
01/12/14 20:24ID:???%aa = ('a11'=>'aa');
$bb=10;
print $aa{"a".($bb+1)};
これでどうかな？
0713名無しさん＠お腹いっぱい。
01/12/14 20:27ID:???賛成せざるを得ないね
俺はなるべく、$hoge+=0; を書くようにしてる
0715名無しさん＠お腹いっぱい。
01/12/14 20:55ID:???0716名無しさんに接続中…
01/12/14 20:59ID:lmAPrLZ5また、シリアルポートなどに信号を出力することはできるんですか？
0717ウンコー
01/12/14 20:59ID:Uhp3YWbahttp://www.puchiwara.com/hacking/
0718デフォルトの名無しさん
01/12/14 21:01ID:???型無しだから悪いんじゃないよ、これはこれで便利だし
「Perlに問題は無い、Perlが生み出すプログラマが問題なのだ」って感じ ヽ(´ー｀)ノ
0719名無しさん＠お腹いっぱい。
01/12/14 21:03ID:???出来ます
>また、シリアルポートなどに信号を出力することはできるんですか？
出来ます
0720名無しさんに接続中…
01/12/14 21:21ID:lmAPrLZ5よかったら、そのやりかたのヒントを教えてください。
教えて君でスマソ
0721デフォルトの名無しさん
01/12/14 21:51ID:euO3A1/1他のプログラムはexecと("hoge")かsystem("hoge")とか`hoge`とか
シリアル通信は、WINならopen(COM,">COM1"); Unixならopen(COM,"/dev/tty0");とか
俺はNewtonlink使ってたけど、
と言うか、処理系も書かずに何が知りたいのかと問い詰めたい
0722名無しさん＠お腹いっぱい。
01/12/14 21:55ID:???> Perl初心者のくせにCを勉強しはじめましたが、ややこしくて死にそうです。
Perlの方がよほどややこしいと思うが。
無秩序に仕様を拡大してしまったからね。
0723名無しさん＠お腹いっぱい。
01/12/14 21:59ID:wyNE/AKiそれでできました。即レス感謝です！
>711
なんか公開されてるスクリプトみると1行にまとめてあったりして
なんかうまく見えるのでそれを見習おうかと思いまして。。
0724デフォルトの名無しさん
01/12/14 22:32ID:???その割にswicthとかtryANDcatch構文は拒んでるんだよなあ･･･
どうせなら全部突っ込んじゃえばいいのに（笑
0725名無しさん＠お腹いっぱい。
01/12/14 23:48ID:???switch
http://search.cpan.org/search?dist=Switch
Perl 5.7.2から標準。
例外処理
http://search.cpan.org/search?dist=Exception
perlsub の prototypeあたりにも。
0726名無しさんに接続中…
01/12/15 00:22ID:q1op3191ひとまずはWindows用のPerl処理系でやってみて
できたらLinuxでもやってみたいです。
ありがとうです！
0727名無しさん＠お腹いっぱい。
01/12/15 00:24ID:???おお〜、ラリーも遂に押し切られたって訳か(^-^;
Perl4時代から要望あったんだよね>switch
しかし cpan重いなあ、、、
0728名無しさん＠お腹いっぱい。
01/12/15 00:30ID:???自分はそんなに使わないけど >switch文
0729名無しさん＠お腹いっぱい。
01/12/16 23:29ID:RrZ9jdoL以下のスクリプトは暗号化処理のサブルーチンです。
$saltに入るのはランダムに選出された文字/数字二桁ということは分かりました。
しかしなぜint関数が必要なのかよく分かりません。
あと配列のブラケットには数字だけしか入れられないと解釈しているのですが、
$salt = $SALT[int(rand(@SALT))] . $SALT[int(rand(@SALT))];
この処理だとブラケット内にはローマ字も入ってしまうのではないかと・・・。
違いますかね?
宜しくお願いします。
sub encrypt {
local($inpw) = $_[0];
local(@SALT, $salt, $encrypt);
@SALT = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/');
srand;
$salt = $SALT[int(rand(@SALT))] . $SALT[int(rand(@SALT))];
$encrypt = crypt($inpw, $salt) || crypt ($inpw, '$1$' . $salt);
return $encrypt;
}
0730名無しさん＠お腹いっぱい。
01/12/16 23:53ID:???ローマ字って何処にあるんだろ？？
0731名無しさん＠お腹いっぱい。
01/12/17 00:02ID:FsLSfXJ8すみません。
本はないんです。
@SALT = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/');
の処理で@SALTには小文字/大文字、0から9までの数字、『.』、『/』が入ります
よね?で、rand(@SALT)にすると小文字/大文字まで入ってしまう可能性があり、
$salt = $SALT[int(rand(@SALT))] . $SALT[int(rand(@SALT))];
の処理で
$SALT[a]などでは具合が悪いんではないかと・・・。
で、int関数はそれを適当な数字に変えてくれるものなのかなぁと思ったのでした。
ちょっと混乱気味。
0732名無しさん＠お腹いっぱい。
01/12/17 00:03ID:1/pypqLHまず、
rand(@SALT)
ですけど
rand(64)
ってことです。
rand('a'..'z', 'A'..'Z', '0'..'9', '.', '/')
ではありませんよ。
この場合は要素の数、64を返します。
それで、rand(64)は0から64までの数をランダムに返します。
必ず整数を返すなら良いのですが、小数も含めて返しますので
int()関数で整数にしてやるんです。
0733名無しさん＠お腹いっぱい。
01/12/17 00:11ID:???$salt_all = @SALT;
$salt = $SALT[int(rand($salt_all))] . $SALT[int(rand($salt_all))];
と考えるとわかりやすいと思う。
>732
一応補足的ツッコミだけど、
＞それで、rand(64)は0から64までの数をランダムに返します。
64は出ないんじゃなかったっけ？
言いたい事はわかるんだけど伝わりにくいかなと。
0 <= rand(64) < 64
ってことだよね？
だから、
0 <= int(rand(64)) <= 63
って事で。
0734名無しさん＠お腹いっぱい。
01/12/17 00:39ID:???>>733
ありがとうございます。
一気に氷解しました!
>>733
>> $salt_all = @SALT;
>> $salt = $SALT[int(rand($salt_all))] . $SALT[int(rand($salt_all))];
この式、>>732と併せて読むとすごくよく分かります。
ありがとうございました。
0735名無しさん＠お腹いっぱい。
01/12/17 06:36ID:BJnjirbBPerlOOに特化した為になる書籍やサイトは有りますか？(マニュアルは読んでいます)
それともRubyとかJAVAを新たに勉強する方が良いでしょうか
Rubyは良さそうだけど資料が少なそうで・・・
C++を使ってるんですが、ベターC的な利用が殆どなんです。
それで、巨大なC++の前にperlで学習しようと言う目論みです ＾＾
0736名無しさん＠お腹いっぱい。
01/12/17 07:07ID:???perldoc perlboot から始めて、perltoot、perlobj で勉強。
モジュールもわからないとダメなので perlmod も。
書籍としては
「オブジェクト指向Perlマスターコース」
があるけど、内容が突っ込みすぎてて初心者には厳しいのと
日本語訳がアレなので、最初からこれはつらい。
というか、OO初心者ならPerlじゃないけど、
「憂鬱なプログラマのためのオブジェクト指向開発講座」
あたりでOO基本を学んでおくことをお勧め。
「Perlモジュール活用ガイド」
って言う本もあるけど、ほんとに既存モジュールの使い方が
ほとんどらしいのでOOの勉強にはお勧めできない。
参考になりました？
# perlboot日本語訳
# http://perl.infoware.ne.jp/documents/perlboot.ja.html
# オブジェクト指向Perlマスターコース
# http://www.amazon.co.jp/exec/obidos/ASIN/4894713004
# 憂鬱な〜
# http://www.amazon.co.jp/exec/obidos/ASIN/4881356194
0737735
01/12/17 07:44ID:BJnjirbB参考になります。
なるほど、憂鬱な〜〜は一度立ち読みして「ふーん」と思ってたんですが。
手続き型が染み付いてしまって(実はオヤジなのです・・)
良くperlのOOは不完全？と言われていますが、自分には使い慣れた言語なので
入門には良いかなと思いまして。。
まずは憂鬱な〜〜を買って、概念から勉強ですね ＾＾
頑張って＋＋でOO版スパゲッチを書くのが目標です (笑
有難う御座いました。
0738735
01/12/17 08:44ID:???全然知らなかったよ。
0739名無しさん＠お腹いっぱい。
01/12/17 14:53ID:eOxPZi/Iというのを
aiueo.txtというファイルのなかに
'a','あ','i','い'と入力し
%xxx = (ここをaoueo.txtから出す);
という事は可能なのでしょうか？
0740名無しさん＠お腹いっぱい。
01/12/17 15:08ID:???0741名無しさん＠お腹いっぱい。
01/12/17 15:36ID:???タグの何処にいれてやればいいの？
0742名無しさん＠お腹いっぱい。
01/12/17 15:37ID:???http://www.linux.or.jp/JM/html/GNU_gzip/man1/gzip.1.html
0743名無しさん＠お腹いっぱい。
01/12/17 15:45ID:???そう言うのはあまり感心しない、
tie使えばDBにそのまま保存できるぞ
>740
何言ってるのか和歌蘭、5.7の新しい関数か？
0744名無しさん＠お腹いっぱい。
01/12/17 17:21ID:???>>2〜に乗ってるリンクで関数位検索しろよ
0745名無しさん＠お腹いっぱい。
01/12/17 22:54ID:HHw/58GZpasswd って対話式でパスワードを二回入力しないとダメでしょ。
system "/usr/bin/passwd $username";
この後にどうやればパスワードを渡せるのでしょうか？
0746_gunzip@眠い
01/12/18 00:50ID:???その手の処理は/usr/bin/expectの仕事かなぁ。
Perlでやるなら、
(/usr/bin/passwdコマンドのメッセージの細かい相違は自分で修正してくれ)
#!/usr/bin/perl
use strict;
use Expect;
use constant true => 1 == 1;
use constant false => !true;
use constant passwd => "/usr/bin/passwd";
use constant timeout => 10;
change_password("account", "old_password", "new_password");
sub change_password
{
my($account, $current, $new) = @_;
my $ret = true;
my $pty = new Expect(passwd, $account) or return false;
$pty->expect(timeout,
[ eof => sub { $ret = false } ],
[ timeout => sub { $ret = false } ],
[ qr/Only root can specify/i, sub { $ret = false }],
[ qr/changing/i, sub { exp_continue; } ],
[ qr/new/i, sub { shift->send("$new\r"); exp_continue; } ],
[ qr/retype/i, sub { shift->send("$new\r"); } ],
[ qr/current/i, sub { shift->send("$current\r"); exp_continue; } ],
);
$pty->soft_close();
return $ret;
}
0747名無しさん＠お腹いっぱい。
01/12/18 01:10ID:rl0gNi9C繰り返して、対話的に処理を進めるプログラムを作りたいのですが、皆さんなら
どのようにコードを書きますか？
私はこんな感じにしたのですが、こうやれｺﾞﾙｧみたいなのをお願いします。
until (\n != <>) {
print();
//何か処理する。
}
until (\n != <>) {
print();
//何か処理する。
}
0748しぽなし〜
01/12/18 07:16ID:???print '>';
chomp ($in = <STDIN>);
until ($in eq ('exit'||'logout')){
if ($in =~ m/^ *(ls)|(ll)|(dir)/){&com_ls;}
elsif ($in =~ m/^ *cd/){&com_cd;}
else {print "ｳﾂﾀﾞ...(-＿- )\n";}
print '>';
chomp ($in = <STDIN>);
}
sub com_ls
{
print "Listコマンドにゃん\n";
}
sub com_cd
{
print "Cwdコマンドだわん\n";
}
0749名無しさん＠お腹いっぱい。
01/12/18 11:13ID:???日本語英語いりまじってる可能性がある文字列があったとして、
それを一定文字数毎に改行（\n）させたいんですけど、スマートな方法ってどんなのがあります？
0750名無しさん＠お腹いっぱい。
01/12/18 12:01ID:???0751JAPU@ハーマイオニー萌え ◆JAPUTeX.
01/12/18 12:49ID:???1... 一定バイト数ごと、つまり、
ASCII = 1文字
JIS X 0208 = 2文字
JIS X 0201 Katakana = 2文字
JIS X 0212 = 3文字
という扱いで、複数バイト文字にかからないように改行をつけたい場合。
s/(.{1,$len})(?=(?:[\x00-\x7f\x8e\x8f] |
(?:(?:[\xa1-\xfe]{2})*([\x00-\x7f\x8e\x8f]|\z))))/$1\n/gx;
2... ASCII でも X0208 でも1文字として扱う場合は
s{((?:[\x00-\x7f] | # ASCII
\x8e[\xa0-\xdf] | # JIS X 0201 Katakana
\x8f[\xa1-\xfe]{2} | # JIS X 0212
[\xa1-\xfe]{2}){$len}) # JIS X 0208
}{$1\n}gxo;
スマートかどうかは分かりませんが。
$len にバイト数入れてください。
高速化するためには o modifier つけるか、直接数字入れること。
なお、perl 5.005 以降限定です。(多分) 5.004 ってそろそろ捨ててもいいよね?
# Shift_JIS は知りません。:-p
0752749
01/12/18 13:51ID:???スマートは、別にどうとって貰ってもよかったんですけど、
場合正規表現で一発で・・・ってのを期待していました。
0753ウンコー
01/12/18 13:52ID:vbilp2l6http://www.puchiwara.com/hacking/
0754名無しさん＠お腹いっぱい。
01/12/18 14:08ID:PeGpklQNSMTPサーバーがメールを受信した時に、perlのスクリプトを起動できると聞きました。
方法を教えてください。
関連するページでもかまいません。
0755JAPU@ハーマイオニー萌え ◆JAPUTeX.
01/12/18 14:37ID:???aliases
forward
sendmail
を検索。
# postfix の場合は sendmail と同じ、qmail は微妙に違う。
0756名無しさん＠お腹いっぱい。
01/12/18 16:15ID:v8gJCqyU表示させた画像が乱れたり、最大の桁の画像しか表示されなかったりします。
おかしいところがないか、チェックをお願いしますm(__)m
スクリプト本体
http://edge_of_the_earth.tripod.co.jp/ct.txt
一式
http://edge_of_the_earth.tripod.co.jp/
0757名無しさん＠お腹いっぱい。
01/12/18 16:37ID:???gifcatの使い方はあってる、でも今時hoge'func(@files)なんてのはダサいから
やめとけhoge::func(@files)を推奨
後は@filesの中に画像のパスが入ってれば良いわけだ。
他は見てないから、@filesの中出して確認すれ
>表示させた画像が乱れたり、最大の桁の画像
サーバかブラウザがおかしいんじゃ無いか？
0758756
01/12/18 16:51ID:v8gJCqyU>サーバかブラウザがおかしいんじゃ無いか？
インターネットオプションのアニメーションを再生する、を
切っていたから全部表示されなかったようです。
推奨されたように書き直してみます、ありがとうございました。
0759名無しさん＠お腹いっぱい。
01/12/19 01:48ID:z3SgcvN9google では個々のインストール方法や、その和訳くらいしか見当たりませんでした。
（あと、本の紹介とかしか・・・・。）
0760名無しさん＠お腹いっぱい。
01/12/19 17:15ID:nkOSD3l2Jcodeで一発
@multiLine = jcode($target)->jfold();
0761名無しさん＠お腹いっぱい。
01/12/19 21:46ID:ywNgsz3Gコピーして、LINUXサーバ上のCGI実行により同サーバ内にコピーするって事は
可能ですか？
できればモジュールとか入れたくないんですけども。
0762名無しさん＠お腹いっぱい。
01/12/19 21:49ID:mF3sDjp1暗号化する方法が分かった後はそれを照合する作業。
というわけでまたやってきてしまいました。
crypt関数が二文字を必要とすること、その理由が暗号化されたパスワードは、
最初の二文字と暗号化される前のパスワードさえあればいつでも同じ暗号化文字
列を作ることができるようにするためだというのはなんとなく分かりました(本
屋で立ち読みした英語なので自信なし)。でも暗号化したパスワードを照合する
時の以下の処理が良く分かりません。
$salt = $logpw =~ /^\$1\$(.*)\$/ && $1 || substr($logpw, 0, 2);
substr関数は$logpwの最初の二文字(?)を取り出し、$saltに代入する・・・。
でも『/^\$1\$(.*)\$/ && $1』この部分が何をしているのか良く分からないんで
す。substr以後と同じことをしているということはなんとなく分かるのですが、
詳しく分かっていません。最初のキャレットは『最初の』という意味ですよね。
$1は後方参照の・・・?そうすると参照すべき対象がないのでは・・・。
『&&』のあとの$1も意味が分かりません。
・・・すみません。
ホントの消防なので本を買えるほどお金、ありません。
長いですが宜しくお願いします。
0763名無しさん＠お腹いっぱい。
01/12/19 23:47ID:???俺も初心者で自信無いけど…
$salt = $logpw =~ /^\$1\$(.*)\$/ && $1;は
$salt = $1 if $logpw =~ /^\$1\$(.*)\$/;と同じ
全体を分かりやすくすると
if ($logpw =~ /^\$1\$(.*)\$/) {
$salt = $1;
} else {
$salt = substr($logpw, 0, 2);
}
かな。
それ以外の疑問はこの辺に。
http://www.google.com/search?as_q=crypt+MD5+DES&num=100&btnG=Google+%8C%9F%8D%F5&as_epq=&as_oq=&as_eq=&lr=lang_ja&as_qdr=all&as_occt=any&as_dt=i&as_sitesearch=
0764747
01/12/20 01:06ID:ThNsIH0Gどもありがとう。
勉強になりました。
関係ないけど、>>755 も勉強になった。ありがとう！
0765JAPU@ハーマイオニー萌え ◆JAPUTeX.
01/12/20 01:09ID:???crypt されたデータをそのまま第2引数に渡せば良い。
たとえば、パスワードを照合するときは、以下のように書きます。
if(crypt($input_passwd, $crypted_passwd) eq $crypted_passwd) {
...;
}
わざわざ salt 部分を抜き出すのは移植性を低下させます。
百害あって一利無し。
# なんか、有名どころがわざわざ salt を抜き出す処理をしているから、
# それが流行しているみたい。
既にある程度 Perl 分かっているなら、「プログラミングPerl」買いましょう。
トータルのコストとしてみれば本1冊買っておく方が良いです。
(この本は少し高いけど、専門書はそういうものなのであきらめよう。)
# そろそろお正月だし。:-)
英語が分かるなら、
http://www.perldoc.com/
を見ても良いです。
0766( ･ ∀ ･ )
01/12/20 01:25ID:???勿論KENTたんです。( ･ ∀ ･ )
0767名無しさん＠お腹いっぱい。
01/12/20 01:39ID:???> crypt されたデータをそのまま第2引数に渡せば良い。
これがどうしても理解できなかったっけ…。
最初の2文字だけを使って後は無視するようになってるのね…。
0768名無しさん＠お腹いっぱい。
01/12/20 01:39ID:EUQmf+X10769名無しさん＠お腹いっぱい。
01/12/20 01:57ID:???鯖缶使う。
0770
01/12/20 02:00ID:G+RXTczjCGIでSSIをつかいたいんですけど
どうすればいいですか？
.shtmlに書き出したりしないで
そのままの状態で繁栄させたいんです
できないのかな？
0771名無しさん＠お腹いっぱい。
01/12/20 02:03ID:???無理！
0772名無しさん＠お腹いっぱい。
01/12/20 02:06ID:???CGI実行→HTML吐き出し→SSIってことか？
0773JAPU@ハーマイオニー萌え ◆JAPUTeX.
01/12/20 03:09ID:???無くても問題はない。
ただ、最初に一通り読むときは本の方が読みやすいと思う。
0774名無しさん＠お腹いっぱい。
01/12/20 06:53ID:???＞わざわざ salt 部分を抜き出すのは移植性を低下させます。
それとまったく逆の主張したページを見たよ
本には「抜き出すのはムダ」とあるがそれじゃ移植性を低下するって
0775名無しさん＠お腹いっぱい。
01/12/20 08:20ID:???それは太古のperl（つーかcrypt関数）の話だな
0776名無しさん＠お腹いっぱい。
01/12/20 08:41ID:???v7(まだperlができる前のはず)のcrypt()ですら、saltにpw_passwdつっこんでも
大丈夫なんだが。
よっぽど変なOS使わない限り大丈夫なはずだし、最近のOSだと切ると
かえって一致しなくなったりする。
0777
01/12/20 09:48ID:78lYN6vv0778名無しさん＠お腹いっぱい。
01/12/20 10:54ID:P+3lQOD1そろそろサービスが中止になるので思いついたのですが、
プロバイダがCGIを許可していたら、プロバイダのメールを
web上で読み書きしたり出来るCGIってあるんでしょうか？
あったとしても、サーバー側で何か許可が必要でしょうか？
0779名無しさん＠お腹いっぱい。
01/12/20 11:30ID:???最低限必要なモノ
1. プロバイダが自分トコのアクセスポイント以外からのPOPの利用を許可している。
2. CGIを設置するサーバで Socket が利用できる。
3. こんなこと聞かんでも解るくらいのスキル。
0780名無しさん＠お腹いっぱい。
01/12/20 12:55ID:???2.use Socket; 自体は動作しますが、Socketで
通信を許しているのは localhostへのsmtp/tcpのみとなります。
と書いてありました。これはひょっとしてローカルの送受信
のみって事ですか？
3.先に何をしたいとか思いついてから調べるというのは
いけないという事ですか？
0781名無しさん＠お腹いっぱい。
01/12/20 14:13ID:???いけなく無いしそんな法律も条令も有りませんよ。
ただ
>localhostへのsmtp/tcpのみとなります。
こう言うの調べるのにスキルとか技術とか必要無いんですよね。
ただ若干の検索をするだけ、少し自分の時間を潰すだけで済みます
0782トランスＢ
01/12/20 14:55ID:pb4PV4KL電子レンジとか使うと速度落ちるよ。
マジで。ほんとに。いろいろ
スピード化について本に書いてた。
http://www.puchiwara.com/hacking/
0783デフォルトの名無しさん
01/12/20 15:04ID:???0784780
01/12/20 15:15ID:???>localhostへのsmtp/tcpのみとなります。
でもこれは779で「Socketが利用出来るかどうか」って
指示があったからようやく調べる検討がついたからです。
この書き込みがなければ気がつかなかったところです。
ある程度わかっていれば調べる方向も検討がつきますが、
自分はわからない。だからプログラムとかどこにあるとか
作成の方法をいきなり聞くんじゃなくて
使用しているサーバーで制限とかないかまずは聞いたわけです。
そういうのが聞けるから初心者のスレッドだと思ったんですが
違うんでしょうか？
■ このスレッドは過去ログ倉庫に格納されています