Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

One liner with globs on Windows to parse .srt files

by LanX (Sage)
on May 14, 2021 at 11:09 UTC ( #11132576=perlquestion: print w/replies, xml ) Need Help??

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

Hi

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

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

Replies are listed 'Best First'.
Re: One liner with globs on Windows to parse .srt files
by haukex (Bishop) on May 14, 2021 at 11:11 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

        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!

Re: One liner with globs on Windows to parse .srt files
by Discipulus (Abbot) on May 14, 2021 at 14:15 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>

      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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://11132576]
Approved by haukex
Front-paged by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2021-10-19 11:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My first memorable Perl project was:







    Results (76 votes). Check out past polls.

    Notices?