in reply to foreach - adding newlines?

Ignoring your question for a second, 

chomp;

[download]

should be 

chomp($event_line);  # in the loop

[download]

or 

chomp(@EVENT_ARRAY);  # outside the loop

[download]

Chomping $_ repeatedly are you are doing is useless since you never use $_.

Back to your question, the only ways to get the output you describe from the code you posted is if:

Would you care to add the following to the end of the code you posted and provide us the output? 

{
   use Data::Dumper;
   print(Data::Dumper->new(
      [
         $,,
         $",
         $\,
         $/,
         \@EVENT_ARRAY,
         \@array,
      ], [
         '$,', qw(
         $"
         $\
         $/
         $EVENT_ARRAY
         $array
      )]
   )->Useqq(1)->Dump());
}

[download]

Update: Fixed bad D::D syntax

Replies are listed 'Best First'.
Re^2: foreach - adding newlines?
by nitehawk (Initiate) on Feb 09, 2009 at 20:47 UTC
    Hrrm - coping the data dumper code results in an error: Usage: PACKAGE->new(ARRAYREF, ARRAYREF) at ./22.pl line 70
[reply]

      Try this instead: 

      {
   use Data::Dumper;
   print(Data::Dumper->new(
      [
         $,,
         $",
         $\,
         $/,
         \@EVENT_ARRAY,
         \@array,
      ], [qw(
         $,
         $"
         $\
         $/
         $EVENT_ARRAY
         $array
      )]
   )->Useqq(1)->Dump());
}

      [download]

      Update: (cf. johngg's reply) I suggested to move the parameters from Dump() to new() — otherwise I left ikegami's code as is. For reference, the original code was: 

      {
   use Data::Dumper;
   print(Data::Dumper->new()->Useqq(1)->Dump(
      [
         $,,
         $",
         $\,
         $/,
         \@EVENT_ARRAY,
         \@array,
      ], [qw(
         $,
         $"
         $\
         $/
         $EVENT_ARRAY
         $array
      )]
   ));
}

      [download]
[reply]
[d/l]
[select]

        You can use *EVENT_ARRAY and *array rather than scalar names in the second anon. array argument to Data::Dumper->new() so that the arrays show up in the output as actual arrays and not array references. Like this

        $ perl -MData::Dumper -e '
@arr1 = qw{ a b c };
@arr2 = qw{ 1 2 3 };
print Data::Dumper->new(
   [ $,, $", $\, $/, \ @arr1, \ @arr2 ],
   [ qw{ $, $" $\ $/ *arr1 *arr2 } ]
   )->Useqq( 1 )->Dump();'  
$, = undef;
$" = " ";
$\ = undef;
$/ = "\n";
@arr1 = (
          "a",
          "b",
          "c"
        );
@arr2 = (
          1,
          2,
          3
        );

        [download]

        rather than this

        $ perl -MData::Dumper -e '
@arr1 = qw{ a b c };
@arr2 = qw{ 1 2 3 };
print Data::Dumper->new(
   [ $,, $", $\, $/, \ @arr1, \ @arr2 ],
   [ qw{ $, $" $\ $/ $arr1 $arr2 } ]
   )->Useqq( 1 )->Dump();'
$, = undef;
$" = " ";
$\ = undef;
$/ = "\n";
$arr1 = [
          "a",
          "b",
          "c"
        ];
$arr2 = [
          1,
          2,
          3
        ];
$

        [download]

        I hope this is of interest.

        Cheers,

        JohnGG

[reply]
[d/l]
[select]
[reply]
Re^2: foreach - adding newlines?
by runrig (Abbot) on Feb 09, 2009 at 20:48 UTC
    You're not ignoring the OP's question...the wrong thing is being chomp'd and that's the source of the problem :-)
[reply]
      As I mentioned in the OP, I've tried chomp-ing various things in various places - is there somewhere specifically you would recommend? I'm open to try anything.
      Tnx
[reply]
      Improper chomping doesn't explain the presence of a new line between v1 and v2.
[reply]
        It does explain it if he's just doing chomp; instead of chomp($some_variable); (expecting perl to magically know what to chomp).
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom