How to substitute? Post: 302267718

Sponsored Content

Top Forums Shell Programming and Scripting How to substitute? Post 302267718 by drl on Saturday 13th of December 2008 03:03:39 PM

12-13-2008

Registered User

Hi.

Here is a start that shows ParseWords:

Code:

#!/usr/bin/perl

# @(#) p1       Demonstrate parsing with quotes, operators AND, OR.
# http://search.cpan.org/~chorny/Text-ParseWords-3.27/ParseWords.pm

use warnings;
use strict;
use Text::ParseWords;

my ($debug);
$debug = 0;
$debug = 1;

my ( $i, $last, $line, @tokens );

while (<>) {
  chomp;
  @tokens = quotewords( '\s+', 0, $_ );
  print " input is :@tokens:\n" if $debug;
  $last = undef;
  foreach $i (@tokens) {
    if ( not defined($last) ) {
      $last = $i;
      print qin($i) . " ";
    }
    elsif ( $i eq "OR" or $i eq "AND" ) {
      $last = $i;
      print qin($i) . " ";
    }
    else {
      if ( $last ne "OR" and $last ne "AND" ) {
        print "AND " . qin($i) . " ";
      }
      else {
        print qin("$i") . " ";
      }
      $last = $i;
    }
  }
  print "\n";
}

print STDERR " ( Lines read: $. )\n" if $debug;

# qin - quote if necessary.

sub qin {
  my ($phrase) = $_[0];
  if ( $phrase =~ / / ) {
    return '"' . $phrase . '"';
  }
  else {
    return $phrase;
  }
}

exit(0);

Producing (on your data in file data1):

Code:

% ./p1 data1
 input is :apple bannana:
apple AND bannana
 input is :apple bannana AND chickko:
apple AND bannana AND chickko
 input is :milk shake OR Graphes orange:
"milk shake" OR Graphes AND orange
 ( Lines read: 3 )

See perldoc Text::ParseWords on your system or obtain from cpan as noted. It takes care of the quoted strings, placing all the tokens in a list.

If the output is not what you desire, feel free to modify or adapt the code as necessary ... cheers, drl

drl

View Public Profile for drl

Find all posts by drl

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Substitute in vi

I know in vi you can do :%s/replaceme/withthis/ but if i want to find all lines say without a # at the begining and I want to put it in how would that command be formatted? I can't figure it out for the life of me. #comment blah1 hey1 grrr1 #comment #blah1 #hey1 #grrr1

2. UNIX for Dummies Questions & Answers

Substitute Variable

Can anyone tell me what is the purpose of a substitute variable in the unix programming language and give an example where it may be used? Thanks!

3. UNIX for Dummies Questions & Answers

rm substitute with blacklist

