dump the real string

[toylet]

my $line = <>;

I input "a" and press enter.

Now $line should contain 2 bytes: 'a' and end-of-line character.

How could I print the content of $line (both bytes) in hex format?

 

[Andrew McGregor]

my $line = <>;

I input "a" and press enter.

Now $line should contain 2 bytes: 'a' and end-of-line character.

How could I print the content of $line (both bytes) in hex format?

perldoc -f substr
perldoc -f hex

 

[toylet]

perldoc -f substr
perldoc -f hex

hex() should not be relevant as I need to convert from numeric to hex
digits. Already knew about substr().

 

[toylet]

perldoc -f substr
perldoc -f hex

I tried this:
printf(".%x.\n.%x.\n",substr($line,0,1),substr($line,1,1));

and perl said substr($line) are not numeric.

 

[toylet]

and which function will return the length of $line as 2 bytes?
$line is already in scalar context.

 

[toylet]

I tried this:
printf(".%x.\n.%x.\n",substr($line,0,1),substr($line,1,1));

and perl said substr($line) are not numeric.

got it... they got the c and foxpro function chr() from the doc, I saw
ord().

my $line=<>
printf(".%x.\n.%x.\n",ord(substr($line,0,1)),ord(substr($line,1,1)));

 

[toylet]

and which function will return the length of $line as 2 bytes?
$line is already in scalar context.

OK, I think it should be length().

 

[toylet]

Already knew about substr().

Then why did you ask?

Not sure whether perl store strings like C.

 

[Glenn Jackman]

my $line=<>
printf(".%x.\n.%x.\n",ord(substr($line,0,1)),ord(substr($line,1,1)));

Or, not assuming the length of $line is 2:

printf ".%02x.\n", ord foreach (split //, $line);

 

[Jürgen Exner]

my $line = <>;

I input "a" and press enter.

Now $line should contain 2 bytes: 'a' and end-of-line character.

How could I print the content of $line (both bytes) in hex format?

Why are you asking the same question twice within 3 minutes?

jue

 

[Jürgen Exner]

OK, I think it should be length().

That's wrong. length() will return the number of characters in the string.
This is totally different from the length of the string in bytes.

If you want the length in bytes then probably you will have to dig very deep
into the perl implementation. But I wonder why you would want to know this
implementation detail?

jue

 

[gnari]

Now $line should contain 2 bytes: 'a' and end-of-line character.

How could I print the content of $line (both bytes) in hex format?

take a look at unpack() and his brother pack()

gnari

 

[Jay Tilton]

toylet <toylet_at_mail.hongkong.com> wrote:

: toylet wrote:
: >>> my $line = <>;
: >> perldoc -f substr
: >> perldoc -f hex
: >
: > I tried this:
: > printf(".%x.\n.%x.\n",substr($line,0,1),substr($line,1,1));
: >
: > and perl said substr($line) are not numeric.
: >
: got it... they got the c and foxpro function chr() from the doc, I saw
: ord().
:
: my $line=<>
: printf(".%x.\n.%x.\n",ord(substr($line,0,1)),ord(substr($line,1,1)));

Yuck.

printf "%vx\n", $line;

 

[toylet]

: printf(".%x.\n.%x.\n",ord(substr($line,0,1)),ord(substr($line,1,1)));
Yuck.
printf "%vx\n", $line;

That's really neat.

 

[toylet]

Or, not assuming the length of $line is 2:

printf ".%02x.\n", ord foreach (split //, $line);

can I also use split(/\b/,$line)?

 

[toylet]

That's wrong. length() will return the number of characters in the string.

This is totally different from the length of the string in bytes.

You emant each char in a perl string is not stored as one byte?

If you want the length in bytes then probably you will have to dig very deep
into the perl implementation. But I wonder why you would want to know this
implementation detail?

Sorry, I possibly asked the wrong question. I don't really need that deep.

 

[toylet]

Why are you asking the same question twice within 3 minutes?

input error.

 

[Tad McClellan]

can I also use split(/\b/,$line)?

What happened when you tried it?

 

[Tad McClellan]

That's really neat.

I wonder who wrote it...


[ Please learn to properly quote followups.
Soon.
]

 

[Tad McClellan]

You emant each char in a perl string is not stored as one byte?

You mean ASCII doesn't work for Chinese?