форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Заглавные буквы"
Сообщение от man (??) on 27-Май-05, 10:10  (MSK)
Граждане! подскажите -- есть предложение - все большие буквы - надо в этом предложении первую и после первой кавычки оставить большими, а все остальнве -- маленькими/
	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "Заглавные буквы"
Сообщение от Brainbug (ok) on 27-Май-05, 12:59  (MSK)
>Граждане! подскажите -- есть предложение - все большие буквы - надо в >этом предложении первую и после первой кавычки оставить большими, а все >остальнве -- маленькими/ Kak nibud tak mozno: [test@test perl] cat -n 0005.pl 1 #!/usr/bin/perl -w 2 3 use strict; 4 use warnings; 5 6 my $line; 7 while ($line=<STDIN>){ 8    print $line; 9    $line=lc($line); 10    if ($line=~/"/){ 11         $line=~s/^([[:word:]])(.*)$/uc($1).$2/e; 12         $line=~s/^(.*?")(.)(.*)$/$1.uc($2).$3/e; 13    } else { 14         $line=~s/^([[:word:]])(.*)$/uc($1).$2/e; 15         $line=~s/^([[:^word:]]*)([[:word:]])(.*)$/$1.uc($2).$3/e; 16    } 17    print $line; 18 } [test@test perl]$ echo 'f' | ./0005.pl f F [test@test perl]$ echo 'f"' | ./0005.pl f" F" [test@test perl]$ echo 'f"f' | ./0005.pl f"f F"F [test@test perl]$ echo '"f' | ./0005.pl "f "F [test@test perl]$ echo 'ff"cc"' | ./0005.pl ff"cc" Ff"Cc" [test@test perl]$ echo '""' | ./0005.pl "" "" [test@test perl]$ P.S. Regexp vozmozno te sovsem to4nije. Posmotri mozet poto4neje smoze6 pridumat.
Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ]

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.