perl
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 …
#!/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…
$source = "http://b.hatena.ne.jp/".$userid."/rss"; my $feed = XML::FeedPP->new( $source ); $num = $feed->get('opensearch:totalResults');
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{ # 実行した…
#データを行列の形にする 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::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, 「.」が削除され…
unshift @INC, '/home/user/perl/addlib/'; しても、指定したディレクトリを探してくれないので、.bashrcに追加する。 $ vi ~/.bashrc export PERL5LIB=/home/user/perl/addlib$ source ~/.bashrc//これをしないと下に加わらない。$perl -le 'print for @INC…
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";
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_…