|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sobolyev Oleg 2:5020/400 20 May 2002 19:41:58
To : Vlad
Subject : Re: разбить длиннуй мессагу
--------------------------------------------------------------------------------
> RP> Что-то я туплю.
>
> RP> Есть пеpеменная с опpеделённым текстом.
> RP> Hужно pазбить текст из этой пеpеменной по 160 символов и запихнуть в
массив.
>
> RP> Как это сделать?
>
> Можно так:
>
> use strict;
> my $text = "Here some text: blah, blah, blah + - _";
> my $offset = 0;
> my $length = 5;
> for (my $i=0; $i<length($text)/$length; $i++) {
> my $t = substr($text, $offset, $length);
> $offset+=$length;
> print "\'$t\'", "\n";
> }
А так не проще? :-)))
$s = 'abdefghijklmoprs7t.......';
@m = $s =~ /(.{160})/g;
print join "\n",@m;
WBR, Oleg.
--- ifmail v.2.15dev5
* Origin: Gamma NNTP server Moscow Russia (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: разбить длиннуй мессагу 
