From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <useperl@fastmail.fm>
Date: Thu, 19 Sep 2002 03:47:55 +0400
From: Henri Bourbon <useperl@fastmail.fm>
X-Mailer: The Bat! (v1.60m) Personal
X-Priority: 3 (Normal)
Message-ID: <11269095640.20020919034755@fastmail.fm>
To: Heavenly <community@altlinux.ru>
In-Reply-To: <200209182012.58588.heavenly@nm.ru>
References: <200209182012.58588.heavenly@nm.ru>
MIME-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Transfer-Encoding: 8bit
Subject: [Comm] [JT] Кесарю -- кесарево, bash'у -- bash'ево
Sender: community-admin@altlinux.ru
Errors-To: community-admin@altlinux.ru
X-BeenThere: community@altlinux.ru
X-Mailman-Version: 2.0.13
Precedence: bulk
Reply-To: community@altlinux.ru
X-Reply-To: useperl@fastmail.fm
List-Unsubscribe: <http://www.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=unsubscribe>
List-Id: <community.altlinux.ru>
List-Post: <mailto:community@altlinux.ru>
List-Help: <mailto:community-request@altlinux.ru?subject=help>
List-Subscribe: <http://www.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=subscribe>
List-Archive: <http://www.altlinux.ru/pipermail/community/>
Archived-At: <http://lore.altlinux.org/community/11269095640.20020919034755@fastmail.fm/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

On 18 Sep 2002  20:12, Heavenly wrote:

> P.P.S. Даа ... чуть не забыл! Есть файл, в нем девизы. Каждый
>        начинается с новой строчки. Как с помощью bash'a
>        выводить один девиз случайным образом?

Как? Вы разве не проходили этого в начальной школе? 8-)

perl -e 'rand>1/$. or $s=$_ while <>; print $s' MY_FILE

Ах  да,  виноват,  я забыл, что это нужно сделать с помощью bash . Этого
можно достичь 2-мя способами.

Способ первый, на "троечку".
bash -c 'perl -e "rand>1/\$. or \$s=\$_ while <>; print \$s" MY_FILE'

Способ второй, правильный ;)
bash -c 'echo $0 is NOT a programming language'
bash -c 'echo $SHELL is a SHELL'
perl -e 'rand>1/$. or $s=$_ while <>; print $s' MY_FILE

-- 
HB