From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <vlad@na.ru>
Message-ID: <07b401c11043$788fd570$4201a8c0@muc.beamgate.de>
From: "Vlad Vostrykh" <vlad@na.ru>
To: <mandrake-russian@altlinux.ru>
References: <3B56BDFC.9C146E44@zmail.ru>
MIME-Version: 1.0
Content-Type: text/plain;
	charset="koi8-r"
Content-Transfer-Encoding: 8bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2919.6700
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700
Subject: [mdk-re] =?koi8-r?B?UmU6IFttZGstcmVdIOsg2s7B1M/Lwc0gcGVybA==?=
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
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: Thu Jul 19 14:56:12 2001
X-Original-Date: Thu, 19 Jul 2001 13:10:20 +0200
Archived-At: <http://lore.altlinux.org/community/07b401c11043$788fd570$4201a8c0@muc.beamgate.de/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

Привет.
Я далеко не знаток, но, сдается мне, умножение на 1 поможет:

dev > ./test.pl
876
876
999
dev > cat test.pl
#!/usr/bin/perl
$string1 = "876";
print $string1."\n";
$string1 = $string1*1;
print $string1."\n";
$string1 = $string1 + 123;
print $string1."\n";
dev >

WBR,
    Vlad Vostrzkh

----- Original Message -----
From: "cornet" <cornet@zmail.ru>
To: <mandrake-russian@altlinux.ru>
Sent: Thursday, July 19, 2001 1:01 PM
Subject: [mdk-re] К знатокам perl


> Hello всем!
>
> Сорри за офтопик, но очень надо....
>
> Есть прога на perl.
> В проге по ходу работы, путем чтения строк из дискрипторов,
> создаются _строковые_ переменные вида:
> $string1="45493";
> $string2="0";
> $string3="0000043";
> $string4="5601";
> и тому подобные.
> Эти строки символизируют собой _целые_десятичные_числа_ именно в
> том виде как они в стрингах содержатся - 45443; 0; 43; 3404.
> То есть, в них содержатся _только_ десятичные цыфры в различном
> количестве. Это контролируется мной и отсекается ежели чего не
> так.
>
> Вопрос:
> А как бы мне по простому преобразовать эти строки в десятичные
> _числа_, что бы можно было поработать с ними в _числовом_
> контексте операторами + - < > == != ++ и тому подобное?
>
> Доки проштудированы - просветление отсутствует :-((
>
> Заранее спасибо.
>
> --
> ******** FIRE & STEEL ********
>
> _______________________________________________
> Mandrake-russian mailing list
> Mandrake-russian@altlinux.ru
> http://altlinux.ru/mailman/listinfo/mandrake-russian
>