VPF::Разбить строку - Форум программистов

Bulat

Дата 25.7.2006, 08:54 (ссылка)

(нет голосов)

Загрузка ...

татарский Нео

Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57

Есть строка:
bla-bla, blum-blum=bla-bla, blum-blum=bla-bla,.....,blum-blum=bla-bla
нужно разбить(получить) только bla-bla, иначе говоря отсечь то что до "=" и то что после "," , при этом у первого элемента нет "="

Сам не перловщик, но вот появилась необходимость smile

--------------------

менеджер по кодеврайтингу smile

Romikgy

Дата 25.7.2006, 08:59 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146

regexp

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Bulat

Дата 25.7.2006, 09:11 (ссылка)

(нет голосов)

Загрузка ...

татарский Нео

Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57

Romikgy, а мона поподробнее с кодом

Цитата(Bulat @ 25.7.2006, 08:54

)

Сам не перловщик

--------------------

менеджер по кодеврайтингу smile

Romikgy

Дата 25.7.2006, 10:20 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146

На

Код


#!/usr/bin/perl
$r="bla-bla, blum-blum=bla-bla, blum-blum=bla-bla,.....,blum-blum=bla-bla";
@ar=split(/,/,$r);
foreach $rr (@ar )
{
($str1,$str2)= split(/=/,$rr);
print "First ($str1) = Second ($str2) \n" ;   
}

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

nitr

Дата 25.7.2006, 10:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

лучше кеш

, все повторы исчезнут, я так понял у вас конфиг. файл такого вида smile

, просто хеш лучше подходит ;)

Код


#!perl -w
use strict;

my $str = 'blum-blum=bla-bla,blum-blum=bla-bla,blum-blum=bla-bla';
my %result;
foreach (split /,/, $str) {
    my ($rez1, $rez2) = split /=/, $_;
    $result{$rez1} = $rez2;
}

#вот к прмиеру просмотрим все ключи и их значения :)
foreach (keys %result) {
    print "Key=$_ \t => Value=".$result{$_}."\n";
}

--------------------

I love ArchLinux

Bulat

Дата 25.7.2006, 12:10 (ссылка)

(нет голосов)

Загрузка ...

татарский Нео

Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57

Romikgy, сенкс, тока в этом случае надо сначала разбивать по "=", а потом по ",", дабы не потерять первый элемент, но это уже моя головная боль smile

--------------------

менеджер по кодеврайтингу smile

Romikgy

Дата 25.7.2006, 12:19 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146

Bulat, пазям smile

Я просто пример дал, а ты крути как те удобно smile

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »