68user's page 掲示板

Prev< No. 4350> Next  [最新発言に戻る] [過去ログ一覧]
No. 4350 # has 2005/11/05 (土) 11:03:28
>>4346 hagu
もしperlならこんな感じなんでしょうか？
echo $NM | perl -ple 'y/A-Z/a-z/;substr($_,0,1)=~y/a-z/A-Z/;'
Prev< No. 4350> Next  [最新発言に戻る] [過去ログ一覧]