Windows ファイラーの あふw で、peco を使ってフォルダ履歴をいい具合に使いたい。業務上、あっちこっちの Windows Server を UNC パスによりあふで見まくってて、よく使うフォルダ登録だけではきつくなってきたので、履歴からさくっとアクセスできるといい…
.vimperatorrc を git で管理してて、家の Mac と職場の Windows で設定ファイルを共用してる。で、C-k で Emacs よろしくなことがしたいため、以下を設定したところ、Mac での挙動がおかしくなるので、これを Windows のみに適用したい。 inoremap <C-k> <S-End><C-x> cnorem</c-x></s-end></c-k>…
ブラウザで長い文章を読むとき、読んでるパラグラフなどを選択しながら読む癖があって、vimperator だと c v hjkl でやるわけだが、ずっと選択しっぱなしがイヤなので、ほどほどのところで Esc して選択解除したりする。するとキャレットが選択要素の最初に…
これまで「さくら VPS 512」を2つ契約してて Debian と Windows をそれぞれ使っていたが、2012-03-29 にさくら VPS がリニューアルして、メモリもハードディスクも増量し、2G プランも登場したことから、仮想化でやれば 2G プラン1本でいけるんじゃないかと…
多くの iPhone アプリでは、あとで読む系は Read It Later (以下 RIL) が多いので、RIL に流しているが、通常ははてブを使っているため、RIL に登録した URL をはてブに集約したい。というか、仕事から現実逃避したいので、コード書きたい。というわけで、以…
http://d.hatena.ne.jp/chabom/20100818/1282092637 のコードはBasic 認証でもう使えないので、OAuth 対応した。利用するには、Consumer key, Consumer secret, Access Token, Access Token Secret は Twitter Developer Platform — Twitter Developers でア…
このコードは、TwitterのBASIC認証廃止に伴い利用できません。 $URL = "http://twitter.com/statuses/followers.xml?cursor=" $USER = "username" $PASSWD = "password" $OLD_FILE = "followers_old.txt" $nc = New-Object System.Net.NetworkCredential($US…
((Get-ChildItem (Get-ChildItem env:TEMP).Value | where {$_ -is [System.IO.FileInfo]} | sort LastWriteTime -Desc)[0]).FullNameファイルのみの抽出のところで where { $_.Attributes -eq 'Archive' } とすると、Archive だけのファイルだけになって [A…
By default, an object inherits permissions from its parent object, either at the time of creation or when it is copied or moved to its parent folder. The only exception to this rule occurs when you move an object to a different folder on t…
$PSCP = "C:\tools\putty\pscp.exe -p" # -p は timestamp を保持 $7Z = "C:\Program Files\7-Zip\7z.exe" @( @{ "host" = "192.168.0.1" "user" = "user" "pass" = "password" "src" = "/var/log/httpd/*.1" "dst" = "d:\backup\web1" }, @{ "host" = "192.…
$7z = 'C:\Program Files\7-Zip\7z.exe' $dir = 'f:\Exchange\LogFiles' Get-ChildItem $dir -Recurse | foreach { if ($_.Name -match '.+log$') { $orig = $_.FullName $zip = $_.FullName + '.zip' & $7z a -tzip $zip $orig rm $orig } }
NTEmacs で Shift_JIS のファイルを開くと文字化けになって、C-x RET r で Shift_JIS として開くも、一部 \372 とか \373 などと化けて表示される。で、他のエディタで開くと「はしご高」とかが化けてるのがわかって、要は IBM 拡張文字は Shift_JIS の範囲…
どうでもいいけど、このはてなダイアリーのテーマ (Monotone-flower) の CSS でフォント名が間違っている。いや、どうでもよくないか。 body { font-family:arial, sans-sarif; } h1 { font-family:arial, sans-sarif; } 正しくは sans-serif ね。
Encode::decode #!/usr/bin/perl # utf8 で保存しとくこと use strict; use warnings; use Data::Dumper; use Encode; my $input = "あ"; print Dumper($input); #=> $VAR1 = '縺・; バイト列 print Dumper( decode("utf8", $input) ); #=> $VAR1 = "\x{3042…
base64エンコード $str = "たちあがれ日本" # 文字列からバイト列 (utf-8) に変換する $byte = [System.Text.Encoding]::UTF8.GetBytes( $str ) # 文字列からバイト列 (iso-2022-jp) に変換する # $enc = [System.Text.Encoding]::GetEncoding("iso-2022-jp"…
#!/usr/bin/perl use strict; use warnings; use Mail::POP3Client; use Mail::MboxParser::Mail; my $user = "username"; my $pass = "password"; my $host = "example.jp"; my $ssl = 1; my $pop = new Mail::POP3Client( USER => $user, PASSWORD => $pas…
#!/usr/bin/perl use strict; use warnings; my @host = ( { 'hostname' => "host1", 'size' => 613475, 'used' => 16551 }, { 'hostname' => "host2", 'size' => 613501, 'used' => 15214 }, ); printf "%-5s %8s %8s %8s %4s\n", "Host", "Size", "Used", …
#!/usr/bin/perl use strict; use warnings; use Mail::MboxParser; use DateTime::Format::Mail; my $mbox = $ARGV[0]; die unless ($mbox); my $mb = Mail::MboxParser->new($mbox, decode => 'ALL', parseropts => { enable_cache => 1, cache_file_name …
DateTime::Format::Mail #!/usr/bin/perl use strict; use warnings; use DateTime::Format::Mail; my $date = "Thu, 17 Jun 2010 00:00:35 +0900"; my $dt = DateTime::Format::Mail->parse_datetime($date); print $dt->ymd(""), "\n"; $ ./rfc2822date.pl…
#!/bin/sh # 毎日の統計をsubversionリポジトリにコミットする date=`date '+%Y%m%d'` cd /home/turbo/log /home/turbo/stat.pl > stat.txt svn ci -m "update $date" svn up で、cronに仕込むと。 $ crontab -e 0 2 * * * /home/turbo/stat.sh
open my $fh, '<', $file or die $!; while (<$fh>) { # chomp; s/\r?\n$//; # 0D0Aのときがあったので push @list, $_ unless /^$/; } close $fh; レコード区切り文字 $/ を設定して chomp してもいいのだが、Windows だと 0D0A、Linux だと 0A となり、フ…
#!/usr/bin/perl use strict; use warnings; use utf8; use Encode; use Date::Simple 'today'; use Email::Send; use Email::MIME::Creator; my $SUBJECT = '件名です'; my $FROM = 'from@example.jp'; my $TO = 'to@example.jp'; my $SMTP_SERVER = '192.1…
#!/usr/bin/perl use strict; use warnings; use DateTime; my $dt = DateTime->now( time_zone => 'Asia/Tokyo' ); my $expire = $dt->add( months => 3 ); # 今日の3ヶ月後 print $expire->ymd, "\n"; printf "[%s] ", $dt->strftime('%Y-%m-%d %H:%M:%S')…
#!/usr/bin/perl use strict; use warnings; use English '-no_match_vars'; $0 を $PROGRAM_NAME のように、特殊変数をわかりやすい変数名として使う。-no_match_varsで、正規表現時の $`, $&, $' を使わない。
#!/usr/bin/perl use strict; use warnings; use Getopt::Std; $Getopt::Std::STANDARD_HELP_VERSION = 1; # standard-conforming behaviour our( $opt_v, $opt_h, $opt_a, ); getopts('vha:'); print "v: $opt_v\n" if ($opt_v); print "h: $opt_h\n" if ($…
> cpan cpan> o conf init > vi C:\strawberry\perl\lib\CPAN\Config.pm 'http_proxy' => q[http://192.168.0.1:8080],
個別「はてな記法チートシート壁紙(blue/win/1024x768)」の写真、画像 - hatenadiary's fotolife