|
|
| go ahead... be a heretic | |
| PerlMonks |
Caillte's scratchpadby Caillte (Friar) |
| on Jun 01, 2004 at 21:40 UTC ( #358630=scratchpad: print w/ replies, xml ) | Need Help?? |
use Data::Dumper; my @list = (1..10); my $d = Data::Dumper->new(\@list, qw(*list2)); my $str = $d->Dump(); my @list2; eval $str; print join '-', @list; print join '-', @list2; |
|