Re: multiple file operations using perl one-liners

in reply to multiple file operations using perl one-liners

Am I missing something or is this far too complicated?

Why are you sorting your files when you want to process all of them anyway?

And I can't see a real reason for your "xcol" or an intermediate file, you can do all of it one go like this (-n does the looping here):

du -b */*/old.zip | perl -ne 'chomp; my $f = (split /t/)[1]; system qq
+{zip -d $f "*exe*"}'
[download]

Comment on Re: multiple file operations using perl one-liners Download Code
Re^2: multiple file operations using perl one-liners by ikegami (Pope) on May 17, 2009 at 19:47 UTC
`-n` + `chomp` can be replaced with `-nl`. That should be `/\t/`, I think? `-a` would be better than `split` `du -b //old.zip \| perl -F\\t -lane'system zip => "-d", $F[1], "exe +"'` [download] Or shorter and simpler yet: `du -b //old.zip \| perl -ne'system zip => "-d", /\t(.)/, "exe*"'` [download] My earlier comment on error checking still applies.	[reply] [d/l] [select]
Re^3: multiple file operations using perl one-liners by sflitman (Hermit) on May 17, 2009 at 22:03 UTC
That last one totally rocks, Ikegami! I always learn something when I post here. SSF	[reply]
Re^3: multiple file operations using perl one-liners by morgon (Chaplain) on May 17, 2009 at 22:36 UTC
-n + chomp can be replaced with -nl Thanks - quite useful to know. Gotta re-read the perlrun-manpage.	[reply]
Re^3: multiple file operations using perl one-liners by jwkrahn (Prior) on May 18, 2009 at 01:51 UTC
Or: perl -e'system zip => -d => /\t(.)/, "exe" for `du -b /*/old.zip`' [download]	[reply] [d/l]
Re^4: multiple file operations using perl one-liners by ikegami (Pope) on May 18, 2009 at 03:20 UTC
Is there any advantage to this variant? It's longer and buggy (missing chomp). It's also less clear due the weird use of `=>` to separate two of three arguments, especially when it's also used to associate the arguments to the command. Either way, I just realised `du` is useless. `perl -e'system zip => "-d", $_, "exe" for @ARGV' //old.zip` [download]	[reply] [d/l] [select]
Re^5: multiple file operations using perl one-liners by jwkrahn (Prior) on May 18, 2009 at 06:00 UTC
Re^6: multiple file operations using perl one-liners by ikegami (Pope) on May 18, 2009 at 07:10 UTC


XP is just a number
	PerlMonks

Re: multiple file operations using perl one-liners

The best material for plates (tableware) is: