Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl - CAPTURE query
Top Forums Shell Programming and Scripting Perl - CAPTURE query Post 302418829 by durden_tyler on Wednesday 5th of May 2010 12:44:09 PM
Old 05-05-2010
Firstly, this -
Quote:
Originally Posted by gefa
...
cat file.tmp | perl -pe 's/(([^,]*,){18}\w+)/$1,/'
...
is eligible for Useless Use of Cat Award

And secondly -

Quote:
...
the file will be something like as the text will be surrounded by quotes;

1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,"1-this is a test",20
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,"2-this is a test",21
...

when I run

cat file.tmp | perl -pe 's/(([^,]*,){18}\w+)/$1,/'

it doesn't like the double quotes, I would want it to produce

something like

1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,"1-","this is a test",20
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,"2"-"this is a test",21
...
It doesn't like the fact that the double quotes aren't mentioned in your regex.

Code:
$
$
$ cat f0
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,"1-this is a test",20
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,"2-this is a test",21
$
$ perl -pe 's/(([^,]*,){18}"\d+-)/$1","/' f0
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,"1-","this is a test",20
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,"2-","this is a test",21
$
$

Quote:
...
How do I call this from within a script so that it writes into a secondary file

e.g.,

my $tmpfile2=/tmp/tmpfile2.tmp;
cat /tmp/file.tmp | perl -pe 's/(([^,]*,){18}\w+)/$1,/' >> $tmpfile2
If, by "a script", you mean "a shell script" then you can simply put whatever you executed on the dollar-prompt inside your shell script.

If it runs on the *nix command line successfully, it should run when put inside a shell script as well.

HTH,
tyler_durden
Last edited by durden_tyler; 05-05-2010 at 01:53 PM..
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

lazy capture don't work (regexp in perl)

hello all im trying to capture only the first brackets but no matter what i do i keep capturing from the first brackets to the last one , here what i have : <% if (!Env.strLen(oidInvoice)); szDocumentTitle = Env.formatS("S",Env.getMsg("BP_INVOICE_ENUMERATION_CREATE_TITLE")) %> and... (1 Reply)
Discussion started by: umen
1 Replies

2. Shell Programming and Scripting

perl query

a file test.dat has the following David Veterinarian John Orthopedist Jeff Dentist perl -p -e "s/\s*(\w+).*/$1/;" test.dat ......will print David Jonh Jeff how does the part in double quotes work out.... (1 Reply)
Discussion started by: bishweshwar
1 Replies

3. UNIX for Dummies Questions & Answers

Query in perl

can any1 give me line by line explanation for the following perl script as i dunno perl .. n i have searched in google .. but still thn i wanna confirm my findings fro perl experts :mad: perl -e 'while (<>) { print; $num = 2 if /fail_halt/i; $num = 1 if (/failure/i && ($num < 1)); }... (2 Replies)
Discussion started by: Dana Evans
2 Replies

4. UNIX and Linux Applications

Perl - PostGreSql query

Guys, I guess, I posted something in the wrong forum. Here it is - https://www.unix.com/shell-programming-scripting/67395-perl-postgrepsql-question.html Can you please help me with this? Regards, garric (0 Replies)
Discussion started by: garric
0 Replies

5. Shell Programming and Scripting

Perl Query Regarding format

