04-28-2008
PERL: Searching for a string in a text file problem
Looking for a bit of help. I need to search for a string of words, but unfortunately these words are located on separate lines.
for example the text output is:
United
Chanmpions
Ronaldo
Liverpool
Losers
Torres
and my script code is
print("DEBUG - checking file message");
while (<FILE>){
$line = $_;
if($line =~ /United/ ){
print("\nAbout to send email\n");
sendEmail($contacts,
"",
"Monitoring",
"\nPlease be aware that there is a problem.",
"",
"");
}
the above script will send out an e-mail when it locates United, but I need to send out an e-mail when it gets United Champions Ronaldo.
I thought something like
if($line =~ /United/n Champions/n Ronaldo/)
But no luck.
Any suggestions as to how to go about this.
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
Hi!
I'm new here and glad to meet everyone!
I've been wrestling with a problem lately however! How do I recursively (recursive means to keep going through the subdirectories until no more are there) search a bunch of textfiles in a long directory structure for a specific string.. but only... (1 Reply)
Discussion started by: skwadim
1 Replies
2. Shell Programming and Scripting
Hi All,
I need to search for a string in a file that I've opened and base a decision on the result. The logic is this:
"if the word 'Shared' appears on the first line then
do this on the whole file
else
do this on the whole file
"
The code I currently have isn't working:... (4 Replies)
Discussion started by: pondlife
4 Replies
3. Shell Programming and Scripting
Hi,
Need to extract a string from one file and search the same in other files.
Ex:
I have file1 of hundred lines with no delimiters not even space.
I have 3 more files.
I should get 1 to 10 characters say substring from each line of file1 and search that string in rest of the files and get... (1 Reply)
Discussion started by: mohancrr
1 Replies
4. Shell Programming and Scripting
Hi,
I'm very new to UNIX scripting and find quite difficult to understand simple UNIX syntax. Really appreciat if somebody could help me to give simple codes for my below problems:-
1) I need to search for a string "TTOH 8031950001" in a files which filename will be "*host*'. For example, the... (3 Replies)
Discussion started by: cuji
3 Replies
5. Shell Programming and Scripting
hello, i'm a novice on bsh scripting so thanks for any help here
basically i have a shell var $x that looks like this
> echo $x
nabc1234:!:73394:17155:Gary Mason:/home/garym:/bin/ksh
and i'm trying to keep the first 8 characters and the text from the 4th : to the 5th :
i've been trying... (9 Replies)
Discussion started by: sasglm
9 Replies
6. Shell Programming and Scripting
Hi Forum.
Is there a quick way to do the following search/replace within a block of data? I tried to google the solution but didn't really know what to look for.
I have the following text file (I want to search for a particular string "s_m_f_acct_txn_daily_a1" and replace the... (5 Replies)
Discussion started by: pchang
5 Replies
7. Shell Programming and Scripting
without using conventional file searching commands like find etc, is it possible to locate a file if i just know that the file that i'm searching for contains a particular text like "Hello world" or something? (5 Replies)
Discussion started by: arindamlive
5 Replies
8. Shell Programming and Scripting
Hi
I would like to read a file using perl and search for a string (last entry). Then read that into an array and do further grep
File content for ex:
comp=a,value=30,runtime=12,type=lic
comp=d,value=15,runtime=2,type=lic
comp=a,value=90,runtime=43,type=lic... (1 Reply)
Discussion started by: vivek_damodaran
1 Replies
9. Shell Programming and Scripting
Hi all,
i have a generated report in unix in the following command like
input.txt
47.85,10
0124,42.35,8
0125,3.5,2
the input file format is fixed
I need the my output file with append text as below
output.txt
0124 amount:42.35
0125 amount:3.5
0124 count : 8
0125... (34 Replies)
Discussion started by: hemanthsaikumar
34 Replies
10. Shell Programming and Scripting
I have two files
1. input.txt
2. keyword.txt
input.txt has contents like
.src_ref 0 "call.s" 24 first
0x000000 0x5a80 0x0060 BRA.l 0x60
.src_ref 0 "call.s" 30 first
0x000002 0x1bc5 RETI
.src_ref 0 "call.s" 31 first
0x000003 0x6840 ... (2 Replies)
Discussion started by: acdc
2 Replies
LEARN ABOUT DEBIAN
locale::us
Locale::US(3pm) User Contributed Perl Documentation Locale::US(3pm)
NAME
Locale::US - two letter codes for state identification in the United States and vice versa.
SYNOPSIS
use Locale::US;
my $u = Locale::US->new;
my $state = $u->{code2state}{$code};
my $code = $u->{state2code}{$state};
my @state = $u->all_state_names;
my @code = $u->all_state_codes;
ABSTRACT
Map from US two-letter codes to states and vice versa.
DESCRIPTION
MAPPING
$self->{code2state}
This is a hashref which has two-letter state names as the key and the long name as the value.
$self->{state2code}
This is a hashref which has the long nameas the key and the two-letter state name as the value.
DUMPING
$self->all_state_names
Returns an array (not arrayref) of all state names in alphabetical form
$self->all_state_codes
Returns an array (not arrayref) of all state codes in alphabetical form.
KNOWN BUGS AND LIMITATIONS
o The state name is returned in "uc()" format.
o neither hash is strict, though they should be.
SEE ALSO
Locale::Country
Locale::Country
Abbreviations
<http://www.usps.gov/ncsc/lookups/usps_abbreviations.htm>
Online file with the USPS two-letter codes for the United States and its possessions.
AUXILIARY CODE:
lynx -dump http://www.usps.gov/ncsc/lookups/usps_abbreviations.htm > kruft.txt
kruft2codes.pl
COPYRIGHT INFO
Copyright (c) 2002 - $present Terrence Brannon.
All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
License: GPL, Artistic, available in the Debian Linux Distribution at /usr/share/common-licenses/{GPL,Artistic}
AUTHOR
T. M. Brannon, <tbone@cpan.org>
PATCHES
Thanks to stevet AT ibrinc for a patch about second call to new failing.
perl v5.12.4 2011-08-03 Locale::US(3pm)