Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2670778 Tue, 17 Aug 2010 06:06:27 +0000 Работа со строками https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2670778

sed -e "s/^M//g"

Добавлено 17.08.10, 06:07
А, туплю.
Пользуйте

chomp();

]]> Nadz Goldman Perl https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2670705 Tue, 17 Aug 2010 00:49:35 +0000 Работа со строками https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2670705 requiroverus Perl https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2669552 Sun, 15 Aug 2010 14:47:33 +0000 Работа со строками https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2669552 Цитата requiroverus @ 15.08.10, 13:23

Ну тот, код который я привел, он самом деле выводит в консоль все так, как нужно.

Но в моем скрипте, в массиве хранятся строки, которые был вытащены из файла. Может в строках есть какие-то символы, по вине которых происходит перенос строки. Если это так, может можно как-то все экранировать?

Просто прокинь данные через функцию приводу строк к единому виду да и все.
Т.е. удаление/добавление конца строк cr+lf/cr
Вообще, очень хорошо приводить все данные к единому виду.]]> Nadz Goldman Perl https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2669498 Sun, 15 Aug 2010 13:33:18 +0000 Работа со строками https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2669498 Adil Perl https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2669490 Sun, 15 Aug 2010 13:23:33 +0000 Работа со строками https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2669490
Но в моем скрипте, в массиве хранятся строки, которые был вытащены из файла. Может в строках есть какие-то символы, по вине которых происходит перенос строки. Если это так, может можно как-то все экранировать?]]> requiroverus Perl https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2669440 Sun, 15 Aug 2010 12:08:15 +0000 Работа со строками https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2669440

#!/usr/bin/perl

@ar[0] = "1";

@ar[1] = "2";

@ar[2] = "3";

@ar[3] = "4";

foreach $arg(@ar)

{

print "one\ttwo\t$arg\n";

}

Вот вывод в консоль:

one two 1

one two 2

one two 3

one two 4

Добавлено 15.08.10, 12:09

Цитата requiroverus @ 15.08.10, 09:21

Если смотреть на это в линуксовом MC, видно символ ^, который и означает перенос строки.

Этот символ не означает перенос строки.
Просто разность конца строки (UNIX/DOS)]]> Nadz Goldman Perl https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2669327 Sun, 15 Aug 2010 09:21:17 +0000 Работа со строками https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2669327
foreach $arg(@ar)
{
print "one\ttwo\t$arg\n";
}

Предположим что @ar состоит из двух элементов.
@ar[0] = "1"
@ar[1] = "2"

Первая строка будет такого вида

one two 1

Вторая строка будет вида
one two
2

После two откуда-то берется перенос строки, понять не могу откуда.
Если смотреть на это в линуксовом MC, видно символ ^, который и означает перенос строки.

Избавление от этого есть какое-нибудь?]]> requiroverus Perl https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2668221 Fri, 13 Aug 2010 06:57:18 +0000 Работа со строками https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2668221 В чем вопрос?]]> Nadz Goldman Perl https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2668103 Thu, 12 Aug 2010 23:05:46 +0000 Работа со строками https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2668103

foreach $arg(@ar)

{

print OUTPUT "43002708\t01.03.2010\tF402\t$number1\t$number3\t$arg\t$empty$\n" if $number2 >= "2";

}

Последняя строка которая будет выводится в цикле, будет такой(к примеру):

43002708 01.03.2010 ...........
$empty$

Так как предыдущие выводятся в одну строку, т.е.

43002708 01.03.2010 ........... $empty$

В чем может быть проблема?
Если смотреть в mc на все это дело, то видно что в последней строке в ее конце "43002708 01.03.2010 ..........." стоит знак "^"]]> requiroverus Perl https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2666314 Wed, 11 Aug 2010 05:16:11 +0000 Работа со строками https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2666314 Цитата requiroverus @ 11.08.10, 00:35

$arg = ~s

а зачем тут пробел между "=" и "~"? ;)
это же совершенно разные операторы получаются :)]]> negram Perl https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2666268 Wed, 11 Aug 2010 00:35:35 +0000 Работа со строками https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2666268 На выходе получаю мусор.

К примеру.

foreach $arg(@ar)

{

$arg = ~s/["']//g;

}

заведомо знаем, что например @ar[0] = "0.466"
на выходе получаем @ar[0] = 18446744073709551615

Так для каждого элемента массива. Чему бы не было равно первоначальное значение элемента, после применения регулярного выражения всегда будет 18446744073709551615

В чем может быть проблема.]]> requiroverus Perl https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2665445 Tue, 10 Aug 2010 02:15:11 +0000 Работа со строками https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2665445

$string=~s/["']//g;

или

$string=~s/^\s*"\s*//;

$string=~s/\s*"\s*$//;

]]> Vspeaker Perl https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2665437 Tue, 10 Aug 2010 00:56:24 +0000 Работа со строками https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2665437 Еще один вопрос есть, к примеру есть строка

"string"
Как из данной строки удалить символы " (кавычки)]]> requiroverus Perl https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2661370 Wed, 04 Aug 2010 06:21:36 +0000 Работа со строками https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2661370 Как-то совсем забыл экран поставить.

Добавлено 04.08.10, 06:22
Хотя с другой стороны, написал же:

Цитата

Примерно вот так

]]> Nadz Goldman Perl https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2661282 Wed, 04 Aug 2010 05:05:31 +0000 Работа со строками https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2661282 \|/)]]> Adil Perl https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2661225 Tue, 03 Aug 2010 22:14:19 +0000 Работа со строками https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2661225 split(/|/) не правильно делит строку.
Он делит каждый символ, т.е. это выглядит примерно так.

Есть строка
| 2| 458/2 | 07.06.2010 |900 | 5.087 | 565 | 2 | 565 |ААКА454АА|454564564 |абракадабра |ВЫАВАЫВАВВЫ | |
Он ее поделит как
|

2
|

и так далее, в том числе проблемы.]]> requiroverus Perl https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2660767 Tue, 03 Aug 2010 08:43:51 +0000 Работа со строками https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2660767 Примерно вот так:

open( myFile , 'MyMegaFile' );

while( <myFile> )

{

chomp;

( $field_1 , $field_2 , $field_3 , $field_4 , $field_5 , $field_N ) = split( /|/ );

}

]]> Nadz Goldman Perl https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2659282 Mon, 02 Aug 2010 05:43:51 +0000 Работа со строками https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2659282 sweetemmure Perl https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2659249 Mon, 02 Aug 2010 03:43:05 +0000 Работа со строками https://forum.sources.ru/index.php?showtopic=309859&view=findpost&p=2659249
Вопрос в следующем.
Есть строка вида:

| 2| 458/2 | 07.06.2010 |900 | 5.087 | 565 | 2 | 565 |ААКА454АА|454564564 |абракадабра |ВЫАВАЫВАВВЫ | |

Как видно, каждый столбец разделен символом |. Необходимо данные из каждого столбца каким-то образом вытащить и запись в каждый элемент массива.
Как такое можно сделать?

Заранее спасибо.]]> requiroverus Perl