[Comm] срочно нужна помощь bash, awk или perl

[Comm] срочно нужна помощь bash, awk или perl

[Olexander Chernetskyy]

Уже на форуме задал этот же вопрос. Но, извините очень срочно нужно.

Есть текстовый файл с уймой строк фиксированой длины.
поля в строке разделены запятыми. Длина полей фиксирована.
пример строки:

021211083610,            ,QWERTYUIASDF,ZXCVBNMDFGGG,000001d9,N,Y,1

В поле #5 содержится 16-ричное значение.
Нужно срочно перелопатить это файл и заменить 16-ричное значение на
10-тичное.

Заранее благодарен за помощь.


-- 
Best regards,
ArCher
Jabber: antonio_gaudi{at}jabber.ru

Re: [Comm] срочно нужна помощь bash, awk или perl

[Vladimir Didenko]

[-- Attachment #1: Type: text/plain, Size: 612 bytes --]

8 декабря 2011 г. 15:38 пользователь Olexander Chernetskyy написал:
> Уже на форуме задал этот же вопрос. Но, извините очень срочно нужно.
>
> Есть текстовый файл с уймой строк фиксированой длины.
> поля в строке разделены запятыми. Длина полей фиксирована.
> пример строки:
>
> 021211083610,            ,QWERTYUIASDF,ZXCVBNMDFGGG,000001d9,N,Y,1
>
> В поле #5 содержится 16-ричное значение.
> Нужно срочно перелопатить это файл и заменить 16-ричное значение на
> 10-тичное.
>
> Заранее благодарен за помощь.
>

Перловский скрипт в аттаче.

Использование

./convert.pl input > output


-- 
С уважением,
Владимир.

[-- Attachment #2: convert.pl --]
[-- Type: text/x-perl, Size: 329 bytes --]

#!/usr/bin/perl

use strict;
use warnings; 

die "Usage: $0 <input file>" unless 1 == scalar @ARGV;

my $inp_fname = shift;

die "Cannot open $inp_fname\n" unless open(INP, $inp_fname);

while (my $line = <INP>)
{
    my @tokens = split(/,/, $line);
    $tokens[4] = hex($tokens[4]);
    print join(',', @tokens);
}

close(INP);

Re: [Comm] срочно нужна помощь bash, awk или perl

[Vladimir Karpinsky]

08.12.2011 15:38, Olexander Chernetskyy пишет:
> Уже на форуме задал этот же вопрос. Но, извините очень срочно нужно.
>
> Есть текстовый файл с уймой строк фиксированой длины.
> поля в строке разделены запятыми. Длина полей фиксирована.
> пример строки:
>
> 021211083610,            ,QWERTYUIASDF,ZXCVBNMDFGGG,000001d9,N,Y,1
>
> В поле #5 содержится 16-ричное значение.
> Нужно срочно перелопатить это файл и заменить 16-ричное значение на
> 10-тичное.
>

Лопатить, скорее всего, awk. А заменить: $((16#000001d9)), см. тред 
"Арифметика в bash" от 17.11 с.г. там мне это мудрые люди подсказали...

-- 
	С уважением,
		Владимир.

Re: [Comm] срочно нужна помощь bash, awk или perl

[Olexander Chernetskyy]

Спасибо.
Нужна еще консультация.
Поле 8 позиций. Должно быть заполнено лидирующими нулями.
Я попробовал sprintf использовать, но перл сказал на нее "Undefined
subroutine"

Нужно наверное use что-то? Только не смог найти что. Подскажите.

> 8 декабря 2011 г. 15:38 пользователь Olexander Chernetskyy написал:
>> Уже на форуме задал этот же вопрос. Но, извините очень срочно нужно.
>>
>> Есть текстовый файл с уймой строк фиксированой длины.
>> поля в строке разделены запятыми. Длина полей фиксирована.
>> пример строки:
>>
>> 021211083610,            ,QWERTYUIASDF,ZXCVBNMDFGGG,000001d9,N,Y,1
>>
>> В поле #5 содержится 16-ричное значение.
>> Нужно срочно перелопатить это файл и заменить 16-ричное значение на
>> 10-тичное.
>>
>> Заранее благодарен за помощь.
>>
>
> Перловский скрипт в аттаче.
>
> Использование
>
> ./convert.pl input > output
>
>
> --
> С уважением,
> Владимир.
>


-- 
Best regards,
ArCher
Jabber: antonio_gaudi{at}jabber.ru

Re: [Comm] срочно нужна помощь bash, awk или perl

[Michael Shigorin]

On Thu, Dec 08, 2011 at 03:05:46PM +0200, Olexander Chernetskyy wrote:
> Поле 8 позиций. Должно быть заполнено лидирующими нулями.
> Я попробовал sprintf использовать, но перл сказал на нее
> "Undefined subroutine"

printf '%08d'?

-- 
 ---- WBR, Michael Shigorin <mike@altlinux.ru>
  ------ Linux.Kiev http://www.linux.kiev.ua/

Re: [Comm] срочно нужна помощь bash, awk или perl

[Olexander Chernetskyy]

И на printf тоже "Undefined subroutine" ругается.
Или это у меня перл какой-то неправильный?

> On Thu, Dec 08, 2011 at 03:05:46PM +0200, Olexander Chernetskyy wrote:
>> Поле 8 позиций. Должно быть заполнено лидирующими нулями.
>> Я попробовал sprintf использовать, но перл сказал на нее
>> "Undefined subroutine"
>
> printf '%08d'?
>
> --
>  ---- WBR, Michael Shigorin
>  ------ Linux.Kiev http://www.linux.kiev.ua/
> _______________________________________________
> community mailing list
> community@lists.altlinux.org
> https://lists.altlinux.org/mailman/listinfo/community


-- 
Best regards,
ArCher
Jabber: antonio_gaudi{at}jabber.ru

Re: [Comm] срочно нужна помощь bash, awk или perl

[Vladimir Didenko]

8 декабря 2011 г. 17:05 пользователь Olexander Chernetskyy  написал:
> Спасибо.
> Нужна еще консультация.
> Поле 8 позиций. Должно быть заполнено лидирующими нулями.
> Я попробовал sprintf использовать, но перл сказал на нее "Undefined
> subroutine"

Не может быть. Проверил, даже на древнем 5.8.6 есть. То есть нужно
заменить строчку

$tokens[4] = hex($tokens[4]);

на

    $tokens[4] = sprintf("%08d", hex($tokens[4]));

>
> Нужно наверное use что-то? Только не смог найти что. Подскажите.
>

-- 
С уважением,
Владимир.

Re: [Comm] срочно нужна помощь bash, awk или perl

[Olexander Chernetskyy]

O! Теперь заработало.
Вроде-бы также делал...
Наверное какую-то  запятую где-то пропустил.
Я перл только начал учить.

Но данная задача была реальная и срочная.
Еще раз огромное спасибо всем!

> 8 декабря 2011 г. 17:05 пользователь Olexander Chernetskyy написал:
>> Спасибо.
>> Нужна еще консультация.
>> Поле 8 позиций. Должно быть заполнено лидирующими нулями.
>> Я попробовал sprintf использовать, но перл сказал на нее "Undefined
>> subroutine"
>
> Не может быть. Проверил, даже на древнем 5.8.6 есть. То есть нужно
> заменить строчку
>
> $tokens[4] = hex($tokens[4]);
>
> на
>
>  $tokens[4] = sprintf("%08d", hex($tokens[4]));
>
>>
>> Нужно наверное use что-то? Только не смог найти что. Подскажите.
>>
>
> --
> С уважением,
> Владимир.
>


-- 
Best regards,
ArCher
Jabber: antonio_gaudi{at}jabber.ru