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

[Vladimir Didenko <vladimir.didenko@gmail.com>]

[-- 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);