sugar84 · August 11, 2011 11:08
diff --git a/perl b/perl
 #!/usr/bin/env perl
 use strict;
 use warnings;

 my $struct = {
 	bb => [qw(gg hh jj)],
 };

 if  (@{$struct->{bb1}}) {print "works"}
 for (@{$struct->{bb1}}) {print}


 print "ehlo";
	#!/usr/bin/env perl
	use strict;
	use warnings;

	my $struct = {
	bb => [qw(gg hh jj)],
	};

	if (@{$struct->{bb1}}) {print "works"}
	for (@{$struct->{bb1}}) {print}


	print "ehlo";
No results found