grep に近い使い方となる。 >findstr /c:文字列1 /c:文字列2 /c:文字列3 検索対象ファイル 参照 findstrで正規表現を検索する

サンプル #!/usr/bin/perl use strict; use warnings; use utf8; use YAML::Syck; # ハッシュ -> 配列 -> ハッシュの # ネスト構造になっている場合 my $yaml = <

#!/usr/bin/perl use warnings; use strict; use utf8; use Time::localtime; use Date::Calc qw(Day_of_Week Week_Number Day_of_Year); # Time::localtime のインスタンスを生成 my $tm = localtime; my $year = $tm->year + 1900; my $month = $tm->mon +…

#!/usr/bin/perl use strict; use warnings; use utf8; use Date::Simple; use Time::Piece; # Date::Simple を使ってみる # 今日の日付で昨日と明日の日付を取得する my $today = Date::Simple->new(); print 'Today is ', $today, "\n"; # 昨日の日付 prin…

やり方は簡単。 Support Ticket から Linode を別のデータセンターに移動したいと伝える 数時間後(自分の場合は6時間後)に、Linode を移動するためのツールが用意される Linode の WEB サイトからユーザーページにログインし、Dashboard のページへ移動する …

「Mac OS X Leopard に WWW::Mechanize のインストールに失敗する」でエラーを調査するにしても、実行環境がわからないと、エラーを探しようもない。 調べていたら、下記のスクリプトで OS の名前が取得できる。 #!/usr/bin/perl use Config; print $Config{…

エラーに下記の一文があった。 //hint// to see the cpan-testers results for installing this module, try: reports PETDANCE/WWW-Mechanize-1.52.tar.gz なので、 % sudo cpan -i CPAN::DistnameInfo をインストールして確認をしてみる。インストール後、…

面倒くさいので、MacPorts で Perl をインストールしてしまい、WWW::Mechanize もインストールする。 % sudo port install perl5.8 % ls -l /opt/local/bin/perl -rwxr-xr-x 2 root admin 1186584 1 11 18:21 /opt/local/bin/perl % ls -l /opt/local/bin/cp…

% apt-cache showpkg dnsutils Package: dnsutils Versions: 1:9.3.4-2etch3(/var/lib/apt/lists/ftp.us.debian.org_debian_dists_stable_main_bin ary-i386_Packages)(/var/lib/apt/lists/security.debian.org_dists_stable_updates_m ain_binary-i386_Pack…

結論としては、問題はないようだ。 起動時にメッセージが出るようになった % sudo /etc/init.d/mysql restart Stopping MySQL database server: mysqld. Starting MySQL database server: mysqld. Checking for corrupt, not cleanly closed and upgrade nee…

サンプル #!/usr/bin/perl use strict; use warnings; use utf8; use YAML::Syck; # 読込用 YAML データの準備 my $yaml = <<'END'; names: - Linux - FreeBSD - Mac OS X - Windows - OpenBSD END # YAML データをパースする my $configs = YAML::Syck::Loa…

% sudo update-alternatives --config editor Password: There are 3 alternatives which provide `editor'. Selection Alternative ----------------------------------------------- 1 /bin/ed *+ 2 /bin/nano 3 /usr/bin/vim.tiny Press enter to keep th…

「404 Blog Not Found:perl - 半角スペースを自動で入れる」を流用した。 #!/usr/local/bin/perl use strict; use warnings; use Encode; my $east = qr/(?!\p{M})(?:\p{Han}|\p{Katakana}|\p{Hiragana})/; my $west = qr/(?!\p{M})(?:\p{Latin}|\p{Greek}|\…