Hello people. I have got the following script QM=ARGV; open (CHS_OUT, "echo 'DISPLAY QSTATUS(SYSTEM.CLUSTER.MY.QUEUE) all'|runmqsc $qm|"); while (<CHS_OUT>) { if ( /QUEUE\(/ ) { $QueueName = ValueParser("QUEUE", 6); } if ( /IPPROCS\(/ ) { $InpProcs = ValueParser("IPPROCS", 8); #print... (3 Replies)
Discussion started by: King Nothing
3 Replies

6. Shell Programming and Scripting

[Perl] Capture system call error message.

Hi, I googled a bit, but could not find the answer to my problem. But I am sure it is a common issue. I have this code: #!/bin/perl -w #-d use strict; sub remsh_test() { my $host = $_; printf "\n----\n\n"; printf "remsh to $host with system call\n"; my $result = system... (3 Replies)
Discussion started by: ejdv
3 Replies

7. Shell Programming and Scripting

Script to capture date/time in seconds in PERL... Cant understand errors

I'm Using this script to find the time of a file. I'm very much new to PERL and found this script posted by some one on this forum. It runs perfectly fine, just that it gives me following errors with the accurate output as well. I jus want the output to be stored in another file so that i can... (0 Replies)
Discussion started by: bankimmehta
0 Replies

8. Shell Programming and Scripting

Capture query returned values in file.

Hi All, I am connecting to Oracle DB from UNIX script. Want to capture all dates between start date and end date and store them in file. Once this is done, want to read dates one by one. How to achive this in UNIX and Oracle? Please let me know if you have any idea on the same. Thanks and... (4 Replies)
Discussion started by: Nagaraja Akkiva
4 Replies

9. Programming

Perl Query

Hi , Im using the below script to find the Good and Bad for the file permission. $rc=`find /etc/security/opasswd -perm 0600 -print -ls`; if($rc == 1) { print "GOOD: AD.1.8.4.1: The file /etc/security/opasswd exists and had permission 0600\n\n"; ... (6 Replies)
Discussion started by: gsiva
6 Replies

10. Shell Programming and Scripting

Capture output of open pipe to a file in perl

Hi, I am trying to capture the output of the an open pipe in perl. but I am not sure how to do this. can some one please help me do that? Below is the script I am using (2 Replies)
Discussion started by: ahmedwaseem2000
2 Replies

LEARN ABOUT DEBIAN

dbs-edit-patch

DBS-EDIT-PATCH(1)						Debian Build System						 DBS-EDIT-PATCH(1)

NAME

       dbs-edit-patch - Edit a DBS patch

SYNOPSIS

       dbs-edit-patch [options] patch
       dbs-edit-patch -h|--help

DESCRIPTION

       dbs-edit-patch is script to generate or modify patches for Debian source-packages in DBS format.

WARNING

       dbs  is	deprecated,  please  switch  to  the  `3.0 (quilt)' Debian source package format instead. See http://wiki.debian.org/Projects/Deb-
       Src3.0#FAQ for a short guide how to do it.

OPTIONS

       -h, --help
	      Show summary of options.

       -t dir, --tmpdir=dir
	      Directory for the temporary files, default is /tmp or if set $TMP.

       -s dir, --sourcedir=dir
	      Top level directory of the debian-package source-tree, default is the present working directory.

       -P dir, --sourcepatchdir=dir
	      Directory containing upstream patches.

       -T dir, --sourcetardir=dir
	      Directory containing the upstream tarball.

       -p level, --strip=level
	      Striplevel -p of patch (Option -p of diff(1)), accepted values are 0 and 1, default is 0.

ENVIRONMENT VARIABLES

       TMP    Sets the directory for the temporary files, can be overridden with -t dir.

debian/vars
       dbs-edit-patch will automatically use variables defined in the optional debian/vars file.

       When a file debian/vars.in exists and debian/vars either does not exist or is older  than  any  of  the	following  files:  debian/vars.in,
       debian/changelog, debian/rules or debian/control, then dbs-edit-patch will try updating the vars file by running the following command
	   make -f debian/rules -W debian/vars.in debian/vars

EXAMPLES

       Edit the 021_debian patch of Heimdal:

	   ~/heimdal-0.3d> dbs-edit-patch -t/tmp 021_debian
	   Extracting source heimdal-0.3d.tar.gz ... successful.
	   Applying patch 001_replay ... successful.
	   etc.
	   Copying heimdal-0.3d to heimdal-0.3d-old ... successful.
	   Applying patch 021_debian ... successful.

       Edit  files under /tmp/021_debian/heimdal-0.3d as required, then put a short description into /tmp/021_debian/patch-description if desired,
       and finally execute /tmp/021_debian/dbs-update-patch to save the results.

       Technical  note:  dbs-edit-patch  extracts  all	patches  before  021_debian  into  /tmp/021_debian/heimdal-0.3d,  copies  the  result	to
       /tmp/021_debian/heimdal-0.3d-old,  and  applies the last patch 021_debian (if it exists). Also, it creates a shell script which will create
       the diff between the old and new directories:

	   ~/heimdal-0.3d> ls -la /tmp/021_debian
	   total 12
	   -rwxr-xr-x	 1 bam	    users	  112 Jan 31 13:31 dbs-update-patch*
	   -rw-r--r--	 1 bam	    users	    0 Jan 31 13:31 patch-description
	   drwxr-xr-x	14 bam	    users	 4096 Jan 31 13:31 heimdal-0.3d/
	   drwxr-xr-x	14 bam	    users	 4096 Jan 31 13:31 heimdal-0.3d-old/
	   drwxr-xr-x	 5 bam	    users	 4096 Jan 31 13:31 .stampdir/

	   ~/heimdal-0.3d> cat /tmp/021_debian/dbs-update-patch
	   #!/bin/sh -e
	   cd "/tmp/021_debian"
	   HOOK_DIR="/usr/src/heimdal/debian/dbs-hooks"
	   test -d "$HOOK_DIR" && run-parts "$HOOK_DIR" --arg update-patch-prediff
	   find -name "*.bak" -print0 | xargs -0 --no-run-if-empty rm
	   find -name "*~" -print0 | xargs -0 --no-run-if-empty rm
	   : > new_patch
	   test ! -e patch-description || cp patch-description new_patch
	   diff -ruN heimdal-0.3d-old heimdal-0.3d >> new_patch || test $? -eq 1
	   mv new_patch  /usr/src/heimdal/debian/patches/021_debian
	   test -d "$HOOK_DIR" && run-parts "$HOOK_DIR" --arg update-patch-postdiff

SEE ALSO

       diff(1), dbs(7), /usr/share/doc/dbs/

AUTHOR

       DBS was written by Adam Heath, modified by Ben Collins, modified and packaged for Debian by  Brian  May.  This  manpage	was  generated	by
       Andreas Metzler and modified by Robert Luberda.

Debian								February 15th, 2011						 DBS-EDIT-PATCH(1)
All times are GMT -4. The time now is 08:23 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy