arrays - Perlを使用して、配列のすべてのエントリの単一のスペースをタブに置き換えるにはどうすればよいですか? sed のようなコマンドを使用できますか?

Question

各インデックスに「xxxxx yyyyyy」の形式でいくつかの値を持つ配列があります。配列をトラバースして、単一の場所をタブに置き換えたいです。代替コマンドを使用して sed で出力ファイルを解析できることはわかっていますs/ /\t/。forループを使用して配列を反復処理し、各インデックスを再書き込みしながら、perlで同様のことを行うことはできますか?

#!/usr/bin/perl -w

foreach my $arg (@ARGV) {
#print $arg . "\n";
push (@md5, `md5sum $arg`);
}

foreach $entry (@md5) {
$entry = s/ /\t/;
print $entry . "\n";
}

出力

Use of uninitialized value $_ in substitution (s///) at ./mymd5.pl line 9.

Use of uninitialized value $_ in substitution (s///) at ./mymd5.pl line 9.

Use of uninitialized value $_ in substitution (s///) at ./mymd5.pl line 9.

Use of uninitialized value $_ in substitution (s///) at ./mymd5.pl line 9.

Use of uninitialized value $_ in substitution (s///) at ./mymd5.pl line 9.

Use of uninitialized value $_ in substitution (s///) at ./mymd5.pl line 9.

Use of uninitialized value $_ in substitution (s///) at ./mymd5.pl line 9.

Use of uninitialized value $_ in substitution (s///) at ./mymd5.pl line 9.

Answer 1

あなたの置換文には、それをグローバル（すべての出現）にする最後に欠けておりg、その場で置換するチルダ...

$entry =~ s/ /\t/g;

逆の質問はそこにあります...