Thank you for updating the post with your code. Here's a modified version that might behave more to your liking (but I'm not sure). Comments that I've added start with "###":

#!/usr/bin/perl

use strict;
use warnings;

### open(FILEIN, "table.txt"); #numbers table which only has 0 and 1.
### let's read from __DATA__ instead (try adding your own DATA...)

open FILEOUT, ">>data.txt" or die "data.txt: $!\n";
### opens data.txt in output/append mode

my @seed = split //, "01110011001111100010111101011111000100110";
my $expected = scalar @seed;

while (<DATA>) {  ### reads line by line from DATA which is provided b
+elow
    chomp;        ### you do want to chomp the input
    if ( ! /^[01]+$/ ) {
        warn "input line $. has characters other than 0 and 1\n";
        next;
    }
    my $length = length();
    if ( $length != @seed ) {
        warn "input line $. has $length digits instead of $expected\n"
+;
    }
    my $count = 0;
    for my $digit ( split // ) {
        $seed[$count++] -= $digit;
    }

    print FILEOUT "@seed\n";  #shows you what we have read
}
### close FILEIN;
close FILEOUT;

__DATA__
01110011001111100010111101011111000100110
01110011001111100010111101011111000100110
1110011001111100010111101011111000100110
0011100110011111000101111010111110001001101
012345
xyz
[download]

Compared to what you posted, this version:

• uses a shorter sample string for creating @seed (just for the sake of easier posting)

• actually puts something into @seed -- your version does not: you assign a string to "$input", but this variable is not used anywhere else

• includes sample data with the script, so that it can be run without having to open an external input file (which you did not provide); the sample data consists of a copy of the "seed" string, along with a few simple variations to test things out.

• includes some sanity checks on the input: (a) reject a line that contains anything other than 0's and 1's (but your initial example used other digits, so maybe you don't want this?), and (b) issue warnings for lines with unexpected lengths (but go ahead and use them)

• avoids the use of unnecessary variables and the  @seed[$count] mistake, and includes "use strict" and "use warnings" (which pointed out that mistake)

When I ran it, everything in the output was integers (no fractional numbers with decimal points). Of course. since values are being subtracted from the seed array, (which started with 0's and 1's), the results end up as negative decimal values (e.g. if seed starts with "0" in a given position, and the first two lines of input have "1" in that position, you get "-2").

If you were hoping to get binary digit results, what do you expect "0 - 1 - 1" to produce? Maybe you want some sort of bitwise operation instead of integer subtraction? Check out perlop (look for "bitwise"), as well as the vec, pack and unpack functions. Hint: try this:

#!/usr/bin/perl -l

$a="0101"; $b="1110";
print "$a & $b = " . ($a & $b);
print "$a | $b = " . ($a | $b);
print "$a ^ $b = " .(($a ^ $b) | "0000"); # this one is a little trick
+y

__OUTPUT__
0101 & 1110 = 0100
0101 | 1110 = 1111
0101 ^ 1110 = 1011
[download]

Can you demonstrate the problem you mentioned (getting "float" numbers) using some sample data of your own? If so, please show us that data.

---

---

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.