Hi there, I've since downloaded and installed the Regexp::Common module. I've used it in my script as seen below.

When I run the script below and enter -3 I expect the script to filter my text file of all the lines beginning with 'None' or numbers which are greater than -3, leaving only lines with numbers equal to or less than -3

Here is an example of my data: 
>hsa_circ_0067224|chr3:128345575-128345675-|NM_002950|RPN1  FORWARD
-4.4       6 ..      17   xxxxxxxxxxGTGAC                CAGT ATGC ACT
+G                 AAGATGAGGTTTGTG
-0.9       5 ..      18   xxxxxxxxxxxGTGA               CCAGT ATGC ACT
+GA                AGATGAGGTTTGTGG
None       1 ..      20   xxxxxxxxxxxxxxx             GTGACCAGTATGCACT
+GAAG              ATGAGGTTTGTGGAC
None       2 ..      21   xxxxxxxxxxxxxxG             TGACCAGTATGCACTG
+AAGA              TGAGGTTTGTGGACC
None       6 ..      25   xxxxxxxxxxGTGAC             CAGTATGCACTGAAGA
+TGAG              GTTTGTGGACCATGT
-2.3       5 ..      26   xxxxxxxxxxxGTGA           C CAGTATGCACTGAAGA
+TGAG G            TTTGTGGACCATGTG
-3.2       4 ..      27   xxxxxxxxxxxxGTG          AC CAGTATGCACTGAAGA
+TGAG GT           TTGTGGACCATGTGT
-1.9       3 ..      28   xxxxxxxxxxxxxGT         GAC CAGTATGCACTGAAGA
+TGAG GTT          TGTGGACCATGTGTT

[download]

If I typed -3 I should be left with:

>hsa_circ_0067224|chr3:128345575-128345675-|NM_002950|RPN1  FORWARD
-4.4       6 ..      17   xxxxxxxxxxGTGAC                CAGT ATGC ACT
+G                 AAGATGAGGTTTGTG
-3.2       4 ..      27   xxxxxxxxxxxxGTG          AC CAGTATGCACTGAAGA
+TGAG GT           TTGTGGACCATGTGT

[download]

So far it is only able to filter the 'None'. Shouldn't $RE{num}{real}{-places=>2} capture real & irrational numbers?

The script: 
 
#!/usr/bin/perl 
use strict;
use warnings;
use Regexp::Common qw /number/;


print "Enter limit: ";
chomp( my $limit = <STDIN> );
$limit = abs($limit);

open my $IN, '<', "xt_spacer_results.hairpin" or die $!;
open my $SIFTED, '>', "new_xt_spacer_results.hairpin" or die $!;

while (<$IN>){
    next if /^None/;
    next if /^($RE{num}{real}{-places=>2})/ && $1 > $limit;
    print $SIFTED $_;
}

close $IN;
close $SIFTED;

[download]

In reply to Re^8: Easiest way to filter a file based on user input (updated) by Peter Keystrokes
in thread Easiest way to filter a file based on user input by Peter Keystrokes

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • 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:
    & &amp;
    < &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.