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

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

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

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

XML::Simple

XML::Simple が$ sudo cpanm XML::Simple で入らなかった話。 $ sudo cpanm XML::Simple --> Working on XML::Simple Fetching http://search.cpan.org/CPAN/authors/id/G/GR/GRANTM/XML-Simple-2.20.tar.gz ... OK Configuring XML-Simple-2.20 ... OK ==> …

高速で時間を表示するスクリプト

Auto.pl #!/usr/bin/perl use strict; use warnings; my @command = ('perl', 'testprint.pl'); while(1){ my $ret = system @command; if ($ret != 0) { print "code[$ret]\n"; } sleep(0.1); } testprint.pl #!/usr/bin/perl use strict; use warnings; us…

はてなブックマークよりタグを取得

#Userdata.pm package Userdata; use strict; use warnings; use XML::FeedPP; use XML::Simple; use Array::Uniq; #http://b.hatena.ne.jp/'.$userid.'/atomfeed?tag='.$tag.'&of=0'; 特定のタグの数を取得 sub allnum { my @arry = @_; my $arrynum = @arr…

はてなブックマークの総ブックマーク数

http://b.hatena.ne.jp/infinity_th4/atomfeedには,総ブックマーク数が,ないようである.http://b.hatena.ne.jp/infinity_th4/rssのにあった.以下のようにすれば取得できる. #!/usr/bin/perl use strict; use warnings; use XML::FeedPP; sub allbookmarknum …

$useridのブックマークのタグを取得。

#!/usr/bin/perl use strict; use warnings; use HatenaBookmark::Number; #my director use XML::FeedPP; use Data::Dumper; use Array::Uniq; my $userid = "infinity_th4"; my @user = ($userid); sub gettag { my (@user) = @_; my @tags = (); my $alln…

$useridのブックマーク数を取得。

$source = "http://b.hatena.ne.jp/".$userid."/rss"; my $feed = XML::FeedPP->new( $source ); $num = $feed->get('opensearch:totalResults');

Schedule::Cron

foreachを使ってadd_entry すると指定した時間でちゃんと動かない。(即、jobが実行される) #!/use/bin/perl use strict; use warnings; use Schedule::Cron; sub dispatcher{ print "ID: ", shift, "\n"; print "Args:","@_", "\n"; } sub job{ # 実行した…

matrix

#データを行列の形にする foreach my $line (@lines){ @tmp=split /,/, $line;#$lineは一行 #warn @tmp; for($j=0;$j

you need to install the perl-doc package to use this programと言われたので、sudo apt-get install perl-docとすれば、インストールできる。$ perldoc -ml File::Find などとすれば、 /usr/share/perl/5.14/File/Find.pm で、CPAN モジュールの .pm ファ…

Digest::MD5を使う

Digest::SHA1を使おうとしたが、レンタルサーバーだとエラーばっか起こるので、perl5.8に標準でついてくるらしい、MD5を使う。何か脆弱性があるらしいが、大丈夫だ(ry #!/usr/bin/perl use strict; use Digest::MD5 qw(md5 md5_hex md5_base64); print "Co…

文字列削除

#!C:\\Perl\\bin\\perl.exe $char='132421488674034.0747545813,'; print "Content-Type: text/html\n\n"; print "$char \n"; $char =~ s/\.//g; print "$char \n"; 実行結果: no132421488674034.0747545813, no1324214886740340747545813, 「.」が削除され…

perl module

unshift @INC, '/home/user/perl/addlib/'; しても、指定したディレクトリを探してくれないので、.bashrcに追加する。 $ vi ~/.bashrc export PERL5LIB=/home/user/perl/addlib$ source ~/.bashrc//これをしないと下に加わらない。$perl -le 'print for @INC…

xamppでcgi/perlを動かす

C:\Perlに perlをインストールしておく。 name:location.cgi #!C:\\Perl\\bin\\perl.exe #/usr/local/bin/perl print "Content-type: text/html\n"; print "Location: 「http://とか」\n\n"; exit(0); として、 ブラウザでhttp://localhost:「このへんは自分…

エラー

Error message: malformed header from script.と怒られたら、 print "Content-Type: text/html\n\n";

set-cookie:とlocationの併用

print "Set-Cookie: $cknm=$ckrec;\n"; print "Location: 「http://とか」\n\n"; exit(0); Set-Cookie:のあとの\nを\n\nとすると、Location:が実行されない

ファイル名一括変更

use strict; use warnings; ### カレントディレクトリのファイル一覧を取得する。 # glob print "1: カレントディレクトリのファイル一覧を取得する。\n"; my @all_files = glob "*"; # * は、. で始まらないすべてのファイルを表現 print join( "\n", @all_…