Memoize

Perl_split_default

タブ区切りのサンプルテキスト

 
aaa	yyy	30
bbb	jjj	70
ccc	k	89
 

 
#! /usr/bin/perl
use warnings;
use strict;
 
while (<>){
    # split は第一引数を指定しないと、空白文字でスプリットする
    my ($first, $second, $third) = split;
    print "$first,$second,$third\n";
}
 

実行例:

 
% split_sample.pl sample.tsv
aaa,yyy,30
bbb,jjj,70
ccc,k,89