LINUX.ORG.RU
Форум — Development  

Perl — Удаление пустых строк


0

0 

Есть файл с текстом, проще привести кусок этого файла:
11    110  3-55 226  240    0.9  -0.5   -0.8  109.97    0.86   1.13 
 
11    110  3-55 226  240    0.9  -0.5   -0.8  109.97    0.86   1.13 12    120  5- 1 225  240    1.7  -0.9   -1.5  119.94    1.58   1.10 13    130  5-16 226  240    2.6  -1.3   -2.3  129.90    2.41   0.27 14    140  6-21 227  240    3.6  -1.8   -3.1  139.85    3.36   1.09 15    150  7- 7 230  241    4.8  -2.3   -4.2  149.78    4.46   0.84 

16    160  7-34 233  242    6.1  -2.9   -5.3  159.70    5.69   0.59 17    170  8-21 237  243    7.4  -3.3   -6.6  169.60    7.04   0.96 18    180  9- 9 239  245    8.9  -3.8   -8.1  179.49    8.54   0.86 19    190  9-55 240  246   10.6  -4.3   -9.7  189.35   10.18   0.78 20    200 10-52 242  248   12.4  -4.7  -11.4  199.18   11.97   1.02
 
21    210 11-38 244  249   14.3  -5.1  -13.3  208.99   13.92   0.86 22    220 12- 7 243  250   16.3  -5.6  -15.3  218.78   15.97   0.53 23    230 13-15 243  251   18.5  -6.0  -17.5  228.53   18.16   1.13 24    240 13-10 243  252   20.8  -6.5  -19.7  238.27   20.44   0.08 25    250 13-57 242  252   23.1  -7.1  -22.0  247.99   22.77   0.82
вобщем нужно поудалять пустые строки, чтоб столбцы не прерывались. Может я туплю, я в перле только начал писать. Подсобите ПЛЗ. В книжках толкового рецепта не нашёл.
anonymous

Читай Perl CookBook или что другое там регулярные выражения почитай и всё ясно станет лучше если ты сам сделаешь, а не я или кто другой тебе кусочек кода в одну строчку даст) короче- регулярные выражения выкупай) RTFM

dashin ★
()

man perlre.

То есть я мог бы написать one-liner в (посчитал) 6 символов непосредственно кода, но лучше чтоб это ты сделал сам.

Zulu ★★☆☆
()
Ответ на: комментарий от murla

Ну зачем? Человек бы почитал про регекспы бы, опыта набрался...

Zulu ★★☆☆
()

попробуй типа:

#! /usr/bin/perl

open(res, ">res"); poen(asd, "<txt"); while($str= <asd>){ $str=~ s%\s*%%g; print res, "$str"; } close(res);

ps на скорую руку, так что может что и не так работает, но вроде оно )

dashin ★
()
Ответ на: комментарий от vilfred

Спасибо всем огромное, я изволил псолушать совета и поковыряться в мане на регулярные выражения. Я просто не знал что в манах такое есть. Насочинял вот эту конструкцию: s/\A\s\n//, как ни странно работает. Спасибо ещё раз.

anonymous
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Development