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

[x-treem]

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

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;}}}

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

[KSURi]

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";
}

[x-treem]

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

[mR_LiNK[deface_0nl]

offtop::

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

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