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

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;
}
}

Acient Wind （古の風に吹かれて）

Acient Wind （古の風に吹かれて）

Download(5.17MB)

サーバーがそろそろ限界。
どうしよう

クラビネット

http://guruness.net/key/
パラディドルと同音連打によるクラビネット奏法の解説

クラビネットって良くわかんないとおもうんでMIDIを作ってみた。
クラリネットではない。念のため。

クラビネットを使ってできた曲（mp3　約1.12MB）
Download file

クラビネットの練習曲（midiデータ　約5KB）
Download file

謹賀新年

皆様によってよい年になりますように

２００４
佐瀬興洋