hi! first i want to apologize for two things. my English and (possible) posting in the wrong sub forum (i couldn't find one that fits my question) I am needing a script that can substitute rm. the idea is that the operator can/must delete some folders and files from time to time, when the free...

4. Shell Programming and Scripting

In Help, Substitute Text ...

i'm writing a script that will extract and substitute a certain part of a data. i'm having trouble with the substituting part ... Here's my data looks like: 01/01/08-001-23:46:18-01/01/08-23:50:43 01/01/08-003-23:45:19-01/01/08-23:55:49 01/01/08-005-23:52:18-01/01/08-23:58:52 i want to...

5. UNIX for Dummies Questions & Answers

substitute file name

correct file names are: *_0.txt *_1.txt incorrect file names are: *_12.txt *_0123.txt *_04321.txt all files that are incorrect need to replace the ending with *_1.txt therefore need to create a loop to find the wrong files in a dir ->that dont end in _1.txt or _0.txt and then...

6. Shell Programming and Scripting

vi substitute

My question is how would I substitute for ceratain number of occurences in a line? If this is my input rjohns BFSTDBS01 Standard Silver NPRO30DINCR 2 Client Is it possible to change the first 3 occurences of space " " to a comma?

7. UNIX for Dummies Questions & Answers

substitute (')

I usually use : Code: awk '{gsub(/xxx/,"yyy");print}' to substitute xxx with yyy. I have a problem substitute an expression like Code: x ' y Because of the ( ' ) Any idea on how to get over this problem? Thanks

8. UNIX for Dummies Questions & Answers

Substitute in VI

Hi there, i am updating a file on UNIX and have many lines as per below : listen:x:37:4:Network Admin:/usr/net/nls: i would like to substitute from the :/usr to the end of the line. so at the moment im using this : :s/"\/$/ /g but i get an error.can anyone help? thank you

9. Shell Programming and Scripting

Grep and substitute?

I have to parse ASCII files, output the relevant data to a comma-delimited file and load it into a database table. The specs for the file format have been recently updated and one section is causing problems. This is the original layout for that section. ...

10. How to Post in the The UNIX and Linux Forums

Prstat substitute

Hello All, I have a shell script where with the lines below: echo "${v_sd_dateTime},${RUN_QUEUE_SIZE},${LOAD_AVERAGE},${v_sd_load_list},${v_sd_thread_count_list}" >> ${v_sd_file} Format of the output : 01/05/2005 08:00:00, RUN_QUEUE_SIZE, LOAD_AVG, CPU_PROD1, CPU_PROD2, THREADS_PROD1,...

LEARN ABOUT MOJAVE

file::dosglob

File::DosGlob(3pm)					 Perl Programmers Reference Guide					File::DosGlob(3pm)

NAME

       File::DosGlob - DOS like globbing and then some

SYNOPSIS

	   require 5.004;

	   # override CORE::glob in current package
	   use File::DosGlob 'glob';

	   # override CORE::glob in ALL packages (use with extreme caution!)
	   use File::DosGlob 'GLOBAL_glob';

	   @perlfiles = glob  "..\pe?l/*.p?";
	   print <..\pe?l/*.p?>;

	   # from the command line (overrides only in main::)
	   > perl -MFile::DosGlob=glob -e "print <../pe*/*p?>"

DESCRIPTION

       A module that implements DOS-like globbing with a few enhancements.  It is largely compatible with perlglob.exe (the M$ setargv.obj
       version) in all but one respect--it understands wildcards in directory components.

       For example, "<..\l*b\file/*glob.p?>" will work as expected (in that it will find something like '..libFile/DosGlob.pm' alright).  Note
       that all path components are case-insensitive, and that backslashes and forward slashes are both accepted, and preserved.  You may have to
       double the backslashes if you are putting them in literally, due to double-quotish parsing of the pattern by perl.

       Spaces in the argument delimit distinct patterns, so "glob('*.exe *.dll')" globs all filenames that end in ".exe" or ".dll".  If you want
       to put in literal spaces in the glob pattern, you can escape them with either double quotes, or backslashes.  e.g. "glob('c:/"Program
       Files"/*/*.dll')", or "glob('c:/Program Files/*/*.dll')".  The argument is tokenized using "Text::ParseWords::parse_line()", so see
       Text::ParseWords for details of the quoting rules used.

       Extending it to csh patterns is left as an exercise to the reader.

EXPORTS (by request only)
       glob()

BUGS

       Should probably be built into the core, and needs to stop pandering to DOS habits.  Needs a dose of optimizium too.

AUTHOR

       Gurusamy Sarathy <gsar@activestate.com>

HISTORY

       o   Support for globally overriding glob() (GSAR 3-JUN-98)

       o   Scalar context, independent iterator context fixes (GSAR 15-SEP-97)

       o   A few dir-vs-file optimizations result in glob importation being 10 times faster than using perlglob.exe, and using perlglob.bat is
	   only twice as slow as perlglob.exe (GSAR 28-MAY-97)

       o   Several cleanups prompted by lack of compatible perlglob.exe under Borland (GSAR 27-MAY-97)

       o   Initial version (GSAR 20-FEB-97)

SEE ALSO

       perl

       perlglob.bat

       Text::ParseWords

perl v5.18.2							    2014-01-06							File::DosGlob(3pm)

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Substitute in vi

Discussion started by: kingdbag

2. UNIX for Dummies Questions & Answers

Substitute Variable

Discussion started by: mmg2711

3. UNIX for Dummies Questions & Answers

rm substitute with blacklist

Discussion started by: broli

4. Shell Programming and Scripting

In Help, Substitute Text ...

Discussion started by: solidhelix08