I want to extract some part of a pattern that matches my requirement in a string with PERL. A case in point is a string like:
$eqtst="abh nmae res = 10 s abh nmae req = 10 s";
from which I want the words preceding the "=" symbol.
Previously I was assured that there would be only 2 such "=" symbols in a string and so I used sthg like:
$eqtst =~ /\s+(\w+)\s*=.*\s+(\w+)\s*=/
the "()" extracted the words "res", "req" into variables $1, $2 respectively. And life was good .
Now however the number of "=" symbols arent limited (might exceed 2 in a string). How do I go about extracting the words which precede "=" now?
Thanks,
Abhishek
regular expressions, though powerful, are not always the solution to a problem.
Hi,
Is there a way I can extract my data faster. You know my data is 1.2 GB text file with 8Million rows with 38 columns/fields. Imagine how huge this is.
How I can optimized the data extraction using perl. That is why I'm creating a script to filter only those informations that I need. Is... (3 Replies)
Hi all,
I have a data file from which i would like to extract only certain fields, which are not adjacent to each other. Following is the format of data file (data.txt) that i have, which has about 6 fields delimited by "|"
HARRIS|23|IT|PROGRAMMER|CHICAGO|EMP
JOHN|35|IT|JAVA|NY|CON... (2 Replies)
I have a string stored in a variable. For instance,
$str = " Opcode called is : CM_OP_xxx "
where xxx changes dynamically and can be either LOGIN or SEARCH..... depends on runtime.
For example :
$str = " Opcode called is : CM_OP_SEARCH "
$str = " Opcode called is : CM_OP_LOGIN "
I... (3 Replies)
the log contains mathematical operation as follows
fm_void_mathematics : PCM_OP_MATHS input function
PIN_FLD_NUM1 INT 1
PIN_FLD_NUM2 INT 2
PIN_FLD_RESULTS int
PIN_FLD_OUT INT *
D Wed Sep 16 05:40:22 2009 solaris_testing
fm_void_add :
PIN_FLD_SUM int 3
D Wed Sep 16 05:40:22 2009... (1 Reply)
HI,
i have variable in perl like below
$tmp="/home/sai/automation/work/TFP_GN.txt"
it can conatain any path its filled from config file.
now i want extarct the path upto this /home/sai/automation/work/ and put it in another variable
say... (4 Replies)
Hello,
I want to extract the words from a file which starts with SRD-R or SRD-DR.
I have written a script which is able to trace the word but it is printing the whole line.
sub extract_SRD_tag{
my ($tag, $app, $path, @data, $word );
$path = shift;
$app = shift;
open (FILE, $path) or... (2 Replies)
Hi,
I am using the following code to retrieve the contents between C-style comments "/* .. */".
perl -lne 'while(/(\/\*.*?\*\/)/g) {print "$1";}'
This works fine when the commented section of code is present in a single line. But I also need to extract the data which is present inside... (3 Replies)
Hi, I need to extract Password expires from the output of windows command print `net user %USERNAME% /domain`; in perl. So i want to redirect the output of this win-cmd to a file and try extracting Password expires along with its value. i'm trying with this code but getting errors.
#!usr/bin/perl... (1 Reply)
Discussion started by: sam_bd
1 Replies
LEARN ABOUT DEBIAN
mojo::message::response
Mojo::Message::Response(3pm) User Contributed Perl Documentation Mojo::Message::Response(3pm)NAME
Mojo::Message::Response - HTTP 1.1 response container
SYNOPSIS
use Mojo::Message::Response;
# Parse
my $res = Mojo::Message::Reponse->new;
$res->parse("HTTP/1.0 200 OKx0ax0d");
$res->parse("Content-Length: 12x0ax0dx0ax0d");
$res->parse("Content-Type: text/plainx0ax0dx0ax0d");
$res->parse('Hello World!');
say $res->body;
# Build
my $res = Mojo::Message::Response->new;
$res->code(200);
$res->headers->content_type('text/plain');
$res->body('Hello World!');
say $res->to_string;
DESCRIPTION
Mojo::Message::Response is a container for HTTP 1.1 responses as described in RFC 2616.
EVENTS
Mojo::Message::Response inherits all events from Mojo::Message.
ATTRIBUTES
Mojo::Message::Response inherits all attributes from Mojo::Message and implements the following new ones.
"code"
my $code = $res->code;
$res = $res->code(200);
HTTP response code.
"message"
my $message = $res->message;
$res = $res->message('OK');
HTTP response message.
METHODS
Mojo::Message::Response inherits all methods from Mojo::Message and implements the following new ones.
"cookies"
my $cookies = $res->cookies;
$res = $res->cookies(Mojo::Cookie::Response->new);
$res = $res->cookies({name => 'foo', value => 'bar'});
Access response cookies, usually Mojo::Cookie::Response objects.
say $res->cookies->[1]->value;
"default_message"
my $message = $res->default_message;
Generate default response message for code.
"fix_headers"
$res = $res->fix_headers;
Make sure response has all required headers for the current HTTP version.
"is_status_class"
my $success = $res->is_status_class(200);
Check response status class.
SEE ALSO
Mojolicious, Mojolicious::Guides, <http://mojolicio.us>.
perl v5.14.2 2012-09-05 Mojo::Message::Response(3pm)