Perl

Perlで大文字を小文字に変換する方法

Perlで大文字を小文字に変換する方法

lcを使う, 大文字にしたい時には, ucを使う

?
1
$val  = lc $val;

サンプルコード

変数に代入しながら置換を行うサンプルコードも作成

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl
 
my $word = "The quick brown fox jumps over the lazy dog";
print("$word\n");
 
# 大文字を小文字に変換する
$lowerWord = lc $word;
print("$lowerWord\n");
 
# 小文字を大文字に変換する
$upperCase = uc $word;
print("$upperCase\n");
 
# 変数に代入しながら置換を行う
(my $val = $word) =~ s/brown/yellow/;
print("$val\n");
print("$word\n");

0 件のコメント :

コメントを投稿