Using perl instead of grep

Question

At work we use this construction to, for example, find out the names of all files, changed in SVN since last update and perform an svn add command on them:

svn st | grep '^\?' | perl -pe 's/^\s*\?// | xargs -L 1 svn add'

And i thought: "i wish i could use Perl one-line-script instead of grep".

Is it possible to do and how if so?

P.S.: i found there is a m// operator in Perl. I think it should be used on ARGV variables (do not know their names in Perl - may it be the $_ array or just $1 -like variables?).

What's wrong with grep? You could use grep -P if you need PCRE... — kennytm
– kennytm, Commented Dec 28, 2011 at 14:41

Sean · Accepted Answer · 2011-12-28 15:58:01Z

4

Easy:

svn st | perl -lne 'print if s/^\s*\?//' | xargs -L 1 svn add

Or to do everything in Perl:

perl -e '(chomp, s/^\s*\?//) && system "svn", "add", $_ for qx(svn st)'

edited Dec 28, 2011 at 15:58

answered Dec 28, 2011 at 14:58

Sean

30k5 gold badges85 silver badges111 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Sean Over a year ago

expr for list means "assign the special global variable $_ in turn to each element of list, evaluating expr each time." See perldoc perlvar for more information on $_ and every other special Perl variable.

TLP · Accepted Answer · 2011-12-28 15:03:36Z

2

It's possible to use a perl one-liner, but it will still rely on shell commands, unless you can find a module to handle the svn calls. Not sure it will actually increase readability of performance, though.

perl -we 'for (qx(svn st)) { if (s/^\s*\?//) { system "svn", "add", $_ } }'

In a script version:

use strict;
use warnings;

for (qx(svn st)) {
    if (s/^\s*\?//) {
        system "svn", "add", $_;
    }
}

answered Dec 28, 2011 at 15:03

TLP

68.3k10 gold badges97 silver badges156 bronze badges

Comments

zakkak · Accepted Answer · 2011-12-28 15:00:21Z

1

I think this is what you want

svn st | perl -ne 's/^\s*\?// && print' | xargs -L 1 svn add

Hope it helps ;)

answered Dec 28, 2011 at 15:00

zakkak

2,0901 gold badge20 silver badges27 bronze badges

Collectives™ on Stack Overflow

Using perl instead of grep

3 Answers 3

1 Comment

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

1 Comment

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related