The solution below is not bullet proof, just gives you some ideas
$ cat xx dfhgj1^adbde^1981^SMITH^qwe^asd ender2^23232^1972^1234^QWE^ASD adfgh3^cvbdg^1981^SMITH^qwe^asd zxcvb4^#####^1972^09876^QWE^ASD
$ a.sh xx dfhgj1 adbde 1981 SMITH qwe asd adfgh3 cvbdg 1981 SMITH qwe asd
$ cat a.sh
Code:
#!/bin/ksh
cat $1 | while read src_line
do
IFS2=$IFS;
IFS='^';
set - $src_line;
# now you have all fields in $1, $2, ...
x=$( echo $4 | sed -ne '/SMITH/p' )
# if sed found your pattern, spit it out
if [[ -n $x ]]; then
echo $src_line;
fi
IFS=$IFS2;
done
$ cat log.txt
Name Age Sex Lcation nfld alias xsd
CC 25 M XYZ asx KK Y
BB 21 F XAS awe SS N
SD 21 M AQW rty SD A
How can I replace the column with header "Lcation" with the column with header "alias" and delete the "alias" column?
so that the final output will become:
Name Age Sex... (10 Replies)
I'm not sure if the problem I'm seeing is an artifact of sed or simply a beginner's mistake. Here's the problem: I want to add a zero-width space following each underscore between XML tags. For example, if I had the following xml:
<MY_BIG_TAG>This_is_a_test</MY_BIG_TAG>
It should look like... (8 Replies)
Hi All,
I need help in manipulating the data in first column in a file.
The sample data looks like below,
Mon Jul 18 00:32:52 EDT 2011,NULL,UAT
Jul 19 2011,NULL,UAT
1] All field in the file are separated by ","
2] File is having weekly data extracted from database
3] For eg.... (8 Replies)
I am a newbie and would like some help with the following -
Trying to search fileA for a string similar to -
AS11000022010 30.4 31.7 43.7 53.8 60.5 71.1 75.2 74.7 66.9 56.6 42.7 32.5 53.3
I then want to replace that string with a string from fileB - ... (5 Replies)
Hey folks. I wrote a little awk script that summarizes /proc/net/dev info and then pipes it to the nix column command to set up column spacing appropriately.
Here's some example output:
Iface RxMBytes RxPackets RxErrs RxDrop TxMBytes TxPackets TxErrs TxDrop
bond0 9 83830... (3 Replies)
Hi, I have a file with +/- 13000 lines and 4 column. I need to search the 3rd column for a word that begins with "SAP-" and move/skip it to the next column (4th). Because the 3rd column need to stay empty.
Thanks in advance.:)
89653 36891 OTR-60 SAP-2
89653 36892 OTR-10 SAP-2... (2 Replies)
how to search and replace string in column in file with command sed or other
search "INC0000003.in" and replace column 4 = "W"
$ cat file.txt
INC0000001.in|20150120|Y|N|N
INC0000002.in|20150120|Y|N|N
INC0000003.in|20150120|Y|N|N
INC0000004.in|20150120|Y|N|Noutput... (4 Replies)
input
"A","B","C,D","E","F"
"S","T","U,V","W","X"
"AA","BB","CC,DD","EEEE","FFF"
required output:
"A","B","C,D","C,D","F"
"S", T","U,V","U,V","X"
"AA","BB","CC,DD","CC,DD","FFF"
tried using awk but double quotes not preserving for every field. any help to solve this is much... (5 Replies)
Hi All ,
I am having an input file as stated below
Input file
6 ddk/djhdj/djhdj/Q 10 0.5
dhd/jdjd.djd.nd/QB 01 0.5
hdhd/jd/jd/jdj/Q 10 0.5
512 hd/hdh/gdh/Q 01 0.5
jdjd/jd/ud/j/QB 10 0.5
HD/jsj/djd/Q 01 0.5
71 hdh/jjd/dj/jd/Q 10 0.5
... (5 Replies)
Discussion started by: kshitij
5 Replies
LEARN ABOUT DEBIAN
pod::index::search
Pod::Index::Search(3pm) User Contributed Perl Documentation Pod::Index::Search(3pm)NAME
Pod::Index::Search - Search for keywords in an indexed pod
SYNOPSIS
use Pod::Index::Search;
my $q = Pod::Index::Search->new;
my @results = $q->search('getprotobyname');
for my $r (@results) {
printf "%s %s
", $r->podname, $r->line;
print $r->pod;
}
my @subtopics = $q->subtopics('operator');
DESCRIPTION
This module searches an index created by Pod::Index::Builder. Search results are returned as Pod::Index::Entry objects.
It is also possible to search for subtopics for a keyword. For example, a search for "operator" might return things like
operator, conditional
operator, filetest
operator, logical
operator, precedence
operator, relational
The subtopics returned are simple strings.
METHODS
new
my $q = Pod::Index::Search->new(%args);
Create a new search object. Possible arguments are:
"fh"
The filehandle of the index to use. If omitted, "perlindex::DATA" is used.
"filename"
The filename of the index to use. Note that you can specify either "fh" or filename, but not both.
"filemap"
A subroutine reference that takes a podname and returns a filename. A simple example might be:
sub {
my $podname = shift;
return "/usr/lib/perl5/5.8.7/pod/$podname.pod";
}
The podname is in colon-delimited Perl package syntax.
The default "filemap" returns the first file in @INC that seems to have the proper documentation (either a .pod or .pm file).
"nocase"
If true, the search will be case-insensitive.
search($keyword)
Do the actual search in the index. Returns a list of search results, as Pod::Index::Entry objects.
subtopics($keyword, %options)
my @topics = $q->subtopics('operator');
my @topics = $q->subtopics('operator', deep => 1);
Lists the subtopics for a given keyword. If "deep" is given, it includes all subtopics; otherwise, only the first level of subtopics is
included.
VERSION
0.14
SEE ALSO
Pod::Index::Entry, Pod::Index::Builder
AUTHOR
Ivan Tubert-Brohman <itub@cpan.org>
COPYRIGHT
Copyright (c) 2005 Ivan Tubert-Brohman. All rights reserved. This program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
perl v5.10.0 2005-10-16 Pod::Index::Search(3pm)