Search in a set of lines using perl Post: 302413395

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl: Search for string on line then search and replace text

Hi All, I have a file that I need to be able to find a pattern match on a line, search that line for a text pattern, and replace that text. An example of 4 lines in my file is: 1. MatchText_randomNumberOfText moreData ReplaceMe moreData 2. MatchText_randomNumberOfText moreData moreData...

2. Shell Programming and Scripting

Perl to Search through next lines

I have log file that I need to extract time difference occurance when two events happend, between first occurance of TV and when W_NO happend. also read the value=, below example...I can only read the next line but not able to seach all the next lines untill i see W_NO.. Thanks for your help....

3. Shell Programming and Scripting

search and replace, when found, delete multiple lines, add new set of lines?

hey guys, I tried searching but most 'search and replace' questions are related to one liners. Say I have a file to be replaced that has the following: $ cat testing.txt TESTING AAA BBB CCC DDD EEE FFF GGG HHH ENDTESTING This is the input file:

4. Linux

Perl program to print previous set of lines once a pattern is matched

Hi all, I have a text data file. My aim here is to find line called *FIELD* AV for every record and print lines after that till *FIELD* RF. But here I want first 3 to four lines for very record as well. FIELD AV is some where in between for very record. SO I am not sure how to retrieve lines in...

5. Shell Programming and Scripting

Search and swap multiple lines in file using Perl

Hi all, I have a vcd file with a bunch of lines containing an array, like this $var wire 1 b a $end $var wire 1 c a $end $var wire 1 d a $end $var wire 1 e a $end $var wire 1 f b $end $var wire 1 g b $end $var wire 1 h b $end $var wire 1 i b $end I want it like this: $var wire 1 e a...

6. Shell Programming and Scripting

Perl - use search keywords from array and search a file and print 3rd field when matched

Hi , I have been trying to write a perl script to do this job. But i am not able to achieve the desired result. Below is my code. my $current_value=12345; my @users=("bob","ben","tom","harry"); open DBLIST,"<","/var/tmp/DBinfo"; my @input = <DBLIST>; foreach (@users) { my...

7. Shell Programming and Scripting

Perl - start search by using search button or by pressing the enter key

#Build label and text box $main->Label( -text => "Input string below:" )->pack(); $main->Entry( -textvariable => \$text456 )->pack(); $main->Button( -text => "Search", -command => sub { errchk ($text456) ...

8. Shell Programming and Scripting

Help needed with shell script to search and replace a set of strings among the set of files

Hi, I am looking for a shell script which serves the below purpose. Please find below the algorithm for the same and any help on this would be highly appreciated. 1)set of strings need to be replaced among set of files(directory may contain different types of files) 2)It should search for...

9. Shell Programming and Scripting

Search pattern on logfile and search for day/dates and skip duplicate lines if any

Hi, I've written a script to search for an Oracle ORA- error on a log file, print that line and the .trc file associated with it as well as the dateline of when I assumed the error occured. In most it is the first dateline previous to the error. Unfortunately, this is not a fool proof script....

LEARN ABOUT DEBIAN

mail::message::wrapper::spamassassin

Mail::Message::Wrapper::SpamAssassin(3pm)		User Contributed Perl Documentation		 Mail::Message::Wrapper::SpamAssassin(3pm)

NAME

       Mail::Message::Wrapper::SpamAssassin - Connect a Mail::Message with Mail::SpamAssassin

INHERITANCE

	Mail::Message::Wrapper::SpamAssassin
	  is a Mail::SpamAssassin::Message

SYNOPSIS

	# WARNING: requires OLD SpamAssassion 2.x, not the new 3.x
	# See Mail::Box::Search::SpamAssassin for the preferred interface
	# However, it is possible to do:

	my $msg    = ...;   # some Mail::Message object
	my $sa	   = Mail::Message::Wrapper::SpamAssassin->new($msg);
	my $spam   = Mail::SpamAssassin->new;
	my $status = $spam->check($sa);

	$msg->label(spam => 1) if $status->is_spam;
	$status->rewrite_mail;	# Adds spam lines to header

DESCRIPTION

       WARNING: This module only works with the old version of SpamAssassin: version 2.x.  The newer 3.x releases have changed the way that
       messages are kept. Please contribute improved code.

       The "Mail::Message::Wrapper::SpamAssassin" class --sorry for the long package name-- is a wrapper around Mail::SpamAssassin::Message, which
       is an interface to the spam checking software of Mail::SpamAssassin.

METHODS

       Mail::Message::Wrapper::SpamAssassin->new(MESSAGE, OPTIONS)
	   Creates a wrapper around the MESSAGE.  The already present fields from a previous run of Spam::Assassin (or probably fake lines) are
	   removed first.

SEE ALSO

       This module is part of Mail-Box distribution version 2.105, built on May 07, 2012. Website: http://perl.overmeer.net/mailbox/

LICENSE

       Copyrights 2001-2012 by [Mark Overmeer]. For other contributors see ChangeLog.

       This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.  See
       http://www.perl.com/perl/misc/Artistic.html

perl v5.14.2							    2012-05-07				 Mail::Message::Wrapper::SpamAssassin(3pm)