how to write a perl one liner?

perl_mystery has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: how to write a perl one liner? by JavaFan (Canon) on Mar 08, 2011 at 10:34 UTC
Having never used perforce before, 10 seconds of googling gives me: `p4 -x deletefiles.txt delete`.	[reply] [d/l]
Re: how to write a perl one liner? by ikegami (Patriarch) on Mar 08, 2011 at 08:20 UTC
How about a bash one liner? for f in `cat deletefiles.txt` ; do p4 delete "$f" ; done [download] Or if p4 can take multiple args file names, p4 delete `cat deletefiles.txt` [download] Note: Both assume the file names have no shell characters in them (e.g. spaces, ""). I'm sure that restriction can be eliminated pretty simply, though. Anyone care to enlighten? Update*: And the answer is: `xargs -d \n p4 delete < deletefiles.txt` [download] I think it needs a `-n 1` in there if `p4 delete` can only take one file name at a time. See xargs.	[reply] [d/l] [select]
Re^2: how to write a perl one liner? by ambrus (Abbot) on Mar 08, 2011 at 14:02 UTC
Don't forget `while read f; do p4 delete "$f"; done < deletefiles.txt` [download]	[reply] [d/l]
Re^3: how to write a perl one liner? by ikegami (Patriarch) on Mar 08, 2011 at 17:45 UTC
I looked at it, but abandoned it when I remembered xargs. It has the same problem as my earlier solutions unless you unset env var IFS. (I think prefixing the whole thing with "IFS=" will do the trick.) Additionally, I think `xargs` will report non-zero exit codes, whereas the bash loop solutions don't without more code.	[reply] [d/l]
Re^4: how to write a perl one liner? by ambrus (Abbot) on Mar 08, 2011 at 19:05 UTC
Re^5: how to write a perl one liner? by ikegami (Patriarch) on Mar 08, 2011 at 20:17 UTC
Re^2: how to write a perl one liner? by perl_mystery (Beadle) on Mar 08, 2011 at 08:43 UTC
Seems like there is no -d option.I get the following output `OUTPUT:- Z:>xargs -d \n p4 delete < deletefiles.txt xargs: illegal option -- d Usage: xargs [-0prtx] [-e[eof-str]] [-i[replace-str]] [-l[max-lines]] [-n max-args] [-s max-chars] [-P max-procs] [--null] [--eof[=eo +f-str]] [--replace[=replace-str]] [--max-lines[=max-lines]] [--interact +ive] [--max-chars=max-chars] [--verbose] [--exit] [--max-procs=max-p +rocs] [--max-args=max-args] [--no-run-if-empty] [command [initial-arg +uments]]` [download]	[reply] [d/l]
Re^3: how to write a perl one liner? by ikegami (Patriarch) on Mar 08, 2011 at 08:48 UTC
No, seems like there's no -d option in yours. Also, that doesn't look like a bash prompt. If you're going to switch shell, you'll also have to convert the command for the new shell. Does your shell convert «`\n`» to a newline? Although I think `-d` would also accept the two character string as equivalent.	[reply] [d/l] [select]
Re: how to write a perl one liner? by ikegami (Patriarch) on Mar 08, 2011 at 08:42 UTC
The simplest Perl solution I can think of is `perl -MIPC::System::Simple=system -nle'system p4 => delete => $_' dele +tefiles.txt` [download] IPC::System::Simple does error checking for you. Update: Shorter, but the error messages are a little weird: `perl -Mautodie=system -nle'system p4 => delete => $_' deletefiles.txt` [download]	[reply] [d/l] [select]
Re: how to write a perl one liner? by planetscape (Chancellor) on Mar 09, 2011 at 00:54 UTC
See also: Special Variables, Command-Line Options, and One-Liners HTH, planetscape	[reply]
Re: how to write a perl one liner? by happy.barney (Friar) on Mar 08, 2011 at 08:15 UTC
`local @ARGV = ('deletefiles.txt'); unlink or warn "$_: $!\n" for <>;` [download]	[reply] [d/l]
Re^2: how to write a perl one liner? by perl_mystery (Beadle) on Mar 08, 2011 at 08:32 UTC
Where are we running "p4 delete" in the above code	[reply]
Re^3: how to write a perl one liner? by happy.barney (Friar) on Mar 08, 2011 at 08:43 UTC
so replace unlink with your code :-) or better, follow ikegami's advice	[reply]
Re^3: how to write a perl one liner? by Anonymous Monk on Mar 08, 2011 at 08:56 UTC
in the ,	[reply]