Исходное сообщение
"Обновления Python 2.7.4, 3.2.4 и 3.3.1. Поддержка ветки Pyth..." Отправлено ragus, 09-Апр-13 13:31
> Теряю терпение. споткнулось о бинарный файл. #/usr/bin/env python import os,sys,re from multiprocessing import Pool,cpu_count expr = re.compile(sys.argv[1]) r_path = sys.argv[2] def func(fname): with open(fname,'r') as f:   try:    if expr.search(f.read()):  return fname   except: return None pool = Pool(cpu_count()) dirlist = [os.path.join(r_path,x) for x in os.listdir(r_path)] files = list(filter(os.path.isfile, dirlist)) s_result = pool.map(func, files ) print(s_result) эквивалент на perl будет?

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>> Теряю терпение. > споткнулось о бинарный файл. > [CODE] > #/usr/bin/env python > import os,sys,re > from multiprocessing import Pool,cpu_count > expr = re.compile(sys.argv[1]) > r_path = sys.argv[2] > def func(fname): > with open(fname,'r') as f: > try: > if expr.search(f.read()): return fname > except: return None > pool = Pool(cpu_count()) > dirlist = [os.path.join(r_path,x) for x in os.listdir(r_path)] > files = list(filter(os.path.isfile, dirlist)) > s_result = pool.map(func, files ) > print(s_result) > [/CODE] > эквивалент на perl будет?
	Введите код, изображенный на картинке: