[Perl] узнать содержит ли строка указанный символ

scalar tr/X//?

а по-русски?

string.Contains(c)

что такое X., к чему относится вопросительный знак и где строка, в которой производится поиск?


I love Perl!

if(string.Contains('1')) {
it contains
}

можно rindex STRING,SEARCH попробовать

http://www.cs.cf.ac.uk/Dave/PERL/node56.html

>> а по-русски?

Имелось в виду вот что как я понял.

$ cat contains.pl #!/usr/bin/perl

my $str = 'aaa';

my $a1 = scalar $str =~ tr/a//; my $a2 = scalar $str =~ tr/b//;

print "$a1 $a2\n";

$ perl contains.pl 3 0

>> а по-русски?

Имелось в виду вот что как я понял.

$ cat contains.pl 
#!/usr/bin/perl
my $str = 'aaa';
my $a1 = scalar $str =~ tr/a//; my $a2 = scalar $str =~ tr/b//;
print "$a1 $a2\n";

$ perl contains.pl
3 0

форматирование забыл.

Хотя я честно говоря думаю что элементарная регулярка

my $contains = $str =~ /a/;

будет быстрее. ))

perldoc -f pos

>perldoc -f pos

вроде нет.

pos Returns the offset of where the last "m//g" search left off for the variable in question

> а по-русски?

Это же перл! Причём далеко не самое жуткое его лицо :)

ну даже допустим (невероятное) -- ты сможешь на 10% ускорить свою программу, ну и что?

перл не для этого.

if (index($str, $char) != -1) {
   print "Bingo!";
}

регекспой жыж