Регулярное выражение

@Ангелика · Регистрация: 13.10.2009

Author24 — интернет-сервис помощи студентам

Здравствуйте!!!На дом задали ознакомиться с регулярными выражениями на Perl....понимаю, что никто не приподнесет на белой каемочке, но может кто то знает вообще с чего начать...поставили такую задачу: На входе строка из цифр, разделенных пробелами, если число заканчивается на 2 или 5, то последнюю цифру числа меняем на 10.

@easybudda · 10.01.2013, 17:46

Perl

#!/usr/bin/perl -w
use strict;
 
my $string = "123 345 222 333 555";
 
print "Before: $string\n";
$string =~ s/[25]\b/10/g;
print "After: $string\n";

Код

perl 2510.pl 
Before: 123 345 222 333 555
After: 123 3410 2210 333 5510

@Ангелика · 11.01.2013, 09:11 **[ТС]**

Спасибо за помощь!

@Ангелика 1 / 1 / 1 Регистрация: 13.10.2009 Сообщений: 28
		1
	Регулярное выражение 10.01.2013, 16:35. Показов 726. Ответов 2 Метки нет (Все метки) Здравствуйте!!!На дом задали ознакомиться с регулярными выражениями на Perl....понимаю, что никто не приподнесет на белой каемочке, но может кто то знает вообще с чего начать...поставили такую задачу: На входе строка из цифр, разделенных пробелами, если число заканчивается на 2 или 5, то последнюю цифру числа меняем на 10. 0

@Ангелика 1 / 1 / 1 Регистрация: 13.10.2009 Сообщений: 28
	11.01.2013, 09:11 [ТС]	3
	Спасибо за помощь! 0