in reply to Assistance fixing a "format" call
Any suggestions on where it is I'm going wrong with this?
Well, you posted code which isn't complete and which doesn't demonstrate your bug :) I see you took a page out of Basic debugging checklist, and that is a good step towards asking a question effectively, but as you can see from my complete snippet, what you've shown so far demonstrates no bug
#!/usr/bin/perl -- use strict; use warnings; my @stuff; push @stuff, [ qw[ TECH SCANNER WEBSERVER TALKTOME TRAINING ] ]; push @stuff, [ qw[ TESTING MOBILE TECHADMIN CIRCADMIN MANAGERS ] ]; for my $row ( @stuff ){ my @rows = @$row; print "@rows\n"; format STDOUT = @<<<<<<<<<<<< @<<<<<<<<<<<< @<<<<<<<<<<<< @<<<<<<<<<<<< @<<<<< +<<<<<<< @rows . write; } __END__ TECH SCANNER WEBSERVER TALKTOME TRAINING TECH SCANNER WEBSERVER TALKTOME TRAINI +NG TESTING MOBILE TECHADMIN CIRCADMIN MANAGERS TESTING MOBILE TECHADMIN CIRCADMIN MANAGE +RS
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Assistance fixing a "format" call
by bobdabuilda (Beadle) on Apr 02, 2012 at 06:16 UTC | |
by Marshall (Canon) on Apr 02, 2012 at 17:30 UTC | |
by bobdabuilda (Beadle) on Apr 02, 2012 at 23:09 UTC | |
by Marshall (Canon) on Apr 04, 2012 at 03:47 UTC |