[root@localhost ~]$ echo "export PS1=\"$PS1\"" >> .bashrc
[root@localhost ~]$ vim .bashrc
export PS1="[\u@\h(hoge) \W]\$ "
再ログイン
#include <SPI.h> | |
// SN74HC595 をつかったLチカ | |
// AVRボート | |
// Arduino | SN74HC595 | |
// ---------|---------------- | |
// SS(D10) | RCLK(12) | |
// MOSI(D11)| SER(14) | |
// MISO(D12)| NC(接続しない) |
# locale | |
LANG=ja_JP.UTF-8 | |
LANGUAGE= | |
LC_CTYPE="ja_JP.UTF-8" | |
LC_NUMERIC="ja_JP.UTF-8" | |
LC_TIME="ja_JP.UTF-8" | |
LC_COLLATE="ja_JP.UTF-8" | |
LC_MONETARY="ja_JP.UTF-8" | |
LC_MESSAGES=en_US.UTF8 | |
LC_PAPER="ja_JP.UTF-8" |
$ ssh -t -A username@hostname 'screen -D -RR' |
#!/usr/bin/env perl | |
# library.ymlからArtist Album Name TrackNumberをキーにしてiTunesLibraryの | |
# Rating PlayedCount DateAdded DateAdded PlayedDate を設定する。 | |
# Windows用 Perl 5.10.1 cygwin | |
use 5.10.0; | |
use strict; | |
use warnings; | |
use utf8; | |
use Win32::OLE; | |
use Win32::OLE::Variant; |
#!/usr/bin/env perl | |
# iTunesLibraryからRatingなどを一括抽出し、library.ymlに保存。 | |
# Windows用 Perl 5.10.1 cygwin | |
use 5.10.0; | |
use strict; | |
use warnings; | |
use utf8; | |
use Win32::OLE; | |
use Win32::OLE::Variant; | |
use Encode; |
<?php | |
class CheckAndGetURL { | |
private $url; | |
// HEADのレスポンスで検索するヘッダの正規表現 | |
private $headers_match=[ | |
"^HTTP/1\.1 200 OK$", | |
"^Content-Type: application/octet-stream$", |
#!/usr/bin/env perl | |
# | |
# uuencodeしてターミナル経由でファイルを送信する。 | |
# $ uutrans.pl hoge.jpg | |
# を実行するとクリップボードにデータがコピーされるので、送信先で | |
# $ perl | |
# を実行してペーストすると、そこにデータが保存される。 | |
# | |
# 参考: http://blog.livedoor.jp/dankogai/archives/50683970.html |
#!/usr/bin/env perl | |
use utf8; | |
use strict; | |
use warnings; | |
binmode(STDIN,':utf8'); | |
binmode(STDOUT,':utf8'); | |
if($#ARGV==-1) { | |
print "USAGE: $0 [title] [ssh command]\n"; | |
print " $0 [ssh command])\n"; |
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use utf8; | |
use Math::Random::MT; | |
sub random_password { | |
my $len=shift || 10; | |
my $gen=Math::Random::MT->new(); |