http://qs321.pair.com?node_id=963139


in reply to Re^5: s// All Files In Directory
in thread s// All Files In Directory

This doesn't seem to be working...

Can't open *: Invalid argument.

--perl.j

Replies are listed 'Best First'.
Re^7: s// All Files In Directory
by vagabonding electron (Curate) on Apr 03, 2012 at 09:53 UTC
    To tame the cmd you could use the brilliant idea which I read by BrowserUK (cannot find the link just now) - the following one-liner works on my windows pc: 
    perl -pi.bak -e "BEGIN{@ARGV=map{glob}@ARGV;}s/5/6/g;" *

    [download]
[reply]
[d/l]
Re^7: s// All Files In Directory
by aaron_baugher (Curate) on Apr 03, 2012 at 11:41 UTC

    A wild guess: On Windows, you used to have to use *.* to match all files, while a single * would only match files with no extension. Is that still the case?

    Aaron B.
    My Woefully Neglected Blog, where I occasionally mention Perl.

[reply]
      Yes. Update:No. "*" matches all files and "*.*" the files with extension as shown below.

      With the files Text1.txt, Text2 and Test in the ordner C:/TEMP/TEMP/TEMP: 

      C:\Perl\bin>perl -le "BEGIN{@ARGV=map{glob}@ARGV;}print for @ARGV" C:/
+TEMP/TEMP/TEMP/*.*

C:/TEMP/TEMP/TEMP/Text1.txt
C:/TEMP/TEMP/TEMP/Text2.txt

C:\Perl\bin>perl -le "BEGIN{@ARGV=map{glob}@ARGV;}print for @ARGV" C:/
+TEMP/TEMP/TEMP/*

C:/TEMP/TEMP/TEMP/Test
C:/TEMP/TEMP/TEMP/Text1.txt
C:/TEMP/TEMP/TEMP/Text2.txt

      [download]
      The problem is - imho - the different behavior of globbing in the unix shell and under windows. With BEGIN{@ARGV=map{glob}@ARGV;} it can be treated.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom