One liner with globs on Windows to parse .srt files

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

Yesterday I needed a Perl one-liner ( -e ) to loop over ( -n ) several subtitle files glob*.srt to find those which are in sync with the video I had.

Hence I needed paragraph mode ( -00 ) to see the timestamps

=== FILENAME.srt ===
672
00:35:09,358 --> 00:35:11,027
Ditto ...
[download]

trouble is cmd.exe doesn't do *glob expansion, and my git-bash didn't like the paragraph mode, most probably because of different understandings of line endings

I ended up with something like this

perl -00nE"BEGIN{@ARGV=<@ARGV>}say qq{=== $ARGV ===\n$_} if /ditto/i" *Filenames*

but the BEGIN block is a bit ugly.

Any more elegant way to do this?

One generic workaround could be a special module wglob to do the BEGIN part with perl -Mwglob but I'd like to ask the community first...

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

Comment on One liner with globs on Windows to parse .srt files Select or Download Code

Replies are listed 'Best First'.
Re: One liner with globs on Windows to parse .srt files by haukex (Archbishop) on May 14, 2021 at 11:11 UTC
`perl -MWin32::Autoglob`?	[reply]
Re^2: One liner with globs on Windows to parse .srt files (update) by LanX (Saint) on May 14, 2021 at 11:18 UTC
Yeah, that's basically the same idea, but a bit longish for a one-liner, don't you think? Using `INIT{@ARGV=<inlined-glob-pattern>}` has less characters ... update hmm wait tho ... ... I could use the ENV-var PERL5OPT to always preload that module for all Perl scripts in the current cmd.exe :) Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l]
Re^3: One liner with globs on Windows to parse .srt files by haukex (Archbishop) on May 14, 2021 at 11:28 UTC
Yeah, that's basically the same idea, but a bit longish for a one-liner, don't you think? Dunno, seemed like the most straightforward answer to your question - just copy `Win32\Autoglob.pm` to `wglob.pm` `;-)` ("`'-M5;@ARGV=<.srt>' -e'...'`" actually doesn't save any characters over "`-e'BEGIN{@ARGV=<.srt>}...'`") Update: Regarding `PERL5OPT`, sure!	[reply] [d/l] [select]
Re^4: One liner with globs on Windows to parse .srt files by LanX (Saint) on May 14, 2021 at 11:42 UTC
Re^5: One liner with globs on Windows to parse .srt files by haukex (Archbishop) on May 14, 2021 at 11:53 UTC
Some notes below your chosen depth have not been shown here
Re: One liner with globs on Windows to parse .srt files by Discipulus (Canon) on May 14, 2021 at 14:15 UTC
Hello LanX, > Any more elegant way to do this? Sure! What more elengant than have a whole perl distro dedicated to this? :) Using MinGW to build perl on windows forcing it to expand * into glob in cmd.exe L* There are no rules, there are no thumbs.. Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.	[reply] [d/l]
Re^2: One liner with globs on Windows to parse .srt files by LanX (Saint) on May 14, 2021 at 14:57 UTC
Thanks, but this looks easier to me `d:\tmp>set PERL5OPT=-MWin32::Autoglob d:\tmp>perl -E"say qq(@ARGV)" t_*.pl t_dump_folding.pl t_export_var.pl t_unicode.pl d:\tmp>` [download] and has the benefit that I can localize the effect to terminals which have this option activated. please note that sitecustomize.pl could be used for global settings of an installation, without the need to recompile Perl. Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l]

Back to Seekers of Perl Wisdom

update