игра брюс 2048
Главная / Программирование / Регулярные выражения Perl и их применение / Тест 10

Регулярные выражения Perl и их применение - тест 10

Упражнение 1:
Номер 1 
Что будет напечатано в результате работы программыmy $a='a';
my $re=qr/$a/i;
$a='A';
print 'OK' if 'a' =~ $re;

Ответ:

 (1) OK 

 (2) ничего 

Номер 2 
Что будет напечатано в результате работы программыmy $a='a';
my $re=qr/$a/i;
$a='A';
print 'OK' if 'A' =~ $re;

Ответ:

 (1) OK 

 (2) ничего 

Номер 3 
Что будет напечатано в результате работы программыmy $a='a';
my $re=qr/$a/;
$a='A';
print 'OK' if 'A' =~ /$re/i;

Ответ:

 (1) OK 

 (2) ничего 

Упражнение 2:
Номер 1 
Что будет напечатано в результате работы программыmy $a='(?i)[a-z]';
my $re=qr/$a/;
print 'OK' if 'A' =~ /$re/;

Ответ:

 (1) OK 

 (2) ничего 

Номер 2 
Что будет напечатано в результате работы программыmy $a='[a-z]';
my $re=qr/$a/;
print 'OK' if 'A' =~ /$re/;

Ответ:

 (1) OK 

 (2) ничего 

Номер 3 
Что будет напечатано в результате работы программыmy $a='[a-z]';
my $re=qr/$a/i;
print 'OK' if 'A' =~ /$re/

Ответ:

 (1) OK 

 (2) ничего 

Упражнение 3:
Номер 1 
Что будет напечатано в результате работы программыmy $a='[a-z]';
my $re=qr'$a';
print 'OK' if 'A' =~ /$re/;

Ответ:

 (1) OK 

 (2) ничего 

Номер 2 
Что будет напечатано в результате работы программыmy $a='a';
my $re=qr/$a/;
print 'OK' if 'a' =~ /$re/;

Ответ:

 (1) OK 

 (2) ничего 

Номер 3 
Что будет напечатано в результате работы программыmy $a='a';
my $re=qr/$a/;
print 'OK' if 'a' =~ m'$re';
?:

Ответ:

 (1) OK 

 (2) ничего 

Упражнение 4:
Номер 1 
Что будет напечатано в результате работы программыmy $a='a';
my $re=qr/\$a/;
print 'OK' if '$a' =~ /$re/;

Ответ:

 (1) OK 

 (2) ничего 

Номер 2 
Что будет напечатано в результате работы программыmy $a='a';
my $re=qr/$a/;
print 'OK' if '$a' =~ /$re/;

Ответ:

 (1) OK 

 (2) ничего 

Номер 3 
Что будет напечатано в результате работы программыmy $a='a';
my $re=qr/$a/;
print 'OK' if '$a' =~ /\$re/;

Ответ:

 (1) OK 

 (2) ничего 

Упражнение 5:
Номер 1 
Что будет напечатано в результате работы программыmy $re=qr/(ab)c/;  print $1.$2 if 'abcabc' =~ /$re+$re+/;

Ответ:

 (1) ничего 

 (2) ab 

 (3) abab 

Номер 2 
Что будет напечатано в результате работы программыmy $re=qr/(\w+)\w/;  print $1 if 'abcabc' =~ /$re+/;

Ответ:

 (1) ничего 

 (2) ab 

 (3) abcab 

Номер 3 
Что будет напечатано в результате работы программыmy $re=qr/(\w+)c/;  print $1 if 'abcabc' =~ /$re+/;

Ответ:

 (1) ничего 

 (2) abc 

 (3) abcab 

Упражнение 6:
Номер 1 
Что будет напечатано в результате работы программыmy $re=qr'(\w+)c';  print $1 if 'abcabc' =~ /$re+/;

Ответ:

 (1) ничего 

 (2) c 

 (3) abcab 

Номер 2 
Что будет напечатано в результате работы программыmy $re=qr/(\w+)c/;  print $1 if 'abcabc' =~ m'$re+';

Ответ:

 (1) ничего 

 (2) abc 

 (3) abcab 

Номер 3 
Что будет напечатано в результате работы программыmy $re=qr'(\w+)c';  print $1 if '(\w+)c' =~ /$re/;

Ответ:

 (1) ничего 

 (2) (\w+)c 

 (3) (\w+) 



Главная / Программирование / Регулярные выражения Perl и их применение / Тест 10