How do you retrieve a char from a string?

[Thierry]

I have the following string:

my $greet = "hello";
print $greet[0]."\n";

The above clearly doesn't work since $greet is not an array. Is there
an easy way to access characters at specific index in a string without
losing $greet as a String?

Thierry

 

[Mirco Wahab]

I have the following string:

my $greet = "hello";
print $greet[0]."\n";

The above clearly doesn't work since $greet is not an array. Is there
an easy way to access characters at specific index in a string without
losing $greet as a String?

The canonical method is the one Sherm already mentioned,
but(!):

...
my $greet = 'hello';

#0
print substr($greet, 0, 1), "\n";

#1
print $greet =~ /.(.)/, "\n";

#2
print +(split //, $greet)[2], "\n";

#3 (only 8bit chars)
print chr( vec $greet, 3, 8 ), "\n";

#4 (trounce and print last char)
print chop $greet, "\n"

Regards

M.

 

[anno4000]

I have the following string:

my $greet = "hello";
print $greet[0]."\n";

The above clearly doesn't work since $greet is not an array. Is there
an easy way to access characters at specific index in a string without
losing $greet as a String?

print substr($greet, 0);

That's the entire string. The first character is "substr($greet, 0, 1)".

See "perldoc -f substr" for details.

I'll refrain fom commentig

Anno