Xpoint
   [напомнить пароль]

Половина текста

Метки: [без меток]
2005-02-05 16:41:09 [обр] Alexey Kovalenko[досье]
Проблема в следующем - нужно показать тект в двух колонках таблицы, для этого нужно его равно разбить. Но! Правая часть вполне может быть меньше левой и главное, тект должен быть в левой колонке полноценным предложением, и заканчиваться он может либо точкой, либо точкой с запятой, далее может идти \n, возможно кто-то сталкивался с подобной проблемой, пока решить не удается.
спустя 57 минут [обр] Евгений Петров(0/1055)[досье]
$text =~ /^([^\.;]+)([\.;!]+)[\s\n]*(.*)$/;
print "Первое предложение: $1\n";
print "Остальной текст: $2\n";
спустя 1 минуту [обр] Евгений Петров(0/1055)[досье]
А точнее:
$text =~ /^([^\.;]+)([\.;!]+)[\s\n]*(.*)$/;
print "Первое предложение: $1$2\n";
print "Остальной текст: $3\n";
спустя 4 часа 33 минуты [обр] Максим Головкин(0/18)[досье]
$len = length($text)/2;
$text =~ /^(.{$len,})([.;]\s+)(.+)$/s; # если хотите, чтобы первая половина могла быть больше половины
# $text =~ /^(.{0,$len})([.;]\s+)(.+)$/s; тут будет предпочтение отдаваться воторой половине
print "Dis is one half: $1$2\n";
print "Dis is two half: $3\n";
Powered by POEM™ Engine Copyright © 2002-2005