I need a non-perl (bash) way to strip the path from a list of "find" results. Below is the perl version which I could use, if I could figure out how to call the script with a variable (like in sh, $1 is the variable passed in ./script variable)
$file = "/path/to/file.txt";
# How do I... (2 Replies)
Hi All,
I am calling a perl program in my shell script as follows.
MY_IN_FILE=ABC.dat
MY_OUT_FILE=XYZ.dat
MY_VARIABLE="SomeValue"
perl mycode.pl $MY_IN_FILE > $MY_OUT_FILE
Question:-
Now I want to pass value of $MY_VARIABLE from script to perl... How do I do that? Can someone... (5 Replies)
Hi All,
I am learning PERL for one of the projects, and in one of these scripts, I read a flat text file and print in the terminal.
The problem is, the text file has a date field. The format is yyyymmdd. I need to display this as dd-mon-yyyy.
Any ideas to do this? Thanks a lot for the... (9 Replies)
Hi all,
i had a code where in user will enter a date in yyyymmdd format.. i didnt use any validation for the date and now the problem is if a user enters date instead of month after year it is proceeding with the code..
like if the date is 20120426 and if the user enters 20122604 it... (4 Replies)
I have an Excel 2007 excel sheet on windows machine and using
Spreadsheet::XLSX I had written a script to read the excel sheet and was successful.
My requirement is I need to generate another excel sheet from the old excel 2007 sheet on unix machine.
Now is it possible to read the excel... (2 Replies)
my $sysdate = strftime('%Y-%m-%d', localtime );
biDeriveByDate('Table_Str',$sysdate,\@lIndx,\@lResVals)
In a perl script, when I'm trying to pass $sysdate to some external function it's not working since $sysdate is passed as a string mentioned above but my function is expecting a date value... (1 Reply)
hello,
i have a lot of C old code I'm updating to C11 with tgmath.h for generic math. the old code has very specific types, real and complex, like cabsl, csinhl, etc
usually for simple bulk replacements i would do something simple like this
perl -pi -e 's/cosl/cos/g' *.c
the reference... (0 Replies)
Hi All,
I have line
,A,FDRM0002,12/21/2017,,0.961751583,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
it contains date in mm/dd/yyyy format i want to change this to yyyymmdd format using perl.
Use code tags, thanks. (8 Replies)
The below perl script parses a variety of formats. If I use the numeric text file as input the script works correctly. However using the alpha text file as input there is a black output file. The portion in bold splits the field to parse f or NC_000023.10:g.153297761C>A into a variable $common but... (3 Replies)
Discussion started by: cmccabe
3 Replies
LEARN ABOUT DEBIAN
http::parser
Parser(3pm) User Contributed Perl Documentation Parser(3pm)NAME
HTTP::Parser - parse HTTP/1.1 request into HTTP::Request/Response object
SYNOPSIS
my $parser = HTTP::Parser->new();
...
my $status = $parser->add($text);
if(0 == $status) {
print "request: ".$parser->request()->as_string(); # HTTP::Request
} elsif(-3 == $status) {
print "no content length header!
";
} elsif(-2 == $status) {
print "need a line of data
";
} elsif(-1 == $status) {
print "need more data
";
} else { # $status > 0
print "need $status byte(s)
";
}
DESCRIPTION
This is an HTTP request parser. It takes chunks of text as received and returns a 'hint' as to what is required, or returns the
HTTP::Request when a complete request has been read. HTTP/1.1 chunking is supported. It dies if it finds an error.
new ( named params... )
Create a new HTTP::Parser object. Takes named parameters, e.g.:
my $parser = HTTP::Parser->new(request => 1);
request
Allows or denies parsing an HTTP request and returning an "HTTP::Request" object.
response
Allows or denies parsing an HTTP response and returning an "HTTP::Response" object.
If you pass neither "request" nor "response", only requests are parsed (for backwards compatibility); if you pass either, the other
defaults to false (disallowing both requests and responses is a fatal error).
add ( string )
Parse request. Returns:
0 if finished (call "object" to get an HTTP::Request or Response object)
-1 if not finished but not sure how many bytes remain
-2 if waiting for a line (like 0 with a hint)
-3 if there was no content-length header, so we can't tell whether we are waiting for more data or not.
If you are reading from a TCP stream, you can keep adding data until the connection closes gracefully (the HTTP RFC allows this).
If you are reading from a file, you should keep adding until you have all the data.
Once you have added all data, you may call "object". if you are not sure whether you have all the data, the HTTP::Response object
might be incomplete.
count if waiting for that many bytes
Dies on error.
This method of parsing makes it easier to parse a request from an event-based system, on the other hand, it's quite alright to pass in the
whole request. Ideally, the first chunk passed in is the header (up to the double newline), then whatever byte counts are requested.
When a request object is returned, the X-HTTP-Version header has the HTTP version, the uri() method will always return a URI object, not a
string.
Note that a nonzero return is just a hint, and any amount of data can be passed in to a subsequent add() call.
data
Returns current data not parsed. Mainly useful after a request has been parsed. The data is not removed from the object's buffer, and
will be seen before the data next passed to add().
extra
Returns the count of extra bytes (length of data()) after a request.
object
Returns the object request. Only useful after the parse has completed.
AUTHOR
David Robins <dbrobins@davidrobins.net> Fixes for 0.05 by David Cannings <david@edeca.net>
SEE ALSO
HTTP::Request, HTTP::Response.
perl v5.10.1 2011-03-06 Parser(3pm)