Perl日記

日々の知ったことのメモなどです。Perlは最近やってないです。

2010-12-01から1ヶ月間の記事一覧

packageについて3

packageはブロックであり、クラスであるので、クラスにインポートされた関数は他のクラスで使うことはできない。 #!/usr/bin/env perl use strict; use warnings; package Foo; use Digest::MD5 qw/ md5_hex /; package main; print md5_hex('aiueo'), "\n";…

packageについて2

packageとはクラスである。 #!/usr/bin/env perl use strict; use warnings; package X; sub new { bless {}, $_[0] } sub x { print "x\n" } package Y; use base 'X'; sub y { print "y\n" } package Z; use base 'Y'; sub z { print "z\n" } package main…

packageについて1

packageとはブロックである。 #!/usr/bin/env perl use strict; use warnings; my $main_lex = 'main_lex'; our $main_our = 'main_our'; package Foo; print $main_lex, "\n"; print $main_our, "\n"; __END__ main_lex main_ourpackageとはブロックである…

URIからTitle取得

すごく簡単にHTMLからTitleをとりたい。 rightgo09/URI-Tag · GitHub まだすごく適当だけど晒してしまう。 こんな感じ。 use URI::Tag; my $title = URI::Tag->title('http://google.com'); #=> 'Google' use URI::Tag; my $ut = URI::Tag->new; $ut->uri(UR…

GithubにSSH公開鍵を設定

SSH

いろいろ勉強になったのでメモ。 githubにアカウントを作ったのはいいものの、さてどうやってさくらのレンタルサーバからpushするのかと調べていたら、SSHの公開鍵を設定しないといけないことがわかった。 こちらを参考にさせてもらった。 初心者Git日記その…

配列内の要素undef自動補完

新しく配列を作成しただけだと、中身はもちろん何もないので要素数0。 use strict; use warnings; my @ary; print scalar(@ary), "\n"; #=> 0 この時に添字[10]には何が入っているかといえば、undefがある。 print $ary[10]; してみると、Use of uninitializ…