Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re: split and matching

by JavaFan (Canon)
on May 04, 2012 at 19:51 UTC ( #968976=note: print w/replies, xml ) Need Help??

in reply to split and matching

my @LINES =<IN>;
This reads all the lines, and stuffs them into @LINES.
You've already read all the lines! What do you expect to read now?
my @fields = split ';', $_;
I thought you said it was a tab delimited file?

if ( $fields[8] =~ /^[sno]/ =~ /^[sno]/ ) {
What are you trying to do here? If you want to know that there is a value for sno, do something like:
if ($fields[8] =~ /(?:^|;)sno=[^;]/) { ... }
And if you have a string literal, there is really no need to backslash all your spaces (unless it's the literal is a regexp pattern under the /x modifier, and you want the regex engine to see the spaces). Your print statement will be much more readable if you get rid of them.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://968976]
Corion idly wonders about creating a series of HTTP requests. There seems to be no framework to generate a series of HTTP requests, like "try all these requests"
[Corion]: This is vaguely inspired by that list of "nasty" strings, which I'd like to replace among HTTP parameters, just to see whether the application crashes, but also for easy downloading of a list of URLs etc
[Corion]: Maybe I'll just conoct something using Algorithm::Permute to create an (OO) generator for such requests, or a simple function.
[Corion]: For testing I imagine one would want to test a random sampling of such "bad"/"unexpected" requests, while for downloading, one would want to generate them all in order, but not necessarily as a huge list

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (9)
As of 2017-01-16 15:40 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (151 votes). Check out past polls.