Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re^6: Creating a whitelist

by htmanning (Friar)
on Jun 17, 2016 at 01:00 UTC ( [id://1165926]=note: print w/replies, xml ) Need Help??


in reply to Re^5: Creating a whitelist
in thread Creating a whitelist

Alright, I finally got it to work (I think) by placing this inside the foreach loop.
$goodorg =~ s/\n//g; $goodorg =~ s/\r//g;

Replies are listed 'Best First'.
Re^7: Creating a whitelist
by haukex (Archbishop) on Jun 17, 2016 at 16:18 UTC

    Hi htmanning,

    Sounds like the list in the DB is separated by CRLF (Windows style) instead of just LF (*NIX style). Two other ways you could fix it are by writing your split as split /\r?\n/, $goodorg; (handles CRLF and LF), and/or by trimming whitespace off each string via $goodorg=~s/^\s+|\s+$//g;.

    I find the fastest way to see problems like this is by using Data::Dumper with its Useqq option:

    use Data::Dumper; $Data::Dumper::Useqq=1; print Dumper($goodorg); __END__ $VAR1 = "Company\r\nLLC\r\n";

    Hope this helps,
    -- Hauke D

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1165926]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others wandering the Monastery: (4)
As of 2024-03-29 04:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found