perlのお勉強

ぼちぼちperlのお勉強をしています．
昨日はshift()等学んだ．

my @a = (0, 1, 2);
print shift(@a)

>>0

shiftは配列を引数にとりその第一要素を返す．
次のような場合は動作が異なる．

sub a {
    my $x = shift // 1; # $xのデフォルト値の設定（引数（shift）がなければ1を代入）
    return $x + 1;
}
print &a();
print "\n";
print &a((0, 1, 2));

>>2
>>1

サブルーチン内で単独でshiftを呼ぶとデフォルトで@_を参照する．

cmdでのリダイレクト

D:\>cat test.txt
a

D:\>echo add >> test.txt
D:\>cat test.txt
a
add

'>>'で追記

D:\>echo overwrite > test.txt
D:\>cat test.txt
overwrite 

'>'で上書き

Virtual Box にGuest Additions をインストール {ホスト：Win7，ゲスト：Ubuntu}

デバイス(D) → Guest Additions のインストール
で駄目だった．

mount自体はしてるみたいなので見に行く．

cd /media/cdrom0
vim AUTORUN.INF

どうやらオートランがWindows OS 用のプログラムを参照してるらしいのでLinux 用を直接起動．

sudo ./VBoxLinuxAdditions.run

なんか色々出て終了 → リブート

スピードダイヤルの検索エンジンを変更する方法

これ↓

忘れがち

検索窓の左にあるグーグルマーク（デフォはyahoo？）をクリック
↓
「検索エンジンの管理」
↓
設定したい検索エンジンを選んで右側にある「編集」をクリック
↓
「詳細」をクリック
↓
「Speed Dialの検索エンジンとして使用する」にチェック
↓
おｋ