perl
Shibuya.pm に登録されているブログから発見しました。 トラックバックするのもおこがましいか〜などと思っていたら、参考にさせて頂いたURLを紛失orz まんまサンプルをパクお借りしてはいるのですが〜そのまま貼っつけるわけには………デバックとかで役に立ち…
最初なんかうまいこと動かせなかった。括弧を [] でやってた部分があったかららしい。 #!/usr/bin/perl -w use strict; use warnings; my @list; push @list, ( { hoge => "test", test => "hello", }, { hage => "test?", test => "World", } ); my $hogeho…
GD はインストールが少々めんどくせぇだけで、入ってしまえば使い方はいろいろありそう☆ ちなみにサンプルで CGI を読んでるのは、ヘッダーで'image/png'を出力したかったから。スッとコーディング出来ないorz #!/usr/bin/perl -w use strict; use GD::Graph…
参考： http://www.unix.org.ua/orelly/perl/cookbook/ch14_02.htm #!/usr/bin/perl -w use strict; use warnings; use DB_File; use Time::Local; use constant INTERVAL => 1800; # sec use constant DB_FILE => './last.db'; my $debug = 1; eval{ # now …
参考： https://www.stackasterisk.jp/tech/systemConstruction/postfix01_01.jsp http://www.stackasterisk.jp/tech/program/perl03_03.jsp #!/usr/bin/perl -w use strict; use warnings; my $from = "mail.from.hoge\@example.com"; my $to = "mail.to.ho…
#!/usr/bin/perl -w package main; use strict; use warnings; eval{ my $self = Test->new(); print $self->test ."\n"; };if($@){ print "Error:$@\n"; } package Test; sub new { my $class = shift; bless { },$class; } sub test { my $self = @_; retu…
どこからか拾いました。参照元を紛失orzアンテナに登録したはずなんですが、どれだっけorz #!/usr/bin/perl -w use strict; use warnings; use Data::Dump; eval{ open(IN, './test.xml'); my $xml = join('', <IN>); close(IN); @_ = &xml_to_array($xml); prin</in>…
$ su Password: # cpan > install Bundle::Catalyst ... ...(全部 [yes]) ... > quit # exit $ cd ~ catalyst.pl MyApp >> created "MyApp" created "MyApp/script" created "MyApp/lib" created "MyApp/root" created "MyApp/t" created "MyApp/t/M" create…
Sibuya Perl Mongers テクニカルトークに参加してきました。 この世界、駆け出しっぱなしの自分には非常に難解かつ刺激的なお話を頂きました♪ １．Perlで ICFP - Perlは「最強の言語」か？ 澤勇太氏 ICFPなる、特定の言語で同じ目的の処理を行った場合、どの…
デススクリプトorz #!/usr/bin/perl -w use strict; use warnings; use Fcntl; eval{ print "start\n"; for(my $i=0;$i<100000;$i++){ print "$i\n" if( 0== $i%100 ); mkdir( $i."dir", 755) or die "cannot mkdir! $i"; } print "end\n"; };if($@){ print …
#!/usr/bin/perl -w use strict; use warnings; eval { my %main_data; my $id = 100; my @data; @data = (1,2,3,4,5); print "@data\n"; push @{ $main_data{$id} }, @data; push @{ $main_data{$id} }, @data; push @{ $main_data{$id} }, @data; foreach(…
test.pl #!/usr/local/bin/perl -w use warnings; use strict; use Template; eval{ ## Template-ToolKit my $ttConfig = { INCLUDE_PATH => './' }; my $tt = Template->new( $ttConfig ); my $output; my $param = { message => 'hello!' , test => 'world…
神様に救われました。まさかそんな手があったとは… 必殺！「ダブルデコード」 utf8::decode( $output ); utf8::decode( $output ); なぜこれでうまく行くのか、納得したくない自分がいますが、 SOAP::Lite×mod_perl×HTML::Template で行こうと決めた段階で、…
#!/usr/local/bin/perl use strict; use XMLRPC::Lite; eval { my $server_url = 'http://app.cocolog-nifty.com/t/api'; my $new_id; my $account = ***; my $password = ***; my $blog_id = ***; my $entry = { description => "xxx", title => "XM", date…
自分で調べるより詳しい情報がすでにありましたorz Perl 5.8 以降においての Unicode 文字列の扱い方 : NDO::Weblog http://naoya.dyndns.org/~naoya/mt/archives/000611.html xml通信でデータをやり取りする上で、文字コードは重要な問題デシタ〜 単に use …
事前に必要なもの PerlのCPANモジュール Cコンパイラ GD開発パッケージのインストール方法 $ su # wget http://www.boutell.com/gd/http/gd-2.0.22.tar.gz # tar xzvf gd-2.0.22.tar.gz # cd gd-2.0.22 # ./configure # make install コレで開発環境は整いま…
#!/usr/bin/perl -w use strict; use warnings; my $file = '/usr/local/logs/hddtemp.log'; my $date = `LANG=C date`; chomp($date); my $temp = `hddtemp /dev/hda`; chomp($temp); open(OUT, ">> $file"); print OUT "$date\t$temp\n"; close(OUT); 1; …
Perl健忘録 SORP::Lite Server.cgi #!/usr/bin/perl use SOAP::Transport::HTTP; SOAP::Transport::HTTP::CGI ->dispatch_to('SOAPServer') ->handle(); package SOAPServer; sub helloWorld { return "Hello, world !\n"; } sub tryMath { my ($class, $x, …
なんとなくわかってきた雰囲気。 全部スクリプトで動かせば、何がどう動いているのかわかる雰囲気。 環境 必要なモノ 用途 備考 Apache webサーバ 1.xでも2.xでも可。 Perl App 必須 webブラウザ webブラウザ 必須。このページが見えてる時点でok Perlモジュ…
一番簡単なファイルのOPEN-CLOSE ＋ 一番簡単なエラー処理 #!/usr/local/bin/perl -w use strict; use warnings; eval{ my $file = './test.txt'; open(OUT, ">> $file"); print OUT "らくがき\n"; close(OUT); open(IN, "$file"); while (<IN>) { print; } clos</in>…
#!/usr/local/bin/perl -w use strict; use warnings; use Net::SSH::Perl; my $host = "localhost"; my $user = "user1"; my $pass = "user1"; my $cmd = "date"; eval{ my $ssh = Net::SSH::Perl->new($host); $ssh->login($user, $pass); my($stdout, $st…
#!/usr/local/bin/perl my $i = "01"; if( $i =~ /^0\d$/ ){ print "!!!!\n"; print "i = $i\n\n"; $i = substr($i,1); print "i = $i\n\n"; } elsif( $i =~ /^1\d$/ ){ print "????\n"; } else{ print "++++\n"; } 1; 二桁の数字の最初が「０」だった場合の…
オフセット/リミット の使い方がわからないときに Pager を見っけて*1使ってみたけど、 直書き SQL の発行方法を知っちゃったからを使ってしまいちょと疎遠になってしまいました(汗Class::DBIで統一したほうがメンテとかヴァジョンアップもしやすいってこと…
<select name="url" size="15" multiple> <OPTION value="[% var.url %]" >[% var.url %]</OPTION> </select> multiple を使って複数選択したフォーム値をどうやって継承すればよいでしょうか… JavaScriptで持ちまわせないかとの考えたのですが、どうも上手くいかねぇ…理想系は子ウィンドウのフォーム値を選択して「送る」的なことをすると、親モジュ…
検索結果をgoogleライクに表示したい [% count = 0 %] [% WHILE (count<10) %] [% count = (count+1) %] [% IF ( post.page == nowpage ) %] [% nowpage+1 %] [% ELSE %] <A HREF="search.cgi?id=[% post.id %]&page=[% nowpage %]" >[% nowpage+1 %]</A> [% END %] [% nowpage = (nowpage+1) %] [% END %]どうも WHILE ルー…
参考 >http://cpan.uwinnipeg.ca/htdocs/Class-DBI-Pager/Class/DBI/Pager.htmlClass::DBI::Pager - Pager utility for Class::DBI 親モジュール 「CD」 package CD; use base qw(Class::DBI); __PACKAGE__->set_db(...); use Class::DBI::Pager; # just use…
子プロセスで実行： http://www.stackasterisk.jp/tech/program/perl04_02.jsp http://www.sarinaga.com/progtoy/perlcookbooklink.html http://www.unix.org.ua/orelly/perl/cookbook/ch16_20.htm #!/usr/bin/perl eval{ $ppid = $$; #<-親プロセスID $| = …
