Insert character between values.

[Cybex1]

I have a script I found that I am trying to adapt to read the ASCII characters of a file and convert them all to decimal. The script works but I can not tell the values apart once they are printed. I.E: 101961245175 but I need: 101:96:12:45:175
I don't care what the separator value is I just figured a colon would do well.

Here is the script I have;

perl -lne 'chomp; @x=unpack("C* ",$_); print @x' test.txt

Thanks,
Cybex

 

[feherke]

Hi

Until the [tt]unpack[/tt] gurus wake up, a workaround :

perl -lne '[b]chomp[/b][teal];[/teal] [navy]@x[/navy][teal]=[/teal][b]unpack[/b][teal]([/teal][green][i]"C* "[/i][/green][teal],[/teal][navy]$_[/navy][teal]);[/teal] [b]print[/b] [highlight][b]join[/b] [green][i]":"[/i][/green][teal],[/teal][/highlight][navy]@x[/navy]' test.txt

Feherke.
[link feherke.github.com/]

http://feherke.github.com/

[/url]

 

[prex1]

This

perl -lne 'chomp; @x=unpack("C* ",$_); print "@x\n"' test.txt

will use a space as the separator (and add a newline at the end). For any other separator

perl -lne 'chomp; @x=unpack("C* ",$_); print join(":",@x)' test.txt

Franco

http://www.xcalcs.com

: Online engineering calculations

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads