пакеты в перле

вот все видели в в любом сниффере сбоку от самих пакетов вида:

Code:

ef be ad de 0a 00 01 00 00 00 00 00 01 10 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00

столбик где точеки всякие, буковки)))

так вот, есть саба:
sub print_data() {
my ($data)=@_;
my $i=0;
foreach(split(//,$data)) {
print unpack('H8',$_)." ";
$i++;
if ($i eq 16) {
print "\n";
$i=0;}}}

а как в эту сабу добавить этображение этих самых точечек, буковок
скажите пожалуйсто

 

Code:

sub printPacket
{ 
    my $rawPacket=shift;
    my($tHex,$tLine,$counter,$tCounter,$bStart);
    my @R_Packet=split('',$rawPacket);
    $tCounter=scalar @R_Packet;
    foreach(0..($tCounter-1))
    {
        $counter++;
        print uc unpack('H2',$R_Packet[$_]).' ';
        if(ord $R_Packet[$_]>=32) { $tLine.=$R_Packet[$_] }
        else { $tLine.='.' }
        if($counter%16==0)
        {
            print "  $tLine\n";
            $tLine=undef;
        }
    }
    while($counter>16) { $counter-=16 }
    if(16-$counter>1&&$counter>0)
    {
        foreach(1..(16-$counter)) { print  ' ' x 3 }
        print  "  $tLine\n";
    }
    print  '['.$tCounter;
    print $tCounter>1?" bytes]\n\n":" byte]\n\n";    
}

 

ага, спасибо. кста, я знал кто ответит на этот вопрос))

 

offtop::

Последнее время неперестаю удивляться сколько народу все таки начинает изучать перл, все чаще появляются темы связанные с perl'ом, а некоторые делают выбор только в пользу перла, отказываясь от пХп.. сложно сказать плохо это или хорошо. Не много похожая ситуация и с delphi, язык который морально устарел, но все же есть и его изучают, и кодят на нем огромное кол-во народу, но это понять можно, все-таки, в доступности delphi попроще нежели си!!

зы:: так, лирика)) сорь за офтоп