I am trying to read a file and capture particular lines into different strings:
I want to be able to get (LENGTH: .... ) into one array and so on... I'm trying to use PERL in slurp mode but for some reason I'm having trouble. Can someone suggest me a better way?
I have written a script to test some isdn links in my network and I am trying to format the output to be more readable. Each line of the output has a different number of digits as follows...
Sitename , spid1 12345678901234 1234567890 1234567 , spid2 1234567890 1234567890 1234567
Sitename , ... (1 Reply)
Hi guys,
as per subject I am having problem with regular expressions.
Example, if i got a string "javax.servlet.http.HttpServlet.service" that may occurred anywhere within a text file.
How can I used the negate pattern matching of regular expression?
I tried the below pattern but it... (4 Replies)
In Perl I can write a condition that evaluates a match expression like this:
if ($foo =~ /^bar/) {
do blah blah blah
}
How do I write this in shell? What I need to know is what operator do I use? The '=~' doesn't seem to fit. I've tried different operators, I browsed the man page for... (3 Replies)
Hi,
I have a variable in my script that gets its value from a procstack output. It could be a number of any length, or it could just be a '1' with 0 or more white spaces around it. I would like to detect when this variable is just a 1 and not a 1234, for example. This is as far as I got:
... (3 Replies)
I trying to match the begining of the following line in a perl script with a regular expression.
$ENV{'ORACLE_HOME'}
I tried this regluar expession:
/\$ENV\{\'ORACLE_HOME\'\}/
Instead of match, I got a blank prompt >
It seems to be a problem with the single quote. If I take it... (11 Replies)
I am completely new to perl programming. My father is helping me learn said programming language. However, I am stuck on one of the assignments he has given me, and I can't find very much help with it via google, either because I have a tiny attention span, or because I can be very very dense.
... (4 Replies)
Hi all,
How am I read a file, find the match regular expression and overwrite to the same files.
open DESTINATION_FILE, "<tmptravl.dat" or die "tmptravl.dat";
open NEW_DESTINATION_FILE, ">new_tmptravl.dat" or die "new_tmptravl.dat";
while (<DESTINATION_FILE>)
{
# print... (1 Reply)
I have a very large file (over 700 million lines) that has some lines that I need to delete. An example of 5 lines of the file:
HS4_80:8:2303:19153:193032 153 k80:138891
HS4_80:8:2105:5544:43174 89 k88:81949
165 k88:81949 323 0 * = 323 0 ... (6 Replies)
Hi
Consider the file
this is a good line
when running
grep '\b(good|great|excellent)\b' file5
I expect it to match the line but it doesn't... what am i doing wrong??
(ultimately this regex will be in a awk script- just using grep to test it)
Thanks,
Storms (5 Replies)
Discussion started by: Storms
5 Replies
LEARN ABOUT DEBIAN
mojo::content::single
Mojo::Content::Single(3pm) User Contributed Perl Documentation Mojo::Content::Single(3pm)NAME
Mojo::Content::Single - HTTP 1.1 content container
SYNOPSIS
use Mojo::Content::Single;
my $single = Mojo::Content::Single->new;
$single->parse("Content-Length: 12
Hello World!");
DESCRIPTION
Mojo::Content::Single is a container for HTTP 1.1 content as described in RFC 2616.
EVENTS
Mojo::Content::Single inherits all events from Mojo::Content and can emit the following new ones.
"upgrade"
$single->on(upgrade => sub {
my ($single, $multi) = @_;
...
});
Emitted when content gets upgraded to a Mojo::Content::MultiPart object.
$single->on(upgrade => sub {
my ($single, $multi) = @_;
return unless $multi->headers->content_type =~ /multipart/([^;]+)/i;
say "Multipart: $1";
});
ATTRIBUTES
Mojo::Content::Single inherits all attributes from Mojo::Content and implements the following new ones.
"asset"
my $asset = $single->asset;
$single = $single->asset(Mojo::Asset::Memory->new);
The actual content, defaults to a Mojo::Asset::Memory object with "auto_upgrade" enabled.
"auto_upgrade"
my $upgrade = $single->auto_upgrade;
$single = $single->auto_upgrade(0);
Try to detect multipart content and automatically upgrade to a Mojo::Content::MultiPart object, defaults to 1.
METHODS
Mojo::Content::Single inherits all methods from Mojo::Content and implements the following new ones.
"new"
my $single = Mojo::Content::Single->new;
Construct a new Mojo::Content::Single object and subscribe to "read" event with default content parser.
"body_contains"
my $success = $single->body_contains('1234567');
Check if content contains a specific string.
"body_size"
my $size = $single->body_size;
Content size in bytes.
"clone"
my $clone = $single->clone;
Clone content if possible, otherwise return "undef".
"get_body_chunk"
my $chunk = $single->get_body_chunk(0);
Get a chunk of content starting from a specfic position.
"parse"
$single = $single->parse("Content-Length: 12
Hello World!");
my $multi = $single->parse("Content-Type: multipart/form-data
");
Parse content chunk and upgrade to Mojo::Content::MultiPart object if possible.
SEE ALSO
Mojolicious, Mojolicious::Guides, <http://mojolicio.us>.
perl v5.14.2 2012-09-05 Mojo::Content::Single(3pm)