From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <maga@globetravel.spb.ru>
From: Sergey Degtyaryov <maga@globetravel.spb.ru>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <18533.010720@globetravel.spb.ru>
To: cornet <mandrake-russian@altlinux.ru>
In-reply-To: <3B57EDF4.D28389B2@zmail.ru>
References: <3B57EDF4.D28389B2@zmail.ru>
Mime-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Transfer-Encoding: 8bit
Subject: [mdk-re] =?koi8-r?B?UmU6IFttZGstcmVdIO/C0sHUzs8gcGVybA==?=
Sender: mandrake-russian-admin@altlinux.ru
Errors-To: mandrake-russian-admin@altlinux.ru
X-BeenThere: mandrake-russian@altlinux.ru
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: mandrake-russian@altlinux.ru
X-Reply-To: Sergey Degtyaryov <maga@globetravel.spb.ru>
List-Help: <mailto:mandrake-russian-request@altlinux.ru?subject=help>
List-Post: <mailto:mandrake-russian@altlinux.ru>
List-Subscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@altlinux.ru?subject=subscribe>
List-Id: Linux-Mandrake RE / ALT Linux discussion list <mandrake-russian.altlinux.ru>
List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://altlinux.ru/pipermail/mandrake-russian/>
Date: Fri Jul 20 12:33:01 2001
X-Original-Date: Fri, 20 Jul 2001 12:48:30 +0400
Archived-At: <http://lore.altlinux.org/community/18533.010720@globetravel.spb.ru/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

Доброго времени суток, cornet,

20.07.2001 в 12:38 Вы сказали буквально следующее:

c> Я не знал про это свойство if(/переменная_содержащая_шаблон/)
c> искать этот шаблон в $_ как подстроку.

Дело в том, что

if( $_=~/^.*$tpl.*$/)
{
print "Ok\n";
}

(Ваш код)
работает точно так же.
Просто ^.* и .*$ - лишнее, строка же обязательно начинается и
обязательно заканчивается =)

perldoc perlop на предмет поиска
perldoc perlre на предмет regexp

Rgds, maga