Question

在Perl中怎么删除txt文件中的TAB健

Answer 1

my $str = read_file($file);
$str =~s/\t//gm;
save_file($file, $str);

sub read_file{
	my $f = shift || exit;
	open(my $h, $f);
	local $/=undef;
	$_ = <$h>;
	close $h;
	$_;
}

sub write_file{
	my $f = shift;
	open(my $h, "+>", $f);
	print $f shift;
	close $h;
}