VPF::Убрать мусор после символа - Форум программистов

navai

Дата 4.12.2008, 00:10 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 4.12.2008

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

Здраствуйте, всё что я знаю о Perl'e так это то , что это язык программирования.

Меня интересует вот такой вопрос, мне сказали что тут всего надо 10 строчек.
Надо чтобы в каждой строчке из списка после определённого символа удалялось всё остальное... как можно это осуществить?

Спасибо

tolkien

Дата 4.12.2008, 00:23 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 277
Регистрация: 5.4.2008

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

Код


my @list = ('bbbbbbbbaccc', 'aa3123', 'ccccccccaa', '123aaac');
my $opredelenii_simbol = 'a';
print $_,"\n" foreach (@list);
for (my $i=0; $i< @list; $i++)
{
  if ( $list[$i] =~ m/(.*)$opredelenii_simbol/ )
  {
    $list[$i] = $1;
  }
}
print $_,"\n" foreach (@list);

navai

Дата 4.12.2008, 00:28 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 4.12.2008

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

Цитата(tolkien @ 4.12.2008, 00:23)

Код


my @list = ('bbbbbbbbaccc', 'aa3123', 'ccccccccaa', '123aaac');
my $opredelenii_simbol = 'a';
print $_,"\n" foreach (@list);
for (my $i=0; $i< @list; $i++)
{
  if ( $list[$i] =~ m/(.*)$opredelenii_simbol/ )
  {
    $list[$i] = $1;
  }
}
print $_,"\n" foreach (@list);

Спасибо!

а теперь его в пхп сохранять?
а май лист - это фаилы которые находятся в одной дериктории?

tolkien

Дата 4.12.2008, 04:38 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 277
Регистрация: 5.4.2008

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

Как хочешь. Можешь и в пхп попробывать сохранить.

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