25.04.2010, 21:58
|
|
Познающий
Регистрация: 13.04.2010
Сообщений: 42
Провел на форуме:
460968
Репутация:
81
|
|
PHP код:
#!/usr/bin/perl
$txt="dgas adg dgasdg asdg adsg a dga sdga sdg adsg asdg asgd";
@arr=split(" ",$txt);
if(scalar @arr > 10)
{
print join(' ',@arr[0..9]).'!'.join(' ',@arr[10..$#arr]);
}
else
{
print $txt;
}
вот так например. Только он почему то переносы строк убивает. |
|
|