Also, why is $n=($#code+1); in the same loop where you have for($n=0;$n<=$#code;$n++), (is it meant to act like last?); seems like a bug or at least confusing to me. You should think about iterating over arrays directly (e.g. for my $element (@array) {...}) and using next, last, or redo if needed for loop control. See the perldocs (perlsyn, perlfunc).

$writer=$tparse['2'];

And you shouldn't/don't need to quote numbers in an array.

Update: Ok so it was meant to be like last (the indentation was confusing). But when code is simple and more clearly reflects its intention, its easier to find the problems.

Here is your code (slightly) improved:

use strict;

# I think " " is more what you intend than / /
# see the split docs in perlfunc, and then
# you also don't need to chomp it.
for my $prev (split " ", $input) {
  print "     -> $prev\n";
  my $current=$prev;

  for my $find (@code) {
    chomp($find);
    if ($prev=~/$find/i) {
      print "$blink $cyan       -> Logged \n";
      print "$normal$green";

      #HERE IS THE SPLIT PROBLEM AREA!
      my $tparse=split(/-/,$current);
      my $writer=$tparse[2];
      my $writes=$#tparse;
      print "$cyan       -> $prev \n $green";
      # You had an error here which 'use strict'
      # also would've caught
      #print "$cyan       -> $#writes \n $green";
      print "$cyan       -> $writes \n $green";
      print "$cyan       -> $writer \n $green";
      last;
    }
  }
}
[download]

ya ya the code is not perfect, I know, but it works. That jump out of the loop when it gets a result.

I trying to get more involved with perl,

This:

    $tparse=split(/-/,$current);
[download]

Should be:

    @tparse=split(/-/,$current);
[download]

Since, in the line after the split, you are trying to access $tparse['2'], it's clear that you meant to split to an array. You attempted to split to a scalar. When you're done, $tparse will be a scalar set to the number of items that the split produced.

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.

 $tparse=split(/-/,$current);
[download]

should be

 @tparse=split(/-/,$current);
[download]

 #HERE IS THE SPLIT PROBLEM AREA!
                $tparse=split(/-/,$current);
                $writer=$tparse['2'];
[download]

`perldoc -f split`

...
               In scalar context, returns the number of fields
               found and splits into the "@_" array.  Use of
               split in scalar context is deprecated, however,
               because it clobbers your subroutine arguments.
[download]