2013-03-17から1日間の記事一覧

perl でs/ダ・カーダ/ダ・カーポ/; できないよね。

というわけでvcの出番 void CMyDlg::OnBnClickedOk() { // TODO : ここにコントロール通知ハンドラ コードを追加します。 CFileFind ff; CStringArray sa; UpdateData(TRUE); if( ff.FindFile( m_dir + _T("*.*") ) ) { // s/ダ・カーダ/ダ・カーポ/; できな…

動画ファイル名により振り分け

http://d.hatena.ne.jp/ore_de_work/20130303#1362255372 のやつを少し換えた #京 #!/bin/perl use strict; use warnings; use File::Path; use Cwd 'getcwd'; use Fcntl; use File::Find; use File::Copy; my $dir = getcwd; my %matchs = ( # match => dst…

■