08-22-2011
Quote:
Originally Posted by
sushimatt
...
What we currently do is cat the log file and pipe it to a perl script that would print to screen all lines with the Session ID, from there we would take each line with Thread-(3 to 8 numbers) and repeat the same entry adding each unrepeated Thread-number to the entry and > to a text file.
...
A much better way to describe this is to provide a short, real-life demonstration using dummy data. Cook up some data in a text file and show us the input to and output from the Perl script. And the changes you want further.
As for the question about passing a qualifier - you could pass a single-character switch to the perl interpreter and then use the "getopts" method of the "GetOpt::Std" module to
(a) parse the switch and (b) perform relevant actions based on the switch.
Link to the CPAN page:
getopts - search.cpan.org
tyler_durden
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi Guys,
In the following line:
cn=portal.090710.191533.428571000,cn=groups,dc=mp,dc=rj,dc=gov,dc=br
I need to extract this string: portal.090710.191533.428571000
As you can see this string always will be bettween "cn=" and "," strings.
Someone know one regular expression to... (4 Replies)
Discussion started by: maverick-ski
4 Replies
2. Shell Programming and Scripting
Hi Folks,
In my program, I have a variable which consists of multiple lines. i need to use each line as an input. My intention is to extract the email address of the user in each line and use it to process further.
The email address could be anywhere in the whole line. But there will be only... (5 Replies)
Discussion started by: ragz_82
5 Replies
3. UNIX for Dummies Questions & Answers
Dear all,
Greetings.
I would like to ask for your help to extract lines with specific words in addition 2 lines before and after these lines by using awk or sed.
For example, the input file is:
1 ak1 abc1.0
1 ak2 abc1.0
1 ak3 abc1.0
1 ak4 abc1.0
1 ak5 abc1.1
1 ak6 abc1.1
1 ak7... (7 Replies)
Discussion started by: Amanda Low
7 Replies
4. Shell Programming and Scripting
I have hundreds of files to process. In each file
I need to look for a pattern then
extract value(s) from next line and then
search for value(s) selected from point (2) in the same file at a specific position.
HEADER ELECTRON TRANSPORT 18-MAR-98 1A7V
TITLE CYTOCHROME... (7 Replies)
Discussion started by: AshwaniSharma09
7 Replies
5. Shell Programming and Scripting
Hi
Input:
aa-bb-cc-dd.ee.ff.gg
Output:
dd
I want to get the word after the last '-' until the first dot
I have tried with regex lookbehind and lookahead like this:
(?<=-).*(?=\.)
but his returns too much
bb-cc-dd.ee.ff (7 Replies)
Discussion started by: chitech
7 Replies
6. Shell Programming and Scripting
I use "MineOS" (a linux distro with python scripts and web ui included for managing a Minecraft Server). The author of the scripts is currently having a problem with the Minecraft server log file being spammed with certain entries. He's working on clearing up the spam.
But in the meantime, I'm... (8 Replies)
Discussion started by: nbsparks
8 Replies
7. Shell Programming and Scripting
HI,
Just wanted to get some advice on how i can get the next 3 lines after a regex:
Say i have a file which contains something like below:
client467
master tcp ether tor0141 4467
query tcp ether tor0141 4467
client468
master tcp ether tor2141 4468
... (17 Replies)
Discussion started by: reignangel2003
17 Replies
8. Shell Programming and Scripting
Data file example
I look for primary and * to isolate the interesting slot number.
slot=`sed '/^primary$/,/\*/!d' filename | tail -1 | sed s'/*//' | awk '{print $1" "$2}'`
Now I want to get the Touch line for only the associate slot number, in this case, because the asterisk... (2 Replies)
Discussion started by: popeye
2 Replies
9. Shell Programming and Scripting
In the perl below I am trying to extract and print specic values from patterns using multiple regex. One of the patterns AF= may be a whole number or a decimal but I can not seem
to capture both. I think it is the regex .*AF=(\d+\.\d+); as it is expecting a #.#### and it may only be a #. I tried... (2 Replies)
Discussion started by: cmccabe
2 Replies
10. Shell Programming and Scripting
I have a file conatining the below:
---
10.9.16.116:
/tmp/5835113081224811756.jar:
hash: e6df90d38fa86f0e289f73d79cd2cfd2a29954eb
/tmp/4603745991442278706.jar:
hash: e6df90d38fa86f0e289f73d79cd2cfd2a29954eb
10.9.14.126:
/tmp/conf/extra/httpd-ssl.conf:
hash:... (1 Reply)
Discussion started by: mohtashims
1 Replies
LEARN ABOUT DEBIAN
xml::rss::headline::useperljournals
XML::RSS::Headline::UsePerlJournals(3pm) User Contributed Perl Documentation XML::RSS::Headline::UsePerlJournals(3pm)
NAME
XML::RSS::Headline::UsePerlJournals - XML::RSS::Headline Example Subclass
VERSION
2.2
SYNOPSIS
You can also subclass XML::RSS::Headline to tweak the rss content to your liking. In this example. I change the headline to remove the
date/time and add the Use Perl Journal author's ID. Also in this use Perl; rss feed you get the actual link to the journal entry, rather
than the link just to the user's journal. (meaning that the journal URLs contain the entry's ID)
use XML::RSS::Feed;
use XML::RSS::Headline::UsePerlJournals;
use LWP::Simple qw(get);
my $feed = XML::RSS::Feed->new(
name => "useperljournals",
hlobj => "XML::RSS::Headline::UsePerlJournals",
delay => 60,
url => "http://use.perl.org/search.pl?tid=&query=&"
. "author=&op=journals&content_type=rss",
);
while(1) {
$feed->parse(get($feed->url));
print $_->headline . "
" for $feed->late_breaking_news;
sleep($feed->delay);
}
Here is the output from rssbot on irc.perl.org in channel #news (which uses these modules)
<rssbot> + [pudge] New Cool Journal RSS Feeds at use Perl;
<rssbot> http://use.perl.org/~pudge/journal/21884
MUTAITED METHOD
$headline->item( $item )
Init the object for a parsed RSS item returned by XML::RSS.
AUTHOR
Jeff Bisbee, "<jbisbee at cpan.org>"
BUGS
Please report any bugs or feature requests to "bug-xml-rss-feed at rt.cpan.org", or through the web interface at
<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=XML-RSS-Feed>. I will be notified, and then you'll automatically be notified of progress
on your bug as I make changes.
SUPPORT
You can find documentation for this module with the perldoc command.
perldoc XML::RSS::Headline::UsePerlJournals
You can also look for information at:
* AnnoCPAN: Annotated CPAN documentation
<http://annocpan.org/dist/XML-RSS-Feed>
* CPAN Ratings
<http://cpanratings.perl.org/d/XML-RSS-Feed>
* RT: CPAN's request tracker
<http://rt.cpan.org/NoAuth/Bugs.html?Dist=XML-RSS-Feed>
* Search CPAN
<http://search.cpan.org/dist/XML-RSS-Feed>
ACKNOWLEDGEMENTS
Special thanks to Rocco Caputo, Martijn van Beers, Sean Burke, Prakash Kailasa and Randal Schwartz for their help, guidance, patience, and
bug reports. Guys thanks for actually taking time to use the code and give good, honest feedback.
COPYRIGHT & LICENSE
Copyright 2006 Jeff Bisbee, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
SEE ALSO
XML::RSS::Feed, XML::RSS::Headline, XML::RSS::Headline::PerlJobs, XML::RSS::Headline::Fark, POE::Component::RSSAggregator
perl v5.8.8 2006-07-17 XML::RSS::Headline::UsePerlJournals(3pm)