読者です 読者をやめる 読者になる 読者になる

INFINITY -数学とかプログラミングとか-

統計とプログラムを使って役に立たせたい

TeX用コマンド入力を支援するための辞書をご利用ください。
sanctuary's blogは,適当なことが書いてあります。

#!C:\\Perl\\bin\\perl.exe

@INC=("C:/xampp/htdocs/「適当に」/cgi",@INC);
use strict;
use Digest::SHA1 qw(sha1 sha1_hex);
#print "Content-Type: text/html\n\n";

my $test='a';
print "$test \n\n";
print sha1_hex($test);

実行結果:

C:\xampp\htdocs\「適当に」\cgi>sha1.pl
a

86f7e437faa5a7fce15d1ddcb9eaeaea377667b8