Yes!たかs(ry

yesっていう便利なコマンドが有るのを三沢社長のザ・リーブのCMを見ながら発見

以下man。何でもかんでもyes!yes!yes!foreverrr!!って事のよう。

NAME
     yes -- be repetitively affirmative

SYNOPSIS
     yes [expletive]

DESCRIPTION
     The yes utility outputs expletive, or, by default, ``y'', forever.

HISTORY
     The yes command appeared in Version 32V AT&T UNIX.

色々インストールしてる時、入力を求められてy!y!y!yahoooo!って打ち続ける作業は誰しもだるいところ。
その辺をずばっと解決してくれるyes!yes!yes!

試してみた

↓のコードかきかき。標準入力吐くだけの人です。
yes.pl

use strict;
use warnings;

use Perl6::Say;

for my $i (1 .. 10) {
    my $yes_no = <STDIN>;
    chomp $yes_no;
    say qq/input '$yes_no'/;
}

そして以下のように実行。

$ yes | perl yes.pl
input 'y'
input 'y'
input 'y'
input 'y'
input 'y'
input 'y'
input 'y'
input 'y'
input 'y'
input 'y'

でたでた!

入力はデフォルトがyで第一引数でメッセージを指定できるみたいです。

$ yes 'yes takasu' | perl yes.pl
input 'yes takasu'
input 'yes takasu'
input 'yes takasu'
input 'yes takasu'
input 'yes takasu'
input 'yes takasu'
input 'yes takasu'
input 'yes takasu'
input 'yes takasu'
input 'yes takasu'

これで色んなもののインストールとかバッチ化できそう!

追記
新しいサーバーとかはとりあえず何も考えず

$ yes | perl -MCPAN -e "install Task::Catalyst"

とかしておくと後の災いっていうか煩わしさをはぶけるかもね。