Webサイトを更新する環境を整備していると、1995年ごろからいままで、Web上でいろんな企画をやってきたなあとしみじみしてしまう。昔は手作業で”What’s new”なんて更新していましたよね。
myclient$ ssh-keygen -t dsa -f ~/.ssh/id_dsa (パスフレーズを入れない)
myclient$ scp ~/.ssh/id_dsa.pub myname@myserver.example.com:/home/myname/.ssh/id_dsa.pub_myclient
myserver$ cd .ssh
myserver$ cat id_dsa.pub_myclient >> authorized_keys
myserver$ chmod 600 authorized_keys
for d in *; do (echo == $d ==); done
#!/usr/bin/perl
use strict;
use warnings;
my $alias_file = "$ENV{HOME}/.aliases";
unless ($ARGV[0]) {
print "Usage: here project-code\n";
print "Example: here math-girl\n";
die;
}
my $project = $ARGV[0];
my $alias = "go-$project";
my $curdir = `pwd`;
chomp($curdir);
open(FILE, ">> $alias_file") or die "$!";
print FILE "alias $alias='cd $curdir'\n";
close(FILE);
print "Alias '$alias' created.\n";