perl初心者BLOG

2009-06-01

[][]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.