02-28-2001
There are a few ways to do this. One example:
#!/bin/ksh
FILES=`find . -name account.adrs -depth -follow -exec grep -l "Email = ;" {} \;`
for file in $FILES; do
perl -p i.bak -e 's/Email = ;/Email = \"\" ;/' $file
done
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi
I am having 2 files file1.c and file2.c
Now i want to find all the occurances of pattern "abc" in file1.c, file2.c and replace with pattern "def" using shell script without using sed and with using sed.
Thanks in advance...
raju (1 Reply)
Discussion started by: krishnamaraju
1 Replies
2. Shell Programming and Scripting
HI all
I have a problem, I need to replace a field in a file, but only in the lines that have some pattern, example:
100099C01101C00000000059394200701CREoperadora_TX
100099C01201C00000000000099786137OPERADORA_TX2
in the example above I need to change the first field from 1 to 2 only if... (3 Replies)
Discussion started by: sergiioo
3 Replies
3. Shell Programming and Scripting
Hi I need to help on finding the below pattern using sed
<b><a href="/home/document.do?assetkey=x-y-abcde-1&searchclause=photo">
and replace as below in the same line on the index file.
<b><a href="/abcde.html">
thx in advance.
Mari (5 Replies)
Discussion started by: maridhasan
5 Replies
4. Shell Programming and Scripting
All,
I have a text file which has the following data
X_SQL_13,X_SQL_14,X_SQL_15,X_SQL_16,X_SQL_17,X_SQL_18,X_SQL_19,X_SQL_20,X_SQL_21,X_SQL_22,X_SQL_23,X_SQL_24,X_SQL_25,X_SQL_26,X_SQL_27,... (4 Replies)
Discussion started by: thana
4 Replies
5. Shell Programming and Scripting
i have a file which contains lines like this.
intsrcrpttrn1099mctrl:export GRAPHPARM_AR="-input_code M302023"
intsrcrpttrn1099mload:export GRAPHPARM_AR="-input_code M192023"
intsrcrpttrn1099mload:export GRAPHPARM_AR="-input_code P192023"
the value after -input_code starts with some alphabet... (4 Replies)
Discussion started by: dr46014
4 Replies
6. Shell Programming and Scripting
i am editing a big log file with the following pattern:
Date: xxxx Updated: name
Some log file text here
Date: eee Updated: ny
Some log file text here
Basically i want to remove all the text in a line before the "Updated" pattern. I sill want to print the other... (4 Replies)
Discussion started by: balan1983a
4 Replies
7. Shell Programming and Scripting
Hello,
I need to find all *.xml files that matched by pattern on Linux. I need to have written the file name on the screen and then change the pattern in the file just was found.
For instance.
I can start the script with arguments for keyword and for value, i.e
script.sh keyword... (1 Reply)
Discussion started by: yart
1 Replies
8. Shell Programming and Scripting
I've got a file like so:
...lots of lines, etc.
push "route 10.8.0.0 255.255.255.0"
push "route 192.168.1.123 255.255.255.0"
...lots of lines, etc.
I want to sed find/replace the IP address in the second line, whatever it is, with a new IP address, but I don't want to touch the first line.... (5 Replies)
Discussion started by: DaHai
5 Replies
9. Shell Programming and Scripting
If condition satisfy, want to find pattern and modify two Fields in Modify.txt
Input.txt
SOURCE1
SOURCE2
SOURCE3
SOURCE4
SOURCE5
SOURCE6
Modify.txt
SOURCE1|SLA|2016/12/11 11:12:11 PM|HMM|11-11-16|
SOURCE2|SLA|2016/13/11 11:12:11 PM|HMM|10-11-16|
SOURCE3|SLA|2016/14/11 11:12:11... (7 Replies)
Discussion started by: Joselouis
7 Replies
10. Shell Programming and Scripting
Hi,
I need to do find and replace, but the pattern is not full known.
for example,
my file has /proj/app-d1/sun or /data/site-d1/conf
here app-d1 and site-d1 is not constant. It may be different in different files. common part is /proj/xx/sun and /data/xxx/conf
i want to find where ever... (6 Replies)
Discussion started by: rbalaj16
6 Replies
LEARN ABOUT DEBIAN
email::thread
Email::Thread(3pm) User Contributed Perl Documentation Email::Thread(3pm)
NAME
Email::Thread - Use JWZ's mail threading algorithm with Email::Simple objects
SYNOPSIS
use Email::Thread;
my $threader = Email::Thread->new(@messages);
$threader->thread;
dump_em($_,0) for $threader->rootset;
sub dump_em {
my ($self, $level) = @_;
debug (' \-> ' x $level);
if ($self->message) {
print $self->message->header("Subject") , "
";
} else {
print "[ Message $self not available ]
";
}
dump_em($self->child, $level+1) if $self->child;
dump_em($self->next, $level) if $self->next;
}
DESCRIPTION
Strictly speaking, this doesn't really need Email::Simple objects. It just needs an object that responds to the same API. At the time of
writing the list of classes with the Email::Simple API comprises just Email::Simple.
Due to how it's implemented, its API is an exact clone of Mail::Thread. Please see that module's documentation for API details. Just
mentally substitute "Email::Thread" everywhere you see "Mail::Thread" and "Email::Thread::Container" where you see
"Mail::Thread::Container".
PERL EMAIL PROJECT
This module is maintained by the Perl Email Project.
<http://emailproject.perl.org/wiki/Email::Thread>
SUPPORT
Support for this module is provided via the CPAN RT system at <http://rt.cpan.org/>
LICENCE AND COPYRIGHT
Copyright X Iain Truskett, 2003. All rights reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
THANKS
Simon Cozens (SIMON) for encouraging me to release it, and for Email::Simple and Mail::Thread.
Richard Clamp (RCLAMP) for the header patch.
AUTHORS
Iain Truskett <spoon@cpan.org>
SEE ALSO
perl, Mail::Thread, Email::Simple
perl v5.10.0 2007-03-22 Email::Thread(3pm)