2008-05-20

ヒキオタで元NEET

ダメダメ

NEETでヒキオタな人がお金持ちになるとかいうエントリが再浮上してるのを見たので、俺のことかと思ったら違った。
3年前に会社を辞めて(実質は辞める一年前には鬱で休職状態だったんだが)、ほぼ2年の間NEETをしてた。前の会社では仕事のやり方とか linuxのオペレーションとかいろいろ勉強させてもらってたけど、実質年収は200万切るぐらいで、まあいわゆるワーキングプアに近い所にいた気がする。
そのIT系の会社に入る前は、S川急便の下請けの宅配業者をやってた。保険なしの手取り19万ぐらいなので、激しくワープアだったね。
もちろん、今の会社に入るまでボーナスとかもらったことなかったし、勤務期間の間に諸手当を含めてベースアップをしたことがなかった。
それでも、まあ気がついたらこんな感じで自分を振り返ることができるのは、運がよかったのか、前の会社のIT系というのが、今のneedsにあってたのか、よくわからんのだけど、実際首でもくくるつもりで、200万円ほど借金して贅沢して、ぱーっと使ったら逆に生きる気力が出て、サーバーをこしらえたり、perlやらrubyなんかをちょこちょこ触ったりして、今につながってるっていうのは、なんなんだろう。
気がついたら、逆輸入の単車を即金で買ったり、知り合いの一言で軽トラ買ったりと(小金もち自慢)普通にお金が使えるようになってた。
ちなみに再就職したときで35歳。もちろんそんな生活で彼女が定着することもなかったし、いまだに独身だけど、気ままに生きてるから全然ストレスがたまらないし、お金に余裕があるというのは、気持ちの余裕につながるのでこんな痛い文章を惜しげもなく晒したりもできるんだよね。
まあ、いろんな仕事をしてきたけど、今ある仕事を一所懸命やって、空いた思考時間を使ってちゃんと勉強しようと努力をそれなりにしてきたのが、唯一自分がやったことで、あとはめぐり合わせと、一歩踏み出す勇気なのかもしれんねえ。
NEET期間中はMMOを廃プレイしたりしてたけど、最近全然遊んでないのがちょっと心残り。PCゲームが嫌いになったわけじゃないんだけど、あんまりやる気が起きないのはなんでだろう。

2008-05-02

■

ダメダメ

もう連休に単車乗ることだけで頭が一杯で仕事が手に付かないとか、どこの小学生ですか、この中年ライダー（　´∀｀）

2008-04-10

突然会社のFWがあぼーんして、急遽データセンタまで出張してきた。

鯖管理

なんか、一難去ってまた一難というか、安定したサービス供給って難しい。

2008-01-29

ユーザ権限でのインストール

linux perl

まあレンタル鯖の管理人なので、rootで作業することも多く、お客さんが実際にできること、を調べておかないと安心して薦められないので、自分の会社の鯖でユーザ権限で色々インストールを試しているんですが、rubyやpythonなんかは苦労することもなくmakeできますが、gccになるとgcjのmakeでメモリ使いすぎて、メモリリミットでとめられちゃう。perlはどうかというと、結構あちこちで苦労してる方がいらっしゃるようなので、自分も試しに入れてみました。

% cd perl-5.10.0
% sh Configure -Dprefix=/home/samaiyou/local -Dusethreads -des

 中略

opendir(./../../../../..): 許可がありません at ../../lib/File/Spec/Unix.pm line 478

最初は普通に失敗。 google:opendir(./../../../../..)　perl ../../lib/File/Spec/Unix.pm 調べたら、やっぱり Cwd.pmにパッチをあてておりました。なぜこんなことがおきるかというと、多くのレンタルサーバーでは各々のユーザが /homeを参照できないように設定されてるためで、上の階層が読めないと、変なPATHを渡してしまうみたいなので、lib/Cwd.pmを直接いじって回避しているみたいです。

--- lib/Cwd.pm	Tue Dec 18 10:47:07 2007
+++ lib/Cwd.pm.cwd	Thu Jan 24 12:33:29 2008
@@ -501,6 +501,11 @@
 sub _perl_abs_path
 {
     my $start = @_ ? shift : '.';
+
+    # this just returns a path down from /, without attempting to
+    # resolve .. or symlinks. It *may* be sufficient to build perl.
+    return $start =~ m!^/! ? $start : cwd() . '/' . $start;
+
     my($dotdots, $cwd, @pst, @cst, $dir, @tst);
 
     unless (@cst = stat( $start ))

comp.lang.perl.misc より。

これのハックをしたら普通にさっきのConfigのあとのmakeがちゃんと通ります。testの時にエラーが出るのがいやな人は、パッチ当てたところを元に戻しておきましょう。

その後ソース見てたら

lib/Cwd.pm

=head2 getcwd and friends

Each of these functions are called without arguments and return the
absolute path of the current working directory.

=over 4

=item getcwd

    my $cwd = getcwd();

Returns the current working directory.

Exposes the POSIX function getcwd(3) or re-implements it if it's not
available.

=item cwd

    my $cwd = cwd();

The cwd() is the most natural form for the current architecture. For
most systems it is identical to `pwd` (but without the trailing line
terminator).

=item fastcwd

    my $cwd = fastcwd();

A more dangerous version of getcwd(), but potentially faster.

It might conceivably chdir() you out of a directory that it can't
chdir() you back into.  If fastcwd encounters a problem it will return
undef but will probably leave you in a different directory.  For a
measure of extra security, if everything appears to have worked, the
fastcwd() function will check that it leaves you in the same directory
that it started in. If it has changed it will C<die> with the message
"Unstable directory path, current directory changed
unexpectedly". That should never happen.

=item fastgetcwd

  my $cwd = fastgetcwd();

The fastgetcwd() function is provided as a synonym for cwd().
=item getdcwd

    my $cwd = getdcwd();
    my $cwd = getdcwd('C:');

The getdcwd() function is also provided on Win32 to get the current working
directory on the specified drive, since Windows maintains a separate current
working directory for each drive.  If no drive is specified then the current
drive is assumed.

This function simply calls the Microsoft C library _getdcwd() function.

=back


=head2 abs_path and friends

These functions are exported only on request.  They each take a single
argument and return the absolute pathname for it.  If no argument is
given they'll use the current working directory.

=over 4

=item abs_path

  my $abs_path = abs_path($file);

Uses the same algorithm as getcwd().  Symbolic links and relative-path
components ("." and "..") are resolved to return the canonical
pathname, just like realpath(3).

=item realpath

  my $abs_path = realpath($file);

A synonym for abs_path().

=item fast_abs_path

  my $abs_path = fast_abs_path($file);

A more dangerous, but potentially faster version of abs_path.

=back