tsucchi · July 9, 2016 05:33
diff --git a/test.pl b/test.pl
 #!/usr/bin/perl
 use strict;
 use warnings;

 use Data::Dumper;

 my $value = "aa\n\nbb\n";
 my @result = split /\n/, $value;

 print Dumper(\@result);

 # $VAR1 = [
 #          'aa',
 #          '',
 #          'bb'
 #        ];
	#!/usr/bin/perl
	use strict;
	use warnings;

	use Data::Dumper;

	my $value = "aa\n\nbb\n";
	my @result = split /\n/, $value;

	print Dumper(\@result);

	# $VAR1 = [
	# 'aa',
	# '',
	# 'bb'
	# ];