note
demerphq
<p>
Depends what you want to do. And ill just chime in with yet [cpan://Data::Dump::Streamer|another dumper] to use... :-)
</p>
<code>
D:\>perl -MData::Dumper -e "@arr = qw (a b c); print Data::Dumper->new([\@arr])->Indent(0)->Dump"
$VAR1 = ['a','b','c'];
D:\>perl -MData::Dump::Streamer -e "@arr = qw (a b c); Dump(\@arr)->Indent(0)->Out()"
$ARRAY1 = [ 'a', 'b', 'c' ];
D:\>perl -MData::Dump::Streamer -e "@arr = (qw (a b),(qw(c)) x 4); Dump(\@arr)->Names('*arr')->Indent(0)->Out()"
@arr = ( 'a', 'b', ( 'c' ) x 4 );
</code>
<p>And yet [cpan://Data::Dump|another].
</p>
<code>
D:\>perl -MData::Dump=dump -e "@arr = (qw (a b),(qw(c)) x 4); print dump(\@arr)"
["a", "b", "c", "c", "c", "c"]
</code>
<div class="pmsig"><div class="pmsig-108447">
---<br />
$world=~s/war/peace/g<br />
<br />
</div></div>
490421
490421