風の吹くまま 気の向くまま

CPAN

CPANがうまくつかえないなああああああああああ

って悩んでた。
が、ついさっき解決した。
ディレクトリの名前に半角スペースを入れてはいけないようだ・・・

Cygwin

Activeperlもいいけど、どうせ実際に動かすサーバーはLINUXだったりするならCygwinがいいのかもしれないね。

http://sources.redhat.com/cygwin/

CPAN

perl には、 CPAN (perl のプログラムをまとめてるところ) からモジュールのソースを自動で取得し、
インストールする機能が備わっています。

shell$ perl -MCPAN -e shell
（初めて perl -MCPAN -e shell の実行なら、色々聞かれます。）
cpan> install DBI
とすると、DBI の最新版を持って来て、compile, make test, make install がおこなわれます。
MySQL module は、以下のようにしてインストールできます
cpan> install DBD::mysql
便利です。
（FreeBSD の ports みたいね。）
もしインストールしようとしているマシンが壁(FireWall)の内側にあるため、普通 に ftp ができない場合は、
FTP_PASSIVE 環境変数に 1 を指定した後にインストールを行います。

Perlはいつまで動き続けるか

while(1){
なんか
}
ってやればずっとうごくはず。
いつまで動き続けるか実験中だ。

Nortonがいろいろとめんどいことやってるみたいでうざい。
javaScriptとも相性悪いしなんかいやだね

Perlでいろいろ

他のサーバーのHTMLを読み取る方法
use LWP::Simple;
$doc = get "http://www.yahoo.co.jp";

サブルーチンでエラーでる
1;をいれましたか？

Perlで添付メール

添付メールはこうやる。
mimew.plが必要。

Windowsでも動くsendmailがどっかにあった。

require 'jcode.pl';
require 'mimew.pl';

$sendmail = 'sendmane.exe';

$bound = 'wq5se3d1ew';
$ufilenm = "temph.jpg";

$ufile = "./log/asqqy1.jpeg";

$mailto = 'sasetch@jcom.home.ne.jp';
$ownermail = 'sasetch@s16.xrea.com';
$subject = 'TEST-TENPU';

open(IN,"$ufile");
binmode(IN);
$lzhdata = join('',);
close(IN);
$base64_lzhdata = &bodyencode($lzhdata);
$base64_lzhdata .= &benflush;

#-------BEGINBEGIN---------
$header =< FormMailer: FormMail
To: $mailto
From: $ownermail
Subject: $subject
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="$bound"
END
#-------ENDEND----------

#-------BEGINBEGIN---------
$body =< --$bound
Content-Type: text/plain; charset="iso-2022-jp"
Content-Transfer-Encoding: 7bit

文章

--$bound
Content-Type: image/jpeg; name="$ufilenm"
Content-Transfer-Encoding: BASE64

$base64_lzhdata

--$bound--
END
#-------ENDEND----------

&jcode::convert(*header,'jis');
&jcode::convert(*body,'jis');
$header .= "Content-length: ".length($body)."\n";

#print "$header\n$body\n";

if (open(OUT,"| $sendmail -t")) {
print OUT "$header\n$body";
close(OUT);
}

perl でMD5

md5.plを使えば簡単

require 'md5.pl';
open(FH, "1aUnui.jpg") or die "$fpass のオープンに失敗: $!\n";
binmode FH;
$md5sum = unpack("H*", &md5'convert(join('', )));
close(FH) or die "$fpass のクローズに失敗: $!\n";
print "$md5sum";

getと組み合わせて

use LWP::Simple;

require 'md5.pl';

$url ='http://￥;
$doc = get $url;

$md5sum =unpack("H*", &md5'convert(join('', $doc)));

でもできそう

perl でFTP

use Net::FTPを使えば簡単
&ftp('サーバー名','ユーザ名','パスワード','ＵＰするディレクトリの場所','ファイルネーム');
みたいにして使う

#!/usr/local/bin/perl

sub ftp{

use Net::FTP;

local ($server,$user,$pass,$dir,$f_name) = ($_[0],$_[1],$_[2],$_[3],$_[4]);

$ftp = Net::FTP->new("$server", Debug => 1);
$ftp->login("$user", "$pass");
$ftp->cwd("$dir");
$ftp->binary();
$ftp->put("$f_name");
$ftp->quit;
}
}