構文 |
|
length 文字列 |
返り値 |
|
文字列の長さ(文字数) |
説明
- 文字列の長さを文字数で返します。
- 引数を省略すると$_が対象になります。
使用例
#!/usr/bin/perl
use strict;
use warnings;
my $str = 'abcdefg';
print length $str, "\n";
#!/usr/bin/perl
use strict;
use warnings;
use encoding "utf8"; # ソースがUTF-8の場合
#use encoding "euc-jp"; # ソースがEUC-JPの場合
my $str = 'あいうえお';
print length $str, "\n";
#!/usr/bin/perl
use strict;
use warnings;
use encoding "utf8"; # ソースがUTF-8の場合
#use encoding "euc-jp"; # ソースがEUC-JPの場合
my $str = 'あいうえお';
print "length:", length $str, "\n"; # 文字数
print "bytes :", bytes::length $str, "\n"; # バイト数
#!/usr/bin/perl
use strict;
use warnings;
use encoding "utf8"; # ソースがUTF-8の場合
#use encoding "euc-jp"; # ソースがEUC-JPの場合
use Encode;
my $str = 'あいうえお';
print "length:", length $str, "\n"; # 文字数
print "bytes :", bytes::length $str, "\n"; # バイト数(UTF-8)
print "\n";
my $euc_str = Encode::encode('euc-jp', $str);
print "length:", length $euc_str, "\n";
#!/usr/bin/perl
use strict;
use warnings;
my @data = (1, 2, 3, 4, 5);
print scalar(@data), "\n";
#!/usr/bin/perl
use strict;
use warnings;
my %data = (
hoge => 1,
fuga => 2,
piyo => 3,
);
print scalar(keys %data), "\n";