ダウニってみた

巷で噂？のダウニー 使ってみました。
外国の柔軟剤だから結構匂いがキツいのかなーと思ってたけど、
乾燥させるとそうでもない。ほのかにいい香りで結構いい感じ。
服からお姉さんのいい香りがしますw

平日休みの一日

部屋に彩りを添えてみました。

雪が降ってたけど寒い部屋でどれくらいもつもんかね…

※アルコールは入ってません

本日のそば

某所にて海鮮あんかけかたやきそば。
写真の立体感が…
いつもの倍の高さがある気がする

なんとなく squid

ひさしぶりになんとなく squid で cacheサーバを起ててみる。

とりあえず

$ sudo apt-get install squid

/etc/squid/squid.conf を編集

# And finally deny all other access to this proxy
#http_access deny all
http_access allow localnet

squid を restart

$ sudo /etc/init.d/squid restart

ブラウザのプロキシ設定を有効にする
done

一人じゃ全然有効じゃないのはわかるけど。。。アクセス遅すぎな気が。。。

マイブーム

おはよう
こんにちわ
こんばんわ

いつみてるかわからないから
あいさつぜんぶ


$ rm ./*
いろいろ消えますた…
大事なスクリプトが…

頑張って復旧中
sub getlink() {
my $url=shift;
my $content = get($url);
my $base=&getbase($url);
print "$base\n";
my $p = HTML::LinkExtor->new(\&cb,$base);
@tmp_urls="";
$p->parse($content);
my @urls=@tmp_urls;
return @tmp_urls;
}


sub cb{
my($tag, %links) = @_;
if ($tag eq "a") {
push(@tmp_urls, values %links);
}
}


sub getbase() {
my $url = shift;
my $base;
$url =~ /(.*)\/(.*)/;
$base = $1.'/';
return $base;
}

sub getfilename() {
my $path = shift;
my $dir;
my $file;
if ($path =~ /(.*)\/(.*)/) {
$dir = $1.'/';
$file = $2;
} else {
$dir = './';
$file = $path;
}
return $file;

}