[ale] OFFTOPIC: Perl -w oddities?

[Nomad the Wanderer]

Well, 
  I started a new script.  I put the -w in it.  This time, I got the
message again.  I had my book in front of me and walked across the
-d option (-dw now) and heres my current code:


open(TOC, "$CDA toc |");
#Get headers
$Catagory=<TOC>;
chop($Catagory);

$TitleArtist=<TOC>;
chop($TitleArtist);

$Trash=<TOC>;
chop($Trash);

while(<TOC>) {
  chop;
  ($Spacer, $Track, $Len, $Name)=split(' ',$_);
  $Trash=$Spacer;
  $Trash=$Len;
  $Songs{"$Track"}="$Name";
} 
close(TOC);

With the decoder and single stepping, I'm getting this:

  DB<1> s
main::(./encodeit:43):    $Trash=$Len;
  DB<1> s
main::(./encodeit:44):    $Songs{"$Track"}="$Name";
  DB<1> s
Carp::(/usr/lib/perl5/Carp.pm:50):      $CarpLevel = 0;         # How many extra package levels to skip on carp.
  DB<1> s
Carp::(/usr/lib/perl5/Carp.pm:51):      $MaxEvalLen = 0;        # How much eval '...text...' to show. 0 = all.
  DB<1> s
Carp::(/usr/lib/perl5/Carp.pm:52):      $MaxArgLen = 64;        # How much of each argument to print. 0 = all.
  DB<1> s
Carp::(/usr/lib/perl5/Carp.pm:53):      $MaxArgNums = 8;        # How many arguments to print. 0 = all.
  DB<1> s
Carp::(/usr/lib/perl5/Carp.pm:55):      require Exporter;
  DB<1> s
Exporter::(/usr/lib/perl5/Exporter.pm:3):
3:      require 5.001;
  DB<1> s
Exporter::(/usr/lib/perl5/Exporter.pm:10):
10:     $ExportLevel = 0;
  DB<1> s
Exporter::(/usr/lib/perl5/Exporter.pm:11):
11:     $Verbose = 0 unless $Verbose;
  DB<1> s
Exporter::(/usr/lib/perl5/Exporter.pm:228):
228:    1;
  DB<1> s
Carp::(/usr/lib/perl5/Carp.pm:56):      @ISA = ('Exporter');
  DB<1> s
Carp::(/usr/lib/perl5/Carp.pm:57):      @EXPORT = qw(confess croak carp);
  DB<1> s
Carp::(/usr/lib/perl5/Carp.pm:58):      @EXPORT_OK = qw(cluck verbose);
  DB<1> s
Carp::(/usr/lib/perl5/Carp.pm:59):      @EXPORT_FAIL = qw(verbose);     # hook to enable verbose mode
  DB<1> s
Carp::(/usr/lib/perl5/Carp.pm:176):     1;
  DB<1> s
Use of uninitialized value at ./encodeit line 44, <IN> chunk 51.
main::(./encodeit:39):  while(<TOC>) {
DB<1> 


---------------------------------------------------------------------------
Robert L. Harris                |    Windows is to Unix 
Senior System Administrator II  |      what 'hooked on phonics'
  at Great West Life.           \_       is to Shakespeare


http://www.orci.com/~nomad

DISCLAIMER:
      These are MY OPINIONS ALONE.  I speak for no-one else.

FYI:
 perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);'