perl初心者BLOG

2009-06-01

[][]chomp関数 03:01

chomp関数は、改行のみを削除する。

つまり、最後の文字が改行でない場合、何もならない。

返却値として、取り除いた個数をかえすらしい

・サンプルコード

~$ cat hoge.pl
#!/usr/local/bin/perl
$string = "abc\n";
chomp($string);
print $string;

・実行結果

~$ ./hoge.pl
abc~$

[][]chop関数 02:53

chop関数は最後の文字(改行ふくむ)を削除する。

・サンプルコード

~$ cat hoge.pl
#!/usr/local/bin/perl
$string = "abc";
chop($string);
print $string, "\n";

・実行結果

~$ ./hoge.pl
ab

最後の文字が改行の場合、どうなるか?

・サンプルコード

~$ cat hoge.pl
#!/usr/local/bin/perl
$string = "abc\n";
chop($string);
print $string;

・実行結果

~$ ./hoge.pl
abc~$

[][]join関数 02:45

・サンプルコード

~$ cat hoge.pl
#!/usr/local/bin/perl
@arr = ("Tokyo", "Yokohama", "Oosaka");
$string = join(":", @arr);
print $string, "\n";

・実行結果

~$ ./hoge.pl
Tokyo:Yokohama:Oosaka

[][]split関数 02:32

・サンプルコード

~$ cat hoge.pl
#!/usr/local/bin/perl
$input = <STDIN>;
chomp($input);
@arr = split(/\s+/, $input);
foreach (@arr) {
        print "要素: ", $_, "\n";
}

・実行結果

~$ ./hoge.pl
This is a pen.
要素: This
要素: is
要素: a
要素: pen.

・サンプルコード(その2)

~$ cat hoge.pl
#!/usr/local/bin/perl
$input = <STDIN>;
chomp($input);
@arr = split(/\s+/, $input, 2);
foreach (@arr) {
        print "要素: ", $_, "\n";
}

※ split関数の第3パラメタに2を指定

・実行結果(その2)

~$ ./hoge.pl
This is a pen.
要素: This
要素: is a pen.