Буферизированный (потоковый) ввод-вывод

#!perl -w
# File ex06009.pl
# Пример тестировался на компиляторе ActiveState
# Perl 5.8.0
#
# Операция заключения в обратные кавычки
# в скалярном и списковом контекстах.
$command = "dir"; # Печать содержимого каталога
$scalar = `$command`; # Скалярный контекст
@list = `$command`; # Списковый контекст
print "\nСодержимое скалярной переменной\n";
print "-"x80;
print $scalar;
print "-"x80;
print "\nСодержимое трёх первых строк вывода\n";
print $list[0].$list[1].$list[2]."\n";
print "-"x80;
# Завершение работы
print "\n";
print STDERR "\nPress key Enter to Exit...";
$junk = <STDIN>;
# Конец файла

#perl -w
#
# Программа для перевода имён файлов в MS WINDOWS в верхний регистр.
#
# Синтаксис:
# >perl ex06010.pl [аргументы…]
#
# где аргументы - имена файлов и каталогов
#
# ЗАМЕЧАНИЕ:
# Функция не переименовывает файлы и каталоги, в именах которых
# есть умляуты и кириллические символы
#
# Пример тестировался на компиляторе ActiveState
# Perl 5.8.0
#
#
$oldFileName = shift() or die "\nNo arguments";	# Читаем первый параметр скрипта
while( 1 )
{
# Цикл ПОКА есть параметры скрипта в командной строке
#
	$newFileName = uc( $oldFileName);		# Все символы в имени - в верхний регистр!
	qx{ren $oldFileName $newFileName};	# Переименование файла
	$oldFileNane = shift() or die"\nThe End of a script";		# Читаем следующий параметр скрипта или выход
}
# Конец процедуры

#perl -w
#
# Программа для перевода имён файлов в MS WINDOWS в нижний регистр.
#
# Синтаксис:
# >perl ex06011.pl [аргументы…]
#
# где аргументы - имена файлов и каталогов
#
# ЗАМЕЧАНИЕ:
# Функция не переименовывает файлы и каталоги, в именах которых
# есть умляуты и кириллические символы
#
# Пример тестировался на компиляторе ActiveState
# Perl 5.8.0
#
#
$oldFileName = shift() or die "\nNo arguments";	# Читаем первый параметр скрипта
while( 1 )
{
# Цикл ПОКА есть параметры скрипта в командной строке
#
	$newFileName = lc( $oldFileName);	# Все символы в имени - в нижний регистр!
	qx{ren $oldFileName $newFileName};	# Переименование файла
	$oldFileNane = shift() or die"\nThe End of a script";		# Читаем следующий параметр скрипта или выход
}
# Конец процедуры

#!perl -w
# File ex06012.pl
# печать имён всех файлов с расширением "*.pl"
#
# Пример тестировался на компиляторе ActiveState
# Perl 5.8.0
#
while ( $file = <*.pl> )
{
	print "$file\n";
}
# Завершение работы
print STDERR "\nPress key Enter to Exit...";
$junk = <STDIN>;
# Конец файла

#! %PYTHON%/python
# -*- coding: cp866 -*-
# Пример тестировался на компиляторе ActiveState
# Python 2.5.
#
# Файл ex06013.py
def ex06013():
	while 1:
# Попытка ввода целого числа
		try:
			print 'Введите целое число: '
			number = int( raw_input() )
			break
		except	ValueError:
			print "Вы ошиблись. Попробуйте ещё раз..."
	print 'Введённое значение - %10d' % number;
# Завершение программы
	junk = raw_input( 'Press key Enter to Exit...')
# Конец программы

#! %PYTHON%/python
# -*- coding: cp866 -*-
# Пример тестировался на компиляторе ActiveState
# Python 2.5.
#
# Файл ex06014.py
def ask_ok(prompt, retries=4, complaint='Да или Нет, пожалуйста!'):
	while 1:
		ok = raw_input( prompt )
		if ok in ('д', 'да', 'Д', 'Да'): return 1
		if ok in ('н', 'не', 'нет', 'Н', 'НЕ', 'НЕТ', 'Нет'): return 0
		retries = retries - 1
		if retries < 0:
			raise IOError(
				'Пользователь отказывается отвечать')
		print complaint
def ex06014():
	print 'Начало функции'
	ok = ask_ok('Да или Нет? ')
	if ok == 1 : print 'нажато Да'
	if ok == 0 : print 'нажато Нет'
# Завершение программы
	junk = raw_input( 'Press key Enter to Exit...')
# Конец программы