Please suggest a script or solution? Post: 28516

Sponsored Content

Top Forums Shell Programming and Scripting Please suggest a script or solution? Post 28516 by Optimus_P on Thursday 19th of September 2002 12:44:53 PM

09-19-2002

Registered User

Code:

#!/usr/bin/perl -w

while (<>) {
        chomp;

        if ($_ =~ /(r[acdefghiklmnpqrstvyz]r.{2}[st])/ ) {      # see if the current line matches what we are looking for.
                $found = index($_,$1);  # if we find a match find out how many positions over in the line the match is
                write (STDOUT);         # print out the report.
        }
}



format STDOUT =
@<<<<< @<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$.,($found+6),(s/(r[acdefghiklmnpqrstvyz]r.{2}[st])/\U$1/g)
              ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$_
              ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$_
+-----------------------------+
.

format STDOUT_TOP =
+=================================+
|COOL STUFF BY OPTIMUSP at UNIXCOM|
+=================================+
Line Position Text
==== ======== ====
.

Code:

MY TEST DATA
mwaaagglwrsraragtlralfrsrdaalfpgcerglhcstrarjxsatacsavswlkkfaslgshstykpskleflmrstskktrkedharlralngll
ykaltdllctpevsqelydlnvelskvsltpdfsacraywkttlsaeqnahmeavlqrsaahmslisywqsqtldpgmkettlykmisgtlmphnpaapq
srpqapvcvgsimrrstsrlwstkggkikgsgawcgrgrwls

so far this is the base code. the only thing left is something to iterate thru the line to see if there is more then 1 match. but then again. if you have at least 1 match you can study that line a bit more. for a final inspection.

Last edited by Optimus_P; 09-19-2002 at 04:46 PM..

Optimus_P

View Public Profile for Optimus_P

Find all posts by Optimus_P

5 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

How to get the script corrected to get the solution

Can anyone help it out, My Requirement: Actually i grep for the items in the atrblist (Result of it will provide the line where the item present and also the next line of where it presents)then it will be stored in $i.txt From tat result i wil grep 2nd word after getdate() word and store...

2. Shell Programming and Scripting

Perl script solution

Hi I need to do this thing in awk (or perl?). I try to find out how can I identify 1st and 2nd result from the OR expression in gensub: block='title Sata Mandriva kernel /boot/vmlinuz initrd /boot/initrd.img' echo "$block" | awk '{ x=gensub(/(kernel|initrd) /,"\\1XXX","g"); print x }' ...

3. UNIX for Advanced & Expert Users

Solution required for awk script

Hi Jim, The following script is in working state. But i m having one more problem with awk cmd. Could you tell me how to use any variable inside awk or how to take any variable value outside awk. My problem is i want to maintain one property file in which i am declaring variable value into that...

4. Shell Programming and Scripting

Please suggest the Sites for perl script beginners for better understanding

I am begginer to perl scripting, i like to learn all the functionality of the perl scrpting , Could you please help me on this :confused::confused:

5. Shell Programming and Scripting

Script solution as singleline ?

Hello My script has following line and output find path -type d | awk -F "/" 'NF == 4{print $3}' path/custype=Type1/logdate=20160414 path/custype=Type11122/logdate=20160414 But I need following output that I need custtype information between "" like...

LEARN ABOUT DEBIAN

mu-cfind

MU-CFIND(1)						      General Commands Manual						       MU-CFIND(1)

NAME

       mu_cfind - find contacts in the mu database and export them for use in other programs.

SYNOPSIS

       mu cfind [options] [<pattern>]

DESCRIPTION

       mu  cfind  is the mu command for finding contacts (name and e-mail address of people who were either sender or receiver of mail). There are
       different output formats available, for importing the contacts into other programs.

SEARCHING CONTACTS

       When you index your messages (see mu index), mu creates a list of unique e-mail addresses found and the accompanying name. In case the same
       e-mail address is used with different names, the most recent non-empty name is used.

       mu cfind starts a search for contacts that match a regular expression. For example:

	  $ mu cfind '@gmail.com'

       would find all contacts with a gmail-address, while

	  $ mu cfind Mary

       would find all contact with Mary in either name or e-mail address.

       If you do not specify any search expression, mu cfind will return the full list of contacts.

       The regular expressions are Perl-compatible (as per the PCRE-library).

OPTIONS

       --format=plain|mutt-alias|mutt-ab|wl|org-contact|bbdb|csv
	      sets the output format to the given value. The following are available:

	      | --format=   | description			|
	      |-------------+-----------------------------------|
	      | plain	    | default, simple list		|
	      | mutt-alias  | mutt alias-format 		|
	      | mutt-ab     | mutt external address book format |
	      | wl	    | wanderlust addressbook format	|
	      | org-contact | org-mode org-contact format	|
	      | bbdb	    | BBDB format			|
	      | csv	    | comma-separated values		|

RETURN VALUE

       mu  cfind  returns 0 upon successful completion -- that is, at least one contact was found. Anything else leads to a non-zero return value,
       for example:

       | code | meaning 		       |
       |------+--------------------------------|
       |    0 | ok			       |
       |    1 | general error		       |
       |    2 | no matches (for 'mu cfind')    |

INTEGRATION WITH MUTT

       You can use mu cfind as an external address book server for mutt. For this to work, add the following to your muttrc:

	  set query_command = "mu cfind --format=mutt-ab '%s'"

       Now, in mutt, you can easily search for e-mail address using the query-command, which is (by default) accessible by pressing Q.

ENCODING

       mu cfind output is encoded according to the current locale except for --format=bbdb. This is hard-coded to UTF-8, and as such specified	in
       the output-file, so emacs/bbdb can handle it correctly without guessing.

BUGS

       Please report bugs if you find them at http://code.google.com/p/mu0/issues/list.

AUTHOR

       Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>

SEE ALSO

       mu(1) mu-index(1) mu-find(1) pcrepattern(3)

User Manuals							     May 2011							       MU-CFIND(1)