Hi there, Unfortunately there is a problem as I don't seem to be passing anything in. Is the code you suggest ok, or have I made an error elsewhere in the code? What is the most convenient way for me to find out?
sub create_output (\@$) {
my ($arrayref_of_lines, $entry_no_new) = @_;
my @array_of_lines = @$arrayref_of_lines;
print "Hi there\n";
print "@array_of_lines"; # THIS IS NOT PRINTING ANYTHING
exit;
Update:
I get an error message:
Use of uninitialized value $_[1] in join or string at receive_annotati
+ons_B.pl line 162.
When the following is used:
sub create_output (\@$) {
my ($arrayref_of_lines, $entry_no_new) = @_; # THIS DOES NOT WO
+RK
my @array_of_lines = @$arrayref_of_lines;
print "Hi there\n";
print "@_";
print "@array_of_lines";
exit;