戯術者の日記

print "Content-Type: text/html\n";
print "Content-Length: 6\n\ntest.\n";

$a = Net::Telnet->new(Timeout => 10, Errmode => "return");

$a->errmode("return");

$return = $telnet->login('user', 'pass');

stty erase ^H

alias cd 'chdir \!* && set prompt="${cwd}% "'

alias cd 'chdir \!* && set prompt="`pwd | sed -e s/\\/export\\/home\\/username/~/`% "'

alias cd 'chdir \!* && set prompt="`hostname`:`pwd | sed -e s#$HOME#~#`% "'

set prompt="%~% "

echo $status

./configure

$ wget http://www.hpl.hp.com/personal/Hans_Boehm/gc/gc_source/gc6.3alpha1.tar.gz
$ tar zxvf ....
$ cd ...
$ ./configure
$ make
$ make install

$ ./configure
$ make

$ make clean
$ ./configure
$ make
$ make install

# umount -f /mnt

use POSIX 'tzset';
tzset();

$ cygpath -w /cygdrive/c
c:\

$ cygpath 'c:\windows'
/cygdrive/c/windows

% perl -c script.pl

Options followSymlinks MultiViews ExecCGI Includes Indexes
  IndexOptions NameWidth=30

print "Content-type: application/octet-stream\n\n";
open(F, "gazou.xxx");
binmode(F);
print while(<F>);
close(F);

while( ) {
	if ($pid[$i] = fork) {
		親(何もしない)
	} elsif (defined $pid[$i]) {
		子(並列処理)
		exit;
	} else {
		fork失敗
	}
}
foreach(@pid) { # 子のwait  ("wait"ではダメ(子が一つ終了すると抜ける))
	$cpid = waitpid $_, 0;
}
exit;

unlink </foo/bar/*>