PERL (substr)

mawhawk
Дата: 07.08.2006 19:35:48
почему этот код выдает на печать "-1"? ведь подстрока "html" присутствует в данной строке. Почему не 8?

Спасибо.

$stroka = "BANDfos.html";
my $in = index ($_, 0, 'html');
print $in;
4m@t!c
Дата: 07.08.2006 19:47:01
А причем здесь Перл?
----------------------------------------
Артисты не приехали, приехали цыгане
Юрка-пурка
Дата: 08.08.2006 16:26:47
perldoc -f index

index STR,SUBSTR,POSITION
index STR,SUBSTR
The index function searches for one string within another, but without the wildcard-like behavior of a
full regular-expression pattern match. It returns the position of the first occurrence of SUBSTR in STR
at or after POSITION. If POSITION is omitted, starts searching from the beginning of the string. The
return value is based at 0 (or whatever you’ve set the $[ variable to--but don’t do that). If the sub-
string is not found, returns one less than the base, ordinarily "-1".


my $stroka = 'Bandfos.html';
my $in = index($stroka, 'html');
print "$in\n";