Форум программистов, компьютерный форум, киберфорум
Perl
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 17.01.2016
Сообщений: 40
1

Удаление лишних пустых строк и пробелов на конце строки

12.09.2016, 10:22. Просмотров 1898. Ответов 6
Метки нет (Все метки)

Perl
1
2
3
4
5
6
7
8
9
10
open(FIL,"azaz.txt");
my @s =<FIL>;
close FIL;
for ($i=0; $i <= 9; $i++) { 
if ( length( $s[$i] ) > 1 ) {
$s =~ s/^\s+//;
print "$s[$i]";
 
}
}

This is sample test
Remove extra empty lines ,
trailing spaces

O`key!
это текст из файла azaz.txt
Необходимо дописать код, чтобы на выходе было 3 строки(начинаются с заглавных букв) и убраны лишние проблеы
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.09.2016, 10:22
Ответы с готовыми решениями:

Удаление лишних пробелов в конце строки
На проверочном сайте мое решение не проходит из-за лишнего пробела в выходной строке, как его...

Удаление лишних пробелов в начале и конце строки.
Нужно написать функцию char*alltrim(char*string) для удаления пробелов в начале и конце строки с...

Упражнение 1.18 Удаление лишних пробелов, табуляций и строк
Упражнение 1.18. Напишите программу, которая будет в каждой вводимой строке заменять стоящие подряд...

Удаление пустых строк в начале и конце
Делаю парсинг песен и песня парсится так: то есть в начале пустые строки, и в конце пустые...

6
351 / 221 / 25
Регистрация: 30.09.2012
Сообщений: 548
18.09.2016, 13:01 2
А что именно не получается?
Считать текст из файла? Вывести текст?
0
0 / 0 / 0
Регистрация: 17.01.2016
Сообщений: 40
18.09.2016, 17:05  [ТС] 3
не получается написать код для форматирования текста
0
2885 / 1267 / 219
Регистрация: 10.12.2013
Сообщений: 4,326
19.09.2016, 04:33 4
Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/env perl
use strict;
 
my $str = "
      
 
This is sample test   
Remove extra empty lines ,   
trailing spaces  
 
O`key! ";
 
print "\nBefore editing\n", "-" x 20, "\n", $str, "\n";
 
$str =~ s/\A\s+//; 
$str =~ s/\s+$//msg;
$str =~ s/\s+,/,/msg;
 
print "\nAfter editing\n",  "-" x 20, "\n", $str, "\n";
output:
Кликните здесь для просмотра всего текста
1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Before editing
--------------------
 
 
 
This is sample test
Remove extra empty lines ,
trailing spaces
 
O`key!
 
After editing
--------------------
This is sample test
Remove extra empty lines,
trailing spaces
O`key!
1
0 / 0 / 0
Регистрация: 17.01.2016
Сообщений: 40
19.09.2016, 19:43  [ТС] 5
лишние пробелы не удалены и строк на выходе должно быть 3, а не 4
0
2885 / 1267 / 219
Регистрация: 10.12.2013
Сообщений: 4,326
20.09.2016, 01:59 6
kirilis98,

у нас тут ролевая игра что ли в заказчика и
исполнителя ?

таки я на неё не подписывался.

вот что ты ответил pka на вопрос что у тебя не получается:
Цитата Сообщение от kiriliis98 Посмотреть сообщение
не получается написать код для форматирования текста
тебе показали... да что уж там плюральная форма -
я тебе показал практически готовую к употреблению рыбу,
а вместо того, чтобы сказать спасибо, доделать и с'есть,
наш проситель - «Ребят,подсобите , пожалуйста»,
теперь сквозь зубы цедит замечания.
0
351 / 221 / 25
Регистрация: 30.09.2012
Сообщений: 548
22.09.2016, 08:21 7
Попробуйте так
Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
#!perl
 
use strict;
use warnings;
 
open(my $in, "<", "azaz.txt") || die("Error open azaz.txt\n"); # открываем файл для чтения
while (my $str = <$in>) { # читаем входной файл строка за строкой, полученная строка идёт в переменную $str
    $str =~ s/^\s+//; # убираем пробелы от начала строки
    if ($str =~ m/^[A-Z]/) { # если строка начинается на заглавную латинскую букву
        print $str; # печатаем строку
    }
}
close($in); # закрываем входной файл
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.09.2016, 08:21

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Удаление лишних пробелов из строки
Допустим дана строка :&quot; ФЫвфвфв фывфывф фывфв фывфывфыв asasawq&quot; Нужно что бы...

Удаление пустых строк в начале и конце текста
$text = &quot; В разгар битвы землян с вторженцами из космоса группа астронавтов проникает на...

Удаление лишних пробелов в середине строки
Я написал как мог, всё работает, но если вы знаете как упростить код и написать более проще, то...

Удаление пробелов в конце строк
программа должна удалять пробелы в конце строк, однако выдает ошибку Program3.pas(12) : Ошибка...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.