perl

I need regex that will match everything not in tag. For example: foobar<p>lol</p><div>something</div>blahblah Should match…

I have a block of text/code where I need to search for include= and then grab the entire path after the '=' I've tried several ways and I just can't…

so i have this: for $i (0..@parsedText) { if ($parsedText[$i] =~ /\s{20}<a href/) { my $eventID = $parsedText[$i]; my $eventLink =…

I am trying to make a call to a stored procedure from with in a transaction in its simplified form: my $dbh= DBI->connect(............ ); my $sth…

For an application I'm developing I need a Perl script which loops through a massive CSV file and ensures that every single line contains a valid…

I need a perl regex to check if $currentSearch is present in $currentLine. The check should include that $currentLine has "Load" keyword in it.…

ashamed as I am to admit it, I'm terrible with regex... so here I am to ask your help :) i have an html file that looks sorta like this:…

Okay, this is more for my own learning than actual need. I have files with the following format: Loading parser from serialized file…

I am attempting to take a CSV file and import each row into an array (where each element represents a column). The format of a CSV file is very…

I have a line of text like: value,value,,,value,value I want the two empty values to be replaced with a different value. Something like:…

Is there an efficient way to substitute a bunch a strings using values from a Perl hash? For example, $regex{foo} = "bar"; $regex{hello} = "world";…

I have text like so: /* blah blah blah blah */ /* blah blah blah jjj blah blah*/ /* blah blah*/ /* blah jjj blah blah */ /* blah blah*/ I'd like to…

The following code is a (pseudo!) http server. It just sends back the http request. The unexpected comportment occurs with ftp requests from…

I was doing sed /http.*.torrent/s/.*(http.*.torrent).*/\1/;/http.*.torrent/p 1.html to extract links. However since sed lacks non-greedy quantifier…

I have a file full of C++ code which is a bunch of small functions that return a number. I am trying to replace each number with the number plus one…

Note: I have answered my own question. The solution is appended at the end of this question. Cannot self-answer, so it's the best I could do.…

In some code I am maintaining, I have found the expression: $r->{DISPLAY} =~ s/\Device//s; What surprises me is that it matches both device and…

Sometime request not have a response headers, become white screen and no error status (200) Did anyone know to fix this?

I need to write a quick (by tomorrow) filter script to replace line breaks (LF or CRLF) found within double quoted strings by the escaped newline \n…

Here is my code #DATA SOURCE NAME my $dsn = "dbi:$platform:$database:$host:$port"; #PERL DBI CONNECT my $connect = DBI->connect($dsn, $user, $pw)…