jeanluca has asked for the wisdom of the Perl Monks concerning the following question:
Dear Monks,
I've written the following not working code:
Any suggestions ?
Thanks Luca
I've written the following not working code:
Using push like this doesn't work, but I hope I'm close to the true solution... :)#! /usr/bin/perl # $b = "abefcdghijklmn" ; $a[0]->[0] = "start 0" ; $a[1]->[0] = "start 1" ; for($i = 0; $i < 14; $i += 2) { (push(@{$a[0]}), push(@{$a[1]}) ) = unpack("x$i A1 A1", $b) ; } foreach ( @{$a[0]} ) { print "$_\n" ; }
Any suggestions ?
Thanks Luca
Back to
Seekers of Perl Wisdom