적절한의 경우 첫 번째 필드

Question

내 텍스트 파일은 포함이 하나를 여기에 등 코코넛, 면화 뉴와 르를했다하지만, 뉴와 르 즉, 첫 글자 점검이 코코넛, 면화처럼 인쇄 할

COcoNut,Other,900,21_7_2011,Coimbatore,TEINGKAAY 
CotTon,Others,3500,21_7_2011,Coimbatore,PARUTTI 
Maize,Others,1200,21_7_2011,Coimbatore,MAKKAACHOOLAM 
Bajra,Other,1325,14_7_2011,Coimbatore,KAMBU 
Jowar,Other,2750,14_7_2011,Coimbatore,CHOOLAM 
Ragi,Other,910,14_7_2011,Coimbatore,KEIZHVARAKU 
Coconut,Grade_I,650,12_7_2011,Coimbatore,TEINGKAAY GRADE ONNU 
Copra,other,5300,7_7_2011,Coimbatore,KOPPARAI 
Paddy,ADT_______36,950,15_7_2011,Madurai,NELLU ADT MUPPATTI AARU 
Paddy,AST_16,950,15_7_2011,Madurai,NELLU AST PATINAARU 

대문자가 아닌 perl에서 정규 표현식을 사용하여 남아있는 패키지가 아닌 ...

또한 '기타'를 보았지만 그 텍스트 파일에는 '기타'만 표시됩니다. 이것은 또한 위의 표현식을 추가했습니다.

그런 다음,이 텍스트 파일은 펄 스크립트

의 파일 중 하나가 나에게

Answer 1

#!/usr/bin/perl 

use strict; 
use warnings; 

use IO::InSitu; 

my ($in, $out) = open_rw ('/path/to/file'); 

my $separator = ','; 

while (<$in>) { 
    my @fields = split ($separator => $_); 

    $fields[ 0 ] = ucfirst lc $fields[ 0 ]; 
    $fields[ 1 ] =~ s/(?<=other)s//gi; 

    print { $out } join ($separator => @fields) . "\n"; 
} 

Answer 2

s/^([^,]*)/\u\L$1/;s/,Others,/,Other,/;