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?).

Answer 1

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)'