#!/usr/bin/perl -w #use strict; my $i=0; my $tab; my $init=0; while (defined($line = ) && $init == 0) { #if ($line =~ m/[P-W][0-9a-f1-F]{2},[0-9a-f1-F]{2}/) { $tab[$i] = substr ($line,1,1); for (my $j=0; $j<= $i-1; $j++) { if (substr($line,1,1) eq $tab[$j]) { $init =1; } } $i++ if ($init == 0); } } for (my $j=0; $j <= $i; $j++) { $line = ; } while ($init != 2 ) { for (my $j=0; $j <= $i-1; $j++) { if (defined($line = )) { print "0x" . substr($line,2,2) . substr($line,5,2); } else { $init = 2; } print " "; } print "\n"; }