|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Andrey Sapozhnikov 2:5020/400 25 Jan 2002 04:56:19 To : Maxim Bondarenko aka Maxx Subject : Re: Hа: Перенос строк -------------------------------------------------------------------------------- "Maxim Bondarenko aka Maxx" <Maxim.Bondarenko.aka.Maxx@f10.n5059.z2.fidonet.org> wrote in message news:3C50033A.B122620D@penza.com.ru... > "Alexander V. Gaiduk" wrote: > > From: "Alexander V. Gaiduk" <gav@lesobank.ru> > > > > > Вопрос наверное банальный, но все таки ... > > > Пишу в файл: > > > > > > print FILE "hgkjdhgk > > > gflgk > > > gjdkgjkdfgj\n"; > > > > > > ---- > > > > > > В файле получаю : > > > > > > hgkjdhgk > > > gflgk > > > gjdkgjkdfgj > > > ---- > > > > > > А вроде бы должно быть ... > > > hgkjdhgk gflgkgjdk gjkdfgj"; > > > > с чего бы? > > > > > Я ведь не ставлю \n ? > > > > зато ставишь 0x0d > > > > > И причем это независит от того > > > вкакомредактореоткрытфайл. Как сделать, что бы независимо от того в > > > сколько строк набран текст, он в файле был одной строкой? Hе удалять же > > > символы перевода строки которых там явно нет? > > > > два метода: > > 1. удалять символы перевода строки которые там явно есть. > > 2. сперва присваивать переменной, потом на нее что то типа s/\n//g > > > > > Или я чего то недопонял в этой жизни? > > > > вот видишь, ты и сам понял, что чего то недопонял в этой жизни. :) > > ИМХО проще удалять последний символ строки вот так: chomp($stroka); В результате все переводы строки в середине текста как были так и останутся. Если они не нужны, то просто не плодите их: my $longlongtext = "aaaaaaaa bbbbbbbbb cccccccc " . "dddddddd eeeeeeeeeee fffffffffffffff ggggggggggggggg hhhhhhhhhh " . "iiiiiiiiiiiii jjjjjjjjjjjjj kkkkkkkkkkkk lllllllllll mmmmmmmmm " . "nnnnnnnnnn ooooooooo pppppppp"; В случае с print даже конкатенировать не надо, он сам сделает при выводе конкатенацию всех аргументов. Просто: print FILE "aaaaaaa bbbbbbbbb ccccccccc ", "ddddddddd eeeeee ffffffffffff ", "iiiiiiiiiiiii jjjjjjjjjjjjj kkkkkkkkkk"; Андрей --- ifmail v.2.15dev5 * Origin: Demos online service (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/6577e891f22e.html, оценка из 5, голосов 10
|