#!/usr/bin/perl
# This will recursively look for files with extension .702 or .000, starting
# at the path specified ./phil /var/files/i/hate
# if yahoo.tw if found in any of these files, the file will be removed
# try it a few times, then uncomment the rm line to make it really go to work
use strict;
use warnings;
use File::Find;
my $file_extensions = '702|000';
my $search_string = "yahoo.com.tw";
my $dir = $ARGV[0] or do {
print "Usage: I need to know where you want me to start files. ie: ./phil/var/studpid_files/\n";
exit(0);
};
find (\&wanted, $dir);
sub wanted {
if (/\.$file_extensions\z/) {
open (my $IN , "<", $_) or do {
print "Can't open file $_ : $!\n";
return(0);
};
my $bad = 0;
while (my $line = <$IN>) {
if ($line =~ /([\w.-]+\@yahoo\.com\.tw)/i) {
print "Found $1 in file $_\n";
$bad = 1;
last;
}
}
close($IN);
if ($bad) {
sleep(1);#give it a second to close the file
# uncomment next 4 lines when you are sure it looks like it is working
# unlink($_) or do {
# print "Can't delete file $_ : $!\n";
# return(0);
# };
}
}
}
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)
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... (4 Replies)
Hi All,
I have a file that I need to be able to find a pattern match on a line, take the number on that line check if its >0.9 or <0.1 and if this is true write the line to output.out file.
An example of 4 lines in my file is:
1. driver.I177.I11.net010 1.48622200477273e-05
2.... (2 Replies)
Hi,
I have a line where i need to get certain part of it.. example..
text txt tt: 1909
thats how exactly it looks and all spaces are to be counted.. i need to retrieve 1909..
Thanks (11 Replies)
I am very new to Perl. I am struggling so hard to search a date (such as 10/09/2009, 10-09-2009) from a text file and replace with a string (say DATE) using Perl. Please help me out. Thanks in advance.
Regds
Doren (4 Replies)
Hi All
I want to search a string from an array in Perl. If a match occurs, assign that string to a variable else assign 'No match'. I tried writing the script as follows but it's in vain. Please help me..
#!/usr/bin/perl
use strict;
my $NER;
my @text=("ORG","PER");
... (4 Replies)
Dear all,
I have a number of files and each file has two sections separated by a blank line. At the top section, I have lines which describes the values of the alphabetical characters,
# s #; 0.123
# p #; 12.3
# d #; -2.33
# f #; 5.68
<blank line>
sssssss
spfdffff
sdfffffff
Now I... (4 Replies)
Hello,
I want to search two strings in a file and print the same in the new file using perl script.
Can anyone suggest me how to do this...
The file looks like below:
<UML:ModelElement.requirement>
<UML:Dependency name="Row_MainColumn_FW_0009"> <UML:ModelElement.taggedValue>... (3 Replies)
I am using a perl script to reverse and complement sequences if a string is found. The script works as expected as standalone but I would like to use it in my bash file. However, I am not getting my expected result.
My test.txt file
>Sample_72... (8 Replies)
Discussion started by: Xterra
8 Replies
LEARN ABOUT REDHAT
xmtextfindstring
XmTextFindString(library call) XmTextFindString(library call)
NAME
XmTextFindString -- A Text function that finds the beginning position of a text string
SYNOPSIS
#include <Xm/Xm.h>
Boolean XmTextFindString(
Widget widget,
XmTextPosition start,
char *string,
XmTextDirection direction,
XmTextPosition *position);
DESCRIPTION
XmTextFindString locates the beginning position of a specified text string. This routine searches forward or backward for the first occur-
rence of the string starting from the given start position. If it finds a match, the function returns the position of the first character
of the string in position. If the match string begins at the current position, this routine returns the current position.
widget Specifies the Text widget ID.
start Specifies the character position from which the search proceeds. This is an integer number of characters from the beginning of
the text buffer. The first character position is 0 (zero).
string Specifies the search string.
direction Indicates the search direction. It is relative to the primary direction of the text. The possible values are
XmTEXT_FORWARD
The search proceeds toward the end of the text buffer.
XmTEXT_BACKWARD
The search proceeds toward the beginning of the text buffer.
position Specifies the pointer in which the first character position of the string match is returned. This is an integer number of charac-
ters from the beginning of the buffer. The first character position is 0 (zero). If the function returns False, this value is
undefined.
For a complete definition of Text and its associated resources, see XmText(3).
RETURN
Returns True if a string match is found; otherwise, returns False.
RELATED XmText(3) and XmTextFindStringWcs(3).
XmTextFindString(library call)