Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re: HexView

by Anonymous Monk
on Nov 17, 2012 at 18:43 UTC ( #1004337=note: print w/replies, xml ) Need Help??

in reply to HexView

Package above does not work in threaded scripts probably due to usage of eval. I have made a simpler version of the same package. See below:
#!/usr/bin/perl -w # (c) Saulius Petrauskas 2012 # Lentele atspausdina duomenis is eilutes. package HexPrint; use strict; BEGIN { use Exporter (); our ($VERSION, @ISA, @EXPORT); $VERSION = 0.01; @ISA = qw(Exporter); @EXPORT = qw(&HexPrint); } sub HexPrint { my $str = shift; my $i = 0; my $s = ''; print " +--------------------------------------------------+------------------ ++ | 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F | 0123456789ABCDEF +| +--------------------------------------------------+------------------ ++ | "; $str =~ s/(.)/printf("%02X ",ord($1));$s.=$1;if($i++>14){$s=~s|[^ +-~]|.|g;print " | $s |\n| ";$s='';$i=0;}/gse; if($i > 0) { # print tail $s=~s|[^ -~]|.|g; print " "x(16-$i) . " | $s" . " "x(16-$i) . " |\n"; } print "+--------------------------------------------------+----------- +-------+\n"; } 1;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1004337]
[ovedpo15]: another question about regex. if I have a string like this: "a/b/,c/d/e,5" I would like to remove the string after the last comma so the output will be "a/b/,c/d/e" how to do so?
[Corion]: ovedpo15: You could split on comma, and then join everything together, except the last part. Or you could match and make sure that the last part has no comma, like qr!,[^,]+$!, or you could use rindex.
[ovedpo15]: But I don't know the length of the string. will it still work?
[ovedpo15]: The only thing I know is that there is a comma at the end and a value after that
[hippo]: Try it and see. Your computer won't explode.

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2018-05-27 10:33 GMT
Find Nodes?
    Voting Booth?