_ [つくる] 働け俺。ネットで遊ばなくなるスクリプト

#!/usr/bin/perl
use strict;
use warnings;
use File::Copy qw/copy move/;
my $ifh;
my $ofh;
my $ifile = "/etc/hosts";
my $ofile = $ifile."_";
my $msg="";

open $ifh, '<', $ifile or die "Cannot open '$ifile': $!";
open $ofh, '>', $ofile or die "Cannot open '$ofile': $!";

while (my $l = <$ifh>) {
	if($l=~/^0\.0\.0\.0/){
		$l=~s/^0\.0\.0\.0/#0.0.0.0/;
		$msg="play free and forever!";
	}elsif($l=~/^#0\.0\.0\.0/){
		$l=~s/^#0\.0\.0\.0/0.0.0.0/;
		$msg="work harder and harder, or die.";
        }
	print $ofh $l;
}

close($ofh);
close($ifh);

copy $ofile, $ifile or die "Copy failed : $!";

print $msg, "\n";

自分の時間を食べてしまうサイトを/etc/hostsに書く。

0.0.0.0 mixi.jp
0.0.0.0 facebook.com
0.0.0.0 twitter.com
0.0.0.0 slashdot.jp
0.0.0.0 www.yahoo.co.jp

この後スクリプトをrootで実行すると/etc/hostsの先頭に#がつく。

#0.0.0.0 mixi.jp
#0.0.0.0 facebook.com
#0.0.0.0 twitter.com
#0.0.0.0 slashdot.jp
#0.0.0.0 www.yahoo.co.jp

もう一回やると#が取れる。suとかsudoしないと動かないので適度に面倒でよいかと。
#perl-suidってのは消えるらしいですね

1つ気づいたが、こんなもの作ったり記事書いたりしてるから余計働かないのではないだろうか。