#!/usr/bin/perl -w use strict; use WWW::Mechanize; use utf8; binmode(STDOUT, ":utf8"); my $start = "http://www.golgo31.net/"; my $mech = WWW::Mechanize->new( autocheck => 1 ); $mech->get( $start ); my @links = $mech->find_all_links( text_r…

自宅で使ってるubuntuにtelnetで入ってごちゃごちゃしてるんだが 昨日ubuntuのアップデートかけて寝て今日つないでみたらつながらない。。 あーれー？と思って設定を見直してみたものの？？？ # /etc/init.d/xinetd restart あれ？成功とか失敗とかメッセー…

自分の周りでなぜかphpがアツいのでちょっと勉強ついでに調べ。 基本perlで〜するには〜に対するphpで〜。間違ってたらあとでこっそり直す。 perl php 意味 use strict error_reporting*1 怪しい動作の警告を出力する // /**/,// コメント our global グロー…