С Вашим примером вышло вот что (если у Вас php думаю портировать не составит труда):
Код:
1124114274.54051902742833640015337228762876::Имя1::www.site.net::mail@mail.ru::::::::Текст сообщения1.::127.0.0.1::::::::
1124114274.54051902742833640015337228762876::Имя2::www.site.net::mail@mail.ru::::::::Текст сообщения2.::127.0.0.1::::::::
1124114274.54051902742833640015337228762876::Имя3::www.site.net::mail@mail.ru::::::::Текст сообщения3.::127.0.0.1::::::::
1124114274.54051902742833640015337228762876::Имя4::www.site.net::mail@mail.ru::::::::Текст сообщения4.::127.0.0.1::::::::
1124114274.54051902742833640015337228762876::Имя5::www.site.net::mail@mail.ru::::::::Текст сообщения5.::127.0.0.1::::::::
1124114274.54051902742833640015337228762876::Имя5::www.site.net::mail@mail.ru::::::::Короткий отрезок сплавного маршрута позволит Вам прочувствовать все прелести отдыха на воде, а чуткие лошади помогут совершить восхождение на одну из самых высоких точек Южного Урала. Побывав в Каповой пещере - уникальном природном и историческом памятнике - Вы познакомитесь с её тайнами, а старейшие горные вершины Урала придадут Вам жизненную силу.::127.0.0.1::::::::
Код:
Код:
#!/usr/bin/perl
use strict;
my $len_mess = 150; #кол символов в сообщ.
open(DATA,"/inc/messages.inc.dat");
my @data = <DATA>;
close(DATA);
foreach my $data (@data) { # использовать reverse @data если сообщения в тхт файле складываются задом наперед.
my @split = split(::,$data);
$split[7] = substr($split[7],0,$len_mess);
$split[7] .="..." if length ($split[7]) == $len_mess; #укорачиваем до ххх символов и добавляем ...
print "Имя: $split[1]\n","Сообщение: $split[7]\n\n";
};
Получилось:
Код:
Имя: Имя1
Сообщение: Текст сообщения1.
Имя: Имя2
Сообщение: Текст сообщения2.
Имя: Имя3
Сообщение: Текст сообщения3.
Имя: Имя4
Сообщение: Текст сообщения4.
Имя: Имя5
Сообщение: Текст сообщения5.
Имя: Имя5
Сообщение: Короткий отрезок сплавного маршрута позволит Вам прочувствовать все прелести отдыха на воде, а чуткие лошади помогут совершить восхождение на одну из ...
