Perlコーディング初心者質問スレ Part 56

Perlコーディング初心者質問スレ Part 56 at PHP

430:nobodyさん
07/10/25 17:03:22
>>429
my @list = (
　　q{tenis ball},
　　q{'tenis ball'},
　　q{'tenis ball' 'base ball'},
) ;

for my $line ( @list ){
　　print join ' or ',
　　　　　map{ /'/ ? $_ : split /＼s+/, $_ }
　　　　　split /＼s+(?=')/, $line ;
　　print qq{＼n} ;
}

次ページ

続きを表示

1を表示