but if there are many IP addresses you will want to push() the matches into an array that you can access after the "foreach" loop ends, or process them one by one as you loop through @lines, otherwise $ip will be the last match found in the array.
Hi All,
I have a file that I need to be able to find a pattern match on one line then parse data on the next or subsequent lines - I will know which line needs to be parsed beforehand.
This is what I currently have:
while (<COMMAND_OUT>) {
if ($_ =~ m/TEST/) {
... (4 Replies)
Aloha! I have just over 1k of users that have permissions that they shouldn't under our system. I need to parse a provided list of usernames, check their permissions file, and strip the permissions that they are not allowed to have. If upon the permissions strip they are left with no permissions,... (6 Replies)
File 1
<html>ta da....unique file name I want to give file=>343...</html>
<html>da ta 234 </html>
<html>pa da 542 </html>
and so on...
File 2
343
234
542
and so on, each line in File 1 one also corresponds with each line in File 2
I have tried several grep, sed, while .. read, do,... (4 Replies)
Hi
I'm writing simple perl script to parse the ftp log as below:
Local directory now /home/user/testing
227 Entering Passive Mode (192,254,19,34,8,228).
125 Data connection already open; Transfer starting.
09-25-09 02:33PM 25333629 abc.tar
09-14-09 12:50PM 18015752... (1 Reply)
Hi anyone can help.how can i get all second column data in this log below??
x 799002577959.pdf, 25728 bytes, 51 tape blocks
x 800002357216.pdf, 25728 bytes, 51 tape blocks
x aadb090910.txt, 80424 bytes, 158 tape blocks
x tsese090909.txt, 13974 bytes, 28 tape blocks (4 Replies)
Hello there,
I em executing the following command in a perl script to append "\0" to the end of every line in a file:
###command start
my $cmd = qx{"C:\\gawk" '{print $0 "\\\0"}' C:\file.txt > C:\file_1.txt};
###command end
But i get the following error:
###error meaasge start... (2 Replies)
Hey there...
I am looking for a way to take the below contents ( small excerpt) of this file called PTR.csv
ptrrecord,0000002e0cc0.homeoffice.anfcorp.com,,10.11.191.62,,,False,62.191.11.10.in-addr.arpa,,302400,default... (6 Replies)
The below code works great to parse out a file if the input is in the attached SNP format ">".
perl -ne 'next if $.==1; while(/\t*NC_(\d+)\.\S+g\.(\d+)()>()/g){printf("%d\t%d\t%d\t%s\t%s\n",$1,$2,$2,$3,$4,$5)}' out_position.txt > out_parse.txt
My question is if there is another format in... (10 Replies)
I have a test file with the following format, It contains the username_date when the user was locked from the database.
$ cat lockedusers.txt
TEST1_21062016
TEST2_02122015
TEST3_01032016
TEST4_01042016
I'm writing a ksh script and faced with this difficult scenario for my... (11 Replies)
Mason::Manual::Intro(3pm) User Contributed Perl Documentation Mason::Manual::Intro(3pm)NAME
Mason::Manual::Intro - Getting started with Mason
DESCRIPTION
A few quick examples to get your feet wet with Mason. See Mason::Manual::Setup for how to use Mason to generate web sites.
EXAMPLE 1
Hello world (from command-line)
After installing Mason, you should have a "mason" command in your installation path (e.g. "/usr/local/bin"). Try this:
% mason
Hello! The local time is <% scalar(localtime) %>.
^D
(where '^D' means ctrl-D or EOF). You should see something like
Hello! The local time is Wed Mar 2 17:11:54 2011.
The "mason" command reads in a Mason component (template), runs it, and prints the result to standard output. Notice that the tag
<% scalar(localtime) %>
was replaced with the value of its expression. This is called a substitution tag and is a central piece of Mason syntax.
EXAMPLE 2
Email generator (from script)
The command line is good for trying quick things, but eventually you're going to want to put your Mason components in files.
In a test directory, create a directory "comps" and create a file "email.mc" with the following:
<%class>
has 'amount';
has 'name';
</%class>
Dear <% $.name %>,
We are pleased to inform you that you have won $<% sprintf("%.2f", $.amount) %>!
Sincerely,
The Lottery Commission
<%init>
die "amount must be a positive value!" unless $.amount > 0;
</%init>
In addition to the substitution tag we've seen before, we declare two attributes, "amount" and "name", to be passed into the component; and
we declare a piece of initialization code to validate the amount.
In the same test directory, create a script "test.pl" with the following:
1 #!/usr/local/bin/perl
2 use Mason;
3 my $interp = Mason->new(comp_root => 'comps', data_dir => 'data');
4 print $interp->run('/email', name => 'Joe', amount => '1500')->output;
Line 3 creates a Mason interpreter, the main Mason object. It specifies two parameters: a component root, indicating the directory
hierarchy where your components will live; and a data directory, which Mason will use for internal purposes such as class generation and
caching.
Line 4 runs the template - notice that the ".mc" extension is added automatically - passing values for the "name" and "amount" attributes.
Run "test.pl", and you should see
Dear Joe,
We are pleased to inform you that you have won $1500.00!
Sincerely,
The Lottery Commission
SEE ALSO
Mason::Manual::Tutorial, Mason::Manual
AUTHOR
Jonathan Swartz <swartz@pobox.com>
COPYRIGHT AND LICENSE
This software is copyright (c) 2011 by Jonathan Swartz.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
perl v5.14.2 2012-05-02 Mason::Manual::Intro(3pm)