Hi

TNX bro i could find the my problem , my problem was about these section *foreach (my $word = <$inwp>) { $countp{$word}++ ; }* , *foreach (my $word = <$nwt>) {$countn{$word}++ ; }* because i split the words by /\n/ that my code didn't need to this separator

my new code

#Hi Codder
use warnings ;
use strict ;
#use DBI ;
use utf8 ;
use Encode ;
my $numlinep = 0 ;
my $traincountp = 0 ;
my $pt = '/root/Positive.txt' ;
my $ptt = '/root/positivetrain1.txt' ;
my $pwt = '/root/Positive2.txt' ;
my $ntw = '/root/Negative2.txt' ;
my $pttt = '/root/positivetest.txt' ;


open (my $in , "<:encoding(utf8)" , "$pt") or die "$pt: $!" ;
while (my $line = <$in>) {
      
            $numlinep++ ;
}
close $in ;
open ($in , "<:encoding(utf8)" , "$pt") or die "$pt: $!" ;
while (my $linep = <$in>) {
      my $inp ;
      if ($traincountp <= (0.7*$numlinep)){
        open ($inp , ">>" , "$ptt") or die "$ptt: $!" ;
        print $inp $linep , "\n" ;
      }
      if ($traincountp > (0.7*$numlinep)){
        open (my $inpt , ">>" , "$pttt") or die "$pttt: $!" ;
        print $inpt $linep , "\n" ;
      }
      $traincountp++ ;
}
close $in ;
my $numlinet = 0 ;
my $traincountn = 0 ;
my $nt = '/root/Negative.txt' ;
my $ntt = '/root/negativetrain1.txt' ;
my $nttt = '/root/negativetest.txt' ;
open (my $it , "<:encoding(utf8)" , "$nt") or die "$nt: $!" ;
while (my $line = <$it>) {
      
            $numlinet++ ;
}
close $it ;
open ($it , "<:encoding(utf8)" , "$nt") or die "$nt: $!" ;
while (my $linen = <$it>) {
      my $itn ;
      if ($traincountn <= (0.7*$numlinet)){
        open ($itn , ">>" , "$ntt") or die "$ntt: $!" ;
        print $itn $linen , "\n" ;
      }
      if ($traincountn > (0.7*$numlinet)) {
        open (my $ittn , ">>" , "$nttt") or die "$nttt: $!" ;
        print $ittn $linen , "\n" ;
      }
  $traincountn++ ;      
}
close $it ;


my $numlinepw = 0 ;
my %countp = () ;

open (my $inw , "<:encoding(utf8)" , "$ptt") or die "$ptt: $!" ;
open (my $inwp , "<:encoding(utf8)" , "$pwt") or die "$pwt: $!" ;
while (<$inw>) {

my @pwords ;
my @ptw ;
my $elementp ;
my $countp ;

  #@pwords = split (/\n/ , $inwp) ;
  #push @ptw , @pwords ;

foreach (my $word = <$inwp>) {
    $countp{$word}++ ;
    }

  while ( ( my $kp , my $vp) = each %countp ) {
    open (my $hashp , ">>" , 'wordsbagp.txt') ;
    print $hashp "$kp = $vp\n" ;
    #print "$kp => $vp\n" ;
    #print "$kp" , "\n" ;
    #print "$vp" , "\n" ;
    #print "$kp" , "\n" , "$vp" , "\n" ;
    
    }

   $numlinepw++ ;
} 

#print "$numlinepw" , "\n" ;

my $numlinenw = 0 ;
my %countn = () ;

open (my $itw , "<:encoding(utf8)" , "$ntt") or die "$ntt: $!" ;
open (my $nwt , "<:encoding(utf8)" , "$ntw" ) or die "$ntw: $!" ;

while (<$itw>) {

  $numlinenw++ ;

my @nwords ;
my @ntw ;
my $elementn ;
my $countn ;


#@nwords = split (/\n/ , $nwt) ;
#push @ntw , @nwords ;

foreach (my $word = <$nwt>) {
    $countn{$word}++ ;
    }

  while ( ( my $kn , my $vn ) = each %countn ) {
    open (my $hashn , '>>' , 'wordsbagn.txt') or die $! ;
    print $hashn "$kn = $vn\n" ;

    #print "$kn => $vn\n" ;
    #print "$kn" , "\n" ;
    #print "$vn" , "\n" ;
    #print "$kn" , "\n" , "$vn" , "\n" ;
    }
}

print 'Finish First Section' , "\n" ;
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.