What does "not working fine" mean? (For that matter, what does "working fine" mean?)
When you do this part:
while(<FILE>){
$_=~s/\s+//g;
push(@array1,$_);
}
my %s = ();
$s{$_}++ for @array1;
Is it really your intention to create a hash whose keys look like this:
N01A0000.fBG1_c22
N01A000X.fBG1_c5
N01A000X.rBG1_c5
...
The list you showed us has 15 lines. When the lines are converted to hash keys using your method, they are all unique. What were you expecting to get as a result?
Update: By the way, why do you use an array and a hash? You could have just done this:
my %s;
while(<FILE>) {
s/\s+//g;
$s{$_}++;
}
(Of course, for the data you've shown, that will still end up with all lines being unique. So, what is it about the data that makes two or more lines duplicates?)
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! —
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: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.