SaaGaas TCL - perl

2012年1月30日 ... 2012-01-30-1 [Programming] livedoor clip. 重複のない乱数リストを Perl で簡単に 生成する方法。 標準モジュールの List::Util の shuffle 関数を使用すれば良い。 perl - MList::Util=shuffle -le 'print join"\n",shuffle(1..1000)'. 実行例： ...

2011年11月14日 ... Perl で multipart/form-data を POST する方法について。 下記のページのサンプル プログラムがシンプルで ... http://ullu.wordpress.com/2010/08/19/post-a-multipart- request-in-perl-via-lwp/ このプログラムをさらに削って ssuploader.cgi ...

2012年1月13日 ... usr/bin/perl use strict; use warnings; my %link; while (<>) { chomp; my ($key, @c) = split(/\t/, $_); foreach my $i ... perl -nle '($k,@c)=split/\t/;for(@c){$h{$k}{$_}=1}; END{for(sort keys%h){print join("\t",$_,sort keys%{$h{$_}})}} ...

2011年5月24日 ... Perl中級者への道 (近藤 嘉雪, at PerlCasual #4) http://www.slideshare.net/ KondoYoshiyuki/perl-perlcasual-4-2011428 一部メモ： - 必須 use strict; use warnings; - 推奨 open my $data, "<", "file"; - 推奨 print {$data} "this...\n"; ...

2011年4月28日 ... ということで、「Bloom Filterのシンプルな実装」を Pure Perl で書きなおしてみました。 ... usr/bin/perl use strict; use warnings; my $size = 1987; my $bitarray = ""; sub hashes { my ($str) = @_; my @xs = (0, 0, 0); for my $c (split(//, $str)) ...

2010年8月10日 ... usr/bin/perl use strict; use warnings; my $qidx = shift @ARGV; # start from 0 my $ tgtfn = shift @ARGV; open(my $fh, "<", $tgtfn) or die; while (<$fh>) { next if $. != $ qidx + 1; print; last; } close $fh;. 先頭行は0行目になる仕様。

2010年3月29日 ... tinyurl や bitly などの短縮URLを元のURLに戻すサンプルスクリプトを Perl で書いて みました。 HEADリクエストなげて返ってくるデータを見るだけ。 コード（getlongurl.pl）：. #!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; my ...

2006年5月27日 ... プログラミング Perl 第3版 VOLUME 2 「23章 セキュリティ」より：. デーモン、サーバ、 および ... usr/bin/perl -T 2 use strict; 3 use warnings; 4 my $fn = shift @ARGV; 5 6 open(F, "> $fn") or die; 7 print F "hello\n"; 8 close F. 実行結果（怒 ...

2009年8月1日 ... みなさん準備はどうですか？ 私は、アマゾンAPIを使っている個別サービスの数が多い ので、まずは Perl で自分用 Amazon Product Advertising API proxy CGI を作って 当面の対処をすることにしました。 名前は PAPAXY（パパクシィ）。

2006年11月28日... [Programming] livedoor clip · Perl で配列をシャッフルする方法のメモ。 最近よく 使うので。 Matthew McEachen :: Hints & Kinks :: shuffle in perl ... http://www.unix. org.ua/orelly/perl/cookbook/ch04_18.htm. # fisher_yates_shuffle( ...