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

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

Упражнение 1:

Номер 1

Что будет напечатано в результате работы оператораprint join '-', split /^/, "ab\nbc\nde";

Ответ:

(1) ab bc de

(2) ab -bc -de

Номер 2

Что будет напечатано в результате работы оператораprint join '-', split /^/m, "ab\nbc\nde";

Ответ:

(1) ab bc de

(2) ab -bc -de

Номер 3

Что будет напечатано в результате работы оператораprint join '-', split /$/, "ab\nbc\nde";

Ответ:

(1) ab bc de

(2) ab -bc -de

Упражнение 2:

Номер 1

Что будет напечатано в результате работы оператораprint join '-', split /:/, 'a:b:c:';

Ответ:

(1) a-b-c-

(2) a-b-c

Номер 2

Что будет напечатано в результате работы оператораprint join '-', split /:/, ':a:b:c:';

Ответ:

(1) a-b-c-

(2) a-b-c

(3) -a-b-c

Номер 3

Что будет напечатано в результате работы оператораprint join '-', split /:/, ':a:b:c:', 3;

Ответ:

(1) -a-b-c

(2) a-b-c

(3) -a-b-:c:

Упражнение 3:

Номер 1

Что будет напечатано в результате работы оператораprint join '-', split //, 'abc';

Ответ:

(1) a-b-c

(2) abc

(3) a-bc

Номер 2

Что будет напечатано в результате работы оператораprint join '-', split //, 'abc', 2;

Ответ:

(1) a-b-c

(2) a-bc

(3) abc

Номер 3

Что будет напечатано в результате работы оператораprint join '-', split /\s+/, 'abc';

Ответ:

(1) a-b-c

(2) abc

(3) abc-

Упражнение 4:

Номер 1

Что будет напечатано в результате работы программы$a='-';
for (0..1)
 { print split /$a/, 'a-b:c' . "\n";
   $a=':';
 }

Ответ:

(1) a-b:c!a-b:c!

(2) ab:c!ab:c!

(3) ab:c!a-bc!

Номер 2

Что будет напечатано в результате работы программы$a='-';
for (0..1)
 { print split /$a/o, 'a-b:c' . "!";
   $a=':';
 }

Ответ:

(1) a-b:c!a-b:c!

(2) ab:c!ab:c!

(3) ab:c!a-bc!

Номер 3

Что будет напечатано в результате работы программы$a='-';
for (0..1)
 { print split (/$a/o, 'a-b:c', 2);
   print '!';
   $a=':';
 }

Ответ:

(1) ab:c!ab:c!

(2) ab:c!a-bc!

(3) a-b:c!a-b:c!

Упражнение 5:

Номер 1

Что будет напечатано в результате работы оператораprint join '-', split 1+1, 'a1b2c';

Ответ:

(1) a1b2c

(2) a1b-c

(3) a-b2c

Номер 2

Что будет напечатано в результате работы оператораprint join '-', split /(?:\d)/, 'a1b2c';

Ответ:

(1) a-b-c

(2) a-1-b-2-c

(3) a1b2c

Номер 3

Что будет напечатано в результате работы оператораprint join '-', split /\d/, 'a1b2c';

Ответ:

(1) a-b-c

(2) a-1-b-2-c

(3) a1b2c

Упражнение 6:

Номер 1

Что будет напечатано в результате работы оператораprint join '-', grep /\d/, qw/a 1 b 2 c/;

Ответ:

(1) a-1-b-2-c

(2) 1-2

(3) a-b-c

Номер 2

Что будет напечатано в результате работы оператораprint join '-', grep /\d/, qw/a 11 b 22 c/;

Ответ:

(1) a-11-b-22-c

(2) 11-22

(3) 1-1-2-2

Номер 3

Что будет напечатано в результате работы оператораprint join '-', grep /^\d{2,}/, qw/a 1 b 22 c/;

Ответ:

(1) 1-22

(2) 22

(3) ничего не напечатается

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