Автор Тема: Конец строки. Help, срочно!  (Прочитано 2681 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн C++

  • Фанат форума
  • Постоялец
  • ***
  • Сообщений: 221
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Конец строки. Help, срочно!
« : 13 Января 2003, 18:42:52 »
Из формы пишу в файл строки.
Потом вывожу их в другом html, делаю chomp а символ конца строки не удаляется, в чем проблема понять не могу, может кодировка, может еще что...
подскажите, очень срочно...
делаю так
chomp @str
и так
chomp $str[$i]
и так пробовал
$str[$i]=~s/\\n//gm;
и все равно символы конца строки не удаляет... а ой как надо...
заранее спасибо!

Оффлайн NeoNox

  • Координатор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3012
  • +0/-0
  • 0
    • Просмотр профиля
Конец строки. Help, срочно!
« Ответ #1 : 13 Января 2003, 19:02:44 »
perldoc -f chomp
Очень быстро и понятно.
Чомпни данные перед занесением их в массив.
Или при выводе...
Если не понятно- кусок кода вывода в студию.
The documentations is your friend

Оффлайн C++

  • Фанат форума
  • Постоялец
  • ***
  • Сообщений: 221
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Конец строки. Help, срочно!
« Ответ #2 : 13 Января 2003, 23:37:18 »
Вот в этом куске кода символы конца строки удаляются (в файле простые слова)
open(F,$nFile) or die;
flock(F,1);
my @n=<F>;
chomp @n;
@
n=sort{$a cmp $b}@n;
for(
my $i=0;$i<@n;$i++)
	
{print \
'<option value="\'.$n[$i].\'">\',$n[$i],\'</option>\'}
print \'</select>\';
close(F);

а вот здесь не удаляется (в файле урлы)
open(F,$f) or die;
flock(F,1);
my @urls=<F>;
@
urls=sort{$a cmp $b}@urls;
chomp @urls;
close(F);
for(
my $i=0;$i<@urls;$i++)
	
{
	
	
my @str=split("-",$urls[$i],3);
	
	
print \
'<tr bgcolor="#000033">\';
	
	
print "<td align=center><a href=\\"$str[2]\\" target=_blank>$str[2]</a></td><td align=center>$str[0]</td><td align=center>$str[1]</td></tr>"
	
}
print \'</table>\';

все выводится в хтмл...
что не так? ИМХО в обоих случаях одинаково....
причем не удаляет ни chomp ни регулярное выражение
$str[$i]=~s/\\n//gm;
ребят, подскажите плиз хоть в каком направлении искать...

Оффлайн C++

  • Фанат форума
  • Постоялец
  • ***
  • Сообщений: 221
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Конец строки. Help, срочно!
« Ответ #3 : 13 Января 2003, 23:59:51 »
может при вводе нужно кодировку кук-то выставить....
и еще
когда делаю chop то \\n удаляется после второго применения функции....

Оффлайн Chs

  • Perl программер
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1108
  • +0/-0
  • 2
    • Просмотр профиля
    • http://chs.now.at/
Конец строки. Help, срочно!
« Ответ #4 : 14 Января 2003, 09:10:44 »
Попробуй
$/ = "\\r\\n";
перед chomp поставить.
2B OR NOT 2B = FF

Оффлайн C++

  • Фанат форума
  • Постоялец
  • ***
  • Сообщений: 221
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Конец строки. Help, срочно!
« Ответ #5 : 14 Января 2003, 21:20:14 »
Chs сенкс, действительно так и есть...

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28