ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander P. Russkih                 2:468/75       06 Apr 2004  08:08:55
 To : All
 Subject : Re: почему?
 -------------------------------------------------------------------------------- 
 

 Alexander P. Russkih wrote:
 
 > лови... где мой боченок пива? :-)
 > ===
 > use locale;
 > use POSIX qw(locale_h);
 > setlocale(LC_CTYPE, 'ru_RU.KOI8-R');
 > 
 > my $mp3 = "From The Cool On Dark Night On Me"; # и чего это я тут 
 > ляпнул? но для примера сойдет :-)
 > my @word_to_lc=("From","At","To","Of","On","The","For","An");
 > my $lcregexp = join('|',@word_to_lc);
 > 
 > print "$lcregexp\n";
 > 
 > $mp3 =~ s/([^\n]$lcregexp)/lc $1/ge;
 
 вот тут imho правильней будет так:
    $mp3 =~ s/([^\n]\b$lcregexp\b)/lc $1/ge;
 
 > print "$mp3\n";
 > ===
 -- 
 XMMS:
 
 --- Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.5) Gecko/20031007
  * Origin: Registered Linux User #341226 (2:468/75@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    почему?   Igorr V Syurtukov   03 Apr 2004 18:19:20   Re: почему?   Artem Chuprina   05 Apr 2004 17:57:29   почему?   Igorr V Syurtukov   05 Apr 2004 19:00:00   Re: почему?   Maxim Yemelyanov   06 Apr 2004 12:00:03   почему?   Igorr V Syurtukov   06 Apr 2004 19:44:24   Re: почему?   Artem Chuprina   06 Apr 2004 12:36:47   почему?   Igorr V Syurtukov   06 Apr 2004 19:45:16   Re: почему?   Artem Chuprina   07 Apr 2004 14:45:38   Re: почему?   Alexander P. Russkih   05 Apr 2004 20:36:52   Re: почему?   Alexander P. Russkih   06 Apr 2004 08:08:55