【perl】join関数とsplit関数〜1バイトずつ切り出したリストを作る→ひっつけてみる〜
#! /usr/bin/perl use strict; use warnings; my $words = 'hello everyone!'; print $words,"\n"; #出力結果 => hello everyone! #「//」とすると、文字列を1バイトずつ切り出したリストを作る。 my @words = split(//,$words); print "@words\n"; #出力結果 => h e l l o e v e r y o n e ! print join(':',@words)."\n"; #出力結果 => h:e:l:l:o: :e:v:e:r:y:o:n:e